Ver Mensaje Individual
  #7  
Antiguo 01-10-2004
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Código Delphi [-]
if     Consulta.FiledByName('Nivel').asInteger  = 0 then
   variable_Global_Nombre_Usuario_Activo := nombre de la pantalla login
// considero que es el administrador.

Para controlar en todo el programa si el usuario actual puede o no ver el groupbox u otras opciones, haz un Taction, y cada vez que muestres una ventana en la que el administrador puede ver más cosas, ejecutas el Action y en ese procedimiento, ocultas o muestras las cosas en función del la variable_Global_Nombre_Usuario_Activo.

Si tu programa permite que el usuario Administrador, pueda cambiar el nombre, es decir, que el usuario puede cambiar "Administrador" a "Admin" entonces juega con el Nivel de acceso.

Saludos
Responder Con Cita