este es el codigo que uso en el boton (ENTRAR) del formulario (FENTRADA) que es el loggin:
Código Delphi
[-]procedure TFENTRADA.BENTRARClick(Sender: TObject);
begin
with DataModule1.atbUsuarios do
begin
close;
sql.Clear;
sql.add('select * from usuarios where usuario =:usuario');
Parameters.ParamByName('usuario').Value :=FENTRADA.EUSUARIO.Text;
open;
USUARIO:= DataModule1.atbUsuariosusuario.Value;
CLAVE:=DataModule1.atbUsuariospassword.Value;
IF(EUSUARIO.Text=USUARIO)AND(ECLAVE.Text=CLAVE)THEN
BEGIN
FENTRADA.Hide;
FMENUPRI.SHOWMODAL;
END
ELSE
SHOWMESSAGE('NOMBRE DE USUARIO Y CONTRASEÑA INVALIDOS');
EUSUARIO.CLEAR;
ECLAVE.Clear;
EUSUARIO.SetFocus;
end;
end;
pienso que esto me esta creando el conflicto por que cuando me logueo con el usuario: SOPORTE y Pass 12345 y voy al formulario de de crear usuarios que hai tengo un DBGRid que solo me muestra la columna de Usuarios ya creados en ese DB grid tengo 5 usuarios creados entonces cuando me logueo con usuario SOPORTE solo me sale en el DBGRID ese Usuario, pero si cierro la aplicacion y me logueo con el user;EDWIN que es otro usuario que esta en la tabla entonces en ves de salirme anteriormente el user SOPORTE me sale el usuario EDWIN es como si cuando me logueo con un usuario especifico solo me sale ese usuario en la tabla y me oculta los demas