examples/DBAdmin/DBAdmin.lpr

(*
 * DBAdmin.lpr
 * Copyright (C) 2018 Tony Whyman <tony@mwasoftware.co.uk>
 *
 * DBAdmin is free software: you can redistribute it and/or modify it
 * under the terms of the GNU General Public License as published by the
 * Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 * 
 * DBAdmin is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License along
 * with this program.  If not, see <http://www.gnu.org/licenses/>.
 *)
program DBAdmin;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, memdslaz, MainFormUnit, DataModule, SelectSQLResultsUnit, ibexpress,
  DBLoginDlgUnit, ShutdownRegDlgUnit, ShutdownDatabaseDlgUnit, BackupDlgUnit,
  RestoreDlgUnit, AddSecondaryFileDlgUnit, AddShadowSetDlgUnit, AddShadowFileDlgUnit,
  NewUserDlgUnit, ChgPasswordDlgUnit, ExecuteSQLScriptDlgUnit
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TDBDataModule, DBDataModule);
  Application.CreateForm(TDBLoginDlg, DBLoginDlg);
  Application.CreateForm(TShutdownDatabaseDlg, ShutdownDatabaseDlg);
  Application.CreateForm(TShutdownReqDlg, ShutdownReqDlg);
  Application.CreateForm(TBackupDlg, BackupDlg);
  Application.CreateForm(TRestoreDlg, RestoreDlg);
  Application.CreateForm(TAddSecondaryFileDlg, AddSecondaryFileDlg);
  Application.CreateForm(TAddShadowFileDlg, AddShadowFileDlg);
  Application.CreateForm(TAddShadowSetDlg, AddShadowSetDlg);
  Application.CreateForm(TNewUserDlg, NewUserDlg);
  Application.CreateForm(TChgPasswordDlg, ChgPasswordDlg);
  Application.CreateForm(TExecuteSQLScriptDlg, ExecuteSQLScriptDlg);
  Application.Run;
end.

Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 10 months ago) by tony
File size:	2082 byte(s)
Log Message:	propset for eol-style
#	User	Rev	Content
1	tony	158	(*
2			* DBAdmin.lpr
3			* Copyright (C) 2018 Tony Whyman <tony@mwasoftware.co.uk>
4			*
5			* DBAdmin is free software: you can redistribute it and/or modify it
6			* under the terms of the GNU General Public License as published by the
7			* Free Software Foundation, either version 3 of the License, or
8			* (at your option) any later version.
9			*
10			* DBAdmin is distributed in the hope that it will be useful, but
11			* WITHOUT ANY WARRANTY; without even the implied warranty of
12			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13			* See the GNU General Public License for more details.
14			*
15			* You should have received a copy of the GNU General Public License along
16			* with this program. If not, see <http://www.gnu.org/licenses/>.
17			*)
18			program DBAdmin;
19
20			{$mode objfpc}{$H+}
21
22			uses
23			{$IFDEF UNIX}{$IFDEF UseCThreads}
24			cthreads,
25			{$ENDIF}{$ENDIF}
26			Interfaces, // this includes the LCL widgetset
27	tony	231	Forms, memdslaz, MainFormUnit, DataModule, SelectSQLResultsUnit, ibexpress,
28	tony	158	DBLoginDlgUnit, ShutdownRegDlgUnit, ShutdownDatabaseDlgUnit, BackupDlgUnit,
29			RestoreDlgUnit, AddSecondaryFileDlgUnit, AddShadowSetDlgUnit, AddShadowFileDlgUnit,
30	tony	231	NewUserDlgUnit, ChgPasswordDlgUnit, ExecuteSQLScriptDlgUnit
31	tony	158	{ you can add units after this };
32
33			{$R *.res}
34
35			begin
36			RequireDerivedFormResource := True;
37			Application.Initialize;
38			Application.CreateForm(TMainForm, MainForm);
39	tony	272	Application.CreateForm(TDBDataModule, DBDataModule);
40	tony	158	Application.CreateForm(TDBLoginDlg, DBLoginDlg);
41			Application.CreateForm(TShutdownDatabaseDlg, ShutdownDatabaseDlg);
42			Application.CreateForm(TShutdownReqDlg, ShutdownReqDlg);
43			Application.CreateForm(TBackupDlg, BackupDlg);
44			Application.CreateForm(TRestoreDlg, RestoreDlg);
45			Application.CreateForm(TAddSecondaryFileDlg, AddSecondaryFileDlg);
46			Application.CreateForm(TAddShadowFileDlg, AddShadowFileDlg);
47			Application.CreateForm(TAddShadowSetDlg, AddShadowSetDlg);
48			Application.CreateForm(TNewUserDlg, NewUserDlg);
49			Application.CreateForm(TChgPasswordDlg, ChgPasswordDlg);
50	tony	231	Application.CreateForm(TExecuteSQLScriptDlg, ExecuteSQLScriptDlg);
51	tony	158	Application.Run;
52			end.
53