var
FLogin: TFLogin;
Cuenta : integer;
Usuario : String;
LoginOK : boolean;
implementation
uses UFClientes;
{$R *.dfm}
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
LoginOK := False;
Query1.SQL.Text:= 'SELECT CodUsuario, Clave FROM Usuario WHERE CodUsuario = :nom';
Query1.Parameters.ParamByName('nom').Value:= EditUsuario.Text;
Query1.Active:= True;
EditUsuario.Text:= Query1.Fields[1].AsString;
If Query1.RecordCount < 1 then
Begin
Cuenta := Cuenta + 1;
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
EditUsuario.Text := '';
EditClave.Text := '';
Query1.Active := False;
If Cuenta = 3 then Close;
end
else
If Query1Clave.AsString = EClave.Text then
Begin
LoginOk := True;
Query1.Active := False;
FPrincipal:=TFPrincipal.Create(self);
try
FLogin.Visible:= False;
FPrincipal.ShowModal;
finally
FPrincipal.Free;
end;
Close;
end
else
Begin
Cuenta := Cuenta + 1;
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
EditClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then Close;
end;
end;
procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
LoginOK :=False;
Close;
end;
procedure TFLogin.FormCreate(Sender: TObject);
begin
Cuenta := 0;
Usuario := '';
end;