Ver Mensaje Individual
  #3  
Antiguo 07-10-2006
Avatar de Manuel
Manuel Manuel is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 324
Reputación: 22
Manuel Va por buen camino
Yo utilizo lo siguiente, tengo una tabla con los usuarios del sistema, ejemplo

user_id
user_password
user_nombre
user_op1
.
.
.
user_op100

cada capo user_opn, es una opción del menú del sistema, ejempo

ingreso clientes --->user_op1
ingreso empleados --->user_op2
etc.

entonces cuando ingreso un usuario doy valores a esa variables (user_op1, etc) 1 esta con acceso, 0 sin acceso.

y antes de cargar la forma principal donde tengo mi menú principal, hago esto

use_actual := tabla.user_user_id
if use_op1 = 1 then Menu.opcion_clientes.enabled := true;
if use_op2 = 1 then Menu.opcion_empleados.enabled := true;

una idea a mi me anda de lujo.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita