Ver Mensaje Individual
  #8  
Antiguo 01-10-2004
karocs karocs is offline
Miembro
 
Registrado: jul 2004
Posts: 143
Reputación: 20
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