paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Marcelo B. Paula to enable internationalization

Browse Source 
git-svn-id: trunk@21585 -
This commit is contained in:
michael 2009-09-05 09:40:23 +00:00
parent 9c8ff5382d
commit aa5a3d5af4
27 changed files with 9098 additions and 1747 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -4954,8 +4954,12 @@ tools/lazdatadesktop/frmselectconnectiontype.pp svneol=native#text/plain
tools/lazdatadesktop/frmsqlconnect.lfm svneol=native#text/plain tools/lazdatadesktop/frmsqlconnect.lfm svneol=native#text/plain
tools/lazdatadesktop/frmsqlconnect.lrs svneol=native#text/pascal tools/lazdatadesktop/frmsqlconnect.lrs svneol=native#text/pascal
tools/lazdatadesktop/frmsqlconnect.pp svneol=native#text/plain tools/lazdatadesktop/frmsqlconnect.pp svneol=native#text/plain
tools/lazdatadesktop/languages/lazdatadeskstr.pb.po svneol=native#text/plain
tools/lazdatadesktop/languages/lazdatadeskstr.po svneol=native#text/plain
tools/lazdatadesktop/lazdatadeskstr.pas svneol=native#text/plain
tools/lazdatadesktop/lazdatadesktop.lpi svneol=native#text/plain tools/lazdatadesktop/lazdatadesktop.lpi svneol=native#text/plain
tools/lazdatadesktop/lazdatadesktop.lpr svneol=native#text/plain tools/lazdatadesktop/lazdatadesktop.lpr svneol=native#text/plain
tools/lazdatadesktop/lazdatadesktop.lrs svneol=native#text/plain
tools/lazdatadesktop/querypanel.lrs svneol=native#text/pascal tools/lazdatadesktop/querypanel.lrs svneol=native#text/pascal
tools/lazdatadesktop/querypanel.pp svneol=native#text/plain tools/lazdatadesktop/querypanel.pp svneol=native#text/plain
tools/lazres.lpi svneol=native#text/plain tools/lazres.lpi svneol=native#text/plain

26
tools/lazdatadesktop/conneditor.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Classes, SysUtils, db, fpdatadict, controls, comctrls, stdctrls, extctrls, Classes, SysUtils, db, fpdatadict, controls, comctrls, stdctrls, extctrls,
graphics, imglist, lresources, RTTIGrids, querypanel; graphics, imglist, lresources, RTTIGrids, querypanel, lazdatadeskstr;
Type Type
@ -101,28 +101,6 @@ Const
iiProcedure = 8; iiProcedure = 8;
} }
ResourceString
SNodeTables = 'Tables';
SNodeFields = 'Fields';
SNodeIndexes = 'Indexes';
SNewDictionary = 'New database';
SNodeDataBase = 'Database';
SNodeTableData = 'Table Data';
SNodeIndexOptions = 'Index options: ';
SNodeIndexFields = 'Index fields: ';
SParameter = 'Parameter';
SValue = 'Value';
SEngineType = 'Engine';
SDescription = 'Description';
SColName = 'Name';
SColType = 'Type';
SColSize = 'Size';
SColFields = 'Fields';
SColOptions = 'Options';
SQuery = 'Run query';
SObject = 'Selected object';
implementation implementation
uses typinfo, datapanel; uses typinfo, datapanel;
@ -194,7 +172,7 @@ begin
FTSDisplay:=TTabsheet.Create(Self); FTSDisplay:=TTabsheet.Create(Self);
FTSDisplay.Name:='FTSDisplay'; FTSDisplay.Name:='FTSDisplay';
FTSDisplay.parent:=FPC; FTSDisplay.parent:=FPC;
FTSDisplay.Caption:=SObject; FTSDisplay.Caption:=SSelectedObject;
// Query tab sheet // Query tab sheet
FTSQuery:=TTabsheet.Create(Self); FTSQuery:=TTabsheet.Create(Self);
FTSQuery.Name:='FTSQuery'; FTSQuery.Name:='FTSQuery';

15
tools/lazdatadesktop/datapanel.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls, Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls,
buttons, fpdatadict; buttons, fpdatadict, lclstrconsts;
Type Type
@ -159,6 +159,19 @@ begin
FNavigator.Left:=4; FNavigator.Left:=4;
FNavigator.Height:=22; FNavigator.Height:=22;
FNavigator.DataSource:=FDatasource; FNavigator.DataSource:=FDatasource;
// Non translated in DBCTRLS.pas !!!!
FNavigator.Hints.Clear;
FNavigator.Hints.Add(rsFirstRecordHint);
FNavigator.Hints.Add(rsPriorRecordHint);
FNavigator.Hints.Add(rsNextRecordHint);
FNavigator.Hints.Add(rsLastRecordHint);
FNavigator.Hints.Add(rsInsertRecordHint);
FNavigator.Hints.Add(rsDeleteRecordHint);
FNavigator.Hints.Add(rsEditRecordHint);
FNavigator.Hints.Add(rsPostRecordHint);
FNavigator.Hints.Add(rsCancelRecordHint);
FNavigator.Hints.Add(rsRefreshRecordsHint);
//
CheckButtons; CheckButtons;
FExportSB:=TSpeedButton.Create(Self); FExportSB:=TSpeedButton.Create(Self);
FExportSB.Parent:=FTopPanel; FExportSB.Parent:=FTopPanel;

24
tools/lazdatadesktop/dicteditor.pp
View File

@ -174,29 +174,7 @@ Const
implementation implementation
uses DB, MemDS, fpcodegenerator, TypInfo; uses DB, MemDS, fpcodegenerator, TypInfo, lazdatadeskstr;
ResourceString
SNodeDataDictionary = 'Datadictionary';
SNodeTables = 'Tables';
SNodeFields = 'Fields';
SNodeDomains = 'Domains';
SNodeSequences = 'Sequences';
SNodeForeignkeys = 'Foreign keys';
SNewDictionary = 'New dictionary';
SNodeIndexes = 'Indexes';
STable = 'Table';
SField = 'Field';
SIndex = 'Index';
SSequence = 'Sequence';
SForeignKey = 'Foreign key';
SDomain = 'Domain';
SNew = 'New %s';
SErrUnknownType = 'Unknown object type: %d';
SNewObject = 'Create new %s';
SNameFor = 'Enter a name for the new %s';
SDeleteObject = 'Delete this %s';
SObject = 'Object';
Function ObjectTypeName(ObjectType : TEditObjectType) : String; Function ObjectTypeName(ObjectType : TEditObjectType) : String;

126
tools/lazdatadesktop/frmgeneratesql.lfm
View File

@ -1,17 +1,19 @@
object GenerateSQLForm: TGenerateSQLForm object GenerateSQLForm: TGenerateSQLForm
Left = 274 Left = 364
Height = 395 Height = 395
Top = 144 Top = 295
Width = 593 Width = 812
ActiveControl = PCSQL ActiveControl = PCSQL
Caption = 'Generate SQL statements' Caption = 'Generate SQL statements'
ClientHeight = 395 ClientHeight = 395
ClientWidth = 593 ClientWidth = 812
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.25' LCLVersion = '0.9.27'
object PCSQL: TPageControl object PCSQL: TPageControl
Left = 0
Height = 359 Height = 359
Width = 593 Top = 0
Width = 812
ActivePage = TSFields ActivePage = TSFields
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
@ -25,15 +27,17 @@ object GenerateSQLForm: TGenerateSQLForm
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 326 ClientHeight = 329
ClientWidth = 589 ClientWidth = 804
OnResize = TSResize OnResize = TSResize
object POptions: TPanel object POptions: TPanel
Height = 326 Left = 0
Height = 329
Top = 0
Width = 254 Width = 254
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 326 ClientHeight = 329
ClientWidth = 254 ClientWidth = 254
Constraints.MinWidth = 180 Constraints.MinWidth = 180
TabOrder = 0 TabOrder = 0
@ -74,12 +78,11 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object CBTables: TComboBox object CBTables: TComboBox
Left = 4 Left = 4
Height = 21 Height = 25
Top = 26 Top = 26
Width = 238 Width = 238
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] ItemHeight = 17
MaxLength = 0
OnChange = CBTablesChange OnChange = CBTablesChange
Sorted = True Sorted = True
Style = csDropDownList Style = csDropDownList
@ -88,7 +91,7 @@ object GenerateSQLForm: TGenerateSQLForm
object BGenerate: TButton object BGenerate: TButton
Left = 4 Left = 4
Height = 25 Height = 25
Top = 297 Top = 300
Width = 238 Width = 238
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -99,7 +102,7 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object SEindent: TTISpinEdit object SEindent: TTISpinEdit
Left = 204 Left = 204
Height = 23 Height = 27
Top = 202 Top = 202
Width = 34 Width = 34
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -108,7 +111,7 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object SELineLength: TTISpinEdit object SELineLength: TTISpinEdit
Left = 205 Left = 205
Height = 23 Height = 27
Top = 231 Top = 231
Width = 34 Width = 34
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -136,7 +139,7 @@ object GenerateSQLForm: TGenerateSQLForm
Left = 6 Left = 6
Height = 21 Height = 21
Top = 257 Top = 257
Width = 190 Width = 197
Caption = 'Create full table creation SQL' Caption = 'Create full table creation SQL'
TabOrder = 5 TabOrder = 5
end end
@ -146,16 +149,19 @@ object GenerateSQLForm: TGenerateSQLForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = PSelectFields AnchorSideRight.Control = PSelectFields
Left = 254 Left = 254
Height = 326 Height = 329
Width = 167 Top = 0
Width = 262
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 326 ClientHeight = 329
ClientWidth = 167 ClientWidth = 262
TabOrder = 1 TabOrder = 1
object LLBKeyFields: TLabel object LLBKeyFields: TLabel
Left = 0
Height = 26 Height = 26
Width = 167 Top = 0
Width = 262
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
@ -165,28 +171,31 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object LBKeyFields: TListBox object LBKeyFields: TListBox
Left = 2 Left = 2
Height = 281 Height = 284
Top = 34 Top = 34
Width = 161 Width = 256
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True MultiSelect = True
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
end end
object PSelectFields: TPanel object PSelectFields: TPanel
Left = 421 Left = 516
Height = 326 Height = 329
Width = 168 Top = 0
Width = 288
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 326 ClientHeight = 329
ClientWidth = 168 ClientWidth = 288
TabOrder = 2 TabOrder = 2
object Label2: TLabel object Label2: TLabel
Left = 0
Height = 26 Height = 26
Width = 168 Top = 0
Width = 288
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
@ -196,26 +205,26 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object LBFields: TListBox object LBFields: TListBox
Left = 12 Left = 12
Height = 281 Height = 284
Top = 34 Top = 34
Width = 146 Width = 266
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True MultiSelect = True
Sorted = True Sorted = True
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
end end
end end
object TSSelect: TTabSheet object TSSelect: TTabSheet
Caption = '&Select' Caption = '&Select'
ClientHeight = 327 ClientHeight = 329
ClientWidth = 593 ClientWidth = 804
object MSelect: TMemo object MSelect: TMemo
Left = 8 Left = 8
Height = 311 Height = 313
Top = 8 Top = 8
Width = 577 Width = 788
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
@ -226,13 +235,13 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object TSInsert: TTabSheet object TSInsert: TTabSheet
Caption = '&Insert' Caption = '&Insert'
ClientHeight = 326 ClientHeight = 329
ClientWidth = 589 ClientWidth = 804
object MInsert: TMemo object MInsert: TMemo
Left = 8 Left = 8
Height = 310 Height = 313
Top = 8 Top = 8
Width = 573 Width = 788
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
@ -243,13 +252,13 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object TSUpdate: TTabSheet object TSUpdate: TTabSheet
Caption = '&Update' Caption = '&Update'
ClientHeight = 327 ClientHeight = 329
ClientWidth = 593 ClientWidth = 804
object MUpdate: TMemo object MUpdate: TMemo
Left = 8 Left = 8
Height = 311 Height = 313
Top = 8 Top = 8
Width = 577 Width = 788
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
@ -260,13 +269,13 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object TSDelete: TTabSheet object TSDelete: TTabSheet
Caption = '&Delete' Caption = '&Delete'
ClientHeight = 327 ClientHeight = 329
ClientWidth = 593 ClientWidth = 804
object MDelete: TMemo object MDelete: TMemo
Left = 8 Left = 8
Height = 311 Height = 313
Top = 8 Top = 8
Width = 577 Width = 788
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
@ -277,13 +286,13 @@ object GenerateSQLForm: TGenerateSQLForm
end end
object TSCreate: TTabSheet object TSCreate: TTabSheet
Caption = 'Create table' Caption = 'Create table'
ClientHeight = 327 ClientHeight = 329
ClientWidth = 593 ClientWidth = 804
object MCreate: TMemo object MCreate: TMemo
Left = 8 Left = 8
Height = 311 Height = 313
Top = 8 Top = 8
Width = 577 Width = 788
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
Lines.Strings = ( Lines.Strings = (
@ -294,16 +303,17 @@ object GenerateSQLForm: TGenerateSQLForm
end end
end end
object PButtons: TPanel object PButtons: TPanel
Left = 0
Height = 36 Height = 36
Top = 359 Top = 359
Width = 593 Width = 812
Align = alBottom Align = alBottom
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 36 ClientHeight = 36
ClientWidth = 593 ClientWidth = 812
TabOrder = 1 TabOrder = 1
object BOK: TButton object BOK: TButton
Left = 503 Left = 722
Height = 25 Height = 25
Top = 6 Top = 6
Width = 83 Width = 83
@ -314,7 +324,7 @@ object GenerateSQLForm: TGenerateSQLForm
TabOrder = 0 TabOrder = 0
end end
object BCancel: TButton object BCancel: TButton
Left = 415 Left = 634
Height = 25 Height = 25
Top = 6 Top = 6
Width = 83 Width = 83

182
tools/lazdatadesktop/frmgeneratesql.lrs
View File

@ -1,92 +1,94 @@
{ Este é um arquivo de recurso do Lazarus gerado automaticamente }
LazarusResources.Add('TGenerateSQLForm','FORMDATA',[ LazarusResources.Add('TGenerateSQLForm','FORMDATA',[
'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3#18#1#6'Height'#3#139 'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3'l'#1#6'Height'#3#139
+#1#3'Top'#3#144#0#5'Width'#3'Q'#2#13'ActiveControl'#7#5'PCSQL'#7'Caption'#6 +#1#3'Top'#3''''#1#5'Width'#3','#3#13'ActiveControl'#7#5'PCSQL'#7'Caption'#6
+#23'Generate SQL statements'#12'ClientHeight'#3#139#1#11'ClientWidth'#3'Q'#2 +#23'Generate SQL statements'#12'ClientHeight'#3#139#1#11'ClientWidth'#3','#3
+#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#12'TPageControl'#5 +#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#12'TPageControl'#5
+'PCSQL'#6'Height'#3'g'#1#5'Width'#3'Q'#2#10'ActivePage'#7#8'TSFields'#5'Alig' +'PCSQL'#4'Left'#2#0#6'Height'#3'g'#1#3'Top'#2#0#5'Width'#3','#3#10'ActivePag'
+'n'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#8'OnChange'#7#11'PCSQLChan' +'e'#7#8'TSFields'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#8'O'
+'ge'#13'OnPageChanged'#7#11'PCSQLChange'#0#9'TTabSheet'#8'TSFields'#7'Captio' +'nChange'#7#11'PCSQLChange'#13'OnPageChanged'#7#11'PCSQLChange'#0#9'TTabShee'
+'n'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHorizontal'#7#14'crsScaleC' +'t'#8'TSFields'#7'Caption'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHor'
+'hilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScaleChilds'#28'ChildSizing.' +'izontal'#7#14'crsScaleChilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScale'
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14 +'Childs'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
+'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#3'F'#1 +'g.ShrinkVertical'#7#14'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3
+#11'ClientWidth'#3'M'#2#8'OnResize'#7#8'TSResize'#0#6'TPanel'#8'POptions'#6 +#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#8'OnResize'#7#8'TSResize'#0#6
+'Height'#3'F'#1#5'Width'#3#254#0#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvN' +'TPanel'#8'POptions'#4'Left'#2#0#6'Height'#3'I'#1#3'Top'#2#0#5'Width'#3#254#0
+'one'#12'ClientHeight'#3'F'#1#11'ClientWidth'#3#254#0#20'Constraints.MinWidt' +#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'I'#1#11
+'h'#3#180#0#8'TabOrder'#2#0#0#6'TLabel'#9'LCBTables'#4'Left'#2#4#6'Height'#2 +'ClientWidth'#3#254#0#20'Constraints.MinWidth'#3#180#0#8'TabOrder'#2#0#0#6'T'
+#16#3'Top'#2#5#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0 +'Label'#9'LCBTables'#4'Left'#2#4#6'Height'#2#16#3'Top'#2#5#5'Width'#3#238#0#7
+#8'AutoSize'#8#7'Caption'#6#6'Ta&ble'#12'FocusControl'#7#8'CBTables'#11'Pare' +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#6'Ta'
+'ntColor'#8#0#0#6'TLabel'#9'LSEIndent'#4'Left'#2'('#6'Height'#2#20#3'Top'#3 +'&ble'#12'FocusControl'#7#8'CBTables'#11'ParentColor'#8#0#0#6'TLabel'#9'LSEI'
+#205#0#5'Width'#3#150#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'#11#5'ak' +'ndent'#4'Left'#2'('#6'Height'#2#20#3'Top'#3#205#0#5'Width'#3#150#0#9'Alignm'
+'Top'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#7'I&ndent'#6'Layout' +'ent'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'A'
+#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#13'LSELineLength'#4'Left'#2'$' +'utoSize'#8#7'Caption'#6#7'I&ndent'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8
+#6'Height'#2#20#3'Top'#3#234#0#5'Width'#3#154#0#9'Alignment'#7#14'taRightJus' +#0#0#6'TLabel'#13'LSELineLength'#4'Left'#2'$'#6'Height'#2#20#3'Top'#3#234#0#5
+'tify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption' +'Width'#3#154#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#6'a'
+#6#11'Line Length'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#9'TComboBox' +'kLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#11'Line Length'#6'Layout'#7#8
+#8'CBTables'#4'Left'#2#4#6'Height'#2#21#3'Top'#2#26#5'Width'#3#238#0#7'Ancho' +'tlCenter'#11'ParentColor'#8#0#0#9'TComboBox'#8'CBTables'#4'Left'#2#4#6'Heig'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO' +'ht'#2#25#3'Top'#2#26#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'fLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#14 +'Right'#0#10'ItemHeight'#2#17#8'OnChange'#7#14'CBTablesChange'#6'Sorted'#9#5
+'CBTablesChange'#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0 +'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#7'TButton'#9'BGenerate'#4'L'
+#0#7'TButton'#9'BGenerate'#4'Left'#2#4#6'Height'#2#25#3'Top'#3')'#1#5'Width' +'eft'#2#4#6'Height'#2#25#3'Top'#3','#1#5'Width'#3#238#0#7'Anchors'#11#6'akLe'
+#3#238#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.I' +'ft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
+'nnerBorder'#2#4#7'Caption'#6#13'&Generate SQL'#7'Default'#9#7'OnClick'#7#14 +#13'&Generate SQL'#7'Default'#9#7'OnClick'#7#14'BGenerateClick'#8'TabOrder'#2
+'BGenerateClick'#8'TabOrder'#2#1#0#0#11'TTISpinEdit'#8'SEindent'#4'Left'#3 +#1#0#0#11'TTISpinEdit'#8'SEindent'#4'Left'#3#204#0#6'Height'#2#27#3'Top'#3
+#204#0#6'Height'#2#23#3'Top'#3#202#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7 +#202#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyN'
+'akRight'#0#19'Link.TIPropertyName'#6#6'Indent'#8'TabOrder'#2#2#0#0#11'TTISp' +'ame'#6#6'Indent'#8'TabOrder'#2#2#0#0#11'TTISpinEdit'#12'SELineLength'#4'Lef'
+'inEdit'#12'SELineLength'#4'Left'#3#205#0#6'Height'#2#23#3'Top'#3#231#0#5'Wi' +'t'#3#205#0#6'Height'#2#27#3'Top'#3#231#0#5'Width'#2'"'#7'Anchors'#11#5'akTo'
+'dth'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyName'#6#10 +'p'#7'akRight'#0#19'Link.TIPropertyName'#6#10'LineLength'#8'TabOrder'#2#3#0#0
+'LineLength'#8'TabOrder'#2#3#0#0#13'TTICheckGroup'#10'CLBOptions'#4'Left'#2#6 +#13'TTICheckGroup'#10'CLBOptions'#4'Left'#2#6#6'Height'#3#144#0#3'Top'#2'2'#5
+#6'Height'#3#144#0#3'Top'#2'2'#5'Width'#3#234#0#7'Anchors'#11#5'akTop'#6'akL' +'Width'#3#234#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#7
+'eft'#7'akRight'#0#7'Caption'#6#7'Options'#19'Link.TIPropertyName'#6#7'Optio' +'Options'#19'Link.TIPropertyName'#6#7'Options'#23'Link.AliasValuesStrings'#1
+'ns'#23'Link.AliasValuesStrings'#1#6'.eoLineFeedAfterField=Linefeed after ea' +#6'.eoLineFeedAfterField=Linefeed after each field'#6'8eoUseOldInWhereParams'
+'ch field'#6'8eoUseOldInWhereParams=Use OLD prefix in where parameters'#6'2e' +'=Use OLD prefix in where parameters'#6'2eoAndTermsInBrackets=Put brackets a'
+'oAndTermsInBrackets=Put brackets around AND Terms'#6'#eoQuoteFieldNames=Quo' +'round AND Terms'#6'#eoQuoteFieldNames=Quote field names'#6'/eoLineFeedAfter'
+'te field names'#6'/eoLineFeedAfterAndTerm=Linefeed after AND terms'#6#30'eo' +'AndTerm=Linefeed after AND terms'#6#30'eoAddTerminator=Add terminator'#0#0#0
+'AddTerminator=Add terminator'#0#0#0#9'TCheckBox'#17'CBIgnoreSelection'#4'Le' +#9'TCheckBox'#17'CBIgnoreSelection'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#1#1#5
+'ft'#2#6#6'Height'#2#21#3'Top'#3#1#1#5'Width'#3#190#0#7'Caption'#6#30'Create' +'Width'#3#197#0#7'Caption'#6#30'Create full table creation SQL'#8'TabOrder'#2
+' full table creation SQL'#8'TabOrder'#2#5#0#0#0#6'TPanel'#10'PKeyFields'#22 +#5#0#0#0#6'TPanel'#10'PKeyFields'#22'AnchorSideLeft.Control'#7#8'POptions'#19
+'AnchorSideLeft.Control'#7#8'POptions'#19'AnchorSideLeft.Side'#7#9'asrBottom' +'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'PSelec'
+#23'AnchorSideRight.Control'#7#13'PSelectFields'#4'Left'#3#254#0#6'Height'#3 +'tFields'#4'Left'#3#254#0#6'Height'#3'I'#1#3'Top'#2#0#5'Width'#3#6#1#5'Align'
+'F'#1#5'Width'#3#167#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12 +#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'I'#1#11'ClientW'
+'ClientHeight'#3'F'#1#11'ClientWidth'#3#167#0#8'TabOrder'#2#1#0#6'TLabel'#12 +'idth'#3#6#1#8'TabOrder'#2#1#0#6'TLabel'#12'LLBKeyFields'#4'Left'#2#0#6'Heig'
+'LLBKeyFields'#6'Height'#2#26#5'Width'#3#167#0#5'Align'#7#5'alTop'#9'Alignme' +'ht'#2#26#3'Top'#2#0#5'Width'#3#6#1#5'Align'#7#5'alTop'#9'Alignment'#7#8'taC'
+'nt'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8 +'enter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8'tlCenter'#11
+'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'H' +'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'Height'#3#28#1
+'eight'#3#25#1#3'Top'#2'"'#5'Width'#3#161#0#7'Anchors'#11#5'akTop'#6'akLeft' +#3'Top'#2'"'#5'Width'#3#0#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
+#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'To' +'Bottom'#0#10'ItemHeight'#2#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#0
+'pIndex'#2#255#0#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#165#1#6'Height'#3 +#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#4#2#6'Height'#3'I'#1#3'Top'#2#0#5
+'F'#1#5'Width'#3#168#0#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'C' +'Width'#3' '#1#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'ClientHei'
+'lientHeight'#3'F'#1#11'ClientWidth'#3#168#0#8'TabOrder'#2#2#0#6'TLabel'#6'L' +'ght'#3'I'#1#11'ClientWidth'#3' '#1#8'TabOrder'#2#2#0#6'TLabel'#6'Label2'#4
+'abel2'#6'Height'#2#26#5'Width'#3#168#0#5'Align'#7#5'alTop'#9'Alignment'#7#8 +'Left'#2#0#6'Height'#2#26#3'Top'#2#0#5'Width'#3' '#1#5'Align'#7#5'alTop'#9'A'
+'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert fields'#6'Layo' +'lignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert '
+'ut'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBFields'#4'Left'#2#12 +'fields'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBField'
+#6'Height'#3#25#1#3'Top'#2'"'#5'Width'#3#146#0#7'Anchors'#11#5'akTop'#6'akLe' +'s'#4'Left'#2#12#6'Height'#3#28#1#3'Top'#2'"'#5'Width'#3#10#1#7'Anchors'#11#5
+'ft'#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8 +'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemHeight'#2#0#11'MultiSelect'
+'TopIndex'#2#255#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6#7'&Select'#12 +#9#6'Sorted'#9#8'TabOrder'#2#0#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6
,'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MSelect'#4'Left'#2 ,#7'&Select'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MSel'
+#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'Bor' +'ect'#4'Left'#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'a'
+'derSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TT' +'lClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'
+'abSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'#3'F'#1#11'Cli' +#2#0#0#0#0#9'TTabSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'
+'entWidth'#3'M'#2#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3'6'#1#3'Top'#2 +#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3
+#8#5'Width'#3'='#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Li' +'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Aro'
+'nes.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSUpdate'#7'Capti' +'und'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSU'
+'on'#6#7'&Update'#12'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7 +'pdate'#7'Caption'#6#7'&Update'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'
+'MUpdate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7 +#3#0#5'TMemo'#7'MUpdate'#4'Left'#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3
+#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrd' +#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1
+'er'#2#0#0#0#0#9'TTabSheet'#8'TSDelete'#7'Caption'#6#7'&Delete'#12'ClientHei' +#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSDelete'#7'Caption'#6#7'&Delete'
+'ght'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MDelete'#4'Left'#2#8#6'Heig' +#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MDelete'#4'Left'
+'ht'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpaci' +#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'B'
+'ng.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet' +'orderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9
+#8'TSCreate'#7'Caption'#6#12'Create table'#12'ClientHeight'#3'G'#1#11'Client' +'TTabSheet'#8'TSCreate'#7'Caption'#6#12'Create table'#12'ClientHeight'#3'I'#1
+'Width'#3'Q'#2#0#5'TMemo'#7'MCreate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8 +#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MCreate'#4'Left'#2#8#6'Height'#3'9'#1#3
+#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Line' +'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8
+'s.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#6'Height'#2 +#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#4'L'
+'$'#3'Top'#3'g'#1#5'Width'#3'Q'#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9 +'eft'#2#0#6'Height'#2'$'#3'Top'#3'g'#1#5'Width'#3','#3#5'Align'#7#8'alBottom'
+'bvLowered'#12'ClientHeight'#2'$'#11'ClientWidth'#3'Q'#2#8'TabOrder'#2#1#0#7 +#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'$'#11'ClientWidth'#3','#3#8
+'TButton'#3'BOK'#4'Left'#3#247#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'A' +'TabOrder'#2#1#0#7'TButton'#3'BOK'#4'Left'#3#210#2#6'Height'#2#25#3'Top'#2#6
+'nchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Captio' +#5'Width'#2'S'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBor'
+'n'#6#3'&Ok'#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#7'TButton'#7'BCancel'#4 +'der'#2#4#7'Caption'#6#3'&Ok'#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#7'TBut'
+'Left'#3#159#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'Anchors'#11#5'akTop' +'ton'#7'BCancel'#4'Left'#3'z'#2#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'An'
+#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&' +'chors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'
+'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#0 +#9#7'Caption'#6#7'&Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#0
]); ]);

25
tools/lazdatadesktop/frmgeneratesql.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
ExtCtrls, Buttons, StdCtrls, Spin, RTTICtrls, fpdatadict; ExtCtrls, Buttons, StdCtrls, {Spin,} RTTICtrls, fpdatadict, lazdatadeskstr;
type type
@ -102,10 +102,6 @@ implementation
{ TGenerateSQLForm } { TGenerateSQLForm }
ResourceString
SErrSelectTable = 'No table selected. Please select a table';
SErrSelectFields = 'No fields selected. Please select some fields';
procedure TGenerateSQLForm.TSResize(Sender: TObject); procedure TGenerateSQLForm.TSResize(Sender: TObject);
Var Var
@ -287,6 +283,25 @@ end;
procedure TGenerateSQLForm.FormCreate(Sender: TObject); procedure TGenerateSQLForm.FormCreate(Sender: TObject);
begin begin
//
Caption:= sld_Generatesqlstatements;
TSFields.Caption:= sld_Tableandfields;
TSSelect.Caption:= sld_Select;
TSInsert.Caption:= sld_Insert;
TSUpdate.Caption:= sld_Update;
TSDelete.Caption:= sld_Delete;
TSCreate.Caption:= sld_Createtable;
LCBTables.Caption:= sld_Table;
LLBKeyFields.Caption:= sld_Keyfields;
Label2.Caption:= sld_Selectupdateinsertfields;
CLBOptions.Caption:= sld_Options;
LSEIndent.Caption:= sld_Indent;
LSELineLength.Caption:= sld_Linelength;
CBIgnoreSelection.Caption:= sld_Createfulltablecreationsql;
BGenerate.Caption:= sld_Generatesql;
BCancel.Caption:= sld_Cancel;
BOK.Caption:= sld_Ok;
//
FGenerator:=TFPDDSQLEngine.Create; FGenerator:=TFPDDSQLEngine.Create;
CLBOptions.Link.TIObject:=FGenerator; CLBOptions.Link.TIObject:=FGenerator;
SEIndent.Link.TIObject:=FGenerator; SEIndent.Link.TIObject:=FGenerator;

44
tools/lazdatadesktop/frmimportdd.lfm
View File

@ -1,28 +1,28 @@
object ImportDDform: TImportDDform object ImportDDform: TImportDDform
Left = 368 Left = 368
Height = 300 Height = 375
Top = 279 Top = 279
Width = 369 Width = 508
HorzScrollBar.Page = 368
VertScrollBar.Page = 299
ActiveControl = LBItems ActiveControl = LBItems
Caption = 'Import/Update datadictionary' Caption = 'Import/Update datadictionary'
ClientHeight = 300 ClientHeight = 375
ClientWidth = 369 ClientWidth = 508
OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
LCLVersion = '0.9.27'
object LBItems: TCheckListBox object LBItems: TCheckListBox
Left = 8 Left = 8
Height = 249 Height = 324
Top = 8 Top = 8
Width = 248 Width = 387
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object BOK: TButton object BOK: TButton
Left = 264 Left = 403
Height = 25 Height = 25
Top = 263 Top = 338
Width = 98 Width = 98
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -32,9 +32,9 @@ object ImportDDform: TImportDDform
TabOrder = 1 TabOrder = 1
end end
object BCancel: TButton object BCancel: TButton
Left = 264 Left = 403
Height = 25 Height = 25
Top = 232 Top = 307
Width = 101 Width = 101
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
@ -44,7 +44,7 @@ object ImportDDform: TImportDDform
TabOrder = 2 TabOrder = 2
end end
object BSelectNone: TButton object BSelectNone: TButton
Left = 264 Left = 403
Height = 25 Height = 25
Top = 40 Top = 40
Width = 98 Width = 98
@ -54,7 +54,7 @@ object ImportDDform: TImportDDform
TabOrder = 3 TabOrder = 3
end end
object BSelectAll: TButton object BSelectAll: TButton
Left = 264 Left = 403
Height = 25 Height = 25
Top = 8 Top = 8
Width = 98 Width = 98
@ -64,27 +64,25 @@ object ImportDDform: TImportDDform
TabOrder = 4 TabOrder = 4
end end
object CBUpdateExisting: TCheckBox object CBUpdateExisting: TCheckBox
Left = 9 Left = 8
Height = 22 Height = 21
Top = 263 Top = 338
Width = 167 Width = 155
Caption = 'Update existing tables' Caption = 'Update existing tables'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 5 TabOrder = 5
end end
object ActionList1: TActionList object ActionList1: TActionList
left = 106 left = 440
top = 297 top = 120
object ASelectNone: TAction object ASelectNone: TAction
Caption = 'Select &none' Caption = 'Select &none'
DisableIfNoHandler = True
OnExecute = DoSelection OnExecute = DoSelection
OnUpdate = HaveItems OnUpdate = HaveItems
end end
object ASelectAll: TAction object ASelectAll: TAction
Caption = 'Select &all' Caption = 'Select &all'
DisableIfNoHandler = True
OnExecute = DoSelection OnExecute = DoSelection
OnUpdate = HaveItems OnUpdate = HaveItems
ShortCut = 16449 ShortCut = 16449

49
tools/lazdatadesktop/frmimportdd.lrs
View File

@ -1,28 +1,29 @@
{ Este é um arquivo de recurso do Lazarus gerado automaticamente }
LazarusResources.Add('TImportDDform','FORMDATA',[ LazarusResources.Add('TImportDDform','FORMDATA',[
'TPF0'#13'TImportDDform'#12'ImportDDform'#4'Left'#3'p'#1#6'Height'#3','#1#3'T' 'TPF0'#13'TImportDDform'#12'ImportDDform'#4'Left'#3'p'#1#6'Height'#3'w'#1#3'T'
+'op'#3#23#1#5'Width'#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.P' +'op'#3#23#1#5'Width'#3#252#1#13'ActiveControl'#7#7'LBItems'#7'Caption'#6#28
+'age'#3'+'#1#13'ActiveControl'#7#7'LBItems'#7'Caption'#6#28'Import/Update da' +'Import/Update datadictionary'#12'ClientHeight'#3'w'#1#11'ClientWidth'#3#252
+'tadictionary'#12'ClientHeight'#3','#1#11'ClientWidth'#3'q'#1#6'OnShow'#7#8 +#1#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0'
+'FormShow'#0#13'TCheckListBox'#7'LBItems'#4'Left'#2#8#6'Height'#3#249#0#3'To' +'.9.27'#0#13'TCheckListBox'#7'LBItems'#4'Left'#2#8#6'Height'#3'D'#1#3'Top'#2
+'p'#2#8#5'Width'#3#248#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBot' +#8#5'Width'#3#131#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+'tom'#0#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#7'TButton'#3'BOK'#4'Left'#3#8#1 +#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#7'TButton'#3'BOK'#4'Left'#3#147#1#6
+#6'Height'#2#25#3'Top'#3#7#1#5'Width'#2'b'#7'Anchors'#11#7'akRight'#8'akBott' +'Height'#2#25#3'Top'#3'R'#1#5'Width'#2'b'#7'Anchors'#11#7'akRight'#8'akBotto'
+'om'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'&OK'#7'Default'#9#11 +'m'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'&OK'#7'Default'#9#11
+'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TButton'#7'BCancel'#4'Left'#3#8#1#6 +'ModalResult'#2#1#8'TabOrder'#2#1#0#0#7'TButton'#7'BCancel'#4'Left'#3#147#1#6
+'Height'#2#25#3'Top'#3#232#0#5'Width'#2'e'#7'Anchors'#11#7'akRight'#8'akBott' +'Height'#2#25#3'Top'#3'3'#1#5'Width'#2'e'#7'Anchors'#11#7'akRight'#8'akBotto'
+'om'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&Cancel' +'m'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&Cancel'
+#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#7'TButton'#11'BSelectNone'#4'Left'#3 +#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#7'TButton'#11'BSelectNone'#4'Left'#3
+#8#1#6'Height'#2#25#3'Top'#2'('#5'Width'#2'b'#6'Action'#7#11'ASelectNone'#7 +#147#1#6'Height'#2#25#3'Top'#2'('#5'Width'#2'b'#6'Action'#7#11'ASelectNone'#7
+'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOr' +'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOr'
+'der'#2#3#0#0#7'TButton'#10'BSelectAll'#4'Left'#3#8#1#6'Height'#2#25#3'Top'#2 +'der'#2#3#0#0#7'TButton'#10'BSelectAll'#4'Left'#3#147#1#6'Height'#2#25#3'Top'
+#8#5'Width'#2'b'#6'Action'#7#10'ASelectAll'#7'Anchors'#11#5'akTop'#7'akRight' +#2#8#5'Width'#2'b'#6'Action'#7#10'ASelectAll'#7'Anchors'#11#5'akTop'#7'akRig'
+#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#9'TCheckBox'#16'CBU' +'ht'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#9'TCheckBox'#16
+'pdateExisting'#4'Left'#2#9#6'Height'#2#22#3'Top'#3#7#1#5'Width'#3#167#0#7'C' +'CBUpdateExisting'#4'Left'#2#8#6'Height'#2#21#3'Top'#3'R'#1#5'Width'#3#155#0
+'aption'#6#22'Update existing tables'#7'Checked'#9#5'State'#7#9'cbChecked'#8 +#7'Caption'#6#22'Update existing tables'#7'Checked'#9#5'State'#7#9'cbChecked'
+'TabOrder'#2#5#0#0#11'TActionList'#11'ActionList1'#4'left'#2'j'#3'top'#3')'#1 +#8'TabOrder'#2#5#0#0#11'TActionList'#11'ActionList1'#4'left'#3#184#1#3'top'#2
+#0#7'TAction'#11'ASelectNone'#7'Caption'#6#12'Select &none'#18'DisableIfNoHa' +'x'#0#7'TAction'#11'ASelectNone'#7'Caption'#6#12'Select &none'#9'OnExecute'#7
+'ndler'#9#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#0#0#7'TA' +#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#0#0#7'TAction'#10'ASelectAll'#7
+'ction'#10'ASelectAll'#7'Caption'#6#11'Select &all'#18'DisableIfNoHandler'#9 +'Caption'#6#11'Select &all'#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'H'
+#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#8'ShortCut'#3'A@' +'aveItems'#8'ShortCut'#3'A@'#0#0#0#0
+#0#0#0#0
]); ]);

15
tools/lazdatadesktop/frmimportdd.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, CheckLst, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, CheckLst,
Buttons, ActnList,fpdatadict, StdCtrls; Buttons, ActnList,fpdatadict, StdCtrls, lazdatadeskstr;
type type
@ -43,6 +43,7 @@ type
CBUpdateExisting: TCheckBox; CBUpdateExisting: TCheckBox;
LBItems: TCheckListBox; LBItems: TCheckListBox;
procedure DoSelection(Sender: TObject); procedure DoSelection(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure HaveItems(Sender: TObject); procedure HaveItems(Sender: TObject);
private private
@ -95,6 +96,18 @@ begin
SelectItems(Sender=ASelectAll); SelectItems(Sender=ASelectAll);
end; end;
procedure TImportDDform.FormCreate(Sender: TObject);
begin
//
Caption:= sld_Importupdatedatadictionary;
BSelectAll.Caption:= sld_Selectall;
BSelectNone.Caption:= sld_Selectnone;
CBUpdateExisting.Caption:= sld_Updateexistingtables;
BOK.Caption:= sld_Ok;
BCancel.Caption:= sld_Cancel;
//
end;
procedure TImportDDform.FormShow(Sender: TObject); procedure TImportDDform.FormShow(Sender: TObject);
begin begin
SelectItems(True); SelectItems(True);

138
tools/lazdatadesktop/frmmain.lfm
View File

@ -1,12 +1,12 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 570 Left = 450
Height = 374 Height = 480
Top = 141 Top = 226
Width = 487 Width = 666
ActiveControl = PCDD ActiveControl = PCDD
Caption = 'Lazarus Database Desktop' Caption = 'Lazarus Database Desktop'
ClientHeight = 352 ClientHeight = 455
ClientWidth = 487 ClientWidth = 666
Menu = MainMenu1 Menu = MainMenu1
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
@ -20,10 +20,9 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 26 Height = 26
Top = 0 Top = 0
Width = 487 Width = 666
ButtonHeight = 24 ButtonHeight = 24
ButtonWidth = 24 ButtonWidth = 24
Caption = 'TBMain'
Images = ILMain Images = ILMain
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -36,6 +35,8 @@ object MainForm: TMainForm
object TBOPen: TToolButton object TBOPen: TToolButton
Left = 25 Left = 25
Top = 2 Top = 2
HelpType = htKeyword
HelpKeyword = 'Open a new Data Dictionary'
Action = AOpen Action = AOpen
end end
object TBNew: TToolButton object TBNew: TToolButton
@ -47,7 +48,6 @@ object MainForm: TMainForm
Left = 73 Left = 73
Top = 2 Top = 2
Width = 15 Width = 15
Caption = 'ToolButton1'
Style = tbsSeparator Style = tbsSeparator
end end
object TBNewTable: TToolButton object TBNewTable: TToolButton
@ -64,12 +64,10 @@ object MainForm: TMainForm
Left = 232 Left = 232
Top = 2 Top = 2
Width = 16 Width = 16
Caption = 'ToolButton2'
Style = tbsSeparator Style = tbsSeparator
end end
object TBDeleteTable: TToolButton object TBDeleteTable: TToolButton
Left = 248 Left = 248
Hint = 'Delete the selected object'
Top = 2 Top = 2
Action = ADeleteObject Action = ADeleteObject
end end
@ -77,7 +75,6 @@ object MainForm: TMainForm
Left = 272 Left = 272
Top = 2 Top = 2
Width = 15 Width = 15
Caption = 'ToolButton3'
Style = tbsSeparator Style = tbsSeparator
end end
object TBGenerateSQL: TToolButton object TBGenerateSQL: TToolButton
@ -113,22 +110,22 @@ object MainForm: TMainForm
end end
object PCDD: TPageControl object PCDD: TPageControl
Left = 0 Left = 0
Height = 306 Height = 409
Top = 26 Top = 26
Width = 487 Width = 666
ActivePage = TSRecent ActivePage = TSRecent
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
object TSRecent: TTabSheet object TSRecent: TTabSheet
Caption = 'Dictionaries' Caption = 'Dictionaries'
ClientHeight = 278 ClientHeight = 379
ClientWidth = 483 ClientWidth = 658
object LVDicts: TListView object LVDicts: TListView
Left = 0 Left = 0
Height = 278 Height = 379
Top = 0 Top = 0
Width = 483 Width = 658
Align = alClient Align = alClient
Columns = < Columns = <
item item
@ -136,7 +133,7 @@ object MainForm: TMainForm
Width = 10 Width = 10
end end
item item
Caption = 'FileName' Caption = 'Filename'
Width = 10 Width = 10
end end
item item
@ -154,13 +151,13 @@ object MainForm: TMainForm
end end
object TSConnections: TTabSheet object TSConnections: TTabSheet
Caption = 'Connections' Caption = 'Connections'
ClientHeight = 278 ClientHeight = 379
ClientWidth = 483 ClientWidth = 658
object LVConnections: TListView object LVConnections: TListView
Left = 0 Left = 0
Height = 278 Height = 379
Top = 0 Top = 0
Width = 483 Width = 658
Align = alClient Align = alClient
Columns = < Columns = <
item item
@ -173,10 +170,11 @@ object MainForm: TMainForm
end end
item item
Caption = 'Last used' Caption = 'Last used'
Width = 150
end end
item item
Caption = 'Description' Caption = 'Description'
Width = 217 Width = 260
end> end>
PopupMenu = PMRecentConnections PopupMenu = PMRecentConnections
ReadOnly = True ReadOnly = True
@ -192,12 +190,12 @@ object MainForm: TMainForm
object PStatus: TPanel object PStatus: TPanel
Left = 0 Left = 0
Height = 20 Height = 20
Top = 332 Top = 435
Width = 487 Width = 666
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 20 ClientHeight = 20
ClientWidth = 487 ClientWidth = 666
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
object PBSTatus: TProgressBar object PBSTatus: TProgressBar
@ -212,7 +210,7 @@ object MainForm: TMainForm
Left = 128 Left = 128
Height = 20 Height = 20
Top = 0 Top = 0
Width = 359 Width = 538
Align = alClient Align = alClient
Alignment = taLeftJustify Alignment = taLeftJustify
BevelOuter = bvLowered BevelOuter = bvLowered
@ -221,8 +219,8 @@ object MainForm: TMainForm
end end
object MainMenu1: TMainMenu object MainMenu1: TMainMenu
Images = ILMain Images = ILMain
left = 18 left = 40
top = 79 top = 80
object MFIle: TMenuItem object MFIle: TMenuItem
Caption = '&File' Caption = '&File'
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
@ -751,7 +749,7 @@ object MainForm: TMainForm
} }
OnClick = AGenerateSQLExecute OnClick = AGenerateSQLExecute
end end
object MIDeleteField: TMenuItem object MICreateCode: TMenuItem
Action = ACreateCode Action = ACreateCode
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -795,7 +793,8 @@ object MainForm: TMainForm
object MIConnection: TMenuItem object MIConnection: TMenuItem
Caption = 'Connections' Caption = 'Connections'
object MINewConnection: TMenuItem object MINewConnection: TMenuItem
Caption = 'New' Action = ANewConnection
OnClick = ANewConnectionExecute
end end
object MIOpenRecentConnection: TMenuItem object MIOpenRecentConnection: TMenuItem
Action = AOpenConnection Action = AOpenConnection
@ -809,8 +808,8 @@ object MainForm: TMainForm
end end
object ALMain: TActionList object ALMain: TActionList
Images = ILMain Images = ILMain
left = 88 left = 104
top = 128 top = 136
object ASave: TAction object ASave: TAction
Category = 'File' Category = 'File'
Caption = '&Save' Caption = '&Save'
@ -839,7 +838,7 @@ object MainForm: TMainForm
object AOpen: TAction object AOpen: TAction
Category = 'File' Category = 'File'
Caption = '&Open...' Caption = '&Open...'
Hint = 'Open a new Data Dictionary' HelpKeyword = 'Open a new Data Dictionary'
ImageIndex = 0 ImageIndex = 0
OnExecute = AOpenExecute OnExecute = AOpenExecute
ShortCut = 16463 ShortCut = 16463
@ -963,7 +962,7 @@ object MainForm: TMainForm
end end
object AAddForeignKey: TAction object AAddForeignKey: TAction
Category = 'Dictionary' Category = 'Dictionary'
Caption = 'New Foreign Key' Caption = 'New Foreign key'
Hint = 'Add a foreign key to the table' Hint = 'Add a foreign key to the table'
ImageIndex = 12 ImageIndex = 12
OnExecute = AAddForeignKeyExecute OnExecute = AAddForeignKeyExecute
@ -999,8 +998,8 @@ object MainForm: TMainForm
end end
end end
object ILMain: TImageList object ILMain: TImageList
left = 47 left = 43
top = 123 top = 136
Bitmap = { Bitmap = {
4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CFFD09E6DFFCC96 FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CFFD09E6DFFCC96
@ -1486,32 +1485,29 @@ object MainForm: TMainForm
} }
end end
object ODDD: TOpenDialog object ODDD: TOpenDialog
Title = 'Open data dictionary'
DefaultExt = '.fpd' DefaultExt = '.fpd'
Filter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*'
FilterIndex = 0 FilterIndex = 0
Options = [ofReadOnly, ofFileMustExist, ofEnableSizing, ofViewDetail] Options = [ofReadOnly, ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 64 left = 104
top = 79 top = 80
end end
object PSMain: TIniPropStorage object PSMain: TIniPropStorage
StoredValues = <> StoredValues = <>
IniFileName = 'lazdde' IniFileName = 'lazdde'
IniSection = 'main' IniSection = 'main'
left = 43 left = 160
top = 192 top = 136
end end
object SDDD: TSaveDialog object SDDD: TSaveDialog
DefaultExt = '.fpd' DefaultExt = '.fpd'
Filter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*'
FilterIndex = 0 FilterIndex = 0
left = 184 left = 160
top = 112 top = 80
end end
object PMRecentConnections: TPopupMenu object PMRecentConnections: TPopupMenu
Images = ILMain Images = ILMain
left = 121 left = 160
top = 163 top = 200
object PMIOpenConnection: TMenuItem object PMIOpenConnection: TMenuItem
Action = AOpenConnection Action = AOpenConnection
OnClick = OpenRecentConnection OnClick = OpenRecentConnection
@ -1527,15 +1523,55 @@ object MainForm: TMainForm
end end
object PMDataDict: TPopupMenu object PMDataDict: TPopupMenu
Images = ILMain Images = ILMain
left = 158 left = 43
top = 161 top = 200
object PMIOpenDataDict: TMenuItem object PMIOpenDataDict: TMenuItem
Action = AOpenRecentDatadict Action = AOpenRecentDatadict
OnClick = OpenRecentDatadict OnClick = OpenRecentDatadict
end end
object PMINewDataDict: TMenuItem object PMINewDataDict: TMenuItem
Action = ANew Action = ANew
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00BB6A
3400BA6530FFBB6631FFBA6630FFBA6630FFBA6630FFBA6530FFBA652FFFB965
2EFFB9652EFFB9642EFFB9642EFFB7622CFFB7622E00FFFFFF00FFFFFF00BC69
33FFF8F1EAFFF7ECDFFFF6EBDEFFF6EADEFFF6EADCFFF6EADCFFFAF3EBFFFAF3
EBFFFAF2EAFFFCF7F3FFFCF8F4FFFEFEFDFFB7602AFFFFFFFF00FFFFFF00BF71
38FFF5EBDFFFFDBF68FFFCBD67FFFBBE65FFFCBE64FFFCBE64FFFCBD62FFFBBD
63FFFBBC61FFFCBE60FFFCBC62FFFDFBF8FFB9642DFFFFFFFF00FFFFFF00C178
3CFFF7EDE3FFFDC26EFFFFD8A0FFFFD79EFFFFD69BFFFFD798FFFFD696FFFFD6
95FFFFD594FFFFD493FFFBBE65FFFBF7F4FFBB6731FFFFFFFF00FFFFFF00C47C
40FFF7F0E6FFF8B455FFF7B456FFF7B554FFF8B453FFF8B253FFF7B352FFF7B3
52FFF7B251FFF7B24FFFF7B24FFFFCF9F5FFBF6F36FFFFFFFF00FFFFFF00C580
42FFF8F1E8FFFEE5D5FFFDE5D3FFFDE5D3FFFCE5D3FFFCE5D3FFFCE4D1FFFCE2
CEFFFCE2CCFFFBE0C9FFFBE1C8FFFDFAF7FFC1763BFFFFFFFF00FFFFFF00C582
45FFF8F2EBFFFEE7D6FFFDE7D6FFFDE7D6FFFDE7D6FFFDE6D5FFFDE5D3FFFCE4
D1FFFCE2CDFFFBE1CBFFFBE1C9FFFBF7F2FFC57C3FFFFFFFFF00FFFFFF00C684
47FFF9F3ECFFFEE8D6FFFEE8D7FFFDE7D6FFFDE7D6FFFDE7D5FFFDE5D3FFFBE4
D0FFFBE3CCFFFADFC7FFFADFC6FFFAF2EAFFC68042FFFFFFFF00FFFFFF00C688
49FFF9F4EDFFFEE8D8FFFEE8D8FFFEE8D7FFFEE7D6FFFDE5D3FFFCE4D1FFFBE1
CCFFFAE0C7FFF9DDC3FFF8DCC2FFFAF4EDFFC68245FFFFFFFF00FFFFFF00C688
4AFFF9F4EFFFFEE7D7FFFDE7D6FFFDE7D5FFFDE6D4FFFCE6D2FFFBE1CCFFFADF
C7FFF8DCC2FFF6DABDFFF6D8BBFFFAF4EFFFC68346FFFFFFFF00FFFFFF00C689
4BFFF9F4F0FFFCE6D3FFFCE6D4FFFDE7D3FFFCE4D1FFFBE3CDFFFAE0C8FFF8DC
C2FFF5D6BBFFF3D4B5FFF1D2B3FFF8F4F0FFC48246FFFFFFFF00FFFFFF00C689
4BFFF9F5F1FFFCE3CFFFFBE4D0FFFCE4CFFFFCE3CDFFFAE1CAFFF9DDC4FFF6D9
BCFFF4E9DFFFF7F2ECFFFBF7F3FFF5EFE9FFC27E45FFFFFFFF00FFFFFF00C689
4CFFF9F5F1FFFCE3CDFFFBE3CEFFFBE3CDFFFBE2CBFFF9E0C8FFF8DCC2FFF5D6
BAFFFDFBF8FFFCE6CDFFFAE5C9FFE2B684FFBF7942FFFFFFFF00FFFFFF00C588
4BFFFAF6F2FFFAE0C7FFFBE1C9FFFBE2C9FFFBE0C8FFF9DFC5FFF8DBC1FFF4D6
B8FFFFFBF8FFF6D8B4FFE1B07DFFDB9264FFB46B3E00FFFFFF00FFFFFF00C485
49FFF7F2ECFFF8F4EEFFF8F4EDFFF8F3EDFFF8F3EDFFF8F3EDFFF8F2ECFFF7F2
ECFFF2E6D7FFE2B27DFFDB9465FFB3683B00FFFFFF00FFFFFF00FFFFFF00C17D
4400C88B4DFFC88C4FFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B
4FFFC5894BFFC4763BFFB3683C00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = ANewExecute OnClick = ANewExecute
end end
object MenuItem8: TMenuItem
Action = ADeleteRecentDataDict
OnClick = ADeleteRecentDataDictExecute
end
end end
end end

2608
tools/lazdatadesktop/frmmain.lrs
View File

File diff suppressed because it is too large Load Diff

184
tools/lazdatadesktop/frmmain.pp
View File

@ -30,7 +30,8 @@ interface
uses uses
Classes, SysUtils, LResources, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, LResources, FileUtil, Forms, Controls, Graphics, Dialogs,
Menus, ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage, Menus, ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage,
conneditor, LCLType, RTTICtrls, ExtCtrls, StdCtrls, ddfiles; conneditor, LCLType, RTTICtrls, ExtCtrls, {StdCtrls,} ddfiles, LCLProc,
Translations, lazdatadeskstr;
type type
TEngineMenuItem = Class(TMenuItem) TEngineMenuItem = Class(TMenuItem)
@ -84,6 +85,8 @@ type
MenuItem5: TMenuItem; MenuItem5: TMenuItem;
MenuItem6: TMenuItem; MenuItem6: TMenuItem;
MenuItem7: TMenuItem; MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MICreateCode: TMenuItem;
PMINewConnection: TMenuItem; PMINewConnection: TMenuItem;
PMINewDataDict: TMenuItem; PMINewDataDict: TMenuItem;
PMIOpenDataDict: TMenuItem; PMIOpenDataDict: TMenuItem;
@ -96,7 +99,6 @@ type
MISaveAs: TMenuItem; MISaveAs: TMenuItem;
MIGenerateSQL: TMenuItem; MIGenerateSQL: TMenuItem;
MIDDSep3: TMenuItem; MIDDSep3: TMenuItem;
MIDeleteField: TMenuItem;
MIDeleteTable: TMenuItem; MIDeleteTable: TMenuItem;
MIDDSep2: TMenuItem; MIDDSep2: TMenuItem;
MINewField: TMenuItem; MINewField: TMenuItem;
@ -188,7 +190,6 @@ type
procedure OpenRecentDatadict(Sender: TObject); procedure OpenRecentDatadict(Sender: TObject);
procedure LVDictsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure LVDictsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MIDataDictClick(Sender: TObject); procedure MIDataDictClick(Sender: TObject);
procedure PCDDChange(Sender: TObject);
procedure SaveAsExecute(Sender: TObject); procedure SaveAsExecute(Sender: TObject);
private private
FRecentDicts : TRecentDataDicts; FRecentDicts : TRecentDataDicts;
@ -270,40 +271,6 @@ uses
fpddodbc, // Any ODBC supported fpddodbc, // Any ODBC supported
frmimportdd,frmgeneratesql,fpddsqldb,frmSQLConnect,fpstdexports; frmimportdd,frmgeneratesql,fpddsqldb,frmSQLConnect,fpstdexports;
ResourceString
SSaveData = 'Save changes';
SDontSave = 'Discard changes';
SDontClose = 'Do not close editor';
SConfirmClose = 'Confirm close';
SDDModified = 'Data dictionary "%s" has changed.'#13#10+
'What do you want to do with the changes?';
SImportDictInto = 'Import datadictionary';
SWhichCurrentDictToUse = 'A data dictionary is active.'+
'Would you like to import into this data dictionary ?';
SUseCurrentDict = 'Yes, use the active dictionary';
SUseNewDict = 'No, import in a new dictionary';
SNewTable = 'Create new table';
SNewTableName = 'Enter a name for the new table:';
SNewSequence = 'Create new sequence';
SNewSequenceName = 'Enter a name for the new sequence:';
SNewDomain = 'Create new domain';
SNewDomainName = 'Enter a name for the new domain:';
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:';
SNewForeignKey = 'Create new foreign key in table %s';
SNewForeignKeyName = 'Enter a name for the new foreign key:';
SSelectDBFDir = 'Select a directory with DBF files';
SNewConnection = 'New connection';
SConnectionDescription = 'Enter a descriptive name for the connection';
SConnectionNameExists = 'There is already a connection named "%s"'#13#10+
'Would you like to override the connection data ?';
SUnknownDictionary = 'Unknown data dictionary: %s';
SUnknownConnection = 'Unknown connection: %s';
SCreateConnection = 'Would you like to create a new connection for this database ?';
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
TMainform events TMainform events
---------------------------------------------------------------------} ---------------------------------------------------------------------}
@ -333,30 +300,116 @@ Var
FN : String; FN : String;
begin begin
//
Caption := sld_Lazarusdatabasedesktop;
//
MFile.Caption:= sld_Menufile;
MenuItem2.Caption:= sld_Menuedit;
MIDataDict.Caption:= sld_Menudictionary;
MIConnection.Caption:= sld_Menuconnections;
MIImport.Caption:= sld_Menudictionaryimport;
MICloseSep.Caption:= sld_Separator;
MISep.Caption:= sld_Separator;
MIDDSep.Caption:= sld_Separator;
MIDDSep2.Caption:= sld_Separator;
MIDDSep3.Caption:= sld_Separator;
//
ASave.Caption:= sld_Actionsave;
ASave.Hint:= sld_ActionsaveH;
ANew.Caption:= sld_Actionnew;
ANew.Hint:= sld_ActionnewH;
AExit.Caption:= sld_Actionexit;
AExit.Hint:= sld_ActionexitH;
AOpen.Caption:= sld_Actionopen;
AOpen.Hint:= sld_ActionopenH;
AClose.Caption:= sld_Actionclose;
AClose.Hint:= sld_ActioncloseH;
ACloseAll.Caption:= sld_Actioncloseall;
ACloseAll.Hint:= sld_ActioncloseallH;
ASaveAs.Caption:= sld_Actionsaveas;
ASaveAs.Hint:= sld_ActionsaveasH;
AOpenRecentDatadict.Caption:= sld_Actionopenrecentdatadict;
AOpenRecentDatadict.Hint:= sld_ActionopenrecentdatadictH;
ADeleteRecentDataDict.Caption:= sld_Actiondeleterecentdatadict;
//
ACut.Caption:= sld_Actioncut;
ACut.Hint:= sld_ActioncutH;
ACopy.Caption:= sld_Actioncopy;
ACopy.Hint:= sld_ActioncopyH;
APaste.Caption:= sld_Actionpaste;
APaste.Hint:= sld_ActionpasteH;
//
ANewTable.Caption:= sld_Actionnewtable;
ANewTable.Hint:= sld_ActionnewtableH;
ANewField.Caption:= sld_Actionnewfield;
ANewField.Hint:= sld_ActionnewfieldH;
ADeleteObject.Caption:= sld_Actiondeleteobject;
ADeleteObject.Hint:= sld_ActiondeleteobjectH;
AGenerateSQL.Caption:= sld_Actiongeneratesql;
AGenerateSQL.Hint:= sld_ActiongeneratesqlH;
ANewIndex.Caption:= sld_Actionnewindex;
ANewIndex.Hint:= sld_ActionnewindexH;
ACreateCode.Caption:= sld_Actioncreatecode;
ACreateCode.Hint:= sld_ActioncreatecodeH;
AAddForeignKey.Caption:= sld_Actionaddforeignkey;
AAddForeignKey.Hint:= sld_ActionaddforeignkeyH;
AAddDomain.Caption:= sld_Actionadddomain;
AAddDomain.Hint:= sld_ActionadddomainH;
AAddSequence.Caption:= sld_Actionaddsequence;
AAddSequence.Hint:= sld_ActionaddsequenceH;
//
ANewConnection.Caption:= sld_Actionnewconnection;
ADeleteConnection.Caption:= sld_Actiondeleteconnection;
ACopyConnection.Caption:= sld_Actioncopyconnection;
AOpenConnection.Caption:= sld_Actionopenconnection;
AOpenConnection.Hint:= sld_ActionopenconnectionH;
//
//
TSRecent.Caption:= sld_Dictionaries;
TSConnections.Caption:= sld_Connections;
LVDicts.Column[0].Caption:= sld_Recentlv1;
LVDicts.Column[1].Caption:= sld_Recentlv2;
LVDicts.Column[2].Caption:= sld_Recentlv3;
LVConnections.Column[0].Caption:= sld_Connectionlv1;
LVConnections.Column[1].Caption:= sld_Connectionlv2;
LVConnections.Column[2].Caption:= sld_Connectionlv3;
LVConnections.Column[3].Caption:= sld_Connectionlv4;
//
ODDD.Title:= sld_opendatadictionarytitle;
ODDD.Filter:= sld_opendatadictionaryfilter;
SDDD.Title:= sld_savefileastitle;
SDDD.Filter:= sld_savefileasfilter;
//
//
// Register DD engines. // Register DD engines.
RegisterDDEngines; RegisterDDEngines;
// Register standard export formats. // Register standard export formats.
RegisterStdFormats; RegisterStdFormats;
FRecentDicts:=TRecentDataDicts.Create(TRecentDataDict); FRecentDicts:=TRecentDataDicts.Create(TRecentDataDict);
FRecentConnections:=TRecentConnections.Create(TRecentConnection); FRecentConnections:=TRecentConnections.Create(TRecentConnection);
FN:=GetAppConfigDirUTF8(False); FN:=SysToUTF8(GetAppConfigDir(False));
ForceDirectoriesUTF8(FN); ForceDirectoriesUTF8(FN);
FN:=GetAppConfigFile(False); FN:=SysToUTF8(GetAppConfigFile(False));
FRecentDicts.LoadFromFile(UTF8ToSys(FN),'RecentDicts'); FRecentDicts.LoadFromFile(UTF8ToSys(FN),'RecentDicts');
FRecentConnections.LoadFromFile(UTF8ToSys(FN),'RecentConnections'); FRecentConnections.LoadFromFile(UTF8ToSys(FN),'RecentConnections');
ShowRecentDictionaries; ShowRecentDictionaries;
ShowRecentConnections; ShowRecentConnections;
ShowDDImports; ShowDDImports;
ShowNewConnectionTypes; ShowNewConnectionTypes;
PSMain.IniFileName:=ChangeFileExt(FN,'.ini'); PSMain.IniFileName:=ChangeFileExt(UTF8ToSys(FN),'.ini');
LVDicts.Columns[0].Width:=150; LVDicts.Columns[0].Width:=120;
LVDicts.Columns[1].Width:=150; LVDicts.Columns[1].Width:=380;
LVDicts.Columns[2].Width:=150; LVDicts.Columns[2].Width:=150;
LVConnections.Column[0].Width:=120;
LVConnections.Column[1].Width:=120;
LVConnections.Column[2].Width:=150;
LVConnections.Column[3].Width:=260;
RegisterConnectionCallBacks; RegisterConnectionCallBacks;
end; end;
procedure TMainForm.FormDestroy(Sender: TObject); procedure TMainForm.FormDestroy(Sender: TObject);
begin begin
FreeAndNil(FRecentConnections);
FreeAndNil(FRecentDicts); FreeAndNil(FRecentDicts);
end; end;
@ -571,7 +624,7 @@ begin
If (FRecentConnections.Count>0) then If (FRecentConnections.Count>0) then
begin begin
MR:=TMenuItem.Create(Self); MR:=TMenuItem.Create(Self);
MR.Caption:='From connection'; MR.Caption:=sld_Fromconnection;
MIimport.Insert(0,MR); MIimport.Insert(0,MR);
L:=TStringList.Create; L:=TStringList.Create;
Try Try
@ -759,6 +812,7 @@ begin
end; end;
end; end;
procedure TMainForm.ACreateCodeUpdate(Sender: TObject); procedure TMainForm.ACreateCodeUpdate(Sender: TObject);
Var Var
@ -1088,7 +1142,8 @@ Var
begin begin
CE:=CurrentConnection; CE:=CurrentConnection;
CE.DisConnect; CE.DisConnect;
Application.ReleaseComponent(ce); Application.ReleaseComponent(CE);
CE.Free;
Result:=mrOK; Result:=mrOK;
end; end;
@ -1348,11 +1403,6 @@ begin
ShowDDImports; ShowDDImports;
end; end;
procedure TMainForm.PCDDChange(Sender: TObject);
begin
end;
Function TMainForm.FindLi(LV : TListView;RI : TRecentItem) : TListItem; Function TMainForm.FindLi(LV : TListView;RI : TRecentItem) : TListItem;
@ -1466,8 +1516,6 @@ begin
end; end;
procedure TMainForm.NewConnection(EngineName : String); procedure TMainForm.NewConnection(EngineName : String);
Var Var
DDE : TFPDDengine; DDE : TFPDDengine;
CDE : TConnectionEditor; CDE : TConnectionEditor;
@ -1525,9 +1573,43 @@ begin
end; end;
end; end;
procedure TranslateStrs;
const
ext = '.%s.po';
var
LangID1, LangID2, basedir, olddir: String;
begin
olddir := GetCurrentDir;
//
SetCurrentDir(ExtractFilePath(Application.Exename));
basedir := AppendPathDelim('..') + AppendPathDelim('..');
//
LangID1 := Application.GetOptionValue('language');
LangID2 := '';
if Trim(LangId1) = '' then
begin
LCLGetLanguageIDs(LangID1,LangID2);
if LangID2 = 'pt' then
begin
LangID1 := 'pb';
LangID2 := '';
end;
end;
TranslateUnitResourceStrings('sdb_consts',basedir+
'components/dbexport/languages/sdb_consts'+ext, LangID1,LangID2);
TranslateUnitResourceStrings('ldd_consts',basedir+
'components/datadict/languages/ldd_consts'+ext, LangID1,LangID2);
TranslateUnitResourceStrings('lclstrconsts',basedir+
'lcl/languages/lclstrconsts'+ext, LangID1,LangID2);
TranslateUnitResourceStrings('lazdatadeskstr',basedir+
'tools/lazdatadesktop/languages/lazdatadeskstr'+ext, LangID1,LangID2);
//
SetCurrentDir(olddir);
end;
initialization initialization
{$I frmmain.lrs} {$I frmmain.lrs}
TranslateStrs;
end. end.

7
tools/lazdatadesktop/frmselectconnectiontype.lfm
View File

@ -10,18 +10,17 @@ object SelectConnectionTypeForm: TSelectConnectionTypeForm
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
object LBConnections: TListBox object LBConnections: TListBox
Left = 0 Left = 0
Height = 191 Height = 194
Top = 0 Top = 0
Width = 335 Width = 335
Align = alClient Align = alClient
ItemHeight = 0 ItemHeight = 0
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object BPConnections: TButtonPanel object BPConnections: TButtonPanel
Left = 6 Left = 6
Height = 38 Height = 35
Top = 197 Top = 200
Width = 323 Width = 323
TabOrder = 1 TabOrder = 1
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]

8
tools/lazdatadesktop/frmselectconnectiontype.lrs
View File

@ -5,8 +5,8 @@ LazarusResources.Add('TSelectConnectionTypeForm','FORMDATA',[
+#157#1#6'Height'#3#241#0#3'Top'#3#207#0#5'Width'#3'O'#1#7'Caption'#6#24'Sele' +#157#1#6'Height'#3#241#0#3'Top'#3#207#0#5'Width'#3'O'#1#7'Caption'#6#24'Sele'
+'ct a connection type'#12'ClientHeight'#3#241#0#11'ClientWidth'#3'O'#1#8'OnC' +'ct a connection type'#12'ClientHeight'#3#241#0#11'ClientWidth'#3'O'#1#8'OnC'
+'reate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#8'TListBox'#13'LBConne' +'reate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#8'TListBox'#13'LBConne'
+'ctions'#4'Left'#2#0#6'Height'#3#191#0#3'Top'#2#0#5'Width'#3'O'#1#5'Align'#7 +'ctions'#4'Left'#2#0#6'Height'#3#194#0#3'Top'#2#0#5'Width'#3'O'#1#5'Align'#7
+#8'alClient'#10'ItemHeight'#2#0#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#12'TBu' +#8'alClient'#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#12'TButtonPanel'#13'BPCo'
+'ttonPanel'#13'BPConnections'#4'Left'#2#6#6'Height'#2'&'#3'Top'#3#197#0#5'Wi' +'nnections'#4'Left'#2#6#6'Height'#2'#'#3'Top'#3#200#0#5'Width'#3'C'#1#8'TabO'
+'dth'#3'C'#1#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#0#0#0 +'rder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#0#0#0
]); ]);

5
tools/lazdatadesktop/frmselectconnectiontype.pp
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ButtonPanel; StdCtrls, ButtonPanel, lazdatadeskstr;
type type
@ -54,6 +54,9 @@ Var
cap : TFPDDEngineCapabilities; cap : TFPDDEngineCapabilities;
begin begin
//
Caption := sld_Selectaconnectiontype;
//
L:=TStringList.Create; L:=TStringList.Create;
try try
GetDictionaryEngineList(L); GetDictionaryEngineList(L);

75
tools/lazdatadesktop/frmsqlconnect.lfm
View File

@ -1,20 +1,21 @@
object SQLConnectionForm: TSQLConnectionForm object SQLConnectionForm: TSQLConnectionForm
Left = 549 Left = 547
Height = 215 Height = 215
Top = 454 Top = 454
Width = 345 Width = 395
ActiveControl = EHostName ActiveControl = EHostName
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Connect to a database' Caption = 'Connect to a database'
ClientHeight = 215 ClientHeight = 215
ClientWidth = 345 ClientWidth = 395
OnCreate = FormCreate
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
object LEHostName: TLabel object LEHostName: TLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 15 Top = 6
Width = 74 Width = 97
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = '&Host' Caption = '&Host'
@ -25,8 +26,8 @@ object SQLConnectionForm: TSQLConnectionForm
object LEDatabaseName: TLabel object LEDatabaseName: TLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 43 Top = 40
Width = 74 Width = 97
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = '&Database' Caption = '&Database'
@ -37,8 +38,8 @@ object SQLConnectionForm: TSQLConnectionForm
object LEUserName: TLabel object LEUserName: TLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 74 Top = 72
Width = 74 Width = 97
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = '&Username' Caption = '&Username'
@ -49,8 +50,8 @@ object SQLConnectionForm: TSQLConnectionForm
object LEPassword: TLabel object LEPassword: TLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 105 Top = 104
Width = 74 Width = 97
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = '&Password' Caption = '&Password'
@ -59,10 +60,10 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object LCharset: TLabel object LCharset: TLabel
Left = 36 Left = 44
Height = 21 Height = 21
Top = 143 Top = 139
Width = 46 Width = 60
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
Caption = '&Charset' Caption = '&Charset'
@ -71,34 +72,34 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object EHostName: TEdit object EHostName: TEdit
Left = 89 Left = 112
Height = 24 Height = 27
Top = 15 Top = 6
Width = 247 Width = 274
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 0 TabOrder = 0
end end
object EDatabaseName: TEdit object EDatabaseName: TEdit
Left = 89 Left = 112
Height = 24 Height = 27
Top = 43 Top = 40
Width = 247 Width = 274
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 1 TabOrder = 1
end end
object EUserName: TEdit object EUserName: TEdit
Left = 89 Left = 113
Height = 24 Height = 27
Top = 74 Top = 72
Width = 247 Width = 273
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
TabOrder = 2 TabOrder = 2
end end
object EPassword: TEdit object EPassword: TEdit
Left = 89 Left = 112
Height = 24 Height = 27
Top = 105 Top = 104
Width = 247 Width = 274
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
@ -106,17 +107,17 @@ object SQLConnectionForm: TSQLConnectionForm
end end
object BPButtons: TButtonPanel object BPButtons: TButtonPanel
Left = 6 Left = 6
Height = 38 Height = 35
Top = 171 Top = 174
Width = 333 Width = 383
TabOrder = 4 TabOrder = 4
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
end end
object ECharset: TEdit object ECharset: TEdit
Left = 92 Left = 112
Height = 24 Height = 27
Top = 140 Top = 136
Width = 84 Width = 61
TabOrder = 5 TabOrder = 5
end end
end end

