Permalink
Browse files

modified: TurboBird.lpi

	modified:   TurboBird.lpr
	modified:   main.lfm
	modified:   main.lrs
	modified:   main.pas
	modified:   scriptdb.pas
	modified:   systables.lfm
	modified:   systables.lrs
	modified:   systables.pas
  • Loading branch information...
1 parent 64ed2a1 commit 52daeb02129ff55e08e198c7b76dd2d9faf71ad0 motaz committed May 12, 2012
Showing with 389 additions and 362 deletions.
  1. +116 −105 TurboBird.lpi
  2. +11 −9 TurboBird.lpr
  3. +9 −5 main.lfm
  4. +237 −236 main.lrs
  5. +10 −2 main.pas
  6. +3 −0 scriptdb.pas
  7. +1 −1 systables.lfm
  8. +2 −2 systables.lrs
  9. +0 −2 systables.pas
View

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -1,9 +1,9 @@
{***************************************************************************}
{ TurboBird: FireBird database administration and management tool }
{ Developed by: Motaz Abdel Azeem http://code.sd/ }
-{ Start development: 5.Dec.2009 }
-{ Last updated : 2.May.2012 }
-{ License : GPL for GUI, LGPL for Units }
+{ Start development : 5.Dec.2009 }
+{ Last updated : 12.May.2012 }
+{ License : GPL for GUI, LGPL for Units }
{***************************************************************************}
program TurboBird;
@@ -15,15 +15,16 @@
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,
+ 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, sysutils;
+ PermissionManage, SQLHistory, CopyTable, dynlibs, ibase60dyn, dbInfo,
+ sysutils, Comparison;
const
- Version = '0.9.2';
+ Version = '0.9.3';
VersionDate = '2010 - May 2012';
{$IFDEF Unix}
{$DEFINE extdecl:=cdecl}
@@ -82,6 +83,7 @@
fmMain.VersionDate:= VersionDate;
SAbout.Free;
InitialiseIBase60;
+ Application.CreateForm(TfmComparison, fmComparison);
Application.Run;
ReleaseIBase60;
View
@@ -5,7 +5,7 @@ object fmMain: TfmMain
Width = 1024
ActiveControl = tvMain
Caption = 'TurboBird Admin for FireBird'
- ClientHeight = 615
+ ClientHeight = 617
ClientWidth = 1024
Color = clWhite
Font.Name = 'Sans'
@@ -17,7 +17,7 @@ object fmMain: TfmMain
LCLVersion = '0.9.31'
object tvMain: TTreeView
Left = 0
- Height = 615
+ Height = 617
Top = 0
Width = 360
Align = alLeft
@@ -37,14 +37,14 @@ object fmMain: TfmMain
end
object Splitter1: TSplitter
Left = 360
- Height = 615
+ Height = 617
Top = 0
Width = 14
Beveled = True
end
object PageControl1: TPageControl
Left = 377
- Height = 608
+ Height = 610
Top = 3
Width = 644
ActivePage = TabSheet1
@@ -64,7 +64,7 @@ object fmMain: TfmMain
object TabSheet1: TTabSheet
BorderWidth = 1
Caption = 'Main'
- ClientHeight = 578
+ ClientHeight = 580
ClientWidth = 640
Font.Color = clNavy
Font.Name = 'Arial'
@@ -1523,6 +1523,10 @@ object fmMain: TfmMain
Caption = 'Sweep DB'
OnClick = lmSweepClick
end
+ object lmCompare: TMenuItem
+ Caption = 'Compare with another database'
+ OnClick = lmCompareClick
+ end
object lmDBIndo: TMenuItem
Caption = 'Database Info'
OnClick = lmDBIndoClick
View
473 main.lrs

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -47,6 +47,7 @@ TfmMain = class(TForm)
lmEditField: TMenuItem;
lmDBIndo: TMenuItem;
lmCopyRolePermission: TMenuItem;
+ lmCompare: TMenuItem;
mnExit: TMenuItem;
mnCreateDB: TMenuItem;
mnRegDB: TMenuItem;
@@ -109,6 +110,7 @@ TfmMain = class(TForm)
procedure lmBackupClick(Sender: TObject);
procedure lmChangePasswordClick(Sender: TObject);
procedure lmCloseTabClick(Sender: TObject);
+ procedure lmCompareClick(Sender: TObject);
procedure lmCopyRolePermissionClick(Sender: TObject);
procedure lmCopyUserPermissionClick(Sender: TObject);
procedure lmCopyTableClick(Sender: TObject);
@@ -180,7 +182,6 @@ TfmMain = class(TForm)
fActivated: Boolean;
function FindCusomForm(ATitle: string; AClass: TClass): TComponent;
procedure InitNewGen(DatabaseIndex: Integer);
- function GetServerName(DBName: string): string;
function GetServerNameNode(ServerName: string): TTreeNode;
function RemoveSpecialChars(AText: string): string;
procedure ReleaseRegisteredDatabases;
@@ -191,6 +192,7 @@ TfmMain = class(TForm)
RegisteredDatabases: array of TDatabaseRec;
Version: string;
VersionDate: string;
+ function GetServerName(DBName: string): string;
function RetreiveInputParamFromSP(Body: string): string;
function LoadRegisteredDatabases: Boolean;
function FindQueryWindow(ATitle: string): TComponent;
@@ -232,7 +234,7 @@ implementation
uses CreateDB, ViewView, ViewTrigger, ViewSProc, ViewGen, NewTable, NewGen,
EnterPass, CreateTrigger, EditTable, CallProc, EditDataFullRec, UDFInfo, ViewDomain,
NewDomain, SysTables, Scriptdb, UserPermissions, BackupRestore, UnitFirebirdServices, CreateUser, ChangePass,
- PermissionManage, CopyTable, About, NewEditField, dbInfo;
+ PermissionManage, CopyTable, About, NewEditField, dbInfo, Comparison;
procedure TfmMain.mnExitClick(Sender: TObject);
@@ -333,6 +335,12 @@ procedure TfmMain.lmCloseTabClick(Sender: TObject);
begin
end;
+procedure TfmMain.lmCompareClick(Sender: TObject);
+begin
+ fmComparison.Init(tvMain.Selected.OverlayIndex);
+ fmComparison.Show;
+end;
+
procedure TfmMain.lmCopyRolePermissionClick(Sender: TObject);
begin
lmCopyUserPermissionClick(nil);
View
@@ -25,6 +25,9 @@ function ScriptAllPermissions(dbIndex: Integer; var List: TStringList): Boolean;
function ScriptUserAllPermissions(dbIndex: Integer; UserName: string; var List: TStringList;
NewUser: string = ''): Boolean;
+procedure RemoveParamClosing(var AParams: string);
+
+
implementation
uses SysTables, Main;
View
@@ -5,8 +5,8 @@ object dmSysTables: TdmSysTables
VerticalOffset = 383
Width = 400
object sqQuery: TSQLQuery
+ FieldDefs = <>
AutoCalcFields = False
- ReadOnly = False
Params = <>
left = 216
top = 32
View
@@ -3,6 +3,6 @@
LazarusResources.Add('TdmSysTables','FORMDATA',[
'TPF0'#12'TdmSysTables'#11'dmSysTables'#14'OldCreateOrder'#8#6'Height'#3','#1
+#16'HorizontalOffset'#3'*'#3#14'VerticalOffset'#3#127#1#5'Width'#3#144#1#0#9
- +'TSQLQuery'#7'sqQuery'#14'AutoCalcFields'#8#8'ReadOnly'#8#6'Params'#14#0#4'l'
- +'eft'#3#216#0#3'top'#2' '#0#0#0
+ +'TSQLQuery'#7'sqQuery'#9'FieldDefs'#14#0#14'AutoCalcFields'#8#6'Params'#14#0
+ +#4'left'#3#216#0#3'top'#2' '#0#0#0
]);
View
@@ -75,8 +75,6 @@ function DecToBin(Dec, Len: Byte): string;
{ TdmSysTables }
-
-
procedure TdmSysTables.Init(dbIndex: Integer);
begin
with fmMain.RegisteredDatabases[dbIndex] do

0 comments on commit 52daeb0

Please sign in to comment.