Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Habiliar item de un TmainMenu (https://www.clubdelphi.com/foros/showthread.php?t=46314)

egarc 28-07-2007 16:38:42

Habiliar item de un TmainMenu
 
Buenas, mi problema es el siguiente:

Estoy desarrollando un sistema en Delphi 2006 con SQL server 2005 Express, necesito establecer accesos a los formularios por usuarios que pertenecen a un perfil previamente establecido.

Tengo una Tabla MENU que tiene todos los nombres de los accesos en el TMAINMENU, tengo un tabla PERFILES, que contiene el nombre del perfil de cada usuario, tengo una tabla USUARIOS con la información de todos los usuarios y un campo FK que relaciona USUARIOS-PERFILES y tengo una tabla que se llama PERMISOS donde guardo el COD_PERFIL y el COD_MENU para saber a qué menu tiene acceso el usuario que pasé como parametro.

Mi problema es al momento de sólo poner ENABLE en el TMAINMENU a los registros que me devuelve la consulta en la tabla permisos.

ejemplo de SQL para saber los permisos que tiene:
Código SQL [-]
select Usuarios.usuario,Usuarios.NombreUsuario,Usuarios.Apellido,Usuarios.Cod_perfil,Perfiles.NombrePerfil,  Menu.NombreMenu  
from usuarios, perfiles, permisos,menu
where Usuarios.Cod_perfil=Perfiles.cod_perfil
and Permisos.Cod_menu=Menu.Cod_menu
AND Menu.Status='A'
and Usuarios.Status='A'
and Perfiles.Status='A'
and Usuarios.Usuario='EGARC'

Esta sentencia me devuelve los accesos antes grabados en las tablas.....

PERO NO SE COMO HABILITAR SOLAMENTE EN EL MAINMENU LO QUE ESTA COSULTA ME DEVUELVE.........

Por favor, necesito su ayuda, GRACIAS ANTICIPADAS....
Att. Ezequiel Garcia

axesys 28-07-2007 17:16:21

Puedes descargarte el ventas

http://sourceforge.net/projects/ventas/

Y checas como manejan los permisos haber si te sirven


La franja horaria es GMT +2. Ahora son las 05:41:15.

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