Habiliar item de un TmainMenu

[egarc]

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]

Puedes descargarte el ventas

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

Y checas como manejan los permisos haber si te sirven