Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 27-08-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Si los menús los tienes creados en tiempo de diseño, añádele un número en el Tag.

A cada grupo de usuarios, asígnale un código
Código:
codigo   tipo usuario
   1           administradores
   2           operadores
al menú mnuGestionDeUsuarios le pones en el tag el nº 1 (solo administradores podrán verlo)

Ahora, cuando hagas el login, solo tienes que recorrer todos los elementos de menú, si su Tag es <= que el código del grupo de usuarios, lo haces visible, en caso contrario, le pones visible a false al menuItem.

Si un usuario puede estar en varios grupos, al tiempo de buscar el código de ese usuario, unes la tabla de grupos con usuarios y pides su código más pequeño:
Código SQL [-]
select min(codigoGrupo) from grupos inner join usuarios
where usuario.nombre = 'usu01';

Para recorrer todos los menús bastaría 1 rutina principal y 1 rutina recursiva. En los foros creo que hay ejemplos.


La Otra opción es asignar en la base de datos, permisos a los usuarios y dejar los menús visibles, en ese caso, cuando un usuario haga clic en una opcion de menú, saldrá un mensaje (excepción de la base de datos) indicando que no tiene permisos suficientes para acceder.

Saludos y espero te sirva.
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Dar privilegios de Administrador a la Aplicación PoZi API de Windows 16 26-04-2006 20:17:52
Roles - Usuarios y privilegios Osorio Firebird e Interbase 2 13-02-2004 23:34:31
Privilegios en interbase acrophet Conexión con bases de datos 1 09-02-2004 15:07:35


La franja horaria es GMT +2. Ahora son las 00:33:27.


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
Copyright 1996-2007 Club Delphi