1unit LoginForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls, TL.Components, Vcl.Imaging.jpeg;
 8
 9type
10  TfrmLogin = class(TLForm)
11    Panel1: TPanel;
12    btnConnect: TButton;
13    Button1: TButton;
14    pnlCopyright: TPanel;
15    GroupBox1: TGroupBox;
16    ledUserName: TLabeledEdit;
17    ledPassword: TLabeledEdit;
18    pnlCaption: TPanel;
19    Image1: TImage;
20    ledServer: TLabeledEdit;
21    Panel2: TPanel;
22    Panel3: TPanel;
23    Panel4: TPanel;
24    procedure btnConnectClick(Sender: TObject);
25    procedure FormCreate(Sender: TObject);
26    procedure FormShow(Sender: TObject);
27  private
28    { Private declarations }
29  public
30    { Public declarations }
31    function Execute: TModalResult;
32  end;
33
34var
35  frmLogin: TfrmLogin;
36
37implementation
38
39{$R *.dfm}
40
41uses
42  DataModule;
43
44procedure TfrmLogin.btnConnectClick(Sender: TObject);
45begin
46  if dm.Connect(ledServer.Text, ledUserName.Text, ledPassword.Text) then
47    begin
48      ModalResult:= mrOk;
49      frmLogin.RegVars.Values['Server']:= ledServer.Text;
50      frmLogin.RegVars.Values['UserName']:= ledUserName.Text;
51      frmLogin.SaveConfig;
52    end
53  else
54    ModalResult:= mrAbort
55end;
56
57function TfrmLogin.Execute: TModalResult;
58begin
59  Application.CreateForm(TfrmLogin, frmLogin);
60  try
61    Result:= frmLogin.Showmodal;
62  finally
63    frmLogin.Free;
64  end;
65end;
66
67procedure TfrmLogin.FormCreate(Sender: TObject);
68begin
69  Self.pnlCaption.Caption:= 'Financiële Administratie - ' + TL.Components.Folder.AppVersion;
70
71  // Set default values
72  Self.RegVars.Values['Server']:= 'Server';
73  Self.RegVars.Values['UserName']:= 'UserName';
74
75  // Override default values read from registry if exists
76  Self.LoadConfig;
77
78  ledServer.Text:= Self.RegVars.Values['Server'];
79  ledUserName.Text:= Self.RegVars.Values['UserName'];
80  ledPassword.Text:= Self.RegVars.Values['Password'];
81end;
82
83procedure TfrmLogin.FormShow(Sender: TObject);
84begin
85  ledPassword.SetFocus;
86end;
87
88end.
89