(* * DBAdmin.lpr * Copyright (C) 2018 Tony Whyman * * 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 . *) program DBAdmin; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, memdslaz, MainFormUnit, DataModule, ibexpress, DBLoginDlgUnit, ShutdownRegDlgUnit, ShutdownDatabaseDlgUnit, BackupDlgUnit, RestoreDlgUnit, AddSecondaryFileDlgUnit, AddShadowSetDlgUnit, AddShadowFileDlgUnit, NewUserDlgUnit, ChgPasswordDlgUnit { you can add units after this }; {$R *.res} begin RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TDatabaseData, DatabaseData); 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.Run; end.