paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 21:18:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support for index management

Browse Source 
git-svn-id: trunk@15743 -
This commit is contained in:
michael 2008-07-11 13:17:11 +00:00
parent eddb955b2f
commit 1777a9dbf8
8 changed files with 1243 additions and 1643 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

161
tools/lazdatadesktop/dicteditor.pp
View File

@ -41,6 +41,7 @@ Type
FSplit : TSplitter;
FDDNode,FTablesNode : TTreeNode;
function GetCurrentField: TDDFieldDef;
function GetCurrentIndex: TDDIndexDef;
function GetCurrentObjectType: TObjectType;
function GetCurrentTable: TDDTableDef;
Function NewNode (TV : TTreeView;ParentNode : TTreeNode; ACaption : String; AImageIndex : Integer) : TTreeNode;
@ -50,14 +51,17 @@ Type
Procedure ClearEditor;
Procedure SelectTable(TD : TDDTableDef);
Procedure SelectField(FD : TDDFieldDef);
Procedure SelectIndex(ID : TDDIndexDef);
procedure SelectDictionary;
procedure SelectTables;
procedure SelectFields(TableDef : TDDTableDef);
procedure SelectIndexes(TableDef : TDDTableDef);
procedure SetModified(const AValue: Boolean);
procedure UpdateSelectedNode;
Function GetObjectType(Node : TTreeNode): TObjectType;
Function CreatePropertyGrid(P : TPersistent) : TTIPropertyGrid;
procedure FieldsDblClick(Sender : TObject);
procedure IndexesDblClick(Sender : TObject);
Function FindNodeWithData(TV : TTreeView; P : Pointer) : TTreeNode;
procedure TablesDblClick(Sender : TObject);
Public
@ -66,28 +70,37 @@ Type
Procedure ShowDictionary;
Procedure NewTable(ATableName: String);
Procedure NewField(AFieldName : String; TD : TDDTableDef);
Procedure ShowTables(TV : TTreeView;ParentNode: TTreeNode; AddFieldsNode : Boolean);
Procedure NewIndex(AIndexName : String; TD : TDDTableDef);
Procedure ShowTables(TV : TTreeView;ParentNode: TTreeNode; AddFieldsNode : Boolean; AddIndexesNode : Boolean);
Procedure ShowFields(TV : TTreeView;TableNode: TTreeNode; TableDef : TDDTableDef);
Procedure ShowIndexes(TV : TTreeView;TableNode: TTreeNode; TableDef : TDDTableDef);
Procedure LoadFromFile(AFileName : String);
Procedure SaveToFile(AFileName : String);
Procedure DeleteTable(TD : TDDTableDef);
Procedure DeleteField(FD : TDDFieldDef);
Procedure DeleteIndex(ID : TDDIndexDef);
Property DataDictionary : TFPDataDictionary Read FDD;
Property Modified : Boolean Read FModified Write SetModified;
Property ImageOffset : Integer Read FImageOffset Write FImageOffset;
Property ObjectType : TObjectType Read GetCurrentObjectType;
Property CurrentTable : TDDTableDef Read GetCurrentTable;
Property CurrentField : TDDFieldDef Read GetCurrentField;
Property CurrentIndex : TDDIndexDef Read GetCurrentIndex;
end;
Const
// Image Index for nodes. Relative to ImageOffset;
iiDataDict = 0;
iiTables = 1;
iiTable = 2;
iiFields = 3;
iiField = 4;
// Must match the TObjectType
iiDataDict = 0;
iiTables = 1;
iiTable = 2;
iiFields = 3;
iiField = 4;
iiConnection = 5;
iiTableData = 6;
iiIndexes = 7;
iiIndex = 8;
implementation
@ -98,7 +111,8 @@ ResourceString
SNodeTables = 'Tables';
SNodeFields = 'Fields';
SNewDictionary = 'New dictionary';
SNodeIndexes = 'Indexes';
{ TDataDictEditor }
function TDataDictEditor.NewNode(TV : TTreeView;ParentNode: TTreeNode; ACaption: String; AImageIndex : Integer
@ -129,6 +143,20 @@ begin
end;
function TDataDictEditor.GetCurrentIndex: TDDIndexDef;
Var
N: TTreeNode;
begin
Result:=Nil;
N:=FTV.Selected;
While (N<>Nil) and (GetObjectType(N)<>otIndexDef) do
N:=N.Parent;
if (N<>Nil) then
Result:=TDDIndexDef(N.Data);
end;
function TDataDictEditor.GetCurrentTable: TDDTableDef;
Var
@ -186,7 +214,7 @@ begin
FDDNode:=NewNode(FTV,Nil,S,iiDataDict);
FDDNode.Data:=FDD;
FTablesNode:=NewNode(FTV,FDDNode,SNodeTables,iiTables);
ShowTables(FTV,FTablesNode,True);
ShowTables(FTV,FTablesNode,True,True);
SetCaption;
FTV.Selected:=FDDNode;
finally
@ -233,6 +261,27 @@ begin
end;
end;
procedure TDataDictEditor.NewIndex(AIndexName: String; TD: TDDTableDef);
Var
TN : TTreeNode;
ID : TDDIndexDef;
begin
TN:=FindNodeWithData(FTV,TD);
TN:=TN.GetFirstChild;
While (TN<>Nil) and (GetObjectType(TN)<>otIndexDefs) do
TN:=TN.GetNextSibling;
If (TN<>Nil) then
begin
ID:=TD.Indexes.AddDDIndexDef(AIndexName);
TN:=NewNode(FTV,TN,AIndexName,iiIndex);
TN.Data:=ID;
FTV.Selected:=TN;
Modified:=True;
end;
end;
procedure TDataDictEditor.SetCaption;
Var
@ -270,6 +319,8 @@ begin
otTable : SelectTable(O as TDDTableDef);
otFields : SelectFields(OP as TDDTableDef);
otField : SelectField(TDDFieldDef(O));
otIndexDefs : SelectIndexes(OP as TDDTableDef);
otIndexDef : SelectIndex(TDDIndexDef(O));
end;
end;
@ -313,7 +364,7 @@ begin
TV:=TTreeView.Create(Self);
TV.Parent:=FEdit;
TV.Align:=alClient;
ShowTables(TV,Nil,False);
ShowTables(TV,Nil,False,false);
TV.OnDblClick:=@TablesDblClick;
end;
@ -344,6 +395,20 @@ begin
TV.OnDblClick:=@FieldsDblClick;
end;
procedure TDataDictEditor.SelectIndexes(TableDef: TDDTableDef);
Var
TV : TTreeView;
begin
ClearEditor;
TV:=TTreeView.Create(Self);
TV.Parent:=FEdit;
TV.Align:=alClient;
ShowIndexes(TV,Nil,TableDef);
TV.OnDblClick:=@IndexesDblClick;
end;
procedure TDataDictEditor.SetModified(const AValue: Boolean);
begin
FModified:=AValue;
@ -379,6 +444,19 @@ begin
FTV.Selected:=FindNodeWithData(FTV,N.Data);
end;
procedure TDataDictEditor.IndexesDblClick(Sender: TObject);
Var
TV : TTreeView;
N : TTreeNode;
begin
TV:=Sender As TTreeView;
N:=TV.Selected;
If (GetObjectType(N)=otIndexDef) and (N.Data<>Nil) then
FTV.Selected:=FindNodeWithData(FTV,N.Data);
end;
procedure TDataDictEditor.ClearEditor;
begin
@ -414,6 +492,12 @@ begin
CreatePropertyGrid(FD);
end;
procedure TDataDictEditor.SelectIndex(ID: TDDIndexDef);
begin
ClearEditor;
CreatePropertyGrid(ID);
end;
function TDataDictEditor.GetObjectType(Node: TTreeNode): TObjectType;
Var
@ -430,7 +514,7 @@ begin
end;
end;
procedure TDataDictEditor.ShowTables(TV : TTreeView;ParentNode: TTreeNode; AddFieldsNode: Boolean);
procedure TDataDictEditor.ShowTables(TV : TTreeView;ParentNode: TTreeNode; AddFieldsNode: Boolean; AddIndexesNode : Boolean);
Var
TN,FN : TTreeNode;
@ -454,6 +538,11 @@ begin
FN:=NewNode(TV,TN,SNodeFields,iiFields);
ShowFields(TV,FN,TD);
end;
If AddIndexesNode then
begin
FN:=NewNode(TV,TN,SNodeIndexes,iiIndexes);
ShowIndexes(TV,FN,TD);
end;
end;
If Assigned(ParentNode) then
ParentNode.Expand(False);
@ -489,6 +578,34 @@ begin
end;
end;
procedure TDataDictEditor.ShowIndexes(TV: TTreeView; TableNode: TTreeNode;
TableDef: TDDTableDef);
Var
TN : TTreeNode;
TL : TStringList;
ID : TDDIndexDef;
I : Integer;
begin
TL:=TStringList.Create;
Try
TL.Sorted:=true;
For I:=0 to TableDef.Indexes.Count-1 do
TL.AddObject(TableDef.Indexes[i].IndexName,TableDef.Indexes[i]);
For I:=0 to TL.Count-1 do
begin
ID:=TL.Objects[i] as TDDIndexDef;
TN:=NewNode(TV,TableNode,ID.IndexName,iiindex);
TN.Data:=ID;
end;
If Assigned(TableNode) then
TableNode.Expand(False);
Finally
FreeAndNil(TL);
end;
end;
procedure TDataDictEditor.LoadFromFile(AFileName: String);
begin
FDD.LoadFromFile(AFileName);
@ -551,5 +668,29 @@ begin
Modified:=True;
end;
procedure TDataDictEditor.DeleteIndex(ID: TDDIndexDef);
Var
N,NN : TTreeNode;
begin
N:=FindNodeWithData(FTV,Pointer(ID));
NN:=N.GetNextSibling;
If (NN=Nil) then
begin
NN:=N.GetPrevSibling;
If (NN=Nil) then
begin
NN:=N.Parent;
If Assigned(NN) then
NN:=NN.Parent;
end;
end;
N.Free;
FTV.Selected:=NN;
ID.Free;
Modified:=True;
end;
end.

54
tools/lazdatadesktop/frmgeneratesql.lfm
View File

@ -1,21 +1,23 @@
object GenerateSQLForm: TGenerateSQLForm
Left = 349
Height = 363
Top = 273
Left = 274
Height = 395
Top = 144
Width = 593
ActiveControl = CBTables
ActiveControl = PCSQL
Caption = 'Generate SQL statements'
ClientHeight = 363
ClientHeight = 395
ClientWidth = 593
OnCreate = FormCreate
LCLVersion = '0.9.25'
object PCSQL: TPageControl
Height = 327
Height = 359
Width = 593
ActivePage = TSFields
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = PCSQLChange
OnPageChanged = PCSQLChange
object TSFields: TTabSheet
Caption = 'Table and &Fields'
ChildSizing.EnlargeHorizontal = crsScaleChilds
@ -23,15 +25,15 @@ object GenerateSQLForm: TGenerateSQLForm
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 3
ClientHeight = 294
ClientHeight = 326
ClientWidth = 589
OnResize = TSResize
object POptions: TPanel
Height = 294
Height = 326
Width = 254
Align = alLeft
BevelOuter = bvNone
ClientHeight = 294
ClientHeight = 326
ClientWidth = 254
Constraints.MinWidth = 180
TabOrder = 0
@ -86,7 +88,7 @@ object GenerateSQLForm: TGenerateSQLForm
object BGenerate: TButton
Left = 4
Height = 25
Top = 265
Top = 297
Width = 238
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -130,17 +132,25 @@ object GenerateSQLForm: TGenerateSQLForm
'eoAddTerminator=Add terminator'
)
end
object CBIgnoreSelection: TCheckBox
Left = 6
Height = 21
Top = 257
Width = 190
Caption = 'Create full table creation SQL'
TabOrder = 5
end
end
object PKeyFields: TPanel
AnchorSideLeft.Control = POptions
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = PSelectFields
Left = 254
Height = 294
Height = 326
Width = 167
Align = alClient
BevelOuter = bvNone
ClientHeight = 294
ClientHeight = 326
ClientWidth = 167
TabOrder = 1
object LLBKeyFields: TLabel
@ -155,7 +165,7 @@ object GenerateSQLForm: TGenerateSQLForm
end
object LBKeyFields: TListBox
Left = 2
Height = 249
Height = 281
Top = 34
Width = 161
Anchors = [akTop, akLeft, akRight, akBottom]
@ -167,11 +177,11 @@ object GenerateSQLForm: TGenerateSQLForm
end
object PSelectFields: TPanel
Left = 421
Height = 294
Height = 326
Width = 168
Align = alRight
BevelOuter = bvNone
ClientHeight = 294
ClientHeight = 326
ClientWidth = 168
TabOrder = 2
object Label2: TLabel
@ -186,10 +196,10 @@ object GenerateSQLForm: TGenerateSQLForm
end
object LBFields: TListBox
Left = 12
Height = 249
Height = 281
Top = 34
Width = 146
Anchors = [akTop, akLeft, akRight]
Anchors = [akTop, akLeft, akRight, akBottom]
MultiSelect = True
Sorted = True
TabOrder = 0
@ -216,13 +226,13 @@ object GenerateSQLForm: TGenerateSQLForm
end
object TSInsert: TTabSheet
Caption = '&Insert'
ClientHeight = 327
ClientWidth = 593
ClientHeight = 326
ClientWidth = 589
object MInsert: TMemo
Left = 8
Height = 311
Height = 310
Top = 8
Width = 577
Width = 573
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -285,7 +295,7 @@ object GenerateSQLForm: TGenerateSQLForm
end
object PButtons: TPanel
Height = 36
Top = 327
Top = 359
Width = 593
Align = alBottom
BevelOuter = bvLowered

