Hola Muy buenas noches queridos compañeros de
CLubDelphi, hace unos días retorné a esto de la programación ya que elaboro un programa para el salón de mi clase, referente a tareas.
Pero tengo unas dudas las cuales son :
¿Qué código puedo usar para elaborar un Login de usuarios con ZConnection1 y ZQuery1?
Estaba elaborando un programa con base de datos de Access y me funcionó de maravilla el Login de usuarios con su respectiva contraseña. Opté por querer trabajar con Zeos en una base de datos remota, ya poseo el server remoto y funciona de maravilla. Ahora bien no sé cómo puedo usar estos dos componentes para formar el Login de Usuario.
Tengo mi base de datos creada con sus respectivos usuarios y contraseña.
Con
ADOConnection y
ADOQuery usaba el siguiente en un Botón :
Código SQL
[-]LoginOK := False;
ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
ADLogin.Active:= True;
EUsuario.Text:= ADLogin.Fields[1].AsString;
If ADLogin.RecordCount < 1 then
Begin
Cuenta := Cuenta + 1;
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
EUsuario.Text := '';
EClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then Close;
end
else
If ADLoginClave.AsString = EClave.Text then
Begin
LoginOk := True;
ADLogin.Active := False;
Horarios:=THorarios.Create(self);
try
Login.Visible:= False;
horarios.ShowModal;
finally
Horarios.Free;
end;
Close;
end
else
Begin
Cuenta := Cuenta + 1;
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
EClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then Close;
end;
Estuve intentando por mí propio elaborar el código pero no lo logré, también me gustaría saber si se podría agregar
" Recordar " para que el usuario no esté a cada momento ingresando su usuario.
De ante mano gracias, y este foro en todos los años que llevo ( Esta cuenta es nueva ) Me ha servido de mucha ayuda.