Un par de problemas sin resolver con consultas.

[SaLvaGe]

Buenos Días tengo dos problemas que qver si me podeis ayudar .

El primero es que mi programa tiene registro por usuarios, o sea que cuando tu entras te pide nombre de usuario y contraseña y la base de datos que contiene esos usuario tambien tiene un campo que dice si es administrador o usuario y quiero que si el usuario que entra es administrador pues que pueda dar de alta nuevos usuarios, en este caso es que si es administrador vea un groupbox y si no lo es pues que no lo vea pero al hacer la consulta para que me devuelva si es administrador o no no se como hacer que dependiendo del resultado de la consulta se vea o no el groupbox.

La segunda pregunta es que como podría obtener la fecha y hora del sistema para asi poderla agregar a un campo de una base de datos.

Muchas Gracias.

Ignacio Egea Millet.

[karocs]

Saludos

En cuanto a lo primero, me dices que cuando carga la aplicacion pide un nombre de usuario y clave, es decir es la primera forma que carga.

un amigo me enseño a hacerlo de la siguiente forma:
en la aplicacion al iniciar me pide nombre y clave (al igual que la tuya) y hay dos botones Aceptar y Cancelar(este solo para no entrar a la aplicacion)

en el codigo del boton aceptar (OnClick) es en donde se consulta que nivel de acceso tiene es decir si es administrador o un usuario con menos privilegios en fin.

en la base de datos hay una tabla usuario que guarda el nombre, nobre de usuario, clave y nivel de acceso, utilizamos cero para los administradores(supongo que tendras otros).

bueno al hacer clic en el boton aceptar si devuelve cero en la consulta del nivel de acceso entonces habilita todas la opciones del sistema, y para crear nuevos usuario hay un menu de administracion del sistema que muestra un Form en donde se crean los usuarios y todo lo que quieras guardar de ellos (solo tiene acceso el nivel administrador).

EN cuanto a lo segundo puedes utilizar DATE para la fecha del sistema (si estamos hablando de delphi) y para la hora supongo que es TIME.

Espero ser de ayuda y haberme hecho entender.

[karocs]

Saludos de nuevo quiza no entendi bien necesitas la consulta en SQL ?

[Crazy_Dog]

Qrsysdata:
Es el que te da esa posibilidad de agregar esos datos. quieres un manual de Quick Report?

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