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;