ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/services.lpr
Revision: 209
Committed: Wed Mar 14 12:48:51 2018 UTC (6 years ago) by tony
File size: 2086 byte(s)
Log Message:
Fixes Merged

File Contents

# Content
1 (*
2 * IBX For Lazarus (Firebird Express)
3 *
4 * The contents of this file are subject to the Initial Developer's
5 * Public License Version 1.0 (the "License"); you may not use this
6 * file except in compliance with the License. You may obtain a copy
7 * of the License here:
8 *
9 * http://www.firebirdsql.org/index.php?op=doc&id=idpl
10 *
11 * Software distributed under the License is distributed on an "AS
12 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
13 * implied. See the License for the specific language governing rights
14 * and limitations under the License.
15 *
16 * The Initial Developer of the Original Code is Tony Whyman.
17 *
18 * The Original Code is (C) 2015 Tony Whyman, MWA Software
19 * (http://www.mwasoftware.co.uk).
20 *
21 * All Rights Reserved.
22 *
23 * Contributor(s): ______________________________________.
24 *
25 *)
26
27 program services;
28
29 {$mode objfpc}{$H+}
30
31 uses
32 {$IFDEF UNIX}{$IFDEF UseCThreads}
33 cthreads,
34 {$ENDIF}{$ENDIF}
35 Interfaces, // this includes the LCL widgetset
36 Forms, memdslaz, MainFormUnit, ibexpress,
37 ServicesLoginDlgUnit, SelectValidationDlgUnit, SelectDBDlgUnit,
38 BackupDlgUnit, RestoreDlgUnit, ListUsersUnit, LimboTransactionsUnit,
39 NewUserDlgUnit, ChgPasswordDlgUnit,
40 ShutdownDatabaseDlgUnit, ShutdownRegDlgUnit;
41
42 {$R *.res}
43
44 begin
45 RequireDerivedFormResource := True;
46 Application.Initialize;
47 Application.CreateForm(TMainForm, MainForm);
48 Application.CreateForm(TBackupDlg, BackupDlg);
49 Application.CreateForm(TChgPasswordDlg, ChgPasswordDlg);
50 Application.CreateForm(TLimboTransactionsForm, LimboTransactionsForm);
51 Application.CreateForm(TListUsersForm, ListUsersForm);
52 Application.CreateForm(TNewUserDlg, NewUserDlg);
53 Application.CreateForm(TRestoreDlg, RestoreDlg);
54 Application.CreateForm(TSvcLoginDlg, SvcLoginDlg);
55 Application.CreateForm(TSelectValidationDlg, SelectValidationDlg);
56 Application.CreateForm(TSelectDBDlg, SelectDBDlg);
57 Application.CreateForm(TShutdownReqDlg, ShutdownReqDlg);
58 Application.CreateForm(TShutdownDatabaseDlg, ShutdownDatabaseDlg);
59 Application.Run;
60 end.
61