Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-04-2013
Ever_Martell Ever_Martell is offline
Registrado
NULL
 
Registrado: mar 2013
Posts: 4
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
login delphi rcd_a Varios 2 27-01-2012 18:13:32
Login delPhi 7 Yensis22 C++ Builder 2 10-06-2008 16:05:38
login josi Varios 1 10-06-2008 13:59:12
login maco2007 .NET 4 05-11-2007 17:21:29


La franja horaria es GMT +2. Ahora son las 17:15:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi