Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 01-10-2004
karocs karocs is offline
Miembro
 
Registrado: jul 2004
Posts: 143
Poder: 22
karocs Va por buen camino
Saludos

en relacion a tu ultima pregunta el codigo es algo asi

if fieldvalues['nivel']='0' then //administrador
accesos3();
if fieldvalues['nivel']='1' then begin
accesos2();
if fieldvalues['nivel']='2' then
accesos1();

0,1y2 porque tenemos 3 nivels de usuario y accesos() son procedimientos que me activan los menu a lo que cada tipo de usuario tiene acceso por ej:

para nivel 0 sel habilitan todos los menu
y para el nivel 2 que solo son usuarios que consultan activamos solo el menu "consultas" . accesos(1) es mas o menos asi:

procedure accesos1();
begin
Form.menu.Items.Items[0].Enabled:=false;
Form.menu.Items.Items[1].Enabled:=false;
Form.menu.Items.Items[1].Items[0].Enabled:=false;
Form.menu.Items.Items[1].Items[1].Enabled:=false;
Form.menu.Items.Items[1].Items[2].Enabled:=false;
Form.menu.Items.Items[1].Items[3].Enabled:=false;
Form.menu.Items.Items[1].Items[4].Enabled:=false;
Form.menu.Items.Items[1].Items[5].Enabled:=false;
Form.menu.Items.Items[2].Enabled:=false;
Form.menu.Items.Items[2].Items[0].Enabled:=false;
Form.menu.Items.Items[3].Enabled:=false;
end;

en el codigo se deshabilitan todos los item del los menu de la aplicacion para el usuario de nivel 2 que es el de menos privilegios, pero como te dije antes manejamos un menu Administrar en donde se crean y eliminan usuarios y solo se habilita para el administrador.

para accesos(2) y accesos(3) habilito las que van de acuerdo al tipo de usuario.
cuando creas el usuario debes decirles que nivel tiene


Saludos...

Última edición por karocs fecha: 01-10-2004 a las 17:42:22.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 18:55:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi