paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 23:38:02 +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.lrs svneol=native#text/pascal
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.lpr svneol=native#text/plain
tools/lazdatadesktop/lazdatadesktop.lrs svneol=native#text/plain
tools/lazdatadesktop/querypanel.lrs svneol=native#text/pascal
tools/lazdatadesktop/querypanel.pp svneol=native#text/plain
tools/lazres.lpi svneol=native#text/plain

26
tools/lazdatadesktop/conneditor.pp
View File

@ -26,7 +26,7 @@ interface
uses
Classes, SysUtils, db, fpdatadict, controls, comctrls, stdctrls, extctrls,
graphics, imglist, lresources, RTTIGrids, querypanel;
graphics, imglist, lresources, RTTIGrids, querypanel, lazdatadeskstr;
Type
@ -101,28 +101,6 @@ Const
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
uses typinfo, datapanel;
@ -194,7 +172,7 @@ begin
FTSDisplay:=TTabsheet.Create(Self);
FTSDisplay.Name:='FTSDisplay';
FTSDisplay.parent:=FPC;
FTSDisplay.Caption:=SObject;
FTSDisplay.Caption:=SSelectedObject;
// Query tab sheet
FTSQuery:=TTabsheet.Create(Self);
FTSQuery.Name:='FTSQuery';

15
tools/lazdatadesktop/datapanel.pp
View File

@ -26,7 +26,7 @@ interface
uses
Graphics, Classes, SysUtils, Controls, ExtCtrls, StdCtrls, DB, dbgrids, dbCtrls,
buttons, fpdatadict;
buttons, fpdatadict, lclstrconsts;
Type
@ -159,6 +159,19 @@ begin
FNavigator.Left:=4;
FNavigator.Height:=22;
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;
FExportSB:=TSpeedButton.Create(Self);
FExportSB.Parent:=FTopPanel;

2
tools/lazdatadesktop/ddfiles.pp
View File

@ -3,7 +3,7 @@
*****************************************************************************
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

24
tools/lazdatadesktop/dicteditor.pp
View File

@ -174,29 +174,7 @@ Const
implementation
uses DB, MemDS, fpcodegenerator, TypInfo;
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';
uses DB, MemDS, fpcodegenerator, TypInfo, lazdatadeskstr;
Function ObjectTypeName(ObjectType : TEditObjectType) : String;

126
tools/lazdatadesktop/frmgeneratesql.lfm
View File

@ -1,17 +1,19 @@
object GenerateSQLForm: TGenerateSQLForm
Left = 274
Left = 364
Height = 395
Top = 144
Width = 593
Top = 295
Width = 812
ActiveControl = PCSQL
Caption = 'Generate SQL statements'
ClientHeight = 395
ClientWidth = 593
ClientWidth = 812
OnCreate = FormCreate
LCLVersion = '0.9.25'
LCLVersion = '0.9.27'
object PCSQL: TPageControl
Left = 0
Height = 359
Width = 593
Top = 0
Width = 812
ActivePage = TSFields
Align = alClient
TabIndex = 0
@ -25,15 +27,17 @@ object GenerateSQLForm: TGenerateSQLForm
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.ControlsPerLine = 3
ClientHeight = 326
ClientWidth = 589
ClientHeight = 329
ClientWidth = 804
OnResize = TSResize
object POptions: TPanel
Height = 326
Left = 0
Height = 329
Top = 0
Width = 254
Align = alLeft
BevelOuter = bvNone
ClientHeight = 326
ClientHeight = 329
ClientWidth = 254
Constraints.MinWidth = 180
TabOrder = 0
@ -74,12 +78,11 @@ object GenerateSQLForm: TGenerateSQLForm
end
object CBTables: TComboBox
Left = 4
Height = 21
Height = 25
Top = 26
Width = 238
Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0
ItemHeight = 17
OnChange = CBTablesChange
Sorted = True
Style = csDropDownList
@ -88,7 +91,7 @@ object GenerateSQLForm: TGenerateSQLForm
object BGenerate: TButton
Left = 4
Height = 25
Top = 297
Top = 300
Width = 238
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -99,7 +102,7 @@ object GenerateSQLForm: TGenerateSQLForm
end
object SEindent: TTISpinEdit
Left = 204
Height = 23
Height = 27
Top = 202
Width = 34
Anchors = [akTop, akRight]
@ -108,7 +111,7 @@ object GenerateSQLForm: TGenerateSQLForm
end
object SELineLength: TTISpinEdit
Left = 205
Height = 23
Height = 27
Top = 231
Width = 34
Anchors = [akTop, akRight]
@ -136,7 +139,7 @@ object GenerateSQLForm: TGenerateSQLForm
Left = 6
Height = 21
Top = 257
Width = 190
Width = 197
Caption = 'Create full table creation SQL'
TabOrder = 5
end
@ -146,16 +149,19 @@ object GenerateSQLForm: TGenerateSQLForm
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = PSelectFields
Left = 254
Height = 326
Width = 167
Height = 329
Top = 0
Width = 262
Align = alClient
BevelOuter = bvNone
ClientHeight = 326
ClientWidth = 167
ClientHeight = 329
ClientWidth = 262
TabOrder = 1
object LLBKeyFields: TLabel
Left = 0
Height = 26
Width = 167
Top = 0
Width = 262
Align = alTop
Alignment = taCenter
AutoSize = False
@ -165,28 +171,31 @@ object GenerateSQLForm: TGenerateSQLForm
end
object LBKeyFields: TListBox
Left = 2
Height = 281
Height = 284
Top = 34
Width = 161
Width = 256
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True
Sorted = True
TabOrder = 0
TopIndex = -1
end
end
object PSelectFields: TPanel
Left = 421
Height = 326
Width = 168
Left = 516
Height = 329
Top = 0
Width = 288
Align = alRight
BevelOuter = bvNone
ClientHeight = 326
ClientWidth = 168
ClientHeight = 329
ClientWidth = 288
TabOrder = 2
object Label2: TLabel
Left = 0
Height = 26
Width = 168
Top = 0
Width = 288
Align = alTop
Alignment = taCenter
AutoSize = False
@ -196,26 +205,26 @@ object GenerateSQLForm: TGenerateSQLForm
end
object LBFields: TListBox
Left = 12
Height = 281
Height = 284
Top = 34
Width = 146
Width = 266
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
MultiSelect = True
Sorted = True
TabOrder = 0
TopIndex = -1
end
end
end
object TSSelect: TTabSheet
Caption = '&Select'
ClientHeight = 327
ClientWidth = 593
ClientHeight = 329
ClientWidth = 804
object MSelect: TMemo
Left = 8
Height = 311
Height = 313
Top = 8
Width = 577
Width = 788
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -226,13 +235,13 @@ object GenerateSQLForm: TGenerateSQLForm
end
object TSInsert: TTabSheet
Caption = '&Insert'
ClientHeight = 326
ClientWidth = 589
ClientHeight = 329
ClientWidth = 804
object MInsert: TMemo
Left = 8
Height = 310
Height = 313
Top = 8
Width = 573
Width = 788
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -243,13 +252,13 @@ object GenerateSQLForm: TGenerateSQLForm
end
object TSUpdate: TTabSheet
Caption = '&Update'
ClientHeight = 327
ClientWidth = 593
ClientHeight = 329
ClientWidth = 804
object MUpdate: TMemo
Left = 8
Height = 311
Height = 313
Top = 8
Width = 577
Width = 788
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -260,13 +269,13 @@ object GenerateSQLForm: TGenerateSQLForm
end
object TSDelete: TTabSheet
Caption = '&Delete'
ClientHeight = 327
ClientWidth = 593
ClientHeight = 329
ClientWidth = 804
object MDelete: TMemo
Left = 8
Height = 311
Height = 313
Top = 8
Width = 577
Width = 788
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -277,13 +286,13 @@ object GenerateSQLForm: TGenerateSQLForm
end
object TSCreate: TTabSheet
Caption = 'Create table'
ClientHeight = 327
ClientWidth = 593
ClientHeight = 329
ClientWidth = 804
object MCreate: TMemo
Left = 8
Height = 311
Height = 313
Top = 8
Width = 577
Width = 788
Align = alClient
BorderSpacing.Around = 8
Lines.Strings = (
@ -294,16 +303,17 @@ object GenerateSQLForm: TGenerateSQLForm
end
end
object PButtons: TPanel
Left = 0
Height = 36
Top = 359
Width = 593
Width = 812
Align = alBottom
BevelOuter = bvLowered
ClientHeight = 36
ClientWidth = 593
ClientWidth = 812
TabOrder = 1
object BOK: TButton
Left = 503
Left = 722
Height = 25
Top = 6
Width = 83
@ -314,7 +324,7 @@ object GenerateSQLForm: TGenerateSQLForm
TabOrder = 0
end
object BCancel: TButton
Left = 415
Left = 634
Height = 25
Top = 6
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',[
'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3#18#1#6'Height'#3#139
+#1#3'Top'#3#144#0#5'Width'#3'Q'#2#13'ActiveControl'#7#5'PCSQL'#7'Caption'#6
+#23'Generate SQL statements'#12'ClientHeight'#3#139#1#11'ClientWidth'#3'Q'#2
+#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#12'TPageControl'#5
+'PCSQL'#6'Height'#3'g'#1#5'Width'#3'Q'#2#10'ActivePage'#7#8'TSFields'#5'Alig'
+'n'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#8'OnChange'#7#11'PCSQLChan'
+'ge'#13'OnPageChanged'#7#11'PCSQLChange'#0#9'TTabSheet'#8'TSFields'#7'Captio'
+'n'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHorizontal'#7#14'crsScaleC'
+'hilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScaleChilds'#28'ChildSizing.'
+'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14
+'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#3'F'#1
+#11'ClientWidth'#3'M'#2#8'OnResize'#7#8'TSResize'#0#6'TPanel'#8'POptions'#6
+'Height'#3'F'#1#5'Width'#3#254#0#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvN'
+'one'#12'ClientHeight'#3'F'#1#11'ClientWidth'#3#254#0#20'Constraints.MinWidt'
+'h'#3#180#0#8'TabOrder'#2#0#0#6'TLabel'#9'LCBTables'#4'Left'#2#4#6'Height'#2
+#16#3'Top'#2#5#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+#8'AutoSize'#8#7'Caption'#6#6'Ta&ble'#12'FocusControl'#7#8'CBTables'#11'Pare'
+'ntColor'#8#0#0#6'TLabel'#9'LSEIndent'#4'Left'#2'('#6'Height'#2#20#3'Top'#3
+#205#0#5'Width'#3#150#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'#11#5'ak'
+'Top'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#7'I&ndent'#6'Layout'
+#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#13'LSELineLength'#4'Left'#2'$'
+#6'Height'#2#20#3'Top'#3#234#0#5'Width'#3#154#0#9'Alignment'#7#14'taRightJus'
+'tify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'
+#6#11'Line Length'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#9'TComboBox'
+#8'CBTables'#4'Left'#2#4#6'Height'#2#21#3'Top'#2#26#5'Width'#3#238#0#7'Ancho'
+'rs'#11#5'akTop'#6'akLeft'#7'akRight'#0#16'AutoCompleteText'#11#22'cbactEndO'
+'fLineComplete'#20'cbactSearchAscending'#0#9'MaxLength'#2#0#8'OnChange'#7#14
+'CBTablesChange'#6'Sorted'#9#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0
+#0#7'TButton'#9'BGenerate'#4'Left'#2#4#6'Height'#2#25#3'Top'#3')'#1#5'Width'
+#3#238#0#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.I'
+'nnerBorder'#2#4#7'Caption'#6#13'&Generate SQL'#7'Default'#9#7'OnClick'#7#14
+'BGenerateClick'#8'TabOrder'#2#1#0#0#11'TTISpinEdit'#8'SEindent'#4'Left'#3
+#204#0#6'Height'#2#23#3'Top'#3#202#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7
+'akRight'#0#19'Link.TIPropertyName'#6#6'Indent'#8'TabOrder'#2#2#0#0#11'TTISp'
+'inEdit'#12'SELineLength'#4'Left'#3#205#0#6'Height'#2#23#3'Top'#3#231#0#5'Wi'
+'dth'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyName'#6#10
+'LineLength'#8'TabOrder'#2#3#0#0#13'TTICheckGroup'#10'CLBOptions'#4'Left'#2#6
+#6'Height'#3#144#0#3'Top'#2'2'#5'Width'#3#234#0#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#7'Caption'#6#7'Options'#19'Link.TIPropertyName'#6#7'Optio'
+'ns'#23'Link.AliasValuesStrings'#1#6'.eoLineFeedAfterField=Linefeed after ea'
+'ch field'#6'8eoUseOldInWhereParams=Use OLD prefix in where parameters'#6'2e'
+'oAndTermsInBrackets=Put brackets around AND Terms'#6'#eoQuoteFieldNames=Quo'
+'te field names'#6'/eoLineFeedAfterAndTerm=Linefeed after AND terms'#6#30'eo'
+'AddTerminator=Add terminator'#0#0#0#9'TCheckBox'#17'CBIgnoreSelection'#4'Le'
+'ft'#2#6#6'Height'#2#21#3'Top'#3#1#1#5'Width'#3#190#0#7'Caption'#6#30'Create'
+' full table creation SQL'#8'TabOrder'#2#5#0#0#0#6'TPanel'#10'PKeyFields'#22
+'AnchorSideLeft.Control'#7#8'POptions'#19'AnchorSideLeft.Side'#7#9'asrBottom'
+#23'AnchorSideRight.Control'#7#13'PSelectFields'#4'Left'#3#254#0#6'Height'#3
+'F'#1#5'Width'#3#167#0#5'Align'#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12
+'ClientHeight'#3'F'#1#11'ClientWidth'#3#167#0#8'TabOrder'#2#1#0#6'TLabel'#12
+'LLBKeyFields'#6'Height'#2#26#5'Width'#3#167#0#5'Align'#7#5'alTop'#9'Alignme'
+'nt'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8
+'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'H'
+'eight'#3#25#1#3'Top'#2'"'#5'Width'#3#161#0#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8'To'
+'pIndex'#2#255#0#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#165#1#6'Height'#3
+'F'#1#5'Width'#3#168#0#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'C'
+'lientHeight'#3'F'#1#11'ClientWidth'#3#168#0#8'TabOrder'#2#2#0#6'TLabel'#6'L'
+'abel2'#6'Height'#2#26#5'Width'#3#168#0#5'Align'#7#5'alTop'#9'Alignment'#7#8
+'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert fields'#6'Layo'
+'ut'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBFields'#4'Left'#2#12
+#6'Height'#3#25#1#3'Top'#2'"'#5'Width'#3#146#0#7'Anchors'#11#5'akTop'#6'akLe'
+'ft'#7'akRight'#8'akBottom'#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#8
+'TopIndex'#2#255#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6#7'&Select'#12
,'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MSelect'#4'Left'#2
+#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'Bor'
+'derSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TT'
+'abSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'#3'F'#1#11'Cli'
+'entWidth'#3'M'#2#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3'6'#1#3'Top'#2
+#8#5'Width'#3'='#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Li'
+'nes.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSUpdate'#7'Capti'
+'on'#6#7'&Update'#12'ClientHeight'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7
+'MUpdate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7
+#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrd'
+'er'#2#0#0#0#0#9'TTabSheet'#8'TSDelete'#7'Caption'#6#7'&Delete'#12'ClientHei'
+'ght'#3'G'#1#11'ClientWidth'#3'Q'#2#0#5'TMemo'#7'MDelete'#4'Left'#2#8#6'Heig'
+'ht'#3'7'#1#3'Top'#2#8#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpaci'
+'ng.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'
+#8'TSCreate'#7'Caption'#6#12'Create table'#12'ClientHeight'#3'G'#1#11'Client'
+'Width'#3'Q'#2#0#5'TMemo'#7'MCreate'#4'Left'#2#8#6'Height'#3'7'#1#3'Top'#2#8
+#5'Width'#3'A'#2#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Line'
+'s.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#6'Height'#2
+'$'#3'Top'#3'g'#1#5'Width'#3'Q'#2#5'Align'#7#8'alBottom'#10'BevelOuter'#7#9
+'bvLowered'#12'ClientHeight'#2'$'#11'ClientWidth'#3'Q'#2#8'TabOrder'#2#1#0#7
+'TButton'#3'BOK'#4'Left'#3#247#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'A'
+'nchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#7'Captio'
+'n'#6#3'&Ok'#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#7'TButton'#7'BCancel'#4
+'Left'#3#159#1#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'Anchors'#11#5'akTop'
+#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&'
+'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#0#0
'TPF0'#16'TGenerateSQLForm'#15'GenerateSQLForm'#4'Left'#3'l'#1#6'Height'#3#139
+#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','#3
+#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#12'TPageControl'#5
+'PCSQL'#4'Left'#2#0#6'Height'#3'g'#1#3'Top'#2#0#5'Width'#3','#3#10'ActivePag'
+'e'#7#8'TSFields'#5'Align'#7#8'alClient'#8'TabIndex'#2#0#8'TabOrder'#2#0#8'O'
+'nChange'#7#11'PCSQLChange'#13'OnPageChanged'#7#11'PCSQLChange'#0#9'TTabShee'
+'t'#8'TSFields'#7'Caption'#6#17'Table and &Fields'#29'ChildSizing.EnlargeHor'
+'izontal'#7#14'crsScaleChilds'#27'ChildSizing.EnlargeVertical'#7#14'crsScale'
+'Childs'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
+'g.ShrinkVertical'#7#14'crsScaleChilds'#27'ChildSizing.ControlsPerLine'#2#3
+#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#8'OnResize'#7#8'TSResize'#0#6
+'TPanel'#8'POptions'#4'Left'#2#0#6'Height'#3'I'#1#3'Top'#2#0#5'Width'#3#254#0
+#5'Align'#7#6'alLeft'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'I'#1#11
+'ClientWidth'#3#254#0#20'Constraints.MinWidth'#3#180#0#8'TabOrder'#2#0#0#6'T'
+'Label'#9'LCBTables'#4'Left'#2#4#6'Height'#2#16#3'Top'#2#5#5'Width'#3#238#0#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#6'Ta'
+'&ble'#12'FocusControl'#7#8'CBTables'#11'ParentColor'#8#0#0#6'TLabel'#9'LSEI'
+'ndent'#4'Left'#2'('#6'Height'#2#20#3'Top'#3#205#0#5'Width'#3#150#0#9'Alignm'
+'ent'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'A'
+'utoSize'#8#7'Caption'#6#7'I&ndent'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8
+#0#0#6'TLabel'#13'LSELineLength'#4'Left'#2'$'#6'Height'#2#20#3'Top'#3#234#0#5
+'Width'#3#154#0#9'Alignment'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#6'a'
+'kLeft'#7'akRight'#0#8'AutoSize'#8#7'Caption'#6#11'Line Length'#6'Layout'#7#8
+'tlCenter'#11'ParentColor'#8#0#0#9'TComboBox'#8'CBTables'#4'Left'#2#4#6'Heig'
+'ht'#2#25#3'Top'#2#26#5'Width'#3#238#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'ak'
+'Right'#0#10'ItemHeight'#2#17#8'OnChange'#7#14'CBTablesChange'#6'Sorted'#9#5
+'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#7'TButton'#9'BGenerate'#4'L'
+'eft'#2#4#6'Height'#2#25#3'Top'#3','#1#5'Width'#3#238#0#7'Anchors'#11#6'akLe'
+'ft'#7'akRight'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6
+#13'&Generate SQL'#7'Default'#9#7'OnClick'#7#14'BGenerateClick'#8'TabOrder'#2
+#1#0#0#11'TTISpinEdit'#8'SEindent'#4'Left'#3#204#0#6'Height'#2#27#3'Top'#3
+#202#0#5'Width'#2'"'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Link.TIPropertyN'
+'ame'#6#6'Indent'#8'TabOrder'#2#2#0#0#11'TTISpinEdit'#12'SELineLength'#4'Lef'
+'t'#3#205#0#6'Height'#2#27#3'Top'#3#231#0#5'Width'#2'"'#7'Anchors'#11#5'akTo'
+'p'#7'akRight'#0#19'Link.TIPropertyName'#6#10'LineLength'#8'TabOrder'#2#3#0#0
+#13'TTICheckGroup'#10'CLBOptions'#4'Left'#2#6#6'Height'#3#144#0#3'Top'#2'2'#5
+'Width'#3#234#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#7
+'Options'#19'Link.TIPropertyName'#6#7'Options'#23'Link.AliasValuesStrings'#1
+#6'.eoLineFeedAfterField=Linefeed after each field'#6'8eoUseOldInWhereParams'
+'=Use OLD prefix in where parameters'#6'2eoAndTermsInBrackets=Put brackets a'
+'round AND Terms'#6'#eoQuoteFieldNames=Quote field names'#6'/eoLineFeedAfter'
+'AndTerm=Linefeed after AND terms'#6#30'eoAddTerminator=Add terminator'#0#0#0
+#9'TCheckBox'#17'CBIgnoreSelection'#4'Left'#2#6#6'Height'#2#21#3'Top'#3#1#1#5
+'Width'#3#197#0#7'Caption'#6#30'Create full table creation SQL'#8'TabOrder'#2
+#5#0#0#0#6'TPanel'#10'PKeyFields'#22'AnchorSideLeft.Control'#7#8'POptions'#19
+'AnchorSideLeft.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#13'PSelec'
+'tFields'#4'Left'#3#254#0#6'Height'#3'I'#1#3'Top'#2#0#5'Width'#3#6#1#5'Align'
+#7#8'alClient'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#3'I'#1#11'ClientW'
+'idth'#3#6#1#8'TabOrder'#2#1#0#6'TLabel'#12'LLBKeyFields'#4'Left'#2#0#6'Heig'
+'ht'#2#26#3'Top'#2#0#5'Width'#3#6#1#5'Align'#7#5'alTop'#9'Alignment'#7#8'taC'
+'enter'#8'AutoSize'#8#7'Caption'#6#11'&Key fields'#6'Layout'#7#8'tlCenter'#11
+'ParentColor'#8#0#0#8'TListBox'#11'LBKeyFields'#4'Left'#2#2#6'Height'#3#28#1
+#3'Top'#2'"'#5'Width'#3#0#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'ak'
+'Bottom'#0#10'ItemHeight'#2#0#11'MultiSelect'#9#6'Sorted'#9#8'TabOrder'#2#0#0
+#0#0#6'TPanel'#13'PSelectFields'#4'Left'#3#4#2#6'Height'#3'I'#1#3'Top'#2#0#5
+'Width'#3' '#1#5'Align'#7#7'alRight'#10'BevelOuter'#7#6'bvNone'#12'ClientHei'
+'ght'#3'I'#1#11'ClientWidth'#3' '#1#8'TabOrder'#2#2#0#6'TLabel'#6'Label2'#4
+'Left'#2#0#6'Height'#2#26#3'Top'#2#0#5'Width'#3' '#1#5'Align'#7#5'alTop'#9'A'
+'lignment'#7#8'taCenter'#8'AutoSize'#8#7'Caption'#6#27'Select/Update/Insert '
+'fields'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#8'TListBox'#8'LBField'
+'s'#4'Left'#2#12#6'Height'#3#28#1#3'Top'#2'"'#5'Width'#3#10#1#7'Anchors'#11#5
+'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#10'ItemHeight'#2#0#11'MultiSelect'
+#9#6'Sorted'#9#8'TabOrder'#2#0#0#0#0#0#9'TTabSheet'#8'TSSelect'#7'Caption'#6
,#7'&Select'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MSel'
+'ect'#4'Left'#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'a'
+'lClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'
+#2#0#0#0#0#9'TTabSheet'#8'TSInsert'#7'Caption'#6#7'&Insert'#12'ClientHeight'
+#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MInsert'#4'Left'#2#8#6'Height'#3
+'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Aro'
+'und'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSU'
+'pdate'#7'Caption'#6#7'&Update'#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'
+#3#0#5'TMemo'#7'MUpdate'#4'Left'#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3
+#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8#13'Lines.Strings'#1
+#6#0#0#8'TabOrder'#2#0#0#0#0#9'TTabSheet'#8'TSDelete'#7'Caption'#6#7'&Delete'
+#12'ClientHeight'#3'I'#1#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MDelete'#4'Left'
+#2#8#6'Height'#3'9'#1#3'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'B'
+'orderSpacing.Around'#2#8#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#9
+'TTabSheet'#8'TSCreate'#7'Caption'#6#12'Create table'#12'ClientHeight'#3'I'#1
+#11'ClientWidth'#3'$'#3#0#5'TMemo'#7'MCreate'#4'Left'#2#8#6'Height'#3'9'#1#3
+'Top'#2#8#5'Width'#3#20#3#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#8
+#13'Lines.Strings'#1#6#0#0#8'TabOrder'#2#0#0#0#0#0#6'TPanel'#8'PButtons'#4'L'
+'eft'#2#0#6'Height'#2'$'#3'Top'#3'g'#1#5'Width'#3','#3#5'Align'#7#8'alBottom'
+#10'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'$'#11'ClientWidth'#3','#3#8
+'TabOrder'#2#1#0#7'TButton'#3'BOK'#4'Left'#3#210#2#6'Height'#2#25#3'Top'#2#6
+#5'Width'#2'S'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBor'
+'der'#2#4#7'Caption'#6#3'&Ok'#11'ModalResult'#2#1#8'TabOrder'#2#0#0#0#7'TBut'
+'ton'#7'BCancel'#4'Left'#3'z'#2#6'Height'#2#25#3'Top'#2#6#5'Width'#2'S'#7'An'
+'chors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'
+#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
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
ExtCtrls, Buttons, StdCtrls, Spin, RTTICtrls, fpdatadict;
ExtCtrls, Buttons, StdCtrls, {Spin,} RTTICtrls, fpdatadict, lazdatadeskstr;
type
@ -101,10 +101,6 @@ var
implementation
{ TGenerateSQLForm }
ResourceString
SErrSelectTable = 'No table selected. Please select a table';
SErrSelectFields = 'No fields selected. Please select some fields';
procedure TGenerateSQLForm.TSResize(Sender: TObject);
@ -287,6 +283,25 @@ end;
procedure TGenerateSQLForm.FormCreate(Sender: TObject);
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;
CLBOptions.Link.TIObject:=FGenerator;
SEIndent.Link.TIObject:=FGenerator;

44
tools/lazdatadesktop/frmimportdd.lfm
View File

@ -1,28 +1,28 @@
object ImportDDform: TImportDDform
Left = 368
Height = 300
Height = 375
Top = 279
Width = 369
HorzScrollBar.Page = 368
VertScrollBar.Page = 299
Width = 508
ActiveControl = LBItems
Caption = 'Import/Update datadictionary'
ClientHeight = 300
ClientWidth = 369
ClientHeight = 375
ClientWidth = 508
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '0.9.27'
object LBItems: TCheckListBox
Left = 8
Height = 249
Height = 324
Top = 8
Width = 248
Width = 387
Anchors = [akTop, akLeft, akRight, akBottom]
ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
object BOK: TButton
Left = 264
Left = 403
Height = 25
Top = 263
Top = 338
Width = 98
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -32,9 +32,9 @@ object ImportDDform: TImportDDform
TabOrder = 1
end
object BCancel: TButton
Left = 264
Left = 403
Height = 25
Top = 232
Top = 307
Width = 101
Anchors = [akRight, akBottom]
BorderSpacing.InnerBorder = 4
@ -44,7 +44,7 @@ object ImportDDform: TImportDDform
TabOrder = 2
end
object BSelectNone: TButton
Left = 264
Left = 403
Height = 25
Top = 40
Width = 98
@ -54,7 +54,7 @@ object ImportDDform: TImportDDform
TabOrder = 3
end
object BSelectAll: TButton
Left = 264
Left = 403
Height = 25
Top = 8
Width = 98
@ -64,27 +64,25 @@ object ImportDDform: TImportDDform
TabOrder = 4
end
object CBUpdateExisting: TCheckBox
Left = 9
Height = 22
Top = 263
Width = 167
Left = 8
Height = 21
Top = 338
Width = 155
Caption = 'Update existing tables'
Checked = True
State = cbChecked
TabOrder = 5
end
object ActionList1: TActionList
left = 106
top = 297
left = 440
top = 120
object ASelectNone: TAction
Caption = 'Select &none'
DisableIfNoHandler = True
OnExecute = DoSelection
OnUpdate = HaveItems
end
object ASelectAll: TAction
Caption = 'Select &all'
DisableIfNoHandler = True
OnExecute = DoSelection
OnUpdate = HaveItems
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',[
'TPF0'#13'TImportDDform'#12'ImportDDform'#4'Left'#3'p'#1#6'Height'#3','#1#3'T'
+'op'#3#23#1#5'Width'#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.P'
+'age'#3'+'#1#13'ActiveControl'#7#7'LBItems'#7'Caption'#6#28'Import/Update da'
+'tadictionary'#12'ClientHeight'#3','#1#11'ClientWidth'#3'q'#1#6'OnShow'#7#8
+'FormShow'#0#13'TCheckListBox'#7'LBItems'#4'Left'#2#8#6'Height'#3#249#0#3'To'
+'p'#2#8#5'Width'#3#248#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBot'
+'tom'#0#8'TabOrder'#2#0#8'TopIndex'#2#255#0#0#7'TButton'#3'BOK'#4'Left'#3#8#1
+#6'Height'#2#25#3'Top'#3#7#1#5'Width'#2'b'#7'Anchors'#11#7'akRight'#8'akBott'
+'om'#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
+'Height'#2#25#3'Top'#3#232#0#5'Width'#2'e'#7'Anchors'#11#7'akRight'#8'akBott'
+'om'#0#25'BorderSpacing.InnerBorder'#2#4#6'Cancel'#9#7'Caption'#6#7'&Cancel'
'TPF0'#13'TImportDDform'#12'ImportDDform'#4'Left'#3'p'#1#6'Height'#3'w'#1#3'T'
+'op'#3#23#1#5'Width'#3#252#1#13'ActiveControl'#7#7'LBItems'#7'Caption'#6#28
+'Import/Update datadictionary'#12'ClientHeight'#3'w'#1#11'ClientWidth'#3#252
+#1#8'OnCreate'#7#10'FormCreate'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0'
+'.9.27'#0#13'TCheckListBox'#7'LBItems'#4'Left'#2#8#6'Height'#3'D'#1#3'Top'#2
+#8#5'Width'#3#131#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0
+#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#7'TButton'#3'BOK'#4'Left'#3#147#1#6
+'Height'#2#25#3'Top'#3'R'#1#5'Width'#2'b'#7'Anchors'#11#7'akRight'#8'akBotto'
+'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#147#1#6
+'Height'#2#25#3'Top'#3'3'#1#5'Width'#2'e'#7'Anchors'#11#7'akRight'#8'akBotto'
+'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
+#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'
+'der'#2#3#0#0#7'TButton'#10'BSelectAll'#4'Left'#3#8#1#6'Height'#2#25#3'Top'#2
+#8#5'Width'#2'b'#6'Action'#7#10'ASelectAll'#7'Anchors'#11#5'akTop'#7'akRight'
+#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#9'TCheckBox'#16'CBU'
+'pdateExisting'#4'Left'#2#9#6'Height'#2#22#3'Top'#3#7#1#5'Width'#3#167#0#7'C'
+'aption'#6#22'Update existing tables'#7'Checked'#9#5'State'#7#9'cbChecked'#8
+'TabOrder'#2#5#0#0#11'TActionList'#11'ActionList1'#4'left'#2'j'#3'top'#3')'#1
+#0#7'TAction'#11'ASelectNone'#7'Caption'#6#12'Select &none'#18'DisableIfNoHa'
+'ndler'#9#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#0#0#7'TA'
+'ction'#10'ASelectAll'#7'Caption'#6#11'Select &all'#18'DisableIfNoHandler'#9
+#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#8'ShortCut'#3'A@'
+#0#0#0#0
+'der'#2#3#0#0#7'TButton'#10'BSelectAll'#4'Left'#3#147#1#6'Height'#2#25#3'Top'
+#2#8#5'Width'#2'b'#6'Action'#7#10'ASelectAll'#7'Anchors'#11#5'akTop'#7'akRig'
+'ht'#0#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#9'TCheckBox'#16
+'CBUpdateExisting'#4'Left'#2#8#6'Height'#2#21#3'Top'#3'R'#1#5'Width'#3#155#0
+#7'Caption'#6#22'Update existing tables'#7'Checked'#9#5'State'#7#9'cbChecked'
+#8'TabOrder'#2#5#0#0#11'TActionList'#11'ActionList1'#4'left'#3#184#1#3'top'#2
+'x'#0#7'TAction'#11'ASelectNone'#7'Caption'#6#12'Select &none'#9'OnExecute'#7
+#11'DoSelection'#8'OnUpdate'#7#9'HaveItems'#0#0#7'TAction'#10'ASelectAll'#7
+'Caption'#6#11'Select &all'#9'OnExecute'#7#11'DoSelection'#8'OnUpdate'#7#9'H'
+'aveItems'#8'ShortCut'#3'A@'#0#0#0#0
]);

15
tools/lazdatadesktop/frmimportdd.pp
View File

@ -26,7 +26,7 @@ interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, CheckLst,
Buttons, ActnList,fpdatadict, StdCtrls;
Buttons, ActnList,fpdatadict, StdCtrls, lazdatadeskstr;
type
@ -43,6 +43,7 @@ type
CBUpdateExisting: TCheckBox;
LBItems: TCheckListBox;
procedure DoSelection(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HaveItems(Sender: TObject);
private
@ -95,6 +96,18 @@ begin
SelectItems(Sender=ASelectAll);
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);
begin
SelectItems(True);

138
tools/lazdatadesktop/frmmain.lfm
View File

@ -1,12 +1,12 @@
object MainForm: TMainForm
Left = 570
Height = 374
Top = 141
Width = 487
Left = 450
Height = 480
Top = 226
Width = 666
ActiveControl = PCDD
Caption = 'Lazarus Database Desktop'
ClientHeight = 352
ClientWidth = 487
ClientHeight = 455
ClientWidth = 666
Menu = MainMenu1
OnClose = FormClose
OnCloseQuery = FormCloseQuery
@ -20,10 +20,9 @@ object MainForm: TMainForm
Left = 0
Height = 26
Top = 0
Width = 487
Width = 666
ButtonHeight = 24
ButtonWidth = 24
Caption = 'TBMain'
Images = ILMain
ParentShowHint = False
ShowHint = True
@ -36,6 +35,8 @@ object MainForm: TMainForm
object TBOPen: TToolButton
Left = 25
Top = 2
HelpType = htKeyword
HelpKeyword = 'Open a new Data Dictionary'
Action = AOpen
end
object TBNew: TToolButton
@ -47,7 +48,6 @@ object MainForm: TMainForm
Left = 73
Top = 2
Width = 15
Caption = 'ToolButton1'
Style = tbsSeparator
end
object TBNewTable: TToolButton
@ -64,12 +64,10 @@ object MainForm: TMainForm
Left = 232
Top = 2
Width = 16
Caption = 'ToolButton2'
Style = tbsSeparator
end
object TBDeleteTable: TToolButton
Left = 248
Hint = 'Delete the selected object'
Top = 2
Action = ADeleteObject
end
@ -77,7 +75,6 @@ object MainForm: TMainForm
Left = 272
Top = 2
Width = 15
Caption = 'ToolButton3'
Style = tbsSeparator
end
object TBGenerateSQL: TToolButton
@ -113,22 +110,22 @@ object MainForm: TMainForm
end
object PCDD: TPageControl
Left = 0
Height = 306
Height = 409
Top = 26
Width = 487
Width = 666
ActivePage = TSRecent
Align = alClient
TabIndex = 0
TabOrder = 1
object TSRecent: TTabSheet
Caption = 'Dictionaries'
ClientHeight = 278
ClientWidth = 483
ClientHeight = 379
ClientWidth = 658
object LVDicts: TListView
Left = 0
Height = 278
Height = 379
Top = 0
Width = 483
Width = 658
Align = alClient
Columns = <
item
@ -136,7 +133,7 @@ object MainForm: TMainForm
Width = 10
end
item
Caption = 'FileName'
Caption = 'Filename'
Width = 10
end
item
@ -154,13 +151,13 @@ object MainForm: TMainForm
end
object TSConnections: TTabSheet
Caption = 'Connections'
ClientHeight = 278
ClientWidth = 483
ClientHeight = 379
ClientWidth = 658
object LVConnections: TListView
Left = 0
Height = 278
Height = 379
Top = 0
Width = 483
Width = 658
Align = alClient
Columns = <
item
@ -173,10 +170,11 @@ object MainForm: TMainForm
end
item
Caption = 'Last used'
Width = 150
end
item
Caption = 'Description'
Width = 217
Width = 260
end>
PopupMenu = PMRecentConnections
ReadOnly = True
@ -192,12 +190,12 @@ object MainForm: TMainForm
object PStatus: TPanel
Left = 0
Height = 20
Top = 332
Width = 487
Top = 435
Width = 666
Align = alBottom
BevelOuter = bvNone
ClientHeight = 20
ClientWidth = 487
ClientWidth = 666
TabOrder = 2
Visible = False
object PBSTatus: TProgressBar
@ -212,7 +210,7 @@ object MainForm: TMainForm
Left = 128
Height = 20
Top = 0
Width = 359
Width = 538
Align = alClient
Alignment = taLeftJustify
BevelOuter = bvLowered
@ -221,8 +219,8 @@ object MainForm: TMainForm
end
object MainMenu1: TMainMenu
Images = ILMain
left = 18
top = 79
left = 40
top = 80
object MFIle: TMenuItem
Caption = '&File'
object MenuItem1: TMenuItem
@ -751,7 +749,7 @@ object MainForm: TMainForm
}
OnClick = AGenerateSQLExecute
end
object MIDeleteField: TMenuItem
object MICreateCode: TMenuItem
Action = ACreateCode
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -795,7 +793,8 @@ object MainForm: TMainForm
object MIConnection: TMenuItem
Caption = 'Connections'
object MINewConnection: TMenuItem
Caption = 'New'
Action = ANewConnection
OnClick = ANewConnectionExecute
end
object MIOpenRecentConnection: TMenuItem
Action = AOpenConnection
@ -809,8 +808,8 @@ object MainForm: TMainForm
end
object ALMain: TActionList
Images = ILMain
left = 88
top = 128
left = 104
top = 136
object ASave: TAction
Category = 'File'
Caption = '&Save'
@ -839,7 +838,7 @@ object MainForm: TMainForm
object AOpen: TAction
Category = 'File'
Caption = '&Open...'
Hint = 'Open a new Data Dictionary'
HelpKeyword = 'Open a new Data Dictionary'
ImageIndex = 0
OnExecute = AOpenExecute
ShortCut = 16463
@ -963,7 +962,7 @@ object MainForm: TMainForm
end
object AAddForeignKey: TAction
Category = 'Dictionary'
Caption = 'New Foreign Key'
Caption = 'New Foreign key'
Hint = 'Add a foreign key to the table'
ImageIndex = 12
OnExecute = AAddForeignKeyExecute
@ -999,8 +998,8 @@ object MainForm: TMainForm
end
end
object ILMain: TImageList
left = 47
top = 123
left = 43
top = 136
Bitmap = {
4C690F0000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00EAC39DFFE6BF96FFE4BB92FFE4BB92FFD1A06CFFD09E6DFFCC96
@ -1486,32 +1485,29 @@ object MainForm: TMainForm
}
end
object ODDD: TOpenDialog
Title = 'Open data dictionary'
DefaultExt = '.fpd'
Filter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*'
FilterIndex = 0
Options = [ofReadOnly, ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 64
top = 79
left = 104
top = 80
end
object PSMain: TIniPropStorage
StoredValues = <>
IniFileName = 'lazdde'
IniSection = 'main'
left = 43
top = 192
left = 160
top = 136
end
object SDDD: TSaveDialog
DefaultExt = '.fpd'
Filter = 'Data dictionary files|*.fpd|Ini files|*.ini|All files|*.*'
FilterIndex = 0
left = 184
top = 112
left = 160
top = 80
end
object PMRecentConnections: TPopupMenu
Images = ILMain
left = 121
top = 163
left = 160
top = 200
object PMIOpenConnection: TMenuItem
Action = AOpenConnection
OnClick = OpenRecentConnection
@ -1527,15 +1523,55 @@ object MainForm: TMainForm
end
object PMDataDict: TPopupMenu
Images = ILMain
left = 158
top = 161
left = 43
top = 200
object PMIOpenDataDict: TMenuItem
Action = AOpenRecentDatadict
OnClick = OpenRecentDatadict
end
object PMINewDataDict: TMenuItem
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
end
object MenuItem8: TMenuItem
Action = ADeleteRecentDataDict
OnClick = ADeleteRecentDataDictExecute
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
Classes, SysUtils, LResources, FileUtil, Forms, Controls, Graphics, Dialogs,
Menus, ActnList, StdActns, ComCtrls, dicteditor, fpdatadict, IniPropStorage,
conneditor, LCLType, RTTICtrls, ExtCtrls, StdCtrls, ddfiles;
conneditor, LCLType, RTTICtrls, ExtCtrls, {StdCtrls,} ddfiles, LCLProc,
Translations, lazdatadeskstr;
type
TEngineMenuItem = Class(TMenuItem)
@ -84,6 +85,8 @@ type
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MICreateCode: TMenuItem;
PMINewConnection: TMenuItem;
PMINewDataDict: TMenuItem;
PMIOpenDataDict: TMenuItem;
@ -96,7 +99,6 @@ type
MISaveAs: TMenuItem;
MIGenerateSQL: TMenuItem;
MIDDSep3: TMenuItem;
MIDeleteField: TMenuItem;
MIDeleteTable: TMenuItem;
MIDDSep2: TMenuItem;
MINewField: TMenuItem;
@ -188,7 +190,6 @@ type
procedure OpenRecentDatadict(Sender: TObject);
procedure LVDictsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MIDataDictClick(Sender: TObject);
procedure PCDDChange(Sender: TObject);
procedure SaveAsExecute(Sender: TObject);
private
FRecentDicts : TRecentDataDicts;
@ -270,40 +271,6 @@ uses
fpddodbc, // Any ODBC supported
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
---------------------------------------------------------------------}
@ -333,30 +300,116 @@ Var
FN : String;
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.
RegisterDDEngines;
// Register standard export formats.
RegisterStdFormats;
FRecentDicts:=TRecentDataDicts.Create(TRecentDataDict);
FRecentConnections:=TRecentConnections.Create(TRecentConnection);
FN:=GetAppConfigDirUTF8(False);
FN:=SysToUTF8(GetAppConfigDir(False));
ForceDirectoriesUTF8(FN);
FN:=GetAppConfigFile(False);
FN:=SysToUTF8(GetAppConfigFile(False));
FRecentDicts.LoadFromFile(UTF8ToSys(FN),'RecentDicts');
FRecentConnections.LoadFromFile(UTF8ToSys(FN),'RecentConnections');
ShowRecentDictionaries;
ShowRecentConnections;
ShowDDImports;
ShowNewConnectionTypes;
PSMain.IniFileName:=ChangeFileExt(FN,'.ini');
LVDicts.Columns[0].Width:=150;
LVDicts.Columns[1].Width:=150;
PSMain.IniFileName:=ChangeFileExt(UTF8ToSys(FN),'.ini');
LVDicts.Columns[0].Width:=120;
LVDicts.Columns[1].Width:=380;
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;
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
FreeAndNil(FRecentConnections);
FreeAndNil(FRecentDicts);
end;
@ -571,7 +624,7 @@ begin
If (FRecentConnections.Count>0) then
begin
MR:=TMenuItem.Create(Self);
MR.Caption:='From connection';
MR.Caption:=sld_Fromconnection;
MIimport.Insert(0,MR);
L:=TStringList.Create;
Try
@ -759,6 +812,7 @@ begin
end;
end;
procedure TMainForm.ACreateCodeUpdate(Sender: TObject);
Var
@ -1088,7 +1142,8 @@ Var
begin
CE:=CurrentConnection;
CE.DisConnect;
Application.ReleaseComponent(ce);
Application.ReleaseComponent(CE);
CE.Free;
Result:=mrOK;
end;
@ -1348,11 +1403,6 @@ begin
ShowDDImports;
end;
procedure TMainForm.PCDDChange(Sender: TObject);
begin
end;
Function TMainForm.FindLi(LV : TListView;RI : TRecentItem) : TListItem;
@ -1466,8 +1516,6 @@ begin
end;
procedure TMainForm.NewConnection(EngineName : String);
Var
DDE : TFPDDengine;
CDE : TConnectionEditor;
@ -1525,9 +1573,43 @@ begin
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
{$I frmmain.lrs}
TranslateStrs;
end.

7
tools/lazdatadesktop/frmselectconnectiontype.lfm
View File

@ -10,18 +10,17 @@ object SelectConnectionTypeForm: TSelectConnectionTypeForm
LCLVersion = '0.9.27'
object LBConnections: TListBox
Left = 0
Height = 191
Height = 194
Top = 0
Width = 335
Align = alClient
ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
object BPConnections: TButtonPanel
Left = 6
Height = 38
Top = 197
Height = 35
Top = 200
Width = 323
TabOrder = 1
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'
+'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'
+'ctions'#4'Left'#2#0#6'Height'#3#191#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'
+'ttonPanel'#13'BPConnections'#4'Left'#2#6#6'Height'#2'&'#3'Top'#3#197#0#5'Wi'
+'dth'#3'C'#1#8'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#0#0#0
+'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#0#0#12'TButtonPanel'#13'BPCo'
+'nnections'#4'Left'#2#6#6'Height'#2'#'#3'Top'#3#200#0#5'Width'#3'C'#1#8'TabO'
+'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
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ButtonPanel;
StdCtrls, ButtonPanel, lazdatadeskstr;
type
@ -54,6 +54,9 @@ Var
cap : TFPDDEngineCapabilities;
begin
//
Caption := sld_Selectaconnectiontype;
//
L:=TStringList.Create;
try
GetDictionaryEngineList(L);

75
tools/lazdatadesktop/frmsqlconnect.lfm
View File

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

64
tools/lazdatadesktop/frmsqlconnect.lrs
View File

@ -1,36 +1,36 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TSQLConnectionForm','FORMDATA',[
'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'
+'rderIcons'#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
+'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'LEHostName'#4'Left'#2#8#6'Height'#2
+#23#3'Top'#2#15#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8
+#7'Caption'#6#5'&Host'#12'FocusControl'#7#9'EHostName'#6'Layout'#7#8'tlCente'
+'r'#11'ParentColor'#8#0#0#6'TLabel'#14'LEDatabaseName'#4'Left'#2#8#6'Height'
+#2#23#3'Top'#2'+'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'AutoSize'
+#8#7'Caption'#6#9'&Database'#12'FocusControl'#7#13'EDatabaseName'#6'Layout'#7
+#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LEUserName'#4'Left'#2#8#6'He'
+'ight'#2#23#3'Top'#2'J'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8'Au'
+'toSize'#8#7'Caption'#6#9'&Username'#12'FocusControl'#7#9'EUserName'#6'Layou'
+'t'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#10'LEPassword'#4'Left'#2#8
+#6'Height'#2#23#3'Top'#2'i'#5'Width'#2'J'#9'Alignment'#7#14'taRightJustify'#8
+'AutoSize'#8#7'Caption'#6#9'&Password'#12'FocusControl'#7#9'EPassword'#6'Lay'
+'out'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#8'LCharset'#4'Left'#2'$'
+#6'Height'#2#21#3'Top'#3#143#0#5'Width'#2'.'#9'Alignment'#7#14'taRightJustif'
+'y'#8'AutoSize'#8#7'Caption'#6#8'&Charset'#12'FocusControl'#7#8'ECharset'#6
+'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#5'TEdit'#9'EHostName'#4'Left'#2
+'Y'#6'Height'#2#24#3'Top'#2#15#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#8'TabOrder'#2#0#0#0#5'TEdit'#13'EDatabaseName'#4'Left'#2
+'Y'#6'Height'#2#24#3'Top'#2'+'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'EUserName'#4'Left'#2'Y'#6
+'Height'#2#24#3'Top'#2'J'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#8'TabOrder'#2#2#0#0#5'TEdit'#9'EPassword'#4'Left'#2'Y'#6'Height'
+#2#24#3'Top'#2'i'#5'Width'#3#247#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
+'t'#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1'*'#8'TabOrder'#2#3#0
+#0#12'TButtonPanel'#9'BPButtons'#4'Left'#2#6#6'Height'#2'&'#3'Top'#3#171#0#5
+'Width'#3'M'#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#0#0#0#5
+'TEdit'#8'ECharset'#4'Left'#2'\'#6'Height'#2#24#3'Top'#3#140#0#5'Width'#2'T'
+#8'TabOrder'#2#5#0#0#0
'TPF0'#18'TSQLConnectionForm'#17'SQLConnectionForm'#4'Left'#3'#'#2#6'Height'#3
+#215#0#3'Top'#3#198#1#5'Width'#3#139#1#13'ActiveControl'#7#9'EHostName'#11'B'
+'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#139#1#8
+'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'LEHost'
+'Name'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#6#5'Width'#2'a'#9'Alignment'#7#14
+'taRightJustify'#8'AutoSize'#8#7'Caption'#6#5'&Host'#12'FocusControl'#7#9'EH'
+'ostName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'#14'LEDatab'
+'aseName'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'('#5'Width'#2'a'#9'Alignment'#7
+#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Database'#12'FocusControl'
+#7#13'EDatabaseName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLabel'
+#10'LEUserName'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'a'#9'Align'
+'ment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Username'#12'Focus'
+'Control'#7#9'EUserName'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6'TLa'
+'bel'#10'LEPassword'#4'Left'#2#8#6'Height'#2#23#3'Top'#2'h'#5'Width'#2'a'#9
+'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#9'&Password'#12
+'FocusControl'#7#9'EPassword'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#6
+'TLabel'#8'LCharset'#4'Left'#2','#6'Height'#2#21#3'Top'#3#139#0#5'Width'#2'<'
+#9'Alignment'#7#14'taRightJustify'#8'AutoSize'#8#7'Caption'#6#8'&Charset'#12
+'FocusControl'#7#8'ECharset'#6'Layout'#7#8'tlCenter'#11'ParentColor'#8#0#0#5
+'TEdit'#9'EHostName'#4'Left'#2'p'#6'Height'#2#27#3'Top'#2#6#5'Width'#3#18#1#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#0#0#5'TEdit'#13
+'EDatabaseName'#4'Left'#2'p'#6'Height'#2#27#3'Top'#2'('#5'Width'#3#18#1#7'An'
+'chors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'EU'
+'serName'#4'Left'#2'q'#6'Height'#2#27#3'Top'#2'H'#5'Width'#3#17#1#7'Anchors'
+#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#2#0#0#5'TEdit'#9'EPassword'
+#4'Left'#2'p'#6'Height'#2#27#3'Top'#2'h'#5'Width'#3#18#1#7'Anchors'#11#5'akT'
+'op'#6'akLeft'#7'akRight'#0#8'EchoMode'#7#10'emPassword'#12'PasswordChar'#6#1
+'*'#8'TabOrder'#2#3#0#0#12'TButtonPanel'#9'BPButtons'#4'Left'#2#6#6'Height'#2
+'#'#3'Top'#3#174#0#5'Width'#3''#1#8'TabOrder'#2#4#11'ShowButtons'#11#4'pbOK'
+#8'pbCancel'#0#0#0#5'TEdit'#8'ECharset'#4'Left'#2'p'#6'Height'#2#27#3'Top'#3
+#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
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, ExtCtrls, ComCtrls, ButtonPanel;
Buttons, ExtCtrls, ComCtrls, ButtonPanel, lazdatadeskstr;
type
@ -44,6 +44,7 @@ type
LEPassword: TLabel;
LEHostName: TLabel;
LEDatabaseName: TLabel;
procedure FormCreate(Sender: TObject);
private
function GetShowHost: Boolean;
function GetString(Index: integer): String;
@ -110,6 +111,18 @@ begin
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;
begin
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"/>
<TargetFileExt Value=".exe"/>
<Title Value="Lazarus Data Desktop"/>
<Icon Value="0"/>
</General>
<i18n>
<OutDir Value="languages"/>
</i18n>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
@ -26,29 +30,29 @@
</RunParams>
<RequiredPackages Count="7">
<Item1>
<PackageName Value="lazdatadict"/>
<PackageName Value="lazdbexport"/>
</Item1>
<Item2>
<PackageName Value="SynEdit"/>
<PackageName Value="RunTimeTypeInfoControls"/>
</Item2>
<Item3>
<PackageName Value="SQLDBLaz"/>
<PackageName Value="lazdatadict"/>
</Item3>
<Item4>
<PackageName Value="RunTimeTypeInfoControls"/>
<PackageName Value="SynEdit"/>
</Item4>
<Item5>
<PackageName Value="LCL"/>
<PackageName Value="SQLDBLaz"/>
</Item5>
<Item6>
<PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
<PackageName Value="LCL"/>
</Item6>
<Item7>
<PackageName Value="lazdbexport"/>
<PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
</Item7>
</RequiredPackages>
<Units Count="12">
<Units Count="13">
<Unit0>
<Filename Value="lazdatadesktop.lpr"/>
<IsPartOfProject Value="True"/>
@ -70,6 +74,7 @@
<Filename Value="frmimportdd.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="ImportDDform"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmimportdd"/>
</Unit3>
<Unit4>
@ -117,6 +122,11 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="frmselectconnectiontype"/>
</Unit11>
<Unit12>
<Filename Value="lazdatadeskstr.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lazdatadeskstr"/>
</Unit12>
</Units>
</ProjectOptions>
<CompilerOptions>
@ -125,7 +135,7 @@
<Filename Value="lazdatadesktop"/>
</Target>
<SearchPaths>
<Libraries Value="/opt/gnome/lib/"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Options>

13
tools/lazdatadesktop/lazdatadesktop.lpr
View File

@ -7,13 +7,16 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, frmmain, dicteditor, DBFLaz,
frmimportdd, RunTimeTypeInfoControls, frmgeneratesql, SQLDBLaz,
frmSQLConnect, ddfiles, conneditor, datapanel, querypanel, lazdbexport,
lazdatadict, frmselectconnectiontype;
Forms, LResources
{ add your units here }, frmmain, dicteditor, DBFLaz, frmimportdd,
frmgeneratesql, SQLDBLaz, lazdatadict, RunTimeTypeInfoControls, frmSQLConnect,
ddfiles, conneditor, datapanel, querypanel, frmselectconnectiontype,
lazdatadeskstr, lazdbexport;
{$IFDEF WINDOWS}{$R lazdatadesktop.rc}{$ENDIF}
begin
{$I lazdatadesktop.lrs}
Application.Title:='Lazarus Data Desktop';
Application.Initialize;
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
Classes, SysUtils, DB, fpDatadict, FileUtil, Controls, ExtCtrls, StdCtrls,
ComCtrls, LResources, LCLType, Dialogs, ActnList, datapanel, SynEdit, SynMemo,
SynHighlighterSQL;
SynHighlighterSQL, lazdatadeskstr;
Type
@ -98,27 +98,6 @@ implementation
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 }
{ ---------------------------------------------------------------------