Ver Mensaje Individual
  #1  
Antiguo 02-04-2013
Ever_Martell Ever_Martell is offline
Registrado
NULL
 
Registrado: mar 2013
Posts: 4
Reputación: 0
Ever_Martell Va por buen camino
Login de Usuarios con Zeos

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.
Responder Con Cita