Ver Mensaje Individual
  #7  
Antiguo 27-07-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por lince_36 Ver Mensaje
No entiendo mucho el como debo hacerlo, la aplicacion la hice con mucha batalla.
(1) Al entrar pides usuario y contraseña.
(2) Segun el usuario, guardas en una variable de qué tipo es: "Empleado" o "Admin".
(3) En los botones/menús/acciones/... donde debas aplicar seguridad colocas algo así:

Código Delphi [-]
if (Nivel = "Empleado") then begin
  MessageDlg('Usted no tiene permisos para ejecutar esta acción', mtWarning, [mbOK], 0);
end
else begin
  // Aqui ejecutar el código que ya tienes...
  ....
end;

Adicionalmente puedes oocultar o desactivar botones y elementos del menús al principio, tal como te comenta paranedaf.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita