Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Rutina para niveles de acceso (https://www.clubdelphi.com/foros/showthread.php?t=36265)

jandres 06-10-2006 15:20:38

Rutina para niveles de acceso
 
Buenos días estoy solicitando su ayuda por que me gustaría hacer una pantalla de usuario en la cual pueda restringir el acceso algunas pantallas es decir

Usuario // Texto
Clave // Texo

Mantenimiento // Lógico (Trae /False)
Consultas // Lógico (Trae /False)
Reportes // Lógico (Trae /False)
Backup // Lógico (Trae /False)


Esto serian mis campos la estructura de la tabla esta bien

Lo que necesito saber es con que rutina llamo al entrar para que lea los campos y según el usuario habilité o deshabilité la opción

Gracias

j.andres

jandres 06-10-2006 15:21:16

Disculpen
 
Estoy utilizando Delphi 7 y access 2003

Manuel 07-10-2006 00:36:14

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.


La franja horaria es GMT +2. Ahora son las 18:47:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi