roberto
3f4d894541
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@28 9a1d36f3-7752-2d40-8ccb-50eb49674c68
86 lines
2.0 KiB
ObjectPascal
86 lines
2.0 KiB
ObjectPascal
unit uLoginForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, ComCtrls, cxGraphics, cxControls,
|
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
|
|
cxImageComboBox, ImgList, PngImageList, pngimage, ToolWin, JvExControls,
|
|
JvComponent, JvGradient, JvGIF;
|
|
|
|
type
|
|
TfLoginForm = class(TForm)
|
|
Panel1: TPanel;
|
|
Label3: TLabel;
|
|
Label4: TLabel;
|
|
edtPassword: TEdit;
|
|
bAceptar: TButton;
|
|
bCancelar: TButton;
|
|
Label1: TLabel;
|
|
PngImageList1: TPngImageList;
|
|
edtUser: TEdit;
|
|
Image1: TImage;
|
|
JvGradient1: TJvGradient;
|
|
Button1: TButton;
|
|
procedure bAceptarClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure ToolButton4Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
FIntentos: Integer;
|
|
end;
|
|
|
|
var
|
|
fLoginForm: TfLoginForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDataModuleUsuarios, uDataModuleBase;
|
|
|
|
{$R *.dfm}
|
|
|
|
{
|
|
********************************* TfLoginForm **********************************
|
|
}
|
|
procedure TfLoginForm.bAceptarClick(Sender: TObject);
|
|
var
|
|
ACursor: TCursor;
|
|
bOk : Boolean;
|
|
begin
|
|
ACursor := Screen.Cursor;
|
|
Screen.Cursor := crHourGlass;
|
|
try
|
|
bOK := dmUsuarios.Login(edtUser.Text, edtPassword.Text);
|
|
finally
|
|
Screen.Cursor := ACursor;
|
|
end;
|
|
if bOk then
|
|
ModalResult := mrOK
|
|
else begin
|
|
Application.MessageBox('Usuario no válido. Compruebe si ha escrito correctamente'
|
|
+ #13 + #10 + 'el usuario y la contraseña.', 'Atención', MB_OK);
|
|
Dec(FIntentos);
|
|
if (FIntentos <= 0) then
|
|
ModalResult := mrCancel;
|
|
end;
|
|
end;
|
|
|
|
procedure TfLoginForm.FormCreate(Sender: TObject);
|
|
begin
|
|
FIntentos := 3;
|
|
end;
|
|
|
|
procedure TfLoginForm.ToolButton4Click(Sender: TObject);
|
|
begin
|
|
dmBase.ConfigurarConexion;
|
|
end;
|
|
|
|
procedure TfLoginForm.FormShow(Sender: TObject);
|
|
begin
|
|
Self.Caption := Application.Title + ' ' + dmBase.DarVersion + ' - Inicio de sesión';
|
|
end;
|
|
|
|
end.
|