Ver Mensaje Individual
  #4  
Antiguo 09-09-2005
Avatar de Maury Manosalva
Maury Manosalva Maury Manosalva is offline
Miembro
 
Registrado: ago 2005
Posts: 101
Reputación: 19
Maury Manosalva Va por buen camino
Hola Yesi buen dia, lo que entiendo es que tienes dos campos en una BD, y necesitas verificar si este usuario esta creado y si la contraseña es correcta, lo que tienes que hacer desde el form de delphi crear dos objetos de conexion un DataSource que conecta a la BD y otro Query SQL desde donde vas a hacer la consulta. ahora vas a programar las consultas de esta manera:

esto es lo que lleva en el form de acceso.

Código Delphi [-]
 procedure TfrmLogin.cmdAccesarClick(Sender: TObject);
 Var
   consulta : String;
 begin
   with qryUsuario do
   begin
     close;
     SQL.Clear;
     consulta := 'Select * from TabUsuarios where LogUsuario ='+char(39)+
       txtUsuario.Text+char(39)+ 'and ConUsuario ='+chr(39) + txtcontrasena.Text+char(39);
     SQL.Add(consulta);
     Open;
     If (RecordCount=1) then
     Begin
       //siguiente form a mostrar
     End
     else
     Begin
       MessageDlg('Usuario o Contraseña Incorrecta, Por Favor Verifique',mterror,[mbOk],0);
       txtUsuario.SetFocus;
     end ;
   End;
 end;
Esta seria la manera para consultar si el usuario y la contraseña corresponden y la deje pasar al frmprincipal o como la quieras llamar.

P.D. Por favor sea mas explicita en las preguntas para que las respuestas sean muy concretas.

Maury Manosalva.
Bucaramanga, Colombia.

Última edición por dec fecha: 09-09-2005 a las 18:18:20. Razón: Encerrar el código fuente en la etiqueta [DELPHI]
Responder Con Cita