Tienes que crear una tabla, con los nombres de los usuarios, sus claves codificadas y tantos campos como opciones de los menús quieras controlar.
Yo estos campos los creo todos de tipo Booleano.
Solamente el Administrador tiene el derecho de adjudicar y revocar permisos.
Al cargar el menú de la aplicación desactivamos aquellas opciones a que el usuario no tenga derecho a acceder y ya está.
if DmLux.UsuMargenes.value = True then
frmenu.Mrgenes1.enabled:= True
else
frmenu.Mrgenes1.enabled:= False;
Aquí se concede o no permiso para que el usuario pueda ver los márgenes comerciales de las ventas de la empresa.
Un Saludo.
|