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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-10-2003
Carlos Arevalo Carlos Arevalo is offline
Miembro
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 111
Poder: 21
Carlos Arevalo Va por buen camino
Niveles de seguridad para un form.

Que tal amigos del foro.

Tengo la inquietud de cual seria la mejor manera de implementar niveles de seguridad para un form.

Me explico tengo varios formularios y dentro de estos formularios varios objetos como podría habilitar y deshabilitar los formularios u objetos dentro del formulario según el usuario.

Agradecería me orientaran al respecto.

Gracias
__________________
Carlos Arevalo
MSN Messenger: carlos@arevalo.com.ve
Responder Con Cita
  #2  
Antiguo 30-10-2003
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Se me ocurre los siguiente.

Primero debes estructurar una tablas de acceso para indicar qué usuarios tienen derecho a qué formularios y a qué controles:

usuarios = (id, nombre, otros campos)
formularios = (id, nombre, usuario_id)
controles = (id, nombre, formulario_id, usuario_id)

Cuando se desee abrir un formulario se hace una consulta a la tabla formularios con el id del usuario activo:

Código:
SELECT * FROM formularios
WHERE nombre = :nombre AND usuario_id = :uid
Si la cosulta no devuelve ningún registro querrá decir que el usuario no tiene derecho al formulario y cancelas la creación del formulario.

Si sí devuelve registros (de hecho tendría que regresar uno sólo) querrá decir que sí tiene derecho y permites la apertura del formulario.

Una vez que determinas el derecho del usuario activo a un formulario dado, en el evento OnShow del formulario determinas a qué controles tiene derecho. Esto lo harías consultando ahora la tabla controles:

Código:
SELECT * from controles
WHERE formulario_id := :fid AND usuario_id = :uid
Aquí fid será el id del formulario que obtienes en la consulta anterior.

Con esto obtendrás una lista de los nombres de los controles a los que el usuario activo tiene derecho.

Entonces, con un ciclo recorres todos los componentes del formulario buscando el nombre de cada uno en los resultados de la consulta. Si está querrádecir que tiene derecho y lo habilitas; de lo contrario lo inhabilitas:

Código:
for I := 0 to ComponentsCount - 1 do
begin
  if Components[i] is TControl then
    with TControl(Components[i]) do
      Enabled := Query.FindKey([Name]);
end;
// Saludos
Responder Con Cita
  #3  
Antiguo 30-10-2003
Carlos Arevalo Carlos Arevalo is offline
Miembro
 
Registrado: may 2003
Ubicación: Caracas, Venezuela
Posts: 111
Poder: 21
Carlos Arevalo Va por buen camino
Gracias Roman

Yo tenia planteado mas o menos lo mismo pero usando una sola tabla maestra con la sig informacion:
id, formulario, objeto, idusuario, nivel donde nivel definiria que tipo de acceso tendria a la BD, lectura, escritura, etc. y la presencia del registro en la tabla definiria los formularios u objetos a los cuales no se tiene acceso.

Esperemos para ver si otros compañeros aportan nuevas ideas.

algo que me preocupa es como encriptar la data de esta tabla para que de ninguna manera se pueda aceder a la informacion que hay en ella por otra via.
__________________
Carlos Arevalo
MSN Messenger: carlos@arevalo.com.ve
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


La franja horaria es GMT +2. Ahora son las 13:42:20.


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