|
|
@@ -1,86 +0,0 @@
|
|
|
-{***************************************************************************}
|
|
|
-{ TurboBird: FireBird database administration and management tool }
|
|
|
-{ Developed by: Motaz Abdel Azeem http://code.sd/ }
|
|
|
-{ Start development: 5.Dec.2009 }
|
|
|
-{ Last updated : 13.Dec.2011 }
|
|
|
-{ License : GPL for GUI, LGPL for Units }
|
|
|
-{***************************************************************************}
|
|
|
-
|
|
|
-program TurboBird;
|
|
|
-
|
|
|
-{$mode objfpc}{$H+}
|
|
|
-
|
|
|
-uses
|
|
|
- {$IFDEF UNIX}{$IFDEF UseCThreads}
|
|
|
- cthreads,
|
|
|
- {$ENDIF}{$ENDIF}
|
|
|
- Interfaces, // this includes the LCL widgetset
|
|
|
- Forms, Controls, memdslaz, main, createdb, Reg, QueryWindow,
|
|
|
- ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen, EnterPass, About,
|
|
|
- CreateTrigger, EditTable, CallProc, EditDataFullRec,
|
|
|
- UDFInfo, ViewDomain, NewDomain, SysTables, NewConstraint, NewEditField, Calen, Scriptdb,
|
|
|
- UserPermissions, TableManage, BackupRestore, CreateUser, ChangePass,
|
|
|
- PermissionManage, SQLHistory, CopyTable, dynlibs, ibase60dyn, dbInfo;
|
|
|
-
|
|
|
-const
|
|
|
- Version = '0.8.9';
|
|
|
- VersionDate = '2010 - Dec 2011';
|
|
|
-{$IFDEF Unix}
|
|
|
- {$DEFINE extdecl:=cdecl}
|
|
|
- fbclib = 'libfbclient.' + sharedsuffix;
|
|
|
-{$ENDIF}
|
|
|
-{$IFDEF Windows}
|
|
|
- {$DEFINE extdecl:=stdcall}
|
|
|
- fbclib = 'fbclient.dll';
|
|
|
-{$ENDIF}
|
|
|
-
|
|
|
-{$R *.res}
|
|
|
-
|
|
|
-var
|
|
|
- SAbout: TfmAbout;
|
|
|
- IBaseLibraryHandle : TLibHandle;
|
|
|
-begin
|
|
|
- Application.Initialize;
|
|
|
- IBaseLibraryHandle:= LoadLibrary(fbclib);
|
|
|
- // Check Firebird library existance
|
|
|
- if (IBaseLibraryHandle = nilhandle) then
|
|
|
- begin
|
|
|
- Application.MessageBox('Can not load library: ' + fbclib, 'Error', 0);
|
|
|
- Exit;
|
|
|
- end;
|
|
|
- SAbout:= TfmAbout.Create(nil);
|
|
|
- SAbout.BorderStyle:= bsNone;
|
|
|
- SAbout.BitBtn1.Visible:= False;
|
|
|
- SAbout.Show;
|
|
|
- Application.ProcessMessages;
|
|
|
- SAbout.Update;
|
|
|
-
|
|
|
- Application.CreateForm(TfmMain, fmMain);
|
|
|
- Application.CreateForm(TfmCreateDB, fmCreateDB);
|
|
|
- Application.CreateForm(TfmReg, fmReg);
|
|
|
- Application.CreateForm(TfmNewTable, fmNewTable);
|
|
|
- Application.CreateForm(TfmNewGen, fmNewGen);
|
|
|
- Application.CreateForm(TfmEnterPass, fmEnterPass);
|
|
|
- Application.CreateForm(TfmCreateTrigger, fmCreateTrigger);
|
|
|
- Application.CreateForm(TfmEditTable, fmEditTable);
|
|
|
- Application.CreateForm(TfmCallProc, fmCallProc);
|
|
|
- Application.CreateForm(TfmEditDataFullRec, fmEditDataFullRec);
|
|
|
- Application.CreateForm(TfmNewDomain, fmNewDomain);
|
|
|
- Application.CreateForm(TdmSysTables, dmSysTables);
|
|
|
- Application.CreateForm(TfmNewConstraint, fmNewConstraint);
|
|
|
- Application.CreateForm(TfmCalen, fmCalen);
|
|
|
- Application.CreateForm(TfmBackupRestore, fmBackupRestore);
|
|
|
- Application.CreateForm(TfmCreateUser, fmCreateUser);
|
|
|
- Application.CreateForm(TfmChangePass, fmChangePass);
|
|
|
- Application.CreateForm(TfmSQLHistory, fmSQLHistory);
|
|
|
- Application.CreateForm(TfmCopyTable, fmCopyTable);
|
|
|
- fmMain.Version:= Version;
|
|
|
- fmMain.VersionDate:= VersionDate;
|
|
|
- SAbout.Free;
|
|
|
- InitialiseIBase60;
|
|
|
- Application.CreateForm(TfmDBInfo, fmDBInfo);
|
|
|
- Application.Run;
|
|
|
- ReleaseIBase60;
|
|
|
-
|
|
|
-end.
|
|
|
-
|
Motaz Abdel Azeem