64
tools/lazdatadesktop/frmsqlconnect.lrs
View File

@ -1,36 +1,36 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TSQLConnectionForm','FORMDATA',[ LazarusResources.Add('TSQLConnectionForm','FORMDATA',[
'TPF0'#18'TSQLConnectionForm'#17'SQLConnectionForm'#4'Left'#3'%'#2#6'Height'#3 'TPF0'#18'TSQLConnectionForm'#17'SQLConnectionForm'#4'Left'#3'#'#2#6'Height'#3
+#215#0#3'Top'#3#198#1#5'Width'#3'Y'#1#13'ActiveControl'#7#9'EHostName'#11'Bo' +#215#0#3'Top'#3#198#1#5'Width'#3#139#1#13'ActiveControl'#7#9'EHostName'#11'B'
+'rderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6 +'orderIcons'#11#12'biSystemMenu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6
+#21'Connect to a database'#12'ClientHeight'#3#215#0#11'ClientWidth'#3'Y'#1#10 +#21'Connect to a database'#12'ClientHeight'#3#215#0#11'ClientWidth'#3#139#1#8
+'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'LEHostName'#4'Left'#2#8#6'Height'#2 +'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'LEHost'
+#23#3'Top'#2#15#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8 +'Name'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#6#5'Width'#2'a'#9'Alignment'#7#14
+#7'Caption'#6#5'&Host'#12'FocusControl'#7#9'EHostName'#6'Layout'#7#8'tlCente' +'taRightJustify'#8'AutoSize'#8#7'Caption'#6#5'&Host'#12'FocusControl'#7#9'EH'
+'r'#11'ParentColor'#8#0#0#6'TLabel'#14'LEDatabaseName'#4'Left'#2#8#6'Height' +'ostName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#14'LEDatab'
+#2#23#3'Top'#2'+'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'AutoSize' +'aseName'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'('#5'Width'#2'a'#9'Alignment'#7
+#8#7'Caption'#6#9'&Database'#12'FocusControl'#7#13'EDatabaseName'#6'Layout'#7 +#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Database'#12'FocusControl'
+#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LEUserName'#4'Left'#2#8#6'He' +#7#13'EDatabaseName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'
+'ight'#2#23#3'Top'#2'J'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'Au' +#10'LEUserName'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'a'#9'Align'
+'toSize'#8#7'Caption'#6#9'&Username'#12'FocusControl'#7#9'EUserName'#6'Layou' +'ment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Username'#12'Focus'
+'t'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LEPassword'#4'Left'#2#8 +'Control'#7#9'EUserName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLa'
+#6'Height'#2#23#3'Top'#2'i'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8 +'bel'#10'LEPassword'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'h'#5'Width'#2'a'#9
+'AutoSize'#8#7'Caption'#6#9'&Password'#12'FocusControl'#7#9'EPassword'#6'Lay' +'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Password'#12
+'out'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#8'LCharset'#4'Left'#2'$' +'FocusControl'#7#9'EPassword'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6
+#6'Height'#2#21#3'Top'#3#143#0#5'Width'#2'.'#9'Alignment'#7#14'taRightJustif' +'TLabel'#8'LCharset'#4'Left'#2','#6'Height'#2#21#3'Top'#3#139#0#5'Width'#2'<'
+'y'#8'AutoSize'#8#7'Caption'#6#8'&Charset'#12'FocusControl'#7#8'ECharset'#6 +#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'&Charset'#12
+'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#5'TEdit'#9'EHostName'#4'Left'#2 +'FocusControl'#7#8'ECharset'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#5
+'Y'#6'Height'#2#24#3'Top'#2#15#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akL' +'TEdit'#9'EHostName'#4'Left'#2'p'#6'Height'#2#27#3'Top'#2#6#5'Width'#3#18#1#7
+'eft'#7'akRight'#0#8'TabOrder'#2#0#0#0#5'TEdit'#13'EDatabaseName'#4'Left'#2 +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#0#0#5'TEdit'#13
+'Y'#6'Height'#2#24#3'Top'#2'+'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akL' +'EDatabaseName'#4'Left'#2'p'#6'Height'#2#27#3'Top'#2'('#5'Width'#3#18#1#7'An'
+'eft'#7'akRight'#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'EUserName'#4'Left'#2'Y'#6 +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'EU'
+'Height'#2#24#3'Top'#2'J'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7 +'serName'#4'Left'#2'q'#6'Height'#2#27#3'Top'#2'H'#5'Width'#3#17#1#7'Anchors'
+'akRight'#0#8'TabOrder'#2#2#0#0#5'TEdit'#9'EPassword'#4'Left'#2'Y'#6'Height' +#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#2#0#0#5'TEdit'#9'EPassword'
+#2#24#3'Top'#2'i'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh' +#4'Left'#2'p'#6'Height'#2#27#3'Top'#2'h'#5'Width'#3#18#1#7'Anchors'#11#5'akT'
+'t'#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1'*'#8'TabOrder'#2#3#0 +'op'#6'akLeft'#7'akRight'#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1
+#0#12'TButtonPanel'#9'BPButtons'#4'Left'#2#6#6'Height'#2'&'#3'Top'#3#171#0#5 +'*'#8'TabOrder'#2#3#0#0#12'TButtonPanel'#9'BPButtons'#4'Left'#2#6#6'Height'#2
+'Width'#3'M'#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#0#0#5 +'#'#3'Top'#3#174#0#5'Width'#3''#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'
+'TEdit'#8'ECharset'#4'Left'#2'\'#6'Height'#2#24#3'Top'#3#140#0#5'Width'#2'T' +#8'pbCancel'#0#0#0#5'TEdit'#8'ECharset'#4'Left'#2'p'#6'Height'#2#27#3'Top'#3
+#8'TabOrder'#2#5#0#0#0 +#136#0#5'Width'#2'='#8'TabOrder'#2#5#0#0#0
]); ]);

15
tools/lazdatadesktop/frmsqlconnect.pp
View File

@ -26,7 +26,7 @@ interface
uses uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ExtCtrls, ComCtrls, ButtonPanel; Buttons, ExtCtrls, ComCtrls, ButtonPanel, lazdatadeskstr;
type type
@ -44,6 +44,7 @@ type
LEPassword: TLabel; LEPassword: TLabel;
LEHostName: TLabel; LEHostName: TLabel;
LEDatabaseName: TLabel; LEDatabaseName: TLabel;
procedure FormCreate(Sender: TObject);
private private
function GetShowHost: Boolean; function GetShowHost: Boolean;
function GetString(Index: integer): String; function GetString(Index: integer): String;
@ -110,6 +111,18 @@ begin
end; end;
end; end;
procedure TSQLConnectionForm.FormCreate(Sender: TObject);
begin
//
Caption:= sld_Connecttoadatabase;
LEHostName.Caption:= sld_Host;
LEDatabaseName.Caption:= sld_Database;
LEUserName.Caption:= sld_Username;
LEPassword.Caption:= sld_Password;
LCharset.Caption:= sld_Charset;
//
end;
function TSQLConnectionForm.GetShowHost: Boolean; function TSQLConnectionForm.GetShowHost: Boolean;
begin begin
Result:=EHostName.Enabled; Result:=EHostName.Enabled;

788
tools/lazdatadesktop/languages/lazdatadeskstr.pb.po Normal file
View File

@ -0,0 +1,788 @@
msgid ""
msgstr ""
"Content-Type: text/plain; charset=UTF-8\n"
"Project-Id-Version: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: Marcelo Borges de Paula\n"
"Language-Team: \n"
"MIME-Version: 1.0\n"
"Content-Transfer-Encoding: 8bit\n"
#: lazdatadeskstr.sclose
msgid "Close result"
msgstr "Fechar resultados"
#: lazdatadeskstr.scolfields
msgctxt "lazdatadeskstr.scolfields"
msgid "Fields"
msgstr "Campos"
#: lazdatadeskstr.scolname
msgctxt "lazdatadeskstr.scolname"
msgid "Name"
msgstr "Nome"
#: lazdatadeskstr.scoloptions
msgctxt "lazdatadeskstr.scoloptions"
msgid "Options"
msgstr "Opções"
#: lazdatadeskstr.scolsize
msgid "Size"
msgstr "Tamanho"
#: lazdatadeskstr.scoltype
msgid "Type"
msgstr "Tipo"
#: lazdatadeskstr.sconfirmclose
msgid "Confirm close"
msgstr "Confirma fechar"
#: lazdatadeskstr.sconnectiondescription
msgid "Enter a descriptive name for the connection"
msgstr "Digite um nome descritivo para a conexão"
#: lazdatadeskstr.sconnectionnameexists
msgid ""
"There is already a connection named \"%s\"\n"
"Would you like to override the connection data ?\n"
msgstr ""
"Já existe uma conexão com o nome \"%s\"\n"
"Deseja sobrepor os dados da conexão ?\n"
#: lazdatadeskstr.screatecode
msgid "Create code"
msgstr "Criar código"
#: lazdatadeskstr.screateconnection
msgid "Would you like to create a new connection for this database ?"
msgstr "Deseja criar uma nova conexão para este banco de dados ?"
#: lazdatadeskstr.sddmodified
msgid ""
"Data dictionary \"%s\" has changed.\n"
"What do you want to do with the changes?\n"
msgstr ""
"Dicionário Dados \"%s\" foi alterado.\n"
"O que deseja fazer com as alterações?\n"
#: lazdatadeskstr.sdeleteobject
msgid "Delete this %s"
msgstr "Excluir este %s"
#: lazdatadeskstr.sdescription
msgctxt "lazdatadeskstr.sdescription"
msgid "Description"
msgstr "Descrição"
#: lazdatadeskstr.sdomain
msgid "Domain"
msgstr "Domínio"
#: lazdatadeskstr.sdontclose
msgid "Do not close editor"
msgstr "Não fechar editor"
#: lazdatadeskstr.sdontsave
msgid "Discard changes"
msgstr "Descartar alterações"
#: lazdatadeskstr.senginetype
msgid "Engine"
msgstr "Motor"
#: lazdatadeskstr.serrnoengine
msgid "No database engine !"
msgstr "Nenhum motor banco de dados !"
#: lazdatadeskstr.serrselectfields
msgid "No fields selected. Please select some fields"
msgstr "Nenhum campo selecionado. Favor selecionar algum campo"
#: lazdatadeskstr.serrselecttable
msgid "No table selected. Please select a table"
msgstr "Nenhuma tabela selecionada. Favor selecionar uma tabela"
#: lazdatadeskstr.serrunknowntype
msgid "Unknown object type: %d"
msgstr "Tipo objeto desconhecido: %d"
#: lazdatadeskstr.sexecute
msgid "Execute SQL"
msgstr "Executar SQL"
#: lazdatadeskstr.sexport
msgid "Export data"
msgstr "Exportar dados"
#: lazdatadeskstr.sfield
msgid "Field"
msgstr "Campo"
#: lazdatadeskstr.sforeignkey
msgid "Foreign key"
msgstr "Chave estrangeira"
#: lazdatadeskstr.shintclose
msgid "Close query result data panel"
msgstr "Fechar painel resultados dados consulta"
#: lazdatadeskstr.shintcreatecode
msgid "Create pascal code for this data"
msgstr "Criar código pascal para estes dados"
#: lazdatadeskstr.shintexecute
msgid "Execute SQL statement"
msgstr "Executar declarações SQL"
#: lazdatadeskstr.shintexport
msgid "Export this data"
msgstr "Exportar estes dados"
#: lazdatadeskstr.shintload
msgid "Load SQL statement from file"
msgstr "Carregar declarações SQL do arquivo"
#: lazdatadeskstr.shintnext
msgid "Next SQL statement"
msgstr "Próxima declaração SQL"
#: lazdatadeskstr.shintprevious
msgid "Previous SQL statement"
msgstr "Declaração SQL anterior"
#: lazdatadeskstr.shintsave
msgid "Save SQL statement to file"
msgstr "Salvar declarações SQL para arquivo"
#: lazdatadeskstr.simportdictinto
msgid "Import datadictionary"
msgstr "Importar dicionário dados"
#: lazdatadeskstr.sindex
msgid "Index"
msgstr "Índice"
#: lazdatadeskstr.sld_actionadddomain
msgid "New domain"
msgstr "Novo domínio"
#: lazdatadeskstr.sld_actionadddomainh
#| msgid "Add a domain o the data dictionary"
msgid "Add a domain to the data dictionary"
msgstr "Adicionar um domínio ao dicionário dados"
#: lazdatadeskstr.sld_actionaddforeignkey
msgid "New Foreign Key"
msgstr "Nova chave estrangeira"
#: lazdatadeskstr.sld_actionaddforeignkeyh
msgid "Add a foreign key to the table"
msgstr "Adicionar uma chave estrangeira à tabela"
#: lazdatadeskstr.sld_actionaddsequence
msgid "New sequence"
msgstr "Nova sequência"
#: lazdatadeskstr.sld_actionaddsequenceh
msgid "Add a sequence"
msgstr "Adicionar uma sequência"
#: lazdatadeskstr.sld_actionclose
msgctxt "lazdatadeskstr.sld_actionclose"
msgid "&Close"
msgstr "&Fechar"
#: lazdatadeskstr.sld_actioncloseall
msgctxt "lazdatadeskstr.sld_actioncloseall"
msgid "Close &All"
msgstr "Fechar &Tudo"
#: lazdatadeskstr.sld_actioncloseallh
msgid "Close all Data Dictionaries"
msgstr "Fechar todos dicionários dados"
#: lazdatadeskstr.sld_actioncloseh
msgid "Close current Data Dictionary"
msgstr "Fechar dicionário dados atual"
#: lazdatadeskstr.sld_actioncopy
msgid "&Copy"
msgstr "&Copiar"
#: lazdatadeskstr.sld_actioncopyconnection
msgid "&Copy connection"
msgstr "&Copiar conexão"
#: lazdatadeskstr.sld_actioncopyh
msgid "Copy"
msgstr "Copiar"
#: lazdatadeskstr.sld_actioncreatecode
msgid "Create &code"
msgstr "Criar &código"
#: lazdatadeskstr.sld_actioncreatecodeh
msgid "Create code from definition or data"
msgstr "Criar código das definições ou dados"
#: lazdatadeskstr.sld_actioncut
msgid "Cu&t"
msgstr "Recor&tar"
#: lazdatadeskstr.sld_actioncuth
msgid "Cut"
msgstr "Recortar"
#: lazdatadeskstr.sld_actiondeleteconnection
msgid "&Delete connection"
msgstr "&Excluir conexão"
#: lazdatadeskstr.sld_actiondeleteobject
msgid "Delete &Object"
msgstr "Excluir &Objeto"
#: lazdatadeskstr.sld_actiondeleteobjecth
msgid "Delete the currently selected object"
msgstr "Excluir o objeto selecionado atualmente"
#: lazdatadeskstr.sld_actiondeleterecentdatadict
msgctxt "lazdatadeskstr.sld_actiondeleterecentdatadict"
msgid "&Delete"
msgstr "&Excluir"
#: lazdatadeskstr.sld_actionexit
msgid "E&xit"
msgstr "&Sair"
#: lazdatadeskstr.sld_actionexith
msgid "Quit this program"
msgstr "Encerrar programa"
#: lazdatadeskstr.sld_actiongeneratesql
msgctxt "lazdatadeskstr.sld_actiongeneratesql"
msgid "&Generate SQL"
msgstr "&Gerar SQL"
#: lazdatadeskstr.sld_actiongeneratesqlh
msgid "Generate SQL statements for the current table"
msgstr "Gerar declarações SQL para a tabela atual"
#: lazdatadeskstr.sld_actionnew
msgctxt "lazdatadeskstr.sld_actionnew"
msgid "&New"
msgstr "&Novo"
#: lazdatadeskstr.sld_actionnewconnection
msgid "&New connection"
msgstr "&Nova conexão"
#: lazdatadeskstr.sld_actionnewfield
msgid "New &field"
msgstr "Novo &campo"
#: lazdatadeskstr.sld_actionnewfieldh
msgid "Create a new field in the current table"
msgstr "Criar um novo campo na tabela atual"
#: lazdatadeskstr.sld_actionnewh
msgid "Create a new Data Dictionary"
msgstr "Criar um novo Dicionário Dados"
#: lazdatadeskstr.sld_actionnewindex
msgid "New index"
msgstr "Novo índice"
#: lazdatadeskstr.sld_actionnewindexh
msgid "Add new index to current table"
msgstr "Adicionar novo índice à tabela atual"
#: lazdatadeskstr.sld_actionnewtable
msgid "New &table"
msgstr "Nova &tabela"
#: lazdatadeskstr.sld_actionnewtableh
msgid "Create a new table"
msgstr "Criar uma nova tabela"
#: lazdatadeskstr.sld_actionopen
msgctxt "lazdatadeskstr.sld_actionopen"
msgid "&Open..."
msgstr "&Abrir..."
#: lazdatadeskstr.sld_actionopenconnection
msgid "&Open connection"
msgstr "&Abrir conexão"
#: lazdatadeskstr.sld_actionopenconnectionh
msgid "Open selected recent connection"
msgstr "Abrir conexão recente selecionada"
#: lazdatadeskstr.sld_actionopenh
msgid "Open a new Data Dictionary"
msgstr "Abrir um novo Dicionário Dados"
#: lazdatadeskstr.sld_actionopenrecentdatadict
msgctxt "lazdatadeskstr.sld_actionopenrecentdatadict"
msgid "Open"
msgstr "Abrir"
#: lazdatadeskstr.sld_actionopenrecentdatadicth
msgid "Open selected recent datadictionary"
msgstr "Abrir dicionário dados recente selecionado"
#: lazdatadeskstr.sld_actionpaste
msgctxt "lazdatadeskstr.sld_actionpaste"
msgid "&Paste"
msgstr "&Colar"
#: lazdatadeskstr.sld_actionpasteh
msgid "Paste"
msgstr "Colar"
#: lazdatadeskstr.sld_actionsave
msgctxt "lazdatadeskstr.sld_actionsave"
msgid "&Save"
msgstr "Sal&var"
#: lazdatadeskstr.sld_actionsaveas
msgid "Save &as"
msgstr "Salvar c&omo"
#: lazdatadeskstr.sld_actionsaveash
msgid "Save datadictionary as"
msgstr "Salvar dicionário dados como"
#: lazdatadeskstr.sld_actionsaveh
msgid "Save Data Dictionary"
msgstr "Salvar Dicionário Dados"
#: lazdatadeskstr.sld_cancel
msgctxt "lazdatadeskstr.sld_cancel"
msgid "&Cancel"
msgstr "&Cancelar"
#: lazdatadeskstr.sld_charset
msgid "Charset"
msgstr "Dialeto"
#: lazdatadeskstr.sld_connectionlv1
msgctxt "lazdatadeskstr.sld_connectionlv1"
msgid "Name"
msgstr "Nome"
#: lazdatadeskstr.sld_connectionlv2
msgid "Driver"
msgstr "Driver"
#: lazdatadeskstr.sld_connectionlv3
msgid "Last used"
msgstr "Última utilização"
#: lazdatadeskstr.sld_connectionlv4
msgctxt "lazdatadeskstr.sld_connectionlv4"
msgid "Description"
msgstr "Descrição"
#: lazdatadeskstr.sld_connections
msgctxt "lazdatadeskstr.sld_connections"
msgid "Connections"
msgstr "Conexões"
#: lazdatadeskstr.sld_connecttoadatabase
msgctxt "lazdatadeskstr.sld_connecttoadatabase"
msgid "Connect to a database"
msgstr "Conectar a um banco de dados"
#: lazdatadeskstr.sld_createfulltablecreationsql
msgctxt "lazdatadeskstr.sld_createfulltablecreationsql"
msgid "Create full table creation SQL"
msgstr "Gerar SQL criação tabela completo"
#: lazdatadeskstr.sld_createtable
msgctxt "lazdatadeskstr.sld_createtable"
msgid "Create table"
msgstr "Criar tabela"
#: lazdatadeskstr.sld_database
msgctxt "lazdatadeskstr.sld_database"
msgid "Database"
msgstr "Banco Dados"
#: lazdatadeskstr.sld_delete
msgctxt "lazdatadeskstr.sld_delete"
msgid "&Delete"
msgstr "&Excluir"
#: lazdatadeskstr.sld_dictionaries
msgctxt "lazdatadeskstr.sld_dictionaries"
msgid "Dictionaries"
msgstr "Dicionários"
#: lazdatadeskstr.sld_fromconnection
msgid "From connection"
msgstr "Da conexão ..."
#: lazdatadeskstr.sld_generatesql
msgctxt "lazdatadeskstr.sld_generatesql"
msgid "Generate SQL"
msgstr "Gerar SQL"
#: lazdatadeskstr.sld_generatesqlstatements
msgctxt "lazdatadeskstr.sld_generatesqlstatements"
msgid "Generate SQL statements"
msgstr "Gerar declarações SQL"
#: lazdatadeskstr.sld_host
msgid "Host"
msgstr "Servidor"
#: lazdatadeskstr.sld_importupdatedatadictionary
msgctxt "lazdatadeskstr.sld_importupdatedatadictionary"
msgid "Import/Update datadictionary"
msgstr "Importar/Atualizar dicionário dados"
#: lazdatadeskstr.sld_indent
msgctxt "lazdatadeskstr.sld_indent"
msgid "I&ndent"
msgstr "I&ndentar"
#: lazdatadeskstr.sld_insert
msgctxt "lazdatadeskstr.sld_insert"
msgid "&Insert"
msgstr "&Inserir"
#: lazdatadeskstr.sld_keyfields
msgctxt "lazdatadeskstr.sld_keyfields"
msgid "&Key fields"
msgstr "Campos c&have"
#: lazdatadeskstr.sld_lazarusdatabasedesktop
msgctxt "lazdatadeskstr.sld_lazarusdatabasedesktop"
msgid "Lazarus Database Desktop"
msgstr "Lazarus Database Desktop"
#: lazdatadeskstr.sld_linelength
msgctxt "lazdatadeskstr.sld_linelength"
msgid "Line Length"
msgstr "Comp.Linha"
#: lazdatadeskstr.sld_menuconnections
msgctxt "lazdatadeskstr.sld_menuconnections"
msgid "Connections"
msgstr "Conexões"
#: lazdatadeskstr.sld_menudictionary
msgctxt "lazdatadeskstr.sld_menudictionary"
msgid "&Dictionary"
msgstr "&Dicionário"
#: lazdatadeskstr.sld_menudictionaryimport
msgctxt "lazdatadeskstr.sld_menudictionaryimport"
msgid "&Import"
msgstr "&Importar"
#: lazdatadeskstr.sld_menuedit
msgctxt "lazdatadeskstr.sld_menuedit"
msgid "&Edit"
msgstr "&Editar"
#: lazdatadeskstr.sld_menufile
msgctxt "lazdatadeskstr.sld_menufile"
msgid "&File"
msgstr "&Arquivo"
#: lazdatadeskstr.sld_ok
msgctxt "lazdatadeskstr.sld_ok"
msgid "&OK"
msgstr "&OK"
#: lazdatadeskstr.sld_opendatadictionaryfilter
msgctxt "lazdatadeskstr.sld_opendatadictionaryfilter"
msgid "Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*"
msgstr "Arquivos dicionário dados|*.fpd|Arquivos Ini|*.ini|Todos arquivos|*.*"
#: lazdatadeskstr.sld_opendatadictionarytitle
msgid "Open data dictionary"
msgstr "Abrir dicionário dados"
#: lazdatadeskstr.sld_options
msgctxt "lazdatadeskstr.sld_options"
msgid "Options"
msgstr "Opções"
#: lazdatadeskstr.sld_password
msgid "Password"
msgstr "Senha"
#: lazdatadeskstr.sld_recentlv1
msgctxt "lazdatadeskstr.sld_recentlv1"
msgid "Name"
msgstr "Nome"
#: lazdatadeskstr.sld_recentlv2
msgid "Filename"
msgstr "Nome arquivo"
#: lazdatadeskstr.sld_recentlv3
msgctxt "lazdatadeskstr.sld_recentlv3"
msgid "Last used on"
msgstr "Última utilização"
#: lazdatadeskstr.sld_savefileasfilter
msgctxt "lazdatadeskstr.sld_savefileasfilter"
msgid "Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*"
msgstr "Arquivos dicionário dados|*.fpd|Arquivos Ini|*.ini|Todos arquivos|*.*"
#: lazdatadeskstr.sld_savefileastitle
msgid "Save file as"
msgstr "Salvar arquivo como"
#: lazdatadeskstr.sld_select
msgctxt "lazdatadeskstr.sld_select"
msgid "&Select"
msgstr "&Selecionar"
#: lazdatadeskstr.sld_selectaconnectiontype
msgid "Select a conection type"
msgstr "Selecionar um tipo conexão"
#: lazdatadeskstr.sld_selectall
msgctxt "lazdatadeskstr.sld_selectall"
msgid "Select &all"
msgstr "Seleciona &tudo"
#: lazdatadeskstr.sld_selectnone
msgctxt "lazdatadeskstr.sld_selectnone"
msgid "Select &none"
msgstr "Seleciona &nada"
#: lazdatadeskstr.sld_selectupdateinsertfields
msgctxt "lazdatadeskstr.sld_selectupdateinsertfields"
msgid "Select/Update/Insert fields"
msgstr "Campos \"Select/Update/Insert\""
#: lazdatadeskstr.sld_separator
msgctxt "lazdatadeskstr.sld_separator"
msgid "-"
msgstr "-"
#: lazdatadeskstr.sld_table
msgctxt "lazdatadeskstr.sld_table"
msgid "Ta&ble"
msgstr "Ta&bela"
#: lazdatadeskstr.sld_tableandfields
msgid "Tables and &Fields"
msgstr "Tabelas e &Campos"
#: lazdatadeskstr.sld_update
msgctxt "lazdatadeskstr.sld_update"
msgid "&Update"
msgstr "&Atualizar"
#: lazdatadeskstr.sld_updateexistingtables
msgctxt "lazdatadeskstr.sld_updateexistingtables"
msgid "Update existing tables"
msgstr "Atualizar tabelas existentes"
#: lazdatadeskstr.sld_username
msgid "Username"
msgstr "Usuário"
#: lazdatadeskstr.sload
msgid "Load SQL"
msgstr "Carregar SQL"
#: lazdatadeskstr.snamefor
msgid "Enter a name for the new %s"
msgstr "Digite um nome para o novo %s"
#: lazdatadeskstr.snew
msgid "New %s"
msgstr "Novo %s"
#: lazdatadeskstr.snewconnection
msgid "New connection"
msgstr "Nova conexão"
#: lazdatadeskstr.snewdictionary
msgid "New database"
msgstr "Novo banco dados"
#: lazdatadeskstr.snewdomain
msgid "Create new domain"
msgstr "Criar novo domínio"
#: lazdatadeskstr.snewdomainname
msgid "Enter a name for the new domain:"
msgstr "Digite um nome para o novo domínio:"
#: lazdatadeskstr.snewfield
msgid "Create new field in table %s"
msgstr "Criar novo campo na tabela %s"
#: lazdatadeskstr.snewfieldname
msgid "Enter a name for the new field:"
msgstr "Digite um nome para o novo campo:"
#: lazdatadeskstr.snewforeignkey
msgid "Create new foreign key in table %s"
msgstr "Criar nova chave estrangeira na tabela %s"
#: lazdatadeskstr.snewforeignkeyname
msgid "Enter a name for the new foreign key:"
msgstr "Digite um nome para a nova chave estrangeira:"
#: lazdatadeskstr.snewindex
msgid "Create new index on table %s"
msgstr "Criar novo índice na tabela %s"
#: lazdatadeskstr.snewindexname
msgid "Enter a name for the new index:"
msgstr "Digite um nome para o novo índice:"
#: lazdatadeskstr.snewobject
msgid "Create new %s"
msgstr "Criar novo %s"
#: lazdatadeskstr.snewsequence
msgid "Create new sequence"
msgstr "Criar nova sequência"
#: lazdatadeskstr.snewsequencename
msgid "Enter a name for the new sequence:"
msgstr "Digite um nome para a nova sequência:"
#: lazdatadeskstr.snewtable
msgid "Create new table"
msgstr "Criar nova tabela"
#: lazdatadeskstr.snewtablename
msgid "Enter a name for the new table:"
msgstr "Digite um nome para a nova tabela:"
#: lazdatadeskstr.snext
msgid "Next"
msgstr "Próximo"
#: lazdatadeskstr.snodedatabase
msgctxt "lazdatadeskstr.snodedatabase"
msgid "Database"
msgstr "Banco Dados"
#: lazdatadeskstr.snodedatadictionary
msgid "Datadictionary"
msgstr "Dicionário dados"
#: lazdatadeskstr.snodedomains
msgid "Domains"
msgstr "Domínios"
#: lazdatadeskstr.snodefields
msgctxt "lazdatadeskstr.snodefields"
msgid "Fields"
msgstr "Campos"
#: lazdatadeskstr.snodeforeignkeys
msgid "Foreign keys"
msgstr "Chaves estrangeiras"
#: lazdatadeskstr.snodeindexes
msgid "Indexes"
msgstr "Índices"
#: lazdatadeskstr.snodeindexfields
msgid "Index fields: "
msgstr "Campos índice:"
#: lazdatadeskstr.snodeindexoptions
msgid "Index options: "
msgstr "Opções índice:"
#: lazdatadeskstr.snodesequences
msgid "Sequences"
msgstr "Sequências"
#: lazdatadeskstr.snodetabledata
msgid "Table Data"
msgstr "Dados Tabela"
#: lazdatadeskstr.snodetables
msgid "Tables"
msgstr "Tabelas"
#: lazdatadeskstr.sobject
msgid "Object"
msgstr "Objeto"
#: lazdatadeskstr.sparameter
msgid "Parameter"
msgstr "Parâmetro"
#: lazdatadeskstr.sprevious
msgid "Previous"
msgstr "Anterior"
#: lazdatadeskstr.squery
msgid "Run query"
msgstr "Executar consulta"
#: lazdatadeskstr.srowsaffected
msgid "Query executed succesfully: %d rows affected."
msgstr "Consulta executada com sucesso: %d registros afetados."
#: lazdatadeskstr.ssave
msgid "Save SQL"
msgstr "Salvar SQL"
#: lazdatadeskstr.ssavedata
msgid "Save changes"
msgstr "Salvar alterações"
#: lazdatadeskstr.sselectdbfdir
msgid "Select a directory with DBF files"
msgstr "Selecionar um diretório com arquivos DBF"
#: lazdatadeskstr.sselectedobject
msgid "Selected object"
msgstr "Objeto selecionado"
#: lazdatadeskstr.ssequence
msgid "Sequence"
msgstr "Sequência"
#: lazdatadeskstr.ssqlfilters
msgid "SQL files|*.sql|All files|*.*"
msgstr "Arquivos SQL|*.sql|Todos arquivos|*.*"
#: lazdatadeskstr.stable
msgid "Table"
msgstr "Tabela"
#: lazdatadeskstr.sunknownconnection
msgid "Unknown connection: %s"
msgstr "Conexão desconhecida: %s"
#: lazdatadeskstr.sunknowndictionary
msgid "Unknown data dictionary: %s"
msgstr "Dicionário dados desconhecido: %s"
#: lazdatadeskstr.susecurrentdict
msgid "Yes, use the active dictionary"
msgstr "Sim, usar o dicionário ativo"
#: lazdatadeskstr.susenewdict
msgid "No, import in a new dictionary"
msgstr "Não, importar um novo dicionário"
#: lazdatadeskstr.svalue
msgid "Value"
msgstr "Valor"
#: lazdatadeskstr.swhichcurrentdicttouse
msgid "A data dictionary is active.Would you like to import into this data dictionary ?"
msgstr "Um dicionário dados está ativo.Deseja importar para este dicionário dados ?"