219
tools/lazdatadesktop/frmgeneratesql.lrs
View File

@ -1,159 +1,76 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TGenerateSQLForm','FORMDATA',[
'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3']'#1#6'Height'#3'k'
+#1#3'Top'#3#17#1#5'Width'#3'Q'#2#13'ActiveControl'#7#8'CBTables'#7'Caption'#6
+#23'Generate SQL statements'#12'ClientHeight'#3'k'#1#11'ClientWidth'#3'Q'#2#8
+'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#12'TPageControl'#5
+'PCSQL'#6'Height'#3'G'#1#5'Width'#3'Q'#2#10'ActivePage'#7#8'TSFields'#5'Alig'
+'n'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9'TTabSheet'#8'TSFields'
+#7'Caption'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHorizontal'#7#14'c'
+'rsScaleChilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScaleChilds'#28'Chil'
+'dSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertica'
+'l'#7#14'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'
+#3'&'#1#11'ClientWidth'#3'M'#2#8'OnResize'#7#8'TSResize'#0#6'TPanel'#8'POpti'
+'ons'#6'Height'#3'&'#1#5'Width'#3#254#0#5'Align'#7#6'alLeft'#10'BevelOuter'#7
+#6'bvNone'#12'ClientHeight'#3'&'#1#11'ClientWidth'#3#254#0#20'Constraints.Mi'
+'nWidth'#3#180#0#8'TabOrder'#2#0#0#6'TLabel'#9'LCBTables'#4'Left'#2#4#6'Heig'
+'ht'#2#16#3'Top'#2#5#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#0#8'AutoSize'#8#7'Caption'#6#6'Ta&ble'#12'FocusControl'#7#8'CBTables'
+#11'ParentColor'#8#0#0#6'TLabel'#9'LSEIndent'#4'Left'#2'('#6'Height'#2#20#3
+'Top'#3#205#0#5'Width'#3#150#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#7'I&ndent'#6
+'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#13'LSELineLength'#4'L'
+'eft'#2'$'#6'Height'#2#20#3'Top'#3#234#0#5'Width'#3#154#0#9'Alignment'#7#14
+'taRightJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8
+#7'Caption'#6#11'Line Length'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#9
+'TComboBox'#8'CBTables'#4'Left'#2#4#6'Height'#2#21#3'Top'#2#26#5'Width'#3#238
+#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22
+'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnCha'
+'nge'#7#14'CBTablesChange'#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8'TabOr'
+'der'#2#0#0#0#7'TButton'#9'BGenerate'#4'Left'#2#4#6'Height'#2#25#3'Top'#3#9#1
+#5'Width'#3#238#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'Border'
+'Spacing.InnerBorder'#2#4#7'Caption'#6#13'&Generate SQL'#7'Default'#9#7'OnCl'
+'ick'#7#14'BGenerateClick'#8'TabOrder'#2#1#0#0#11'TTISpinEdit'#8'SEindent'#4
+'Left'#3#204#0#6'Height'#2#23#3'Top'#3#202#0#5'Width'#2'"'#7'Anchors'#11#5'a'
+'kTop'#7'akRight'#0#19'Link.TIPropertyName'#6#6'Indent'#8'TabOrder'#2#2#0#0
+#11'TTISpinEdit'#12'SELineLength'#4'Left'#3#205#0#6'Height'#2#23#3'Top'#3#231
+#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyName'
+#6#10'LineLength'#8'TabOrder'#2#3#0#0#13'TTICheckGroup'#10'CLBOptions'#4'Lef'
+'t'#2#6#6'Height'#3#144#0#3'Top'#2'2'#5'Width'#3#234#0#7'Anchors'#11#5'akTop'
+#6'akLeft'#7'akRight'#0#7'Caption'#6#7'Options'#19'Link.TIPropertyName'#6#7
+'Options'#23'Link.AliasValuesStrings'#1#6'.eoLineFeedAfterField=Linefeed aft'
+'er each field'#6'8eoUseOldInWhereParams=Use OLD prefix in where parameters'
+#6'2eoAndTermsInBrackets=Put brackets around AND Terms'#6'#eoQuoteFieldNames'
+'=Quote field names'#6'/eoLineFeedAfterAndTerm=Linefeed after AND terms'#6#30
+'eoAddTerminator=Add terminator'#0#0#0#0#6'TPanel'#10'PKeyFields'#22'AnchorS'
+'ideLeft.Control'#7#8'POptions'#19'AnchorSideLeft.Side'#7#9'asrBottom'#23'An'
+'chorSideRight.Control'#7#13'PSelectFields'#4'Left'#3#254#0#6'Height'#3'&'#1
+#5'Width'#3#167#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12'Clien'
+'tHeight'#3'&'#1#11'ClientWidth'#3#167#0#8'TabOrder'#2#1#0#6'TLabel'#12'LLBK'
+'eyFields'#6'Height'#2#26#5'Width'#3#167#0#5'Align'#7#5'alTop'#9'Alignment'#7
+#8'taCenter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8'tlCent'
+'er'#11'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'Height'
+#3#249#0#3'Top'#2'"'#5'Width'#3#161#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
+'ight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'TopInde'
+'x'#2#255#0#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#165#1#6'Height'#3'&'#1
+#5'Width'#3#168#0#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'Client'
+'Height'#3'&'#1#11'ClientWidth'#3#168#0#8'TabOrder'#2#2#0#6'TLabel'#6'Label2'
+#6'Height'#2#26#5'Width'#3#168#0#5'Align'#7#5'alTop'#9'Alignment'#7#8'taCent'
+'er'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert fields'#6'Layout'#7#8
+'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBFields'#4'Left'#2#12#6'Heig'
+'ht'#3#249#0#3'Top'#2'"'#5'Width'#3#146#0#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'TopIndex'#2#255#0
+#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6#7'&Select'#12'ClientHeight'#3'G'
+#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MSelect'#4'Left'#2#8#6'Height'#3'7'#1
+#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2
+#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSInsert'#7
,'Caption'#6#7'&Insert'#12'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TM'
+'emo'#7'MInsert'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'A'
+'lign'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8
+'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSUpdate'#7'Caption'#6#7'&Update'#12'Cli'
+'entHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MUpdate'#4'Left'#2#8#6
+'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderS'
+'pacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSh'
+'eet'#8'TSDelete'#7'Caption'#6#7'&Delete'#12'ClientHeight'#3'G'#1#11'ClientW'
+'idth'#3'Q'#2#0#5'TMemo'#7'MDelete'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5
+'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.'
+'Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSCreate'#7'Caption'#6
+#12'Create table'#12'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7
+'MCreate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7
+#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrd'
+'er'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#6'Height'#2'$'#3'Top'#3'G'#1#5'Width'
+#3'Q'#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'
+#2'$'#11'ClientWidth'#3'Q'#2#8'TabOrder'#2#1#0#7'TButton'#3'BOK'#4'Left'#3
+#247#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'Anchors'#11#5'akTop'#7'akRi'
+'ght'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'&Ok'#11'ModalResult'
+#2#1#8'TabOrder'#2#0#0#0#7'TButton'#7'BCancel'#4'Left'#3#159#1#6'Height'#2#25
+#3'Top'#2#6#5'Width'#2'S'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpaci'
+'ng.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&Cancel'#11'ModalResult'#2#2
+#8'TabOrder'#2#1#0#0#0#0#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3
+']'#1#6'Height'#3'k'#1#3'Top'#3#17#1#5'Width'#3'Q'#2#13'ActiveControl'#7#8'C'
+'BTables'#7'Caption'#6#23'Generate SQL statements'#12'ClientHeight'#3'k'#1#11
+'ClientWidth'#3'Q'#2#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'
+#0#12'TPageControl'#5'PCSQL'#6'Height'#3'G'#1#5'Width'#3'Q'#2#10'ActivePage'
+#7#8'TSFields'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9'TT'
+'abSheet'#8'TSFields'#7'Caption'#6#17'Table and &Fields'#29'ChildSizing.Enla'
+'rgeHorizontal'#7#14'crsScaleChilds'#27'ChildSizing.EnlargeVertical'#7#14'cr'
+'sScaleChilds'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil'
+'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#27'ChildSizing.ControlsPerLine'
+#2#3#12'ClientHeight'#3'&'#1#11'ClientWidth'#3'M'#2#8'OnResize'#7#8'TSResize'
+#0#6'TPanel'#8'POptions'#6'Height'#3'&'#1#5'Width'#3#254#0#5'Align'#7#6'alLe'
+'ft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'&'#1#11'ClientWidth'#3#254
+#0#20'Constraints.MinWidth'#3#180#0#8'TabOrder'#2#0#0#6'TLabel'#9'LCBTables'
+#4'Left'#2#4#6'Height'#2#16#3'Top'#2#5#5'Width'#3#238#0#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#6'Ta&ble'#12'FocusCont'
+'rol'#7#8'CBTables'#11'ParentColor'#8#0#0#6'TLabel'#9'LSEIndent'#4'Left'#2'('
+#6'Height'#2#20#3'Top'#3#205#0#5'Width'#3#150#0#9'Alignment'#7#14'taRightJus'
'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3#18#1#6'Height'#3#139
+#1#3'Top'#3#144#0#5'Width'#3'Q'#2#13'ActiveControl'#7#5'PCSQL'#7'Caption'#6
+#23'Generate SQL statements'#12'ClientHeight'#3#139#1#11'ClientWidth'#3'Q'#2
+#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#12'TPageControl'#5
+'PCSQL'#6'Height'#3'g'#1#5'Width'#3'Q'#2#10'ActivePage'#7#8'TSFields'#5'Alig'
+'n'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#8'OnChange'#7#11'PCSQLChan'
+'ge'#13'OnPageChanged'#7#11'PCSQLChange'#0#9'TTabSheet'#8'TSFields'#7'Captio'
+'n'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHorizontal'#7#14'crsScaleC'
+'hilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScaleChilds'#28'ChildSizing.'
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14
+'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#3'F'#1
+#11'ClientWidth'#3'M'#2#8'OnResize'#7#8'TSResize'#0#6'TPanel'#8'POptions'#6
+'Height'#3'F'#1#5'Width'#3#254#0#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvN'
+'one'#12'ClientHeight'#3'F'#1#11'ClientWidth'#3#254#0#20'Constraints.MinWidt'
+'h'#3#180#0#8'TabOrder'#2#0#0#6'TLabel'#9'LCBTables'#4'Left'#2#4#6'Height'#2
+#16#3'Top'#2#5#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#8'AutoSize'#8#7'Caption'#6#6'Ta&ble'#12'FocusControl'#7#8'CBTables'#11'Pare'
+'ntColor'#8#0#0#6'TLabel'#9'LSEIndent'#4'Left'#2'('#6'Height'#2#20#3'Top'#3
+#205#0#5'Width'#3#150#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#7'I&ndent'#6'Layout'
+#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#13'LSELineLength'#4'Left'#2'$'
+#6'Height'#2#20#3'Top'#3#234#0#5'Width'#3#154#0#9'Alignment'#7#14'taRightJus'
+'tify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'
+#6#7'I&ndent'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#13'LSE'
+'LineLength'#4'Left'#2'$'#6'Height'#2#20#3'Top'#3#234#0#5'Width'#3#154#0#9'A'
+'lignment'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#8'AutoSize'#8#7'Caption'#6#11'Line Length'#6'Layout'#7#8'tlCenter'#11'Paren'
+'tColor'#8#0#0#9'TComboBox'#8'CBTables'#4'Left'#2#4#6'Height'#2#21#3'Top'#2
+#26#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCo'
+'mpleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'#0#9'MaxL'
+'ength'#2#0#8'OnChange'#7#14'CBTablesChange'#6'Sorted'#9#5'Style'#7#14'csDro'
+'pDownList'#8'TabOrder'#2#0#0#0#7'TButton'#9'BGenerate'#4'Left'#2#4#6'Height'
+#2#25#3'Top'#3#9#1#5'Width'#3#238#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akB'
+'ottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#13'&Generate SQL'#7
+'Default'#9#7'OnClick'#7#14'BGenerateClick'#8'TabOrder'#2#1#0#0#11'TTISpinEd'
+'it'#8'SEindent'#4'Left'#3#204#0#6'Height'#2#23#3'Top'#3#202#0#5'Width'#2'"'
+#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyName'#6#6'Indent'#8'T'
+'abOrder'#2#2#0#0#11'TTISpinEdit'#12'SELineLength'#4'Left'#3#205#0#6'Height'
+#2#23#3'Top'#3#231#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Li'
+'nk.TIPropertyName'#6#10'LineLength'#8'TabOrder'#2#3#0#0#13'TTICheckGroup'#10
+'CLBOptions'#4'Left'#2#6#6'Height'#3#144#0#3'Top'#2'2'#5'Width'#3#234#0#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#7'Options'#19'Link.T'
+'IPropertyName'#6#7'Options'#23'Link.AliasValuesStrings'#1#6'.eoLineFeedAfte'
+'rField=Linefeed after each field'#6'8eoUseOldInWhereParams=Use OLD prefix i'
+'n where parameters'#6'2eoAndTermsInBrackets=Put brackets around AND Terms'#6
+'#eoQuoteFieldNames=Quote field names'#6'/eoLineFeedAfterAndTerm=Linefeed af'
,'ter AND terms'#6#30'eoAddTerminator=Add terminator'#0#0#0#0#6'TPanel'#10'PK'
+'eyFields'#22'AnchorSideLeft.Control'#7#8'POptions'#19'AnchorSideLeft.Side'#7
+#9'asrBottom'#23'AnchorSideRight.Control'#7#13'PSelectFields'#4'Left'#3#254#0
+#6'Height'#3'&'#1#5'Width'#3#167#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6
+'bvNone'#12'ClientHeight'#3'&'#1#11'ClientWidth'#3#167#0#8'TabOrder'#2#1#0#6
+'TLabel'#12'LLBKeyFields'#6'Height'#2#26#5'Width'#3#167#0#5'Align'#7#5'alTop'
+#9'Alignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Lay'
+'out'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'
+#2#2#6'Height'#3#249#0#3'Top'#2'"'#5'Width'#3#161#0#7'Anchors'#11#5'akTop'#6
+'akLeft'#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2
+#0#8'TopIndex'#2#255#0#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#165#1#6'Hei'
+'ght'#3'&'#1#5'Width'#3#168#0#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNon'
+'e'#12'ClientHeight'#3'&'#1#11'ClientWidth'#3#168#0#8'TabOrder'#2#2#0#6'TLab'
+'el'#6'Label2'#6'Height'#2#26#5'Width'#3#168#0#5'Align'#7#5'alTop'#9'Alignme'
+'nt'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert fields'
+#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBFields'#4'Lef'
+'t'#2#12#6'Height'#3#249#0#3'Top'#2'"'#5'Width'#3#146#0#7'Anchors'#11#5'akTo'
+'p'#6'akLeft'#7'akRight'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'T'
+'opIndex'#2#255#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6#7'&Select'#12
+'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MSelect'#4'Left'#2
+#6#11'Line Length'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#9'TComboBox'
+#8'CBTables'#4'Left'#2#4#6'Height'#2#21#3'Top'#2#26#5'Width'#3#238#0#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO'
+'fLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#14
+'CBTablesChange'#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0
+#0#7'TButton'#9'BGenerate'#4'Left'#2#4#6'Height'#2#25#3'Top'#3')'#1#5'Width'
+#3#238#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.I'
+'nnerBorder'#2#4#7'Caption'#6#13'&Generate SQL'#7'Default'#9#7'OnClick'#7#14
+'BGenerateClick'#8'TabOrder'#2#1#0#0#11'TTISpinEdit'#8'SEindent'#4'Left'#3
+#204#0#6'Height'#2#23#3'Top'#3#202#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#19'Link.TIPropertyName'#6#6'Indent'#8'TabOrder'#2#2#0#0#11'TTISp'
+'inEdit'#12'SELineLength'#4'Left'#3#205#0#6'Height'#2#23#3'Top'#3#231#0#5'Wi'
+'dth'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyName'#6#10
+'LineLength'#8'TabOrder'#2#3#0#0#13'TTICheckGroup'#10'CLBOptions'#4'Left'#2#6
+#6'Height'#3#144#0#3'Top'#2'2'#5'Width'#3#234#0#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#7'Caption'#6#7'Options'#19'Link.TIPropertyName'#6#7'Optio'
+'ns'#23'Link.AliasValuesStrings'#1#6'.eoLineFeedAfterField=Linefeed after ea'
+'ch field'#6'8eoUseOldInWhereParams=Use OLD prefix in where parameters'#6'2e'
+'oAndTermsInBrackets=Put brackets around AND Terms'#6'#eoQuoteFieldNames=Quo'
+'te field names'#6'/eoLineFeedAfterAndTerm=Linefeed after AND terms'#6#30'eo'
+'AddTerminator=Add terminator'#0#0#0#9'TCheckBox'#17'CBIgnoreSelection'#4'Le'
+'ft'#2#6#6'Height'#2#21#3'Top'#3#1#1#5'Width'#3#190#0#7'Caption'#6#30'Create'
+' full table creation SQL'#8'TabOrder'#2#5#0#0#0#6'TPanel'#10'PKeyFields'#22
+'AnchorSideLeft.Control'#7#8'POptions'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#13'PSelectFields'#4'Left'#3#254#0#6'Height'#3
+'F'#1#5'Width'#3#167#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12
+'ClientHeight'#3'F'#1#11'ClientWidth'#3#167#0#8'TabOrder'#2#1#0#6'TLabel'#12
+'LLBKeyFields'#6'Height'#2#26#5'Width'#3#167#0#5'Align'#7#5'alTop'#9'Alignme'
+'nt'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8
+'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'H'
+'eight'#3#25#1#3'Top'#2'"'#5'Width'#3#161#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'To'
+'pIndex'#2#255#0#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#165#1#6'Height'#3
+'F'#1#5'Width'#3#168#0#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'C'
+'lientHeight'#3'F'#1#11'ClientWidth'#3#168#0#8'TabOrder'#2#2#0#6'TLabel'#6'L'
+'abel2'#6'Height'#2#26#5'Width'#3#168#0#5'Align'#7#5'alTop'#9'Alignment'#7#8
+'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert fields'#6'Layo'
+'ut'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBFields'#4'Left'#2#12
+#6'Height'#3#25#1#3'Top'#2'"'#5'Width'#3#146#0#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8
+'TopIndex'#2#255#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6#7'&Select'#12
,'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MSelect'#4'Left'#2
+#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'Bor'
+'derSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TT'
+'abSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'#3'G'#1#11'Cli'
+'entWidth'#3'Q'#2#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2
+#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Li'
+'abSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'#3'F'#1#11'Cli'
+'entWidth'#3'M'#2#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3'6'#1#3'Top'#2
+#8#5'Width'#3'='#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Li'
+'nes.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSUpdate'#7'Capti'
+'on'#6#7'&Update'#12'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7
+'MUpdate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7
@ -166,7 +83,7 @@ LazarusResources.Add('TGenerateSQLForm','FORMDATA',[
+'Width'#3'Q'#2#0#5'TMemo'#7'MCreate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8
+#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Line'
+'s.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#6'Height'#2
+'$'#3'Top'#3'G'#1#5'Width'#3'Q'#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9
+'$'#3'Top'#3'g'#1#5'Width'#3'Q'#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9
+'bvLowered'#12'ClientHeight'#2'$'#11'ClientWidth'#3'Q'#2#8'TabOrder'#2#1#0#7
+'TButton'#3'BOK'#4'Left'#3#247#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Captio'

25
tools/lazdatadesktop/frmgeneratesql.pp
View File

@ -37,6 +37,7 @@ type
BCancel: TButton;
BGenerate: TButton;
CBTables: TComboBox;
CBIgnoreSelection: TCheckBox;
LBKeyFields: TListBox;
LCBTables: TLabel;
Label2: TLabel;
@ -66,6 +67,7 @@ type
procedure BGenerateClick(Sender: TObject);
procedure CBTablesChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PCSQLChange(Sender: TObject);
procedure TSResize(Sender: TObject);
private
FTableDefs : TDDTableDefs;
@ -86,6 +88,10 @@ type
Property TableDefs : TDDTableDefs Read FTableDefs Write SetTableDefs;
Property TableName : String Read GetTableName Write SetTableName;
Property SelectSQL : TStrings Index 0 Read GetSQLStatement;
Property InsertSQL : TStrings Index 1 Read GetSQLStatement;
Property UpdateSQL : TStrings Index 2 Read GetSQLStatement;
Property DeleteSQL : TStrings Index 3 Read GetSQLStatement;
Property CreateSQL : TStrings Index 4 Read GetSQLStatement;
Property TableDef : TDDTableDef Read GetTableDef;
end;
@ -128,6 +134,10 @@ function TGenerateSQLForm.GetSQLStatement(Index: integer): TStrings;
begin
Case Index of
0 : Result:=MSelect.Lines;
1 : Result:=MInsert.Lines;
2 : Result:=MUpdate.Lines;
3 : Result:=MDelete.Lines;
4 : Result:=MCreate.Lines;
end;
end;
@ -213,7 +223,12 @@ begin
CreateInsertSQLStrings(FL,MInsert.Lines);
CreateUpdateSQLStrings(FL,KL,MUpdate.Lines);
CreateDeleteSQLStrings(KL,MDelete.Lines);
CreateCreateSQLStrings(FL,KL,MCreate.Lines);
{$IFNDEF VER2_2}
If CBIgnoreSelection.Checked then
CreateTableSQLStrings(MCreate.Lines)
else
{$ENDIF}
CreateCreateSQLStrings(FL,KL,MCreate.Lines);
end;
FSQLGenerated:=True;
BGenerate.Default:=False;
@ -276,6 +291,14 @@ begin
CLBOptions.Link.TIObject:=FGenerator;
SEIndent.Link.TIObject:=FGenerator;
SELineLength.Link.TIObject:=FGenerator;
{$IFDEF VER2_2}
CBIgnoreSelection.Visible:=False;
{$ENDIF VER2_2}
end;
procedure TGenerateSQLForm.PCSQLChange(Sender: TObject);
begin
end;

151
tools/lazdatadesktop/frmmain.lfm
View File

@ -84,18 +84,37 @@ object MainForm: TMainForm
Action = ADeleteField
end
object ToolButton3: TToolButton
Left = 200
Left = 265
Top = 2
Width = 15
Caption = 'ToolButton3'
Style = tbsSeparator
end
object TBGenerateSQL: TToolButton
Left = 215
Left = 280
Hint = 'Generate SQL statements for the current table'
Top = 2
Action = AGenerateSQL
end
object ToolButton4: TToolButton
Left = 200
Top = 2
Width = 17
Caption = 'ToolButton4'
Style = tbsSeparator
end
object TBAddIndex: TToolButton
Left = 217
Hint = 'Add new index to current table'
Top = 2
Action = ANewIndex
end
object TBDeleteIndex: TToolButton
Left = 241
Hint = 'Delete current index from table'
Top = 2
Action = ADeleteIndex
end
end
object PCDD: TPageControl
Height = 301
@ -107,10 +126,10 @@ object MainForm: TMainForm
TabOrder = 1
object TSRecent: TTabSheet
Caption = 'Dictionaries'
ClientHeight = 309
ClientHeight = 301
ClientWidth = 487
object LVDicts: TListView
Height = 309
Height = 301
Width = 487
Align = alClient
Columns = <
@ -526,13 +545,49 @@ object MainForm: TMainForm
FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FB
FF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00F0FBFF00
}
OnClick = ADeleteFieldUpdate
OnClick = ADeleteFieldExecute
end
object MIDDSep3: TMenuItem
Caption = '-'
end
object MIGenerateSQL: TMenuItem
Action = AGenerateSQL
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000F0FBFF008080
80FF808080FF808080FF808080FF808080FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0
A0FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0A0FFF0FBFF000000FFFFF0FBFF008080
80FFF0FBFF00808080FFF0FBFF00808080FFF0FBFF00A4A0A0FFF0FBFF00A4A0
A0FFF0FBFF00A4A0A0FFF0FBFF00A4A0A0FFF0FBFF000000FFFFF0FBFF000000
00FFF0FBFF00000000FFF0FBFF00000000FFF0FBFF00000000FFF0FBFF000000
00FFF0FBFF00000000FFF0FBFF00000000FFF0FBFF000000FFFF0000FFFF8060
00FFC0C040FFC0C040FFC0C040FFC0C040FFC0C060FFC0C060FFC0C060FFC0C0
60FF806020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8060
00FFFFFF00FF000000FF000000FF000000FF000000FFC0C040FFC0C040FF80A0
40FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8060
00FFFFFF00FF000000FFC0C0C0FF000000FFFFFF00FFFFFF00FF80A040FF4000
00FF400000FF800040FF800040FF800040FF800040FFFFFFFFFF0000FFFF8060
00FFFFFF00FF000000FF000000FFFFFF00FFFFFF00FF806020FFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8060
00FFFFFF00FF000000FFFFFF00FFFFFF00FF80A040FF400000FF400000FF4000
00FF800040FF800040FF800040FF800040FF800040FFFFFFFFFF0000FFFF8060
00FFFFFF00FFFFFF00FFFFFF00FF806000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8060
00FFFFFF00FFFFFF00FF808000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFC06020FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8060
00FFFFFF00FF808000FFC04000FFC06020FFFFFFFFFFFFFFFFFFC04000FFC040
00FFC04000FFFFFFFFFFC04000FFC04000FFC04000FFFFFFFFFF0000FFFF8060
00FF808020FFC0C0C0FFC0A060FFC04000FFC0C0C0FFC04000FFC0A060FFC060
20FFC04000FFC0C0C0FFC04000FFC0A060FFFFFFFFFFFFFFFFFF0000FFFF8060
00FFC0C0C0FFC06020FFC04000FFC06020FFFFFFFFFFC04000FFFFFFFFFFFFFF
FFFFC04000FFFFFFFFFFC04000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000
FFFFC0C0C0FFC04000FFC0A060FFC0C0C0FFC0DCC0FFC04000FFC0DCC0FFC0DC
C0FFC04000FFFFFFFFFFC04000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000
FFFFC0C0C0FFC06020FFC04000FFC04000FFFFFFFFFFC0A060FFC04000FFC040
00FFC0A060FFFFFFFFFFC04000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF0000
FFFFC0C0C0FFC0C0C0FFC0C0C0FFC0C0C0FFC0DCC0FFC0DCC0FFC0DCC0FFC0DC
C0FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
}
OnClick = AGenerateSQLExecute
end
end
@ -697,12 +752,30 @@ object MainForm: TMainForm
Caption = '&Copy connection'
DisableIfNoHandler = True
end
object ANewIndex: TAction
Category = 'Dictionary'
Caption = 'New index'
DisableIfNoHandler = True
Hint = 'Add new index to current table'
ImageIndex = 8
OnExecute = ANewIndexExecute
OnUpdate = ANewIndexUpdate
end
object ADeleteIndex: TAction
Category = 'Dictionary'
Caption = 'Delete Index'
DisableIfNoHandler = True
Hint = 'Delete current index from table'
ImageIndex = 9
OnExecute = ADeleteIndexExecute
OnUpdate = ADeleteIndexUpdate
end
end
object ILMain: TImageList
left = 47
top = 123
Bitmap = {
4C69080000001000000010000000000000000000000000000000000000000000
4C690A0000001000000010000000000000000000000000000000000000000000
000000000000000000FF000000FF000000FF000000FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000FF000000FF00000000000000FF000000FF000000FF000000FF0000
@ -958,7 +1031,71 @@ object MainForm: TMainForm
FF00808080FFF0FBFF00A4A0A0FFF0FBFF00A4A0A0FFF0FBFF00A4A0A0FFF0FB
FF00A4A0A0FFF0FBFF000000FFFFF0FBFF00808080FF808080FF808080FF8080
80FF808080FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0A0FFA4A0
A0FFA4A0A0FFF0FBFF000000FFFF
A0FFA4A0A0FFF0FBFF000000FFFF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
00FF000000FF000000FF00000000000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF0000000000000000000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
00FF000000FF000000FF000000FF000000FF00000000000000FF000000FF0000
00FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000AE9075FFAE9075FFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFAC8E74FFAE9075FF000000FF000000FFAE9075FF0000
00FF000000FF000000FF000000FFAE9075FF000000FF000000FF000000FFAE90
75FF000000FF000000FFAE9075FFAE9075FF000000FF000000FFAE9075FFAE90
75FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFAE9075FFAE9075FF000000FF000000FFAE9075FF0000
00FF000000FF000000FF000000FF000000FF000000FF000000FFAE9075FF0000
00FF000000FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFA68A70FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
00FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000
0000000000FF000000FF0000000000000000000000FF000000FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000FF000000FF000000000000
00FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFF0000FFFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000000000
00FF000000FF000000FF00000000000000FF000000FF000000FF000000FF0000
00FF0000FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF0000
0000000000000000000000000000000000000000000000000000000000000000
FFFF0000FFFF0000FFFF0000000000000000000000FF0000FFFF0000FFFF0000
FFFF000000FF000000FF000000FF000000FF00000000000000FF0000FFFF0000
FFFF0000FFFF00000000000000000000000000000000000000000000FFFF0000
FFFF0000FFFF000000000000000000000000000000000000FFFF0000FFFF0000
FFFF000000000000000000000000AE9075FFAE9075FFAE9075FFAE9075FF0000
FFFF0000FFFF0000FFFFAE9075FFAE9075FF0000FFFF0000FFFF0000FFFFAE90
75FFAE9075FFAE9075FFAC8E74FFAE9075FF000000FF000000FFAE9075FF0000
00FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF000000FFAE90
75FF000000FF000000FFAE9075FFAE9075FF000000FF000000FFAE9075FFAE90
75FFAE9075FF0000FFFF0000FFFF0000FFFF0000FFFFAE9075FFAE9075FFAE90
75FFAE9075FFAE9075FFAE9075FFAE9075FF000000FF000000FFAE9075FF0000
00FF000000FF0000FFFF0000FFFF0000FFFF0000FFFF000000FFAE9075FF0000
00FF000000FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE9075FFAE90
75FF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFFAE9075FFAE90
75FFAE9075FFAE9075FFA68A70FF000000000000000000000000000000000000
FFFF0000FFFF0000FFFF00000000000000000000FFFF0000FFFF0000FFFF0000
000000000000000000000000000000000000000000FF000000FF0000FFFF0000
FFFF0000FFFF000000FF000000FF00000000000000FF0000FFFF0000FFFF0000
FFFF000000FF000000FF0000000000000000000000FF0000FFFF0000FFFF0000
FFFF0000000000000000000000000000000000000000000000000000FFFF0000
FFFF0000FFFF0000000000000000000000000000FFFF0000FFFF0000FFFF0000
00FF000000FF000000FF000000FF00000000000000FF000000FF000000FF0000
FFFF0000FFFF0000FFFF000000000000FFFF0000FFFF0000FFFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FFFF0000FFFF0000FFFF0000FFFF0000FFFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000FFFF0000FFFF
}
end
object ODDD: TOpenDialog

