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

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-12-2012
mantraxer21 mantraxer21 is offline
Miembro
 
Registrado: ago 2010
Posts: 94
Poder: 15
mantraxer21 Va por buen camino
Función Menu Dinámico (users) BD

Estiamdos,

Alguna idea de "Code" respecto a un menu dinámico con Un Motor de Datos ...

Ejemplo

Usuarios XXX (Lectura de Ficheros, Listar, Consultas y Búsquedas)
Usuarios YYY (Inserciones - Modificaciones, Listar, Consultar, Buscar)
Usuarios ZZZ ( Modificaciones, Lecturas, Inserciones, Listar, Buscar)

Al momento de loguearse en el sistema, este sea capaz de llamar a alguna función que cargue las opciones del menú y saber que opciones sí puede ejecutar o ver un usuario logueado. Creo y supongo que las opciones del menú tienen que estar cargadas en el motor de datos...

Alguien tiene ideas, script para empezar un empujón ==??????

Gracias
Responder Con Cita
  #2  
Antiguo 30-12-2012
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.003
Poder: 26
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Esto es bastante común, y yo lo hice en la última empresa en la que trabajé.

Una forma de hacerlo es creando una tabla que indique qué opciones están disponibles. Sería algo así como:
Código SQL [-]
CREATE TABLE `usuario_menu`
  UsuarioId AS INT,
  OpcionId AS INT;

[off_topic] madre mía, que ya se me ha olvidado cómo programar SQL, menudas navidades...[/off_topic]

De esta forma:
Código SQL [-]
SELECT OpcionId FROM usuario_menu WHERE UsuarioId = $Id;

Evidentemente "$Id" es el identificador del usuario.

Otra posibilidad es hacer lo mismo, pero en vez de asociar a usuarios, asociándolo a grupos de usuarios.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine
Responder Con Cita
  #3  
Antiguo 02-01-2013
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Poder: 13
MartinS Va por buen camino
Cita:
Empezado por mantraxer21 Ver Mensaje
Estiamdos,

Alguna idea de "Code" respecto a un menu dinámico con Un Motor de Datos ...

Ejemplo

Usuarios XXX (Lectura de Ficheros, Listar, Consultas y Búsquedas)
Usuarios YYY (Inserciones - Modificaciones, Listar, Consultar, Buscar)
Usuarios ZZZ ( Modificaciones, Lecturas, Inserciones, Listar, Buscar)

Al momento de loguearse en el sistema, este sea capaz de llamar a alguna función que cargue las opciones del menú y saber que opciones sí puede ejecutar o ver un usuario logueado. Creo y supongo que las opciones del menú tienen que estar cargadas en el motor de datos...

Alguien tiene ideas, script para empezar un empujón ==??????

Gracias
Hola: Te detallo mas o menos como lo realizo yo:

Cada usuario que se loguea en el sistema tiene un "nivel" de permiso para operar, es decir, uno de los campos de la tabla de usuarios contempla el nivel (Es este caso, Administradores, operativos, Casuales "solo consulta". Tambien podria ser 0,1,2 etc). Le asigno por importacia un numero que va de 0 a 2 a la propiedad tag de cada uno de los items del menu al momento del diseño de este y luego con un procedimiento que le puse como nombre Nivel que se ejecuta despues del logueo del usuario, es el siguiente

Código Delphi [-]
Procedure TPPrincipal.Nivel;
Var I,Seguro : Integer;
begin
   if Dm.TipoUsers = 'Administradores' then
     Seguro := 2 else
     if Dm.TipoUsers = 'Operativos' then
      Seguro := 1 else
      Seguro := 0;
  if Seguro = 2 then // Admin
  For i := 0 to ComponentCount -1 do
  Begin
    if (Components[i] Is TMenuItem)  then
     Begin
       if (Components[i] as TMenuItem).Tag in [0..2] then
         (Components[i] as TMenuItem).Enabled := True;
      End;
  End;
  if Seguro = 1 then // Operarios
  For i := 0 to ComponentCount -1 do
  Begin
    if (Components[i] Is TMenuItem)  then
     Begin
       if (Components[i] as TMenuItem).Tag in [0..1] then
         (Components[i] as TMenuItem).Enabled := True else
         (Components[i] as TMenuItem).Enabled := False;
      End;
  End;
  if Seguro = 0 then // Casual
  For i := 0 to ComponentCount -1 do
  Begin
    if (Components[i] Is TMenuItem)  then
     Begin
       if (Components[i] as TMenuItem).Tag = 0 then
         (Components[i] as TMenuItem).Enabled := True else
         (Components[i] as TMenuItem).Enabled := False;
      End;
  End;

end;

Yo lo que hago, como podras apreciar, es deshabilitar el items que no corresponde por nivel de usuario, pero podrias cambiarle la propiedad enabled por visible y deberia funcionar o aproximarse a lo que estas pidiendo.

Espero que haya sido de utilidad.

Saludos y felicidades
Responder Con Cita
  #4  
Antiguo 17-02-2013
mantraxer21 mantraxer21 is offline
Miembro
 
Registrado: ago 2010
Posts: 94
Poder: 15
mantraxer21 Va por buen camino
Resuelto

Gracias por sus apuntes e ideas, tema solucionado !
Responder Con Cita
Respuesta



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
Menú dinámico con JavaScript y PHP lucasarts_18 PHP 14 24-11-2007 22:13:54
Combo o menu desplegable dinamico Andrea Martinez PHP 5 25-02-2007 01:38:28
menú dinámico con eventos dinámicos mguixot OOP 4 04-07-2006 17:05:05
Main Menu Dinamico cahosoft Varios 2 30-06-2005 10:45:56
Menu dinamico xxxFALKORxxx OOP 1 23-03-2005 19:06:51


La franja horaria es GMT +2. Ahora son las 01:35:44.


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