Permisos en las Opciones de Menú

[mantraxer21]

Estimados:

Tengo una Bd Firebird, dentro de ella una tabla "usuarios", donde sólo existen 4 perfiles

id - perfil
1 Admin
2 Consultador
3 Mantenedor
4 Invitado

Y quiero en mi aplicación (Formulario Principal) poder limitar a el o los usuarios dependiendo del perfil a poder ingresar a los formularios determinados por mi.

Se me ocurre que en Evento OnCreate del Formulario principal, pueda validar con un ciclo if, nosé si me pueden orientar un poco.

Saludos

[[José Luis Garcí]]

te recomiendo lo siguiente, al entrara en la aplicación, pides un nombre de usuario y una clave, supongo, pues según sea este usuario asignas un variable global con el nivel de usuario en tu caso de 1 a 4, al estar en una variable global puedes acceder a ella desde cualquier parte de tú aplicación.

En el primer Active de tu formulario principal, recorrería todos los elementos de tu ActionList/Menu a cada elemento en su propiedad Tag, debes de haber asignado que nivel de usuario puede acceder a este elemento(1..4), al recorrerlo sólo debes de poner su propiedad enable en true o false si el nivel de usuario de la variable global es mayor o igual a la propiedad Tag.

Por último te recomiendo, que crees un procedure para hacer esto, ya que si tienes para cambiar de usuario, tendrías que repetir el proceso para adaptarte al nuevo usuario.

Espero haber podido ayudarte.