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.
|