Skip to content

S
StarUML Evológica Plugin
Commit 52c1c2f4 authored by Sandro Camata Santana's avatar Sandro Camata Santana
Browse files
Options

Suporte postgre

parent 1c46e551
Hide whitespace changes
Inline Side-by-side
Showing with 642 additions and 60 deletions
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ 52c1c2f4
...@@ -30,7 +30,7 @@ const cBASE_USECASE_CLASS_FULL_PATH = MODELO + '::FrameworkModel::acuFrameworkPa ...@@ -30,7 +30,7 @@ const cBASE_USECASE_CLASS_FULL_PATH = MODELO + '::FrameworkModel::acuFrameworkPa
type type
TDataBaseVendor = (dbvSQLServer, dbvOracle, dbvDB2); TDataBaseVendor = (dbvSQLServer, dbvOracle, dbvDB2, dbvPostgre);
////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////
TCodeGenParams = class(TObject); TCodeGenParams = class(TObject);
...@@ -284,20 +284,31 @@ begin ...@@ -284,20 +284,31 @@ begin
else if SameText(piDBColumnMap.AttributeTicket.DBType, 'text') then else if SameText(piDBColumnMap.AttributeTicket.DBType, 'text') then
case piDBVendor of case piDBVendor of
dbvSQLServer: lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType; dbvSQLServer: lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
dbvOracle: lSQLColumnDBType := 'clob';
dbvDB2: lSQLColumnDBType := 'clob';
else else
lSQLColumnDBType := 'clob'; lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
end end
else if SameText(piDBColumnMap.AttributeTicket.DBType, 'datetime') then else if SameText(piDBColumnMap.AttributeTicket.DBType, 'datetime') then
case piDBVendor of case piDBVendor of
dbvSQLServer: lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType; dbvSQLServer: lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
dbvOracle: lSQLColumnDBType := 'date'; dbvOracle: lSQLColumnDBType := 'date';
dbvDB2: lSQLColumnDBType := 'timestamp'; dbvDB2: lSQLColumnDBType := 'timestamp';
dbvPostgre: lSQLColumnDBType := 'timestamp';
end end
else if SameText(piDBColumnMap.AttributeTicket.DBType, 'image') then else if SameText(piDBColumnMap.AttributeTicket.DBType, 'image') then
case piDBVendor of case piDBVendor of
dbvSQLServer: lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType; dbvOracle: lSQLColumnDBType := 'blob';
dbvDB2: lSQLColumnDBType := 'blob';
dbvPostgre: lSQLColumnDBType := 'bytea';
else else
lSQLColumnDBType := 'blob'; lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
end
else if SameText(piDBColumnMap.AttributeTicket.DBType, 'blob') then
case piDBVendor of
dbvPostgre: lSQLColumnDBType := 'bytea';
else
lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
end end
else else
lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType; lSQLColumnDBType := piDBColumnMap.AttributeTicket.DBType;
......
EvoUMLPlugin/src/fCodeGen.dfm
View file @ 52c1c2f4
object CodeGen: TCodeGen object CodeGen: TCodeGen
Left = 2569 Left = 700
Height = 616 Height = 616
Top = 219 Top = 230
Width = 889 Width = 889
Caption = 'CodeGen' Caption = 'CodeGen'
ClientHeight = 616 ClientHeight = 616
...@@ -13,15 +13,15 @@ object CodeGen: TCodeGen ...@@ -13,15 +13,15 @@ object CodeGen: TCodeGen
KeyPreview = True KeyPreview = True
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.0.2.0' LCLVersion = '2.1.0.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 616 Height = 616
Top = 0 Top = 0
Width = 889 Width = 889
ActivePage = TabSheet1 ActivePage = TabSheet6
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'UseCase' Caption = 'UseCase'
...@@ -2322,9 +2322,9 @@ object CodeGen: TCodeGen ...@@ -2322,9 +2322,9 @@ object CodeGen: TCodeGen
Height = 590 Height = 590
Top = 0 Top = 0
Width = 881 Width = 881
ActivePage = TabSheet9 ActivePage = TabSheet12
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 3
TabOrder = 0 TabOrder = 0
object TabSheet9: TTabSheet object TabSheet9: TTabSheet
Caption = 'SQL Server' Caption = 'SQL Server'
...@@ -2871,42 +2871,588 @@ object CodeGen: TCodeGen ...@@ -2871,42 +2871,588 @@ object CodeGen: TCodeGen
end end
object TabSheet10: TTabSheet object TabSheet10: TTabSheet
Caption = 'Oracle' Caption = 'Oracle'
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
ImageIndex = 1 ImageIndex = 1
object Panel11: TPanel object Panel11: TPanel
Left = 0 Left = 0
Height = 560 Height = 564
Top = 0
Width = 873
Align = alClient
BevelOuter = bvLowered
ClientHeight = 564
ClientWidth = 873
TabOrder = 0
object Panel12: TPanel
Left = 1
Height = 40
Top = 1
Width = 871
Align = alTop
ClientHeight = 40
ClientWidth = 871
TabOrder = 0
object SpeedButton7: TSpeedButton
Left = 9
Height = 28
Top = 6
Width = 105
Caption = 'Generate'
OnClick = SpeedButton7Click
end
end
inline memSQLOracle: TSynEdit
Left = 1
Height = 522
Top = 41
Width = 871
Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1
BorderStyle = bsNone
Gutter.Width = 23
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynSQLSyn2
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = EcFoldLevel1
ShortCut = 41009
end
item
Command = EcFoldLevel2
ShortCut = 41010
end
item
Command = EcFoldLevel3
ShortCut = 41011
end
item
Command = EcFoldLevel4
ShortCut = 41012
end
item
Command = EcFoldLevel5
ShortCut = 41013
end
item
Command = EcFoldLevel6
ShortCut = 41014
end
item
Command = EcFoldLevel7
ShortCut = 41015
end
item
Command = EcFoldLevel8
ShortCut = 41016
end
item
Command = EcFoldLevel9
ShortCut = 41017
end
item
Command = EcFoldLevel0
ShortCut = 41008
end
item
Command = EcFoldCurrent
ShortCut = 41005
end
item
Command = EcUnFoldCurrent
ShortCut = 41003
end
item
Command = EcToggleMarkupWord
ShortCut = 32845
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecMatchBracket
ShortCut = 24642
end
item
Command = ecColSelUp
ShortCut = 40998
end
item
Command = ecColSelDown
ShortCut = 41000
end
item
Command = ecColSelLeft
ShortCut = 40997
end
item
Command = ecColSelRight
ShortCut = 40999
end
item
Command = ecColSelPageDown
ShortCut = 40994
end
item
Command = ecColSelPageBottom
ShortCut = 57378
end
item
Command = ecColSelPageUp
ShortCut = 40993
end
item
Command = ecColSelPageTop
ShortCut = 57377
end
item
Command = ecColSelLineStart
ShortCut = 40996
end
item
Command = ecColSelLineEnd
ShortCut = 40995
end
item
Command = ecColSelEditorTop
ShortCut = 57380
end
item
Command = ecColSelEditorBottom
ShortCut = 57379
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
Lines.Strings = (
''
)
Options = [eoAutoIndent, eoBracketHighlight, eoEnhanceHomeKey, eoGroupUndo, eoHalfPageScroll, eoHideRightMargin, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoAltSetsColumnMode]
Options2 = [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock, eoColorSelectionTillEol]
MouseOptions = [emAltSetsColumnMode, emCtrlWheelZoom]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
RightEdge = 0
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
Visible = False
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
Visible = False
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
end
object TabSheet11: TTabSheet
Caption = 'DB2'
ClientHeight = 564
ClientWidth = 873
ImageIndex = 2
object Panel14: TPanel
Left = 0
Height = 564
Top = 0 Top = 0
Width = 869 Width = 873
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
TabOrder = 0 TabOrder = 0
object Panel12: TPanel object Panel15: TPanel
Left = 1 Left = 1
Height = 40 Height = 40
Top = 1 Top = 1
Width = 867 Width = 871
Align = alTop Align = alTop
ClientHeight = 40 ClientHeight = 40
ClientWidth = 867 ClientWidth = 871
TabOrder = 0 TabOrder = 0
object SpeedButton7: TSpeedButton object SpeedButton8: TSpeedButton
Left = 9 Left = 9
Height = 28 Height = 28
Top = 6 Top = 6
Width = 105 Width = 105
Caption = 'Generate' Caption = 'Generate'
OnClick = SpeedButton7Click OnClick = SpeedButton8Click
end end
end end
inline memSQLOracle: TSynEdit inline memSQLDB2: TSynEdit
Left = 1 Left = 1
Height = 518 Height = 522
Top = 41 Top = 41
Width = 867 Width = 871
Align = alClient Align = alClient
Color = clWindow Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
...@@ -2918,11 +3464,11 @@ object CodeGen: TCodeGen ...@@ -2918,11 +3464,11 @@ object CodeGen: TCodeGen
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 33 Gutter.Width = 23
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
Highlighter = SynSQLSyn2 Highlighter = SynSQLSyn3
Keystrokes = < Keystrokes = <
item item
Command = ecUp Command = ecUp
...@@ -3415,44 +3961,43 @@ object CodeGen: TCodeGen ...@@ -3415,44 +3961,43 @@ object CodeGen: TCodeGen
end end
end end
end end
object TabSheet11: TTabSheet object TabSheet12: TTabSheet
Caption = 'DB2' Caption = 'Postgre'
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
ImageIndex = 2 object Panel16: TPanel
object Panel14: TPanel
Left = 0 Left = 0
Height = 560 Height = 564
Top = 0 Top = 0
Width = 869 Width = 873
Align = alClient Align = alClient
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 560 ClientHeight = 564
ClientWidth = 869 ClientWidth = 873
TabOrder = 0 TabOrder = 0
object Panel15: TPanel object Panel17: TPanel
Left = 1 Left = 1
Height = 40 Height = 40
Top = 1 Top = 1
Width = 867 Width = 871
Align = alTop Align = alTop
ClientHeight = 40 ClientHeight = 40
ClientWidth = 867 ClientWidth = 871
TabOrder = 0 TabOrder = 0
object SpeedButton8: TSpeedButton object SpeedButton9: TSpeedButton
Left = 9 Left = 9
Height = 28 Height = 28
Top = 6 Top = 6
Width = 105 Width = 105
Caption = 'Generate' Caption = 'Generate'
OnClick = SpeedButton8Click OnClick = SpeedButton9Click
end end
end end
inline memSQLDB2: TSynEdit inline memSQLPostgre: TSynEdit
Left = 1 Left = 1
Height = 518 Height = 522
Top = 41 Top = 41
Width = 867 Width = 871
Align = alClient Align = alClient
Color = clWindow Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
...@@ -3468,7 +4013,7 @@ object CodeGen: TCodeGen ...@@ -3468,7 +4013,7 @@ object CodeGen: TCodeGen
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
Highlighter = SynSQLSyn3 Highlighter = SynSQLSyn4
Keystrokes = < Keystrokes = <
item item
Command = ecUp Command = ecUp
...@@ -3967,48 +4512,56 @@ object CodeGen: TCodeGen ...@@ -3967,48 +4512,56 @@ object CodeGen: TCodeGen
object SynJavaSyn1: TSynJavaSyn object SynJavaSyn1: TSynJavaSyn
DefaultFilter = 'Java Files (*.java)|*.java' DefaultFilter = 'Java Files (*.java)|*.java'
Enabled = False Enabled = False
left = 710 Left = 710
top = 202 Top = 202
end end
object SynSQLSyn1: TSynSQLSyn object SynSQLSyn1: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql' DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False Enabled = False
SQLDialect = sqlMSSQL2K SQLDialect = sqlMSSQL2K
left = 396 Left = 396
top = 385 Top = 385
end end
object SynFreePascalSyn1: TSynFreePascalSyn object SynFreePascalSyn1: TSynFreePascalSyn
Enabled = False Enabled = False
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
left = 710 TypeHelpers = False
top = 137 Left = 710
Top = 137
end end
object SynCppSyn1: TSynCppSyn object SynCppSyn1: TSynCppSyn
DefaultFilter = 'C++ Files (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh' DefaultFilter = 'C++ Files (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh'
Enabled = False Enabled = False
left = 708 Left = 708
top = 279 Top = 279
end end
object SynSQLSyn2: TSynSQLSyn object SynSQLSyn2: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql' DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False Enabled = False
SQLDialect = sqlOracle SQLDialect = sqlOracle
left = 391 Left = 391
top = 457 Top = 457
end end
object SynSQLSyn3: TSynSQLSyn object SynSQLSyn3: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql' DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False Enabled = False
SQLDialect = sqlSybase SQLDialect = sqlSybase
left = 396 Left = 396
top = 533 Top = 533
end end
object SynXMLSyn1: TSynXMLSyn object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd' DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False Enabled = False
WantBracesParsed = False WantBracesParsed = False
left = 807 Left = 807
top = 256 Top = 256
end
object SynSQLSyn4: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False
SQLDialect = sqlPostgres
Left = 472
Top = 533
end end
end end
EvoUMLPlugin/src/fCodeGen.pas
View file @ 52c1c2f4
...@@ -28,18 +28,23 @@ type ...@@ -28,18 +28,23 @@ type
TCodeGen = class(TForm) TCodeGen = class(TForm)
memCode: TSynEdit; memCode: TSynEdit;
memSQLPostgre: TSynEdit;
memXSDIn: TSynEdit; memXSDIn: TSynEdit;
memXSDOut: TSynEdit; memXSDOut: TSynEdit;
memSQLServer: TSynEdit; memSQLServer: TSynEdit;
memSQLOracle: TSynEdit; memSQLOracle: TSynEdit;
memSQLDB2: TSynEdit; memSQLDB2: TSynEdit;
PageControl1: TPageControl; PageControl1: TPageControl;
Panel16: TPanel;
Panel17: TPanel;
SpeedButton9: TSpeedButton;
SynCppSyn1: TSynCppSyn; SynCppSyn1: TSynCppSyn;
SynFreePascalSyn1: TSynFreePascalSyn; SynFreePascalSyn1: TSynFreePascalSyn;
SynJavaSyn1: TSynJavaSyn; SynJavaSyn1: TSynJavaSyn;
SynSQLSyn1: TSynSQLSyn; SynSQLSyn1: TSynSQLSyn;
SynSQLSyn2: TSynSQLSyn; SynSQLSyn2: TSynSQLSyn;
SynSQLSyn3: TSynSQLSyn; SynSQLSyn3: TSynSQLSyn;
SynSQLSyn4: TSynSQLSyn;
SynXMLSyn1: TSynXMLSyn; SynXMLSyn1: TSynXMLSyn;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
Panel3: TPanel; Panel3: TPanel;
...@@ -50,6 +55,7 @@ type ...@@ -50,6 +55,7 @@ type
SpeedButton2: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton; SpeedButton3: TSpeedButton;
PageControl2: TPageControl; PageControl2: TPageControl;
TabSheet12: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
Panel5: TPanel; Panel5: TPanel;
Panel6: TPanel; Panel6: TPanel;
...@@ -108,6 +114,7 @@ type ...@@ -108,6 +114,7 @@ type
procedure edtJavaPackageNameChange(Sender: TObject); procedure edtJavaPackageNameChange(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
fUtil: TUtil; fUtil: TUtil;
...@@ -348,6 +355,17 @@ begin ...@@ -348,6 +355,17 @@ begin
end; end;
end; end;
procedure TCodeGen.SpeedButton9Click(Sender: TObject);
begin
Screen.Cursor := crHourGlass;
try
memSQLPostgre.Clear;
memSQLPostgre.Lines.Text := Util.GerarFullSQLPreview(dbvPostgre);
finally
Screen.Cursor := crDefault;
end;
end;
function TCodeGen.SuggestFileName(piValue: string; piExtension: boolean = false): string; function TCodeGen.SuggestFileName(piValue: string; piExtension: boolean = false): string;
var lFileName: string; var lFileName: string;
begin begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment