Login Form

[[Caral]]

Hola

Código Delphi [-]
procedure TLoginForm.LogInButtonClick(Sender: TObject);
var cuenta: Integer;
begin

     Qry_Usuarios.Sql.Clear;
     Qry_Usuarios.SQL.Text:= 'Select Nombre, Clave from Usuarios Where Nombre = :Cod';
     Qry_Usuarios.Params[0].Value:= edUsuario.Text;
     Qry_Usuarios.Active:= True;
   
   If Qry_Usuarios.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       Qry_Usuarios.Active := False;
       If Cuenta = 3 then Close;
    end
    else
       If Qry_UsuariosClave.AsString = edClave.Text then
        Begin
           LoginOk := True;
           Clave := Qry_UsuariosClave.AsString;
           Nombre := Qry_Usuarios1Nombre.AsString;
           Qry_Usuarios.Active := False;
           Close;
           Cerrar := True;
        end
        else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           edUsuario.Text := '';
           Qry_Usuarios.Active := False;
           If Cuenta = 3 then Close;
         end;

Saludos

[lbidi]

Gracias.. probare.. y perdon por la demorada respuesta.

Saludos.