2202
tools/lazdatadesktop/frmmain.lrs
View File

File diff suppressed because it is too large Load Diff

63
tools/lazdatadesktop/frmmain.pp
View File

@ -50,6 +50,8 @@ type
AClose: TAction;
ACloseAll: TAction;
ACopyConnection: TAction;
ANewIndex: TAction;
ADeleteIndex: TAction;
ADeleteConnection: TAction;
ANewConnection: TAction;
ASaveAs: TAction;
@ -103,6 +105,9 @@ type
ODDD: TOpenDialog;
PCDD: TPageControl;
SDDD: TSaveDialog;
ToolButton4: TToolButton;
TBAddIndex: TToolButton;
TBDeleteIndex: TToolButton;
TSConnections: TTabSheet;
ToolButton1: TToolButton;
TBNewTable: TToolButton;
@ -121,6 +126,8 @@ type
procedure ACloseExecute(Sender: TObject);
procedure ADeleteFieldExecute(Sender: TObject);
procedure ADeleteFieldUpdate(Sender: TObject);
procedure ADeleteIndexExecute(Sender: TObject);
procedure ADeleteIndexUpdate(Sender: TObject);
procedure ADeleteTableExecute(Sender: TObject);
procedure ADeleteTableUpdate(Sender: TObject);
procedure AExitExecute(Sender: TObject);
@ -129,6 +136,8 @@ type
procedure ANewExecute(Sender: TObject);
procedure ANewFieldExecute(Sender: TObject);
procedure ANewFieldUpdate(Sender: TObject);
procedure ANewIndexExecute(Sender: TObject);
procedure ANewIndexUpdate(Sender: TObject);
procedure ANewTableExecute(Sender: TObject);
procedure ANewTableUpdate(Sender: TObject);
procedure AOpenExecute(Sender: TObject);
@ -200,8 +209,10 @@ type
function NewConnectionEditor(AName : String): TConnectionEditor;
procedure DeleteCurrentTable;
procedure DeleteCurrentField;
procedure DeleteCurrentIndex;
Procedure DoNewTable;
Procedure DoNewField;
Procedure DoNewIndex;
procedure ShowGenerateSQL;
Property CurrentEditor : TDataDictEditor Read GetCurrentEditor;
Property CurrentConnection : TConnectionEditor Read GetCurrentConnection;
@ -242,6 +253,8 @@ ResourceString
SNewTableName = 'Enter a name for the new table:';
SNewField = 'Create new field in table %s';
SNewFieldName = 'Enter a name for the new field:';
SNewIndex = 'Create new index on table %s';
SNewIndexName = 'Enter a name for the new index:';
SSelectDBFDir = 'Select a directory with DBF files';
SNewConnection = 'New connection';
SConnectionDescription = 'Enter a descriptive name for the connection';
@ -696,6 +709,17 @@ begin
Assigned(CurrentEditor.CurrentField);
end;
procedure TMainForm.ADeleteIndexExecute(Sender: TObject);
begin
DeleteCurrentIndex;
end;
procedure TMainForm.ADeleteIndexUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=Assigned(CurrentEditor) and
Assigned(CurrentEditor.CurrentIndex);
end;
procedure TMainForm.ADeleteTableExecute(Sender: TObject);
begin
DeleteCurrentTable;
@ -728,6 +752,17 @@ begin
and (CurrentEditor.CurrentTable<>Nil);
end;
procedure TMainForm.ANewIndexExecute(Sender: TObject);
begin
DoNewIndex;
end;
procedure TMainForm.ANewIndexUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=(CurrentEditor<>nil)
and (CurrentEditor.CurrentTable<>Nil);
end;
procedure TMainForm.ANewTableExecute(Sender: TObject);
begin
DoNewTable;
@ -1012,6 +1047,14 @@ begin
DeleteField(CurrentField);
end;
procedure TMainForm.DeleteCurrentIndex;
begin
if Assigned(CurrentEditor) then
With CurrentEditor do
If Assigned(CurrentIndex) then
DeleteIndex(CurrentIndex);
end;
procedure TMainForm.DoNewField;
Var
@ -1032,6 +1075,26 @@ begin
end;
end;
procedure TMainForm.DoNewIndex;
Var
TD : TDDTableDef;
AIndexName : String;
begin
If Assigned(CurrentEditor) then
begin
TD:=CurrentEditor.CurrentTable;
If Assigned(TD) then
begin
AIndexName:='';
If InputQuery(Format(SNewIndex,[TD.TableName]),SNewIndexName,AIndexName) then
If (AIndexName<>'') then
CurrentEditor.NewIndex(AIndexName,TD);
end;
end;
end;
procedure TMainForm.DoNewTable;
Var

11
tools/lazdatadesktop/lazdatadesktop.lpi
View File

@ -1,26 +1,25 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<PathDelim Value="/"/>
<Version Value="6"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<AutoCreateForms Value="False"/>
<IconPath Value=".\"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<Title Value="Lazarus Data Desktop"/>
</General>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="7">
@ -77,6 +76,7 @@
<Filename Value="frmgeneratesql.pp"/>
<ComponentName Value="GenerateSQLForm"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="frmgeneratesql.lrs"/>
<UnitName Value="frmgeneratesql"/>
</Unit4>
@ -115,12 +115,11 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="lazdatadesktop"/>
</Target>
<SearchPaths>
<Libraries Value="\opt\gnome\lib\"/>
<Libraries Value="/opt/gnome/lib64/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>