740
tools/lazdatadesktop/languages/lazdatadeskstr.po Normal file
View File

@ -0,0 +1,740 @@
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: lazdatadeskstr.sclose
msgid "Close result"
msgstr ""
#: lazdatadeskstr.scolfields
msgctxt "lazdatadeskstr.scolfields"
msgid "Fields"
msgstr ""
#: lazdatadeskstr.scolname
msgctxt "lazdatadeskstr.scolname"
msgid "Name"
msgstr ""
#: lazdatadeskstr.scoloptions
msgctxt "lazdatadeskstr.scoloptions"
msgid "Options"
msgstr ""
#: lazdatadeskstr.scolsize
msgid "Size"
msgstr ""
#: lazdatadeskstr.scoltype
msgid "Type"
msgstr ""
#: lazdatadeskstr.sconfirmclose
msgid "Confirm close"
msgstr ""
#: lazdatadeskstr.sconnectiondescription
msgid "Enter a descriptive name for the connection"
msgstr ""
#: lazdatadeskstr.sconnectionnameexists
msgid ""
"There is already a connection named \"%s\"\n"
"Would you like to override the connection data ?\n"
msgstr ""
#: lazdatadeskstr.screatecode
msgid "Create code"
msgstr ""
#: lazdatadeskstr.screateconnection
msgid "Would you like to create a new connection for this database ?"
msgstr ""
#: lazdatadeskstr.sddmodified
msgid ""
"Data dictionary \"%s\" has changed.\n"
"What do you want to do with the changes?\n"
msgstr ""
#: lazdatadeskstr.sdeleteobject
msgid "Delete this %s"
msgstr ""
#: lazdatadeskstr.sdescription
msgctxt "lazdatadeskstr.sdescription"
msgid "Description"
msgstr ""
#: lazdatadeskstr.sdomain
msgid "Domain"
msgstr ""
#: lazdatadeskstr.sdontclose
msgid "Do not close editor"
msgstr ""
#: lazdatadeskstr.sdontsave
msgid "Discard changes"
msgstr ""
#: lazdatadeskstr.senginetype
msgid "Engine"
msgstr ""
#: lazdatadeskstr.serrnoengine
msgid "No database engine !"
msgstr ""
#: lazdatadeskstr.serrselectfields
msgid "No fields selected. Please select some fields"
msgstr ""
#: lazdatadeskstr.serrselecttable
msgid "No table selected. Please select a table"
msgstr ""
#: lazdatadeskstr.serrunknowntype
msgid "Unknown object type: %d"
msgstr ""
#: lazdatadeskstr.sexecute
msgid "Execute SQL"
msgstr ""
#: lazdatadeskstr.sexport
msgid "Export data"
msgstr ""
#: lazdatadeskstr.sfield
msgid "Field"
msgstr ""
#: lazdatadeskstr.sforeignkey
msgid "Foreign key"
msgstr ""
#: lazdatadeskstr.shintclose
msgid "Close query result data panel"
msgstr ""
#: lazdatadeskstr.shintcreatecode
msgid "Create pascal code for this data"
msgstr ""
#: lazdatadeskstr.shintexecute
msgid "Execute SQL statement"
msgstr ""
#: lazdatadeskstr.shintexport
msgid "Export this data"
msgstr ""
#: lazdatadeskstr.shintload
msgid "Load SQL statement from file"
msgstr ""
#: lazdatadeskstr.shintnext
msgid "Next SQL statement"
msgstr ""
#: lazdatadeskstr.shintprevious
msgid "Previous SQL statement"
msgstr ""
#: lazdatadeskstr.shintsave
msgid "Save SQL statement to file"
msgstr ""
#: lazdatadeskstr.simportdictinto
msgid "Import datadictionary"
msgstr ""
#: lazdatadeskstr.sindex
msgid "Index"
msgstr ""
#: lazdatadeskstr.sld_actionadddomain
msgid "New domain"
msgstr ""
#: lazdatadeskstr.sld_actionadddomainh
msgid "Add a domain to the data dictionary"
msgstr ""
#: lazdatadeskstr.sld_actionaddforeignkey
msgid "New Foreign Key"
msgstr ""
#: lazdatadeskstr.sld_actionaddforeignkeyh
msgid "Add a foreign key to the table"
msgstr ""
#: lazdatadeskstr.sld_actionaddsequence
msgid "New sequence"
msgstr ""
#: lazdatadeskstr.sld_actionaddsequenceh
msgid "Add a sequence"
msgstr ""
#: lazdatadeskstr.sld_actionclose
msgid "&Close"
msgstr ""
#: lazdatadeskstr.sld_actioncloseall
msgid "Close &All"
msgstr ""
#: lazdatadeskstr.sld_actioncloseallh
msgid "Close all Data Dictionaries"
msgstr ""
#: lazdatadeskstr.sld_actioncloseh
msgid "Close current Data Dictionary"
msgstr ""
#: lazdatadeskstr.sld_actioncopy
msgid "&Copy"
msgstr ""
#: lazdatadeskstr.sld_actioncopyconnection
msgid "&Copy connection"
msgstr ""
#: lazdatadeskstr.sld_actioncopyh
msgid "Copy"
msgstr ""
#: lazdatadeskstr.sld_actioncreatecode
msgid "Create &code"
msgstr ""
#: lazdatadeskstr.sld_actioncreatecodeh
msgid "Create code from definition or data"
msgstr ""
#: lazdatadeskstr.sld_actioncut
msgid "Cu&t"
msgstr ""
#: lazdatadeskstr.sld_actioncuth
msgid "Cut"
msgstr ""
#: lazdatadeskstr.sld_actiondeleteconnection
msgid "&Delete connection"
msgstr ""
#: lazdatadeskstr.sld_actiondeleteobject
msgid "Delete &Object"
msgstr ""
#: lazdatadeskstr.sld_actiondeleteobjecth
msgid "Delete the currently selected object"
msgstr ""
#: lazdatadeskstr.sld_actiondeleterecentdatadict
msgctxt "lazdatadeskstr.sld_actiondeleterecentdatadict"
msgid "&Delete"
msgstr ""
#: lazdatadeskstr.sld_actionexit
msgid "E&xit"
msgstr ""
#: lazdatadeskstr.sld_actionexith
msgid "Quit this program"
msgstr ""
#: lazdatadeskstr.sld_actiongeneratesql
msgid "&Generate SQL"
msgstr ""
#: lazdatadeskstr.sld_actiongeneratesqlh
msgid "Generate SQL statements for the current table"
msgstr ""
#: lazdatadeskstr.sld_actionnew
msgid "&New"
msgstr ""
#: lazdatadeskstr.sld_actionnewconnection
msgid "&New connection"
msgstr ""
#: lazdatadeskstr.sld_actionnewfield
msgid "New &field"
msgstr ""
#: lazdatadeskstr.sld_actionnewfieldh
msgid "Create a new field in the current table"
msgstr ""
#: lazdatadeskstr.sld_actionnewh
msgid "Create a new Data Dictionary"
msgstr ""
#: lazdatadeskstr.sld_actionnewindex
msgid "New index"
msgstr ""
#: lazdatadeskstr.sld_actionnewindexh
msgid "Add new index to current table"
msgstr ""
#: lazdatadeskstr.sld_actionnewtable
msgid "New &table"
msgstr ""
#: lazdatadeskstr.sld_actionnewtableh
msgid "Create a new table"
msgstr ""
#: lazdatadeskstr.sld_actionopen
msgid "&Open..."
msgstr ""
#: lazdatadeskstr.sld_actionopenconnection
msgid "&Open connection"
msgstr ""
#: lazdatadeskstr.sld_actionopenconnectionh
msgid "Open selected recent connection"
msgstr ""
#: lazdatadeskstr.sld_actionopenh
msgid "Open a new Data Dictionary"
msgstr ""
#: lazdatadeskstr.sld_actionopenrecentdatadict
msgid "Open"
msgstr ""
#: lazdatadeskstr.sld_actionopenrecentdatadicth
msgid "Open selected recent datadictionary"
msgstr ""
#: lazdatadeskstr.sld_actionpaste
msgid "&Paste"
msgstr ""
#: lazdatadeskstr.sld_actionpasteh
msgid "Paste"
msgstr ""
#: lazdatadeskstr.sld_actionsave
msgid "&Save"
msgstr ""
#: lazdatadeskstr.sld_actionsaveas
msgid "Save &as"
msgstr ""
#: lazdatadeskstr.sld_actionsaveash
msgid "Save datadictionary as"
msgstr ""
#: lazdatadeskstr.sld_actionsaveh
msgid "Save Data Dictionary"
msgstr ""
#: lazdatadeskstr.sld_cancel
msgid "&Cancel"
msgstr ""
#: lazdatadeskstr.sld_charset
msgid "Charset"
msgstr ""
#: lazdatadeskstr.sld_connectionlv1
msgctxt "lazdatadeskstr.sld_connectionlv1"
msgid "Name"
msgstr ""
#: lazdatadeskstr.sld_connectionlv2
msgid "Driver"
msgstr ""
#: lazdatadeskstr.sld_connectionlv3
msgid "Last used"
msgstr ""
#: lazdatadeskstr.sld_connectionlv4
msgctxt "lazdatadeskstr.sld_connectionlv4"
msgid "Description"
msgstr ""
#: lazdatadeskstr.sld_connections
msgctxt "lazdatadeskstr.sld_connections"
msgid "Connections"
msgstr ""
#: lazdatadeskstr.sld_connecttoadatabase
msgid "Connect to a database"
msgstr ""
#: lazdatadeskstr.sld_createfulltablecreationsql
msgid "Create full table creation SQL"
msgstr ""
#: lazdatadeskstr.sld_createtable
msgid "Create table"
msgstr ""
#: lazdatadeskstr.sld_database
msgctxt "lazdatadeskstr.sld_database"
msgid "Database"
msgstr ""
#: lazdatadeskstr.sld_delete
msgctxt "lazdatadeskstr.sld_delete"
msgid "&Delete"
msgstr ""
#: lazdatadeskstr.sld_dictionaries
msgid "Dictionaries"
msgstr ""
#: lazdatadeskstr.sld_fromconnection
msgid "From connection"
msgstr ""
#: lazdatadeskstr.sld_generatesql
msgid "Generate SQL"
msgstr ""
#: lazdatadeskstr.sld_generatesqlstatements
msgid "Generate SQL statements"
msgstr ""
#: lazdatadeskstr.sld_host
msgid "Host"
msgstr ""
#: lazdatadeskstr.sld_importupdatedatadictionary
msgid "Import/Update datadictionary"
msgstr ""
#: lazdatadeskstr.sld_indent
msgid "I&ndent"
msgstr ""
#: lazdatadeskstr.sld_insert
msgid "&Insert"
msgstr ""
#: lazdatadeskstr.sld_keyfields
msgid "&Key fields"
msgstr ""
#: lazdatadeskstr.sld_lazarusdatabasedesktop
msgid "Lazarus Database Desktop"
msgstr ""
#: lazdatadeskstr.sld_linelength
msgid "Line Length"
msgstr ""
#: lazdatadeskstr.sld_menuconnections
msgctxt "lazdatadeskstr.sld_menuconnections"
msgid "Connections"
msgstr ""
#: lazdatadeskstr.sld_menudictionary
msgid "&Dictionary"
msgstr ""
#: lazdatadeskstr.sld_menudictionaryimport
msgid "&Import"
msgstr ""
#: lazdatadeskstr.sld_menuedit
msgid "&Edit"
msgstr ""
#: lazdatadeskstr.sld_menufile
msgid "&File"
msgstr ""
#: lazdatadeskstr.sld_ok
msgid "&OK"
msgstr ""
#: lazdatadeskstr.sld_opendatadictionaryfilter
msgctxt "lazdatadeskstr.sld_opendatadictionaryfilter"
msgid "Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*"
msgstr ""
#: lazdatadeskstr.sld_opendatadictionarytitle
msgid "Open data dictionary"
msgstr ""
#: lazdatadeskstr.sld_options
msgctxt "lazdatadeskstr.sld_options"
msgid "Options"
msgstr ""
#: lazdatadeskstr.sld_password
msgid "Password"
msgstr ""
#: lazdatadeskstr.sld_recentlv1
msgctxt "lazdatadeskstr.sld_recentlv1"
msgid "Name"
msgstr ""
#: lazdatadeskstr.sld_recentlv2
msgid "Filename"
msgstr ""
#: lazdatadeskstr.sld_recentlv3
msgid "Last used on"
msgstr ""
#: lazdatadeskstr.sld_savefileasfilter
msgctxt "lazdatadeskstr.sld_savefileasfilter"
msgid "Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*"
msgstr ""
#: lazdatadeskstr.sld_savefileastitle
msgid "Save file as"
msgstr ""
#: lazdatadeskstr.sld_select
msgid "&Select"
msgstr ""
#: lazdatadeskstr.sld_selectaconnectiontype
msgid "Select a conection type"
msgstr ""
#: lazdatadeskstr.sld_selectall
msgid "Select &all"
msgstr ""
#: lazdatadeskstr.sld_selectnone
msgid "Select &none"
msgstr ""
#: lazdatadeskstr.sld_selectupdateinsertfields
msgid "Select/Update/Insert fields"
msgstr ""
#: lazdatadeskstr.sld_separator
msgid "-"
msgstr ""
#: lazdatadeskstr.sld_table
msgid "Ta&ble"
msgstr ""
#: lazdatadeskstr.sld_tableandfields
msgid "Tables and &Fields"
msgstr ""
#: lazdatadeskstr.sld_update
msgid "&Update"
msgstr ""
#: lazdatadeskstr.sld_updateexistingtables
msgid "Update existing tables"
msgstr ""
#: lazdatadeskstr.sld_username
msgid "Username"
msgstr ""
#: lazdatadeskstr.sload
msgid "Load SQL"
msgstr ""
#: lazdatadeskstr.snamefor
msgid "Enter a name for the new %s"
msgstr ""
#: lazdatadeskstr.snew
msgid "New %s"
msgstr ""
#: lazdatadeskstr.snewconnection
msgid "New connection"
msgstr ""
#: lazdatadeskstr.snewdictionary
msgid "New database"
msgstr ""
#: lazdatadeskstr.snewdomain
msgid "Create new domain"
msgstr ""
#: lazdatadeskstr.snewdomainname
msgid "Enter a name for the new domain:"
msgstr ""
#: lazdatadeskstr.snewfield
msgid "Create new field in table %s"
msgstr ""
#: lazdatadeskstr.snewfieldname
msgid "Enter a name for the new field:"
msgstr ""
#: lazdatadeskstr.snewforeignkey
msgid "Create new foreign key in table %s"
msgstr ""
#: lazdatadeskstr.snewforeignkeyname
msgid "Enter a name for the new foreign key:"
msgstr ""
#: lazdatadeskstr.snewindex
msgid "Create new index on table %s"
msgstr ""
#: lazdatadeskstr.snewindexname
msgid "Enter a name for the new index:"
msgstr ""
#: lazdatadeskstr.snewobject
msgid "Create new %s"
msgstr ""
#: lazdatadeskstr.snewsequence
msgid "Create new sequence"
msgstr ""
#: lazdatadeskstr.snewsequencename
msgid "Enter a name for the new sequence:"
msgstr ""
#: lazdatadeskstr.snewtable
msgid "Create new table"
msgstr ""
#: lazdatadeskstr.snewtablename
msgid "Enter a name for the new table:"
msgstr ""
#: lazdatadeskstr.snext
msgid "Next"
msgstr ""
#: lazdatadeskstr.snodedatabase
msgctxt "lazdatadeskstr.snodedatabase"
msgid "Database"
msgstr ""
#: lazdatadeskstr.snodedatadictionary
msgid "Datadictionary"
msgstr ""
#: lazdatadeskstr.snodedomains
msgid "Domains"
msgstr ""
#: lazdatadeskstr.snodefields
msgctxt "lazdatadeskstr.snodefields"
msgid "Fields"
msgstr ""
#: lazdatadeskstr.snodeforeignkeys
msgid "Foreign keys"
msgstr ""
#: lazdatadeskstr.snodeindexes
msgid "Indexes"
msgstr ""
#: lazdatadeskstr.snodeindexfields
msgid "Index fields: "
msgstr ""
#: lazdatadeskstr.snodeindexoptions
msgid "Index options: "
msgstr ""
#: lazdatadeskstr.snodesequences
msgid "Sequences"
msgstr ""
#: lazdatadeskstr.snodetabledata
msgid "Table Data"
msgstr ""
#: lazdatadeskstr.snodetables
msgid "Tables"
msgstr ""
#: lazdatadeskstr.sobject
msgid "Object"
msgstr ""
#: lazdatadeskstr.sparameter
msgid "Parameter"
msgstr ""
#: lazdatadeskstr.sprevious
msgid "Previous"
msgstr ""
#: lazdatadeskstr.squery
msgid "Run query"
msgstr ""
#: lazdatadeskstr.srowsaffected
msgid "Query executed succesfully: %d rows affected."
msgstr ""
#: lazdatadeskstr.ssave
msgid "Save SQL"
msgstr ""
#: lazdatadeskstr.ssavedata
msgid "Save changes"
msgstr ""
#: lazdatadeskstr.sselectdbfdir
msgid "Select a directory with DBF files"
msgstr ""
#: lazdatadeskstr.sselectedobject
msgid "Selected object"
msgstr ""
#: lazdatadeskstr.ssequence
msgid "Sequence"
msgstr ""
#: lazdatadeskstr.ssqlfilters
msgid "SQL files|*.sql|All files|*.*"
msgstr ""
#: lazdatadeskstr.stable
msgid "Table"
msgstr ""
#: lazdatadeskstr.sunknownconnection
msgid "Unknown connection: %s"
msgstr ""
#: lazdatadeskstr.sunknowndictionary
msgid "Unknown data dictionary: %s"
msgstr ""
#: lazdatadeskstr.susecurrentdict
msgid "Yes, use the active dictionary"
msgstr ""
#: lazdatadeskstr.susenewdict
msgid "No, import in a new dictionary"
msgstr ""
#: lazdatadeskstr.svalue
msgid "Value"
msgstr ""
#: lazdatadeskstr.swhichcurrentdicttouse
msgid "A data dictionary is active.Would you like to import into this data dictionary ?"
msgstr ""

