FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Validar usuario contra TAG de componente
Que tal Amigos.
Estoy pensando en implementar un sistema de control de usuario para mis sistemas. Estaba pensando en crear una tabla con usuarios, clave y nivel de acceso (numero entero) Y pensaba si hay alguna forma de interceptar cada evento desde el formulario principal (Mdiform). La idea es que cuando se genere un evento, se compruebe el TAG del componente, y si èste es igual o menor que el nivel de acceso del usuario entonces ejecuto el evento, caso contrario muestro un error de permiso. Les agradecería cualquier dato de por donde empezar y como interceptar los eventos antes de que se ejecuten. Muchas gracias |
#2
|
||||
|
||||
¿Qué tipo de eventos quieres interceptar?
Tal como lo comentas es muy genérico. Tendrías que filtrar. Seguramente no es necesario "interceptar" todos los eventos que se generan, e incluso tampoco sería deseable, porque tal vez existan operaciones que no te interese filtrar. Lo lógico sería llamar en determinados eventos a un procedimiento que te realice la comprobación.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
|||
|
|||
Viéndolo de esa forma, necesitaría que al dispararse cualquier ON EXECUTE de un ActionManager se haga la comprobación, así com otambien cualquier ON CLICK de Tbuttons.
¿Existe forma generica de chequear todos los OnExecute mediante un solo procedimiento comprobador? O debo llamar al procedimiento comprobador en cada uno de los eventos a chequear? Gracias |
#4
|
||||
|
||||
Hombre, el propio TActionList, tiene el evento Onexecute que se lanza en el mismo momento que se lanza cualquier acción interna, si todo lo controlas con acciones (incluso los botones), ahí podrías validar lo que necesites.
Saludos.
__________________
La Madurez se llama... ~~~Gaia~~~ |
#5
|
||||
|
||||
Veo dos opciones:
__________________
"constructive mind, destructive thoughts" |
#6
|
|||
|
|||
Efectivamente utilizaré entonces el OnExecute del TAction.
|
#7
|
||||
|
||||
Hola amadis.
Otro enfoque diferente con consecuencia similar, es desactivar todos los componentes del TForm cuya propiedad Tag tenga un valor mayor al nivel de acceso del usuario:
Ejemplo de llamada:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#8
|
|||
|
|||
Esta idea me gustó más era mas o menos la idea que buscaba, programar una simple linea por formulario para autorizar está bueno.
Por la tarde lo pruebo y les cuento. |
#9
|
|||
|
|||
El codigo funciona demasiado bien. Desactiva todo todo.
Por mas que el nivel de usuario sea mayor que el tag igual lo desactiva todo. |
#10
|
||||
|
||||
Cita:
Te adjunto un demo que incluye varios edits, panel con checkbox, mainmenu, popupmenu, etc, para que puedas evaluarlo con mas comodidad. Nota: Agregue una línea a la función SetLevelAccess para restaurar componentes desactivados ya que el acceso se fija dinámicamente mediante un SpinEdit. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#11
|
|||
|
|||
Ahora si. Y esa linea agregada funciona bien.. Ya que al loguear con otro usuario, todo seguía bloqueado según el acceso del anterior.
funciona a la perfecciòn. Este es un muy buen aporte el foro ya que hay muchos pedidos de componentes para manejo de usuarios y con este simple y pequeño codigo acompañado de una tabla de usuarios de logra un muy buen control de acceso. |
#12
|
||||
|
||||
Cita:
Tomando en cuenta tu observación y como suelo borrar los adjuntos pasado un tiempo, lo he subido al FTP de Club Delphi para que el código esté a disposición. Descarga: [UserLevelAccess.zip] Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#13
|
||||
|
||||
Una solución más generica y global a la aplicación es instalar Hooks globales. De esa forma solo existiría un código único y centralizado que deshabilará cualquier TAction usada en la aplicación. La técnica está ilustrada en una respuesta que coloqué en StackOverflow hace un tiempo. Si estaś interesado en implementarla y necesitas ayuda para adaptarla avisame.
Mirá el código para instalar un Hook global: http://stackoverflow.com/questions/9...688708#9688708 En el caso enlazado hace que todos los TEdit y TMemoEdit usados en la aplicación tengan un TPopupmenu especial. Saludos! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
¿ como validar xml contra esquema? | JXJ | Varios | 2 | 27-03-2011 04:09:41 |
Validar XML contra un XML Schema | Sagara | Internet | 1 | 09-03-2010 07:23:31 |
Validar Cuentas de usuario | ajromero | Conexión con bases de datos | 5 | 20-10-2007 00:53:05 |
validar datos contra un valor de una tabla | robertillo | Varios | 5 | 25-05-2007 18:58:15 |
Validar Usuario | Kenlyr | Conexión con bases de datos | 9 | 28-08-2006 20:34:08 |
|