Un par de problemas sin resolver con consultas.

[SaLvaGe]

Gracias por respondeer a mis dudas, probare lo que me habeis dicho.

Crazy girl si puedes me vendria bien ese manual de quick report si pueden enviarmelo. Enviamelo a ignacioegea@gmail.com.

Muchas Gracias.

[SaLvaGe]

kAROCS como le dices tu que si la consulta devuelve cero entonces que sea administrador que no termino de enterder muy bien

Gracias.

[[Lepe]]

Código Delphi [-]
if     Consulta.FiledByName('Nivel').asInteger  = 0 then
   variable_Global_Nombre_Usuario_Activo := nombre de la pantalla login
// considero que es el administrador.

Para controlar en todo el programa si el usuario actual puede o no ver el groupbox u otras opciones, haz un Taction, y cada vez que muestres una ventana en la que el administrador puede ver más cosas, ejecutas el Action y en ese procedimiento, ocultas o muestras las cosas en función del la variable_Global_Nombre_Usuario_Activo.

Si tu programa permite que el usuario Administrador, pueda cambiar el nombre, es decir, que el usuario puede cambiar "Administrador" a "Admin" entonces juega con el Nivel de acceso.

Saludos

[karocs]

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