241
tools/lazdatadesktop/lazdatadeskstr.pas Normal file
View File

@ -0,0 +1,241 @@
{ Lazarus Database Desktop Resource Strings
Copyright (C) 2009 Marcelo B Paula
Estes fontes são software livre; você pode redistribuir e/ou modificá-los
sob os termos da GNU Library General Public License como publicada pela Free
Software Foundation; ou a versão 2 da Licença, ou (a sua escolha) qualquer
versão posterior.
Este código é distribuído na esperança de que seja útil, mas SEM
QUALQUER GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE ou
ADEQUAÇÃO A UMA FINALIDADE PARTICULAR. Veja a licença GNU General Public
License para maiores detalhes.
Você deve ter recebido uma cópia da licença GNU Library General Public
License juntamente com esta biblioteca; senão, escreva a Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
}
unit lazdatadeskstr;
{$mode objfpc}{$H+}
interface
resourcestring
// Connection Editor
SNodeTables = 'Tables';
SNodeFields = 'Fields';
SNodeIndexes = 'Indexes';
SNewDictionary = 'New database';
SNodeDataBase = 'Database';
SNodeTableData = 'Table Data';
SNodeIndexOptions = 'Index options: ';
SNodeIndexFields = 'Index fields: ';
SParameter = 'Parameter';
SValue = 'Value';
SEngineType = 'Engine';
SDescription = 'Description';
SColName = 'Name';
SColType = 'Type';
SColSize = 'Size';
SColFields = 'Fields';
SColOptions = 'Options';
SQuery = 'Run query';
SSelectedObject = 'Selected object';
// Dict Editor
SNodeDataDictionary = 'Datadictionary';
SNodeDomains = 'Domains';
SNodeSequences = 'Sequences';
SNodeForeignkeys = 'Foreign keys';
STable = 'Table';
SField = 'Field';
SIndex = 'Index';
SSequence = 'Sequence';
SForeignKey = 'Foreign key';
SDomain = 'Domain';
SNew = 'New %s';
SErrUnknownType = 'Unknown object type: %d';
SNewObject = 'Create new %s';
SNameFor = 'Enter a name for the new %s';
SDeleteObject = 'Delete this %s';
SObject = 'Object';
// Generate SQL statements form
SErrSelectTable = 'No table selected. Please select a table';
SErrSelectFields = 'No fields selected. Please select some fields';
//
sld_Generatesqlstatements = 'Generate SQL statements';
sld_Tableandfields = 'Tables and &Fields';
sld_Select = '&Select';
sld_Insert = '&Insert';
sld_Update = '&Update';
sld_Delete = '&Delete';
sld_Createtable = 'Create table';
sld_Table = 'Ta&ble';
sld_Keyfields = '&Key fields';
sld_Selectupdateinsertfields = 'Select/Update/Insert fields';
sld_Options = 'Options';
sld_Indent = 'I&ndent';
sld_Linelength = 'Line Length';
sld_Createfulltablecreationsql = 'Create full table creation SQL';
sld_Generatesql = 'Generate SQL';
sld_Ok = '&OK';
sld_Cancel = '&Cancel';
// Import/Update datadictionary form
sld_Importupdatedatadictionary = 'Import/Update datadictionary';
sld_Selectall = 'Select &all';
sld_Selectnone = 'Select &none';
sld_Updateexistingtables = 'Update existing tables';
// Select a conection type form
sld_Selectaconnectiontype = 'Select a conection type';
// Connect to a database form
sld_Connecttoadatabase = 'Connect to a database';
sld_Host = 'Host';
sld_Database = 'Database';
sld_Username = 'Username';
sld_Password = 'Password';
sld_Charset = 'Charset';
// Query panel
SSQLFilters = 'SQL files|*.sql|All files|*.*';
SRowsAffected = 'Query executed succesfully: %d rows affected.';
SErrNoEngine = 'No database engine !';
SExecute = 'Execute SQL';
SHintExecute = 'Execute SQL statement';
SPrevious = 'Previous';
SHintPrevious = 'Previous SQL statement';
SNext = 'Next';
SHintNext = 'Next SQL statement';
SLoad = 'Load SQL';
SHintLoad = 'Load SQL statement from file';
SSave = 'Save SQL';
SHintSave = 'Save SQL statement to file';
SClose = 'Close result';
SHintClose = 'Close query result data panel';
SExport = 'Export data';
SHintExport = 'Export this data';
SCreateCode = 'Create code';
SHintCreateCode = 'Create pascal code for this data';
// Main form
SSaveData = 'Save changes';
SDontSave = 'Discard changes';
SDontClose = 'Do not close editor';
SConfirmClose = 'Confirm close';
SDDModified = 'Data dictionary "%s" has changed.'#13#10+
'What do you want to do with the changes?';
SImportDictInto = 'Import datadictionary';
SWhichCurrentDictToUse = 'A data dictionary is active.'+
'Would you like to import into this data dictionary ?';
SUseCurrentDict = 'Yes, use the active dictionary';
SUseNewDict = 'No, import in a new dictionary';
SNewTable = 'Create new table';
SNewTableName = 'Enter a name for the new table:';
SNewSequence = 'Create new sequence';
SNewSequenceName = 'Enter a name for the new sequence:';
SNewDomain = 'Create new domain';
SNewDomainName = 'Enter a name for the new domain:';
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:';
SNewForeignKey = 'Create new foreign key in table %s';
SNewForeignKeyName = 'Enter a name for the new foreign key:';
SSelectDBFDir = 'Select a directory with DBF files';
SNewConnection = 'New connection';
SConnectionDescription = 'Enter a descriptive name for the connection';
SConnectionNameExists = 'There is already a connection named "%s"'#13#10+
'Would you like to override the connection data ?';
SUnknownDictionary = 'Unknown data dictionary: %s';
SUnknownConnection = 'Unknown connection: %s';
SCreateConnection = 'Would you like to create a new connection for this database ?';
//
sld_Lazarusdatabasedesktop = 'Lazarus Database Desktop';
sld_Menufile = '&File';
sld_Menuedit = '&Edit';
sld_Menudictionary = '&Dictionary';
sld_Menuconnections = 'Connections';
sld_Menudictionaryimport = '&Import';
//
sld_Actionsave = '&Save';
sld_ActionsaveH = 'Save Data Dictionary';
sld_Actionnew = '&New';
sld_ActionnewH = 'Create a new Data Dictionary';
sld_Actionexit = 'E&xit';
sld_ActionexitH = 'Quit this program';
sld_Actionopen = '&Open...';
sld_ActionopenH = 'Open a new Data Dictionary';
sld_Actionclose = '&Close';
sld_ActioncloseH = 'Close current Data Dictionary';
sld_Actioncloseall = 'Close &All';
sld_ActioncloseallH = 'Close all Data Dictionaries';
sld_Actionsaveas = 'Save &as';
sld_ActionsaveasH = 'Save datadictionary as';
sld_Actionopenrecentdatadict = 'Open';
sld_ActionopenrecentdatadictH = 'Open selected recent datadictionary';
sld_Actiondeleterecentdatadict= '&Delete';
//
sld_Actioncut = 'Cu&t';
sld_ActioncutH = 'Cut';
sld_Actioncopy = '&Copy';
sld_ActioncopyH = 'Copy';
sld_Actionpaste = '&Paste';
sld_ActionpasteH = 'Paste';
//
sld_Actionnewtable = 'New &table';
sld_ActionnewtableH = 'Create a new table';
sld_Actionnewfield = 'New &field';
sld_ActionnewfieldH = 'Create a new field in the current table';
sld_Actiondeleteobject = 'Delete &Object';
sld_ActiondeleteobjectH = 'Delete the currently selected object';
sld_Actiongeneratesql = '&Generate SQL';
sld_ActiongeneratesqlH = 'Generate SQL statements for the current table';
sld_Actionnewindex = 'New index';
sld_ActionnewindexH = 'Add new index to current table';
sld_Actioncreatecode = 'Create &code';
sld_ActioncreatecodeH = 'Create code from definition or data';
sld_Actionaddsequence = 'New sequence';
sld_ActionaddsequenceH = 'Add a sequence';
sld_Actionaddforeignkey = 'New Foreign Key';
sld_ActionaddforeignkeyH = 'Add a foreign key to the table';
sld_Actionadddomain = 'New domain';
sld_ActionadddomainH = 'Add a domain to the data dictionary';
//
sld_Actionnewconnection = '&New connection';
sld_Actiondeleteconnection = '&Delete connection';
sld_Actioncopyconnection = '&Copy connection';
sld_Actionopenconnection = '&Open connection';
sld_ActionopenconnectionH = 'Open selected recent connection';
//
sld_Separator = '-';
//
sld_Dictionaries = 'Dictionaries';
sld_Connections = 'Connections';
//
sld_Recentlv1 = 'Name';
sld_Recentlv2 = 'Filename';
sld_Recentlv3 = 'Last used on';
//
sld_Connectionlv1 = 'Name';
sld_Connectionlv2 = 'Driver';
sld_Connectionlv3 = 'Last used';
sld_Connectionlv4 = 'Description';
//
sld_opendatadictionarytitle = 'Open data dictionary';
sld_opendatadictionaryfilter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*';
sld_savefileastitle = 'Save file as';
sld_savefileasfilter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*';
//
sld_Fromconnection = 'From connection';
//
implementation
end.

30
tools/lazdatadesktop/lazdatadesktop.lpi
View File

@ -12,7 +12,11 @@
<AutoCreateForms Value="False"/> <AutoCreateForms Value="False"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Title Value="Lazarus Data Desktop"/> <Title Value="Lazarus Data Desktop"/>
<Icon Value="0"/>
</General> </General>
<i18n>
<OutDir Value="languages"/>
</i18n>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@ -26,29 +30,29 @@
</RunParams> </RunParams>
<RequiredPackages Count="7"> <RequiredPackages Count="7">
<Item1> <Item1>
<PackageName Value="lazdatadict"/> <PackageName Value="lazdbexport"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="SynEdit"/> <PackageName Value="RunTimeTypeInfoControls"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="SQLDBLaz"/> <PackageName Value="lazdatadict"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="RunTimeTypeInfoControls"/> <PackageName Value="SynEdit"/>
</Item4> </Item4>
<Item5> <Item5>
<PackageName Value="LCL"/> <PackageName Value="SQLDBLaz"/>
</Item5> </Item5>
<Item6> <Item6>
<PackageName Value="DBFLaz"/> <PackageName Value="LCL"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
</Item6> </Item6>
<Item7> <Item7>
<PackageName Value="lazdbexport"/> <PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
</Item7> </Item7>
</RequiredPackages> </RequiredPackages>
<Units Count="12"> <Units Count="13">
<Unit0> <Unit0>
<Filename Value="lazdatadesktop.lpr"/> <Filename Value="lazdatadesktop.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -70,6 +74,7 @@
<Filename Value="frmimportdd.pp"/> <Filename Value="frmimportdd.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ImportDDform"/> <ComponentName Value="ImportDDform"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmimportdd"/> <UnitName Value="frmimportdd"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -117,6 +122,11 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmselectconnectiontype"/> <UnitName Value="frmselectconnectiontype"/>
</Unit11> </Unit11>
<Unit12>
<Filename Value="lazdatadeskstr.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lazdatadeskstr"/>
</Unit12>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -125,7 +135,7 @@
<Filename Value="lazdatadesktop"/> <Filename Value="lazdatadesktop"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<Libraries Value="/opt/gnome/lib/"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Options> <Options>

13
tools/lazdatadesktop/lazdatadesktop.lpr
View File

@ -7,13 +7,16 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms Forms, LResources
{ add your units here }, frmmain, dicteditor, DBFLaz, { add your units here }, frmmain, dicteditor, DBFLaz, frmimportdd,
frmimportdd, RunTimeTypeInfoControls, frmgeneratesql, SQLDBLaz, frmgeneratesql, SQLDBLaz, lazdatadict, RunTimeTypeInfoControls, frmSQLConnect,
frmSQLConnect, ddfiles, conneditor, datapanel, querypanel, lazdbexport, ddfiles, conneditor, datapanel, querypanel, frmselectconnectiontype,
lazdatadict, frmselectconnectiontype; lazdatadeskstr, lazdbexport;
{$IFDEF WINDOWS}{$R lazdatadesktop.rc}{$ENDIF}
begin begin
{$I lazdatadesktop.lrs}
Application.Title:='Lazarus Data Desktop'; Application.Title:='Lazarus Data Desktop';
Application.Initialize; Application.Initialize;
Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMainForm, MainForm);

5394
tools/lazdatadesktop/lazdatadesktop.lrs Normal file
View File

File diff suppressed because it is too large Load Diff

23
tools/lazdatadesktop/querypanel.pp
View File

@ -27,7 +27,7 @@ interface
uses uses
Classes, SysUtils, DB, fpDatadict, FileUtil, Controls, ExtCtrls, StdCtrls, Classes, SysUtils, DB, fpDatadict, FileUtil, Controls, ExtCtrls, StdCtrls,
ComCtrls, LResources, LCLType, Dialogs, ActnList, datapanel, SynEdit, SynMemo, ComCtrls, LResources, LCLType, Dialogs, ActnList, datapanel, SynEdit, SynMemo,
SynHighlighterSQL; SynHighlighterSQL, lazdatadeskstr;
Type Type
@ -98,27 +98,6 @@ implementation
uses strutils, fpdataexporter, fpcodegenerator; uses strutils, fpdataexporter, fpcodegenerator;
Resourcestring
SSQLFilters = 'SQL files|*.sql|All files|*.*';
SRowsAffected = 'Query executed succesfully: %d rows affected.';
SErrNoEngine = 'No database engine !';
SExecute = 'Execute SQL';
SHintExecute = 'Execute SQL statement';
SPrevious = 'Previous';
SHintPrevious = 'Previous SQL statement';
SNext = 'Next';
SHintNext = 'Next SQL statement';
SLoad = 'Load SQL';
SHintLoad = 'Load SQL statement from file';
SSave = 'Save SQL';
SHintSave = 'Save SQL statement to file';
SClose = 'Close result';
SHintClose = 'Close query result data panel';
SExport = 'Export data';
SHintExport = 'Export this data';
SCreateCode = 'Create code';
SHintCreateCode = 'Create pascal code for this data';
{ TQueryPanel } { TQueryPanel }
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------