diff --git a/.gitattributes b/.gitattributes index 0ff10c498b..9f55d93426 100644 --- a/.gitattributes +++ b/.gitattributes @@ -4635,6 +4635,8 @@ components/sqldb/design/tsybaseconnection.png -text svneol=unset#image/png components/sqldb/design/tsybaseconnection_150.png -text svneol=unset#image/png components/sqldb/design/tsybaseconnection_200.png -text svneol=unset#image/png components/sqldb/fpmake.pp svneol=native#text/plain +components/sqldb/generatesqldlg.lfm svneol=native#text/plain +components/sqldb/generatesqldlg.pp svneol=native#text/plain components/sqldb/languages/registersqldb.cs.po svneol=native#text/plain components/sqldb/languages/registersqldb.de.po svneol=native#text/plain components/sqldb/languages/registersqldb.es.po svneol=native#text/plain diff --git a/components/sqldb/generatesqldlg.lfm b/components/sqldb/generatesqldlg.lfm new file mode 100644 index 0000000000..11d0e224f5 --- /dev/null +++ b/components/sqldb/generatesqldlg.lfm @@ -0,0 +1,2801 @@ +object GenerateSQLForm: TGenerateSQLForm + Left = 364 + Height = 423 + Top = 295 + Width = 796 + ActiveControl = PCSQL + Caption = 'Edit/Generate SQL statements' + ClientHeight = 423 + ClientWidth = 796 + OnCreate = FormCreate + LCLVersion = '2.1.0.0' + object PCSQL: TPageControl + Left = 0 + Height = 372 + Top = 0 + Width = 796 + ActivePage = TSFields + Align = alClient + TabIndex = 0 + TabOrder = 0 + object TSFields: TTabSheet + Caption = 'Table and &Fields' + ChildSizing.EnlargeHorizontal = crsScaleChilds + ChildSizing.EnlargeVertical = crsScaleChilds + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.ControlsPerLine = 3 + ClientHeight = 341 + ClientWidth = 786 + OnResize = TSResize + object POptions: TPanel + Left = 0 + Height = 341 + Top = 0 + Width = 254 + Align = alLeft + BevelOuter = bvNone + ClientHeight = 341 + ClientWidth = 254 + Constraints.MinWidth = 180 + TabOrder = 0 + object LCBTables: TLabel + Left = 8 + Height = 16 + Top = 8 + Width = 64 + Anchors = [akTop, akLeft, akRight] + AutoSize = False + Caption = 'Ta&ble' + FocusControl = CBTables + ParentColor = False + end + object LSEIndent: TLabel + Left = 30 + Height = 20 + Top = 202 + Width = 150 + Alignment = taRightJustify + Anchors = [akTop, akLeft, akRight] + AutoSize = False + Caption = 'I&ndent' + Layout = tlCenter + ParentColor = False + end + object LSELineLength: TLabel + Left = 22 + Height = 20 + Top = 231 + Width = 154 + Alignment = taRightJustify + Anchors = [akTop, akLeft, akRight] + AutoSize = False + Caption = 'Line Length' + Layout = tlCenter + ParentColor = False + end + object CBTables: TComboBox + Left = 8 + Height = 31 + Top = 32 + Width = 238 + Anchors = [akTop, akLeft, akRight] + ItemHeight = 0 + OnChange = CBTablesChange + Sorted = True + Style = csDropDownList + TabOrder = 0 + end + object BGenerate: TButton + Left = 8 + Height = 25 + Top = 305 + Width = 238 + Anchors = [akLeft, akRight, akBottom] + BorderSpacing.InnerBorder = 4 + Caption = '&Generate SQL' + OnClick = BGenerateClick + TabOrder = 1 + end + object seIndent: TSpinEdit + Left = 196 + Height = 29 + Top = 197 + Width = 50 + TabOrder = 2 + Value = 2 + end + object seLineLength: TSpinEdit + Left = 196 + Height = 29 + Top = 229 + Width = 50 + TabOrder = 3 + Value = 72 + end + object CBQuoteFields: TCheckBox + Left = 8 + Height = 23 + Top = 72 + Width = 95 + Caption = 'Quote Fields' + TabOrder = 4 + end + object CBSystemTables: TCheckBox + Left = 88 + Height = 23 + Top = 3 + Width = 136 + Caption = 'Show system tables' + OnChange = CBSystemTablesChange + TabOrder = 5 + end + object CBOneFieldPerLine: TCheckBox + Left = 8 + Height = 23 + Top = 104 + Width = 121 + Caption = 'One field per line' + TabOrder = 6 + end + object cbUpperCaseKeywords: TCheckBox + Left = 8 + Height = 23 + Top = 136 + Width = 143 + Caption = 'Uppercase keywords' + TabOrder = 7 + end + object cbFullyQualifiedFields: TCheckBox + Left = 8 + Height = 23 + Top = 168 + Width = 135 + Caption = 'Fully qualified fields' + TabOrder = 8 + end + object edtQuoteChar: TEdit + Left = 214 + Height = 29 + Top = 69 + Width = 32 + MaxLength = 1 + TabOrder = 9 + Text = '"' + end + object lblQuoteChar: TLabel + Left = 143 + Height = 17 + Top = 74 + Width = 62 + Alignment = taRightJustify + Caption = 'Quote char' + ParentColor = False + end + end + object PKeyFields: TPanel + AnchorSideLeft.Control = POptions + AnchorSideLeft.Side = asrBottom + AnchorSideRight.Control = PSelectFields + Left = 254 + Height = 341 + Top = 0 + Width = 244 + Align = alClient + BevelOuter = bvNone + ClientHeight = 341 + ClientWidth = 244 + TabOrder = 1 + object LLBKeyFields: TLabel + Left = 0 + Height = 26 + Top = 0 + Width = 244 + Align = alTop + Alignment = taCenter + AutoSize = False + Caption = '&Key fields' + Layout = tlCenter + ParentColor = False + end + object LBKeyFields: TListBox + Left = 2 + Height = 296 + Top = 34 + Width = 238 + Anchors = [akTop, akLeft, akRight, akBottom] + ItemHeight = 0 + MultiSelect = True + ScrollWidth = 236 + Sorted = True + TabOrder = 0 + TopIndex = -1 + end + end + object PSelectFields: TPanel + Left = 498 + Height = 341 + Top = 0 + Width = 288 + Align = alRight + BevelOuter = bvNone + ClientHeight = 341 + ClientWidth = 288 + TabOrder = 2 + object Label2: TLabel + Left = 0 + Height = 26 + Top = 0 + Width = 288 + Align = alTop + Alignment = taCenter + AutoSize = False + Caption = 'Select/Update/Insert fields' + Layout = tlCenter + ParentColor = False + end + object LBFields: TListBox + Left = 12 + Height = 296 + Top = 34 + Width = 266 + Anchors = [akTop, akLeft, akRight, akBottom] + ItemHeight = 0 + MultiSelect = True + ScrollWidth = 264 + Sorted = True + TabOrder = 0 + TopIndex = -1 + end + end + end + object TSSelect: TTabSheet + Caption = 'Select' + ClientHeight = 341 + ClientWidth = 786 + inline MSelect: TSynEdit + Left = 0 + Height = 328 + Top = 0 + Width = 802 + Align = alClient + Font.Height = 13 + Font.Name = 'DejaVu Sans Mono' + Font.Pitch = fpFixed + Font.Quality = fqNonAntialiased + ParentColor = False + ParentFont = False + TabOrder = 0 + Gutter.Width = 57 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynSQLSyn1 + 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 = ( + 'MSelect' + ) + VisibleSpecialChars = [vscSpace, vscTabAtLast] + 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 + 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 + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + end + object TSInsert: TTabSheet + Caption = '&Insert' + ClientHeight = 341 + ClientWidth = 786 + inline MInsert: TSynEdit + Left = 0 + Height = 328 + Top = 0 + Width = 802 + Align = alClient + Font.Height = 13 + Font.Name = 'DejaVu Sans Mono' + Font.Pitch = fpFixed + Font.Quality = fqNonAntialiased + ParentColor = False + ParentFont = False + TabOrder = 0 + Gutter.Width = 57 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynSQLSyn1 + 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 = ( + 'MSelect' + ) + VisibleSpecialChars = [vscSpace, vscTabAtLast] + 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 + 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 + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + end + object TSUpdate: TTabSheet + Caption = '&Update' + ClientHeight = 341 + ClientWidth = 786 + inline MUpdate: TSynEdit + Left = 0 + Height = 328 + Top = 0 + Width = 802 + Align = alClient + Font.Height = 13 + Font.Name = 'DejaVu Sans Mono' + Font.Pitch = fpFixed + Font.Quality = fqNonAntialiased + ParentColor = False + ParentFont = False + TabOrder = 0 + Gutter.Width = 57 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynSQLSyn1 + 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 = ( + 'MSelect' + ) + VisibleSpecialChars = [vscSpace, vscTabAtLast] + 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 + 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 + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + end + object TSDelete: TTabSheet + Caption = '&Delete' + ClientHeight = 341 + ClientWidth = 786 + inline MDelete: TSynEdit + Left = 0 + Height = 328 + Top = 0 + Width = 802 + Align = alClient + Font.Height = 13 + Font.Name = 'DejaVu Sans Mono' + Font.Pitch = fpFixed + Font.Quality = fqNonAntialiased + ParentColor = False + ParentFont = False + TabOrder = 0 + Gutter.Width = 57 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynSQLSyn1 + 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 = ( + 'MSelect' + ) + VisibleSpecialChars = [vscSpace, vscTabAtLast] + 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 + 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 + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + end + object TSRefresh: TTabSheet + Caption = 'Refresh' + ClientHeight = 341 + ClientWidth = 786 + inline MRefresh: TSynEdit + Left = 0 + Height = 328 + Top = 0 + Width = 802 + Align = alClient + Font.Height = 13 + Font.Name = 'DejaVu Sans Mono' + Font.Pitch = fpFixed + Font.Quality = fqNonAntialiased + ParentColor = False + ParentFont = False + TabOrder = 0 + Gutter.Width = 57 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynSQLSyn1 + 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 = ( + 'MSelect' + ) + VisibleSpecialChars = [vscSpace, vscTabAtLast] + 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 + 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 + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + end + end + object BPGenSQL: TButtonPanel + Left = 6 + Height = 39 + Top = 378 + Width = 784 + OKButton.Name = 'OKButton' + OKButton.DefaultCaption = True + HelpButton.Name = 'HelpButton' + HelpButton.DefaultCaption = True + CloseButton.Name = 'CloseButton' + CloseButton.DefaultCaption = True + CancelButton.Name = 'CancelButton' + CancelButton.DefaultCaption = True + TabOrder = 1 + ShowButtons = [pbOK, pbCancel] + end + object SynSQLSyn1: TSynSQLSyn + DefaultFilter = 'SQL Files (*.sql)|*.sql' + Enabled = False + SQLDialect = sqlFirebird40 + left = 392 + top = 64 + end +end diff --git a/components/sqldb/generatesqldlg.pp b/components/sqldb/generatesqldlg.pp new file mode 100644 index 0000000000..9564fa36b3 --- /dev/null +++ b/components/sqldb/generatesqldlg.pp @@ -0,0 +1,555 @@ +{ + *************************************************************************** + * * + * This source is free software; you can redistribute it and/or modify * + * it under the terms of the GNU General Public License as published by * + * the Free Software Foundation; either version 2 of the License, or * + * (at your option) any later version. * + * * + * This code is distributed in the hope that it will be useful, but * + * WITHOUT ANY WARRANTY; without even the implied warranty of * + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * + * General Public License for more details. * + * * + * A copy of the GNU General Public License is available on the World * + * Wide Web at . You can also * + * obtain it by writing to the Free Software Foundation, * + * Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1335, USA. * + * * + *************************************************************************** +} +unit generatesqldlg; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, + DB, SQLDB, ExtCtrls, Buttons, StdCtrls, Spin, ButtonPanel, SynEdit, SynHighlighterSQL; + +type + TSQLKeyWord = (skInsert,skInto,skDelete,skFrom,skUpdate,skSelect,skWhere,skAnd,skValues,skSet); + + { TGenerateSQLForm } + + TGenerateSQLForm = class(TForm) + BGenerate: TButton; + BPGenSQL: TButtonPanel; + CBOneFieldPerLine: TCheckBox; + cbUpperCaseKeywords: TCheckBox; + CBSystemTables: TCheckBox; + CBTables: TComboBox; + CBQuoteFields: TCheckBox; + edtQuoteChar: TEdit; + lblQuoteChar: TLabel; + LBKeyFields: TListBox; + LCBTables: TLabel; + Label2: TLabel; + LLBKeyFields: TLabel; + LBFields: TListBox; + LSEIndent: TLabel; + LSELineLength: TLabel; + MInsert: TSynEdit; + MRefresh: TSynEdit; + MUpdate: TSynEdit; + MDelete: TSynEdit; + PKeyFields: TPanel; + POptions: TPanel; + PSelectFields: TPanel; + PCSQL: TPageControl; + cbFullyQualifiedFields: TCheckBox; + seIndent: TSpinEdit; + seLineLength: TSpinEdit; + MSelect: TSynEdit; + SynSQLSyn1: TSynSQLSyn; + TSRefresh: TTabSheet; + TSFields: TTabSheet; + TSSelect: TTabSheet; + TSInsert: TTabSheet; + TSUpdate: TTabSheet; + TSDelete: TTabSheet; + procedure BGenerateClick(Sender: TObject); + procedure CBSystemTablesChange(Sender: TObject); + procedure CBTablesChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure TSResize(Sender: TObject); + private + FConnection : TSQLConnection; + FDataset: TSQLQuery; + QuoteChar : Char; + Function IndentString : string; + Function SQLKeyWord(aKeyWord : TSQLKeyWord) : String; + procedure GenDeleteSQL(const TableName : string; KeyFields, SQL: TStrings); + procedure GenInsertSQL(const TableName : string; UpdateFields, SQL: TStrings); + procedure GenModifySQL(const TableName : string; KeyFields, UpdateFields, SQL: TStrings); + procedure GenRefreshSQL(const TableName : string; SelectFields,KeyFields, SQL: TStrings); + procedure GenWhereClause(const aTableName,ParamPrefix : string; KeyFields, SQL: TStrings); + function GetAS: Boolean; + procedure GetDataFieldNames(List: TStrings); + function GetSQLStatement(Index: integer): TStrings; + function GetTableName: String; + function GetQuoted(const aIdentifier : string; Const aTable : String = ''): string; + procedure SetAS(AValue: Boolean); + procedure SetConnection(AValue: TSQLConnection); + procedure SetTableName(const AValue: String); + Procedure SetFieldLists(aFields : TStrings); + { private declarations } + public + { public declarations } + Procedure RefreshTableList; + Procedure GenerateSQL; + Procedure ClearSQL(clearSelect : Boolean = False); + Property Dataset : TSQLQuery Read FDataset Write FDataset; + Property Connection : TSQLConnection Read FConnection Write SetConnection; + Property TableName : String Read GetTableName Write SetTableName; + Property SelectSQL : TStrings Index 0 Read GetSQLStatement; + Property InsertSQL : TStrings Index 1 Read GetSQLStatement; + Property UpdateSQL : TStrings Index 2 Read GetSQLStatement; + Property DeleteSQL : TStrings Index 3 Read GetSQLStatement; + Property RefreshSQL : TStrings Index 4 Read GetSQLStatement; + Property AllowSelectTable : Boolean Read GetAS Write SetAS; + end; + +Function GenerateSQL(Q : TSQLQuery): Boolean; + +implementation + +Resourcestring + lrsGeneratesqlstatements = 'Edit/Generate SQL statements'; + lrsSQLDataSetOpen = 'Dataset not open: %s'; + lrsSQLGenSelect = 'You must select fields to be updated and key fields'; + + +Function GenerateSQL(Q : TSQLQuery): Boolean; + +begin + + With TGenerateSQLForm.Create(Application) do + try + Dataset:=Q; + Connection:=Q.SQLConnection; + SelectSQL.Text:=Q.SQL.text; + UpdateSQL.Text:=Q.UpdateSQL.Text; + DeleteSQL.Text:=Q.DeleteSQL.Text; + InsertSQL.Text:=Q.insertSQL.Text; + RefreshSQL.Text:=Q.RefreshSQL.Text; + Result:=ShowModal=mrOK; + if Result then + begin + Q.SQL.text := SelectSQL.Text; + Q.UpdateSQL.Text := UpdateSQL.Text; + Q.DeleteSQL.Text := DeleteSQL.Text; + Q.insertSQL.Text := InsertSQL.Text; + Q.RefreshSQL.Text := RefreshSQL.Text; + end; + finally + Free; + end; +end; + +{$R *.lfm} + +{ TGenerateSQLForm } + +procedure TGenerateSQLForm.GenWhereClause(const aTableName, ParamPrefix: string; KeyFields, SQL: TStrings); +var + Maxlen, I: Integer; + isNotLast : Boolean; + L,FieldName: string; + +begin + L:=IndentString; + MaxLen:=seLineLength.Value; + SQL.Add(SQLKeyWord(skWhere)); + for I := 0 to KeyFields.Count-1 do + begin + isNotLast:=IMaxLen) and IsNotLast) then + begin + SQL.Add(L); + L:=IndentString; + end; + end; + SQL.Add(L); +end; + +function TGenerateSQLForm.GetQuoted(const aIdentifier: string; const aTable: String =''): string; + +begin + Result:=aIdentifier; + if CBQuoteFields.Checked then + Result:=QuoteChar + Result + QuoteChar; + if (aTable<>'') and CBFullyQualifiedFields.Checked then + Result:=GetQuoted(aTable)+'.'+Result; +end; + +procedure TGenerateSQLForm.GenDeleteSQL(const TableName: string; KeyFields, SQL: TStrings); +begin + SQL.Clear; + SQL.Add(Format('%s %s %s', [sqlkeyword(skDelete),sqlkeyword(skFrom),GetQuoted(TableName)])); { Do not localize } + GenWhereClause(TableName, 'OLD_',KeyFields, SQL); +end; + +procedure TGenerateSQLForm.GenInsertSQL(const TableName: string; UpdateFields, SQL: TStrings); + + procedure GenFieldList(isParam : boolean); + + var + FN,L: string; + I,MaxLen : integer; + isNotLast : boolean; + + begin + L:=IndentString+'('; + MaxLen:=seLineLength.Value; + for I := 0 to UpdateFields.Count - 1 do + begin + IsNotLast:=(IMaxLen) and IsNotLast) then + begin + SQL.Add(L); + L:=IndentString; + end; + end; + SQL.Add(L+')'); + end; + +begin + SQL.Clear; + SQL.Add(Format('%s %s %s', [SQLKeyWord(skInsert),SQLKeyWord(skInto), GetQuoted(TableName)])); + GenFieldList(False); + SQL.Add(SQLKeyWord(skValues)); + GenFieldList(True); +end; + +procedure TGenerateSQLForm.GenModifySQL(const TableName: string; KeyFields, UpdateFields, SQL: TStrings); + +var + MaxLen,I: integer; + L,FN: string; + isNotLast : Boolean; + +begin + L:=IndentString; + MaxLen:=seLineLength.Value; + SQL.Clear; + SQL.Add(Format('%s %s', [SQLKeyWord(skUpdate),GetQuoted(TableName)])); { Do not localize } + SQL.Add(SQLKeyWord(skSet)); { Do not localize } + for I := 0 to UpdateFields.Count-1 do + begin + isNotLast:=IMaxLen) and IsNotLast) then + begin + SQL.Add(L); + L:=IndentString; + end; + end; + GenWhereClause(TableName, 'OLD_',KeyFields,SQL); +end; + +procedure TGenerateSQLForm.GetDataFieldNames(List: TStrings); +var + I: Integer; +begin + with Dataset do + try + FieldDefs.Update; + List.BeginUpdate; + try + List.Clear; + for I := 0 to FieldDefs.Count - 1 do + List.Add(FieldDefs[I].Name); + finally + List.EndUpdate; + end; + except + MessageDlg(Format(lrsSQLDataSetOpen, [Dataset.Name]), mtError, [mbOK], 0); + end; +end; + +procedure TGenerateSQLForm.GenRefreshSQL(const TableName: string; SelectFields,KeyFields, SQL: TStrings); + +var + MaxLen,I: integer; + L,FN: string; + isNotLast : Boolean; + +begin + MaxLen:=seLineLength.Value; + SQL.Clear; + SQL.Add(Format('%s', [SQLKeyWord(skselect)])); { Do not localize } + L:=IndentString; + for I := 0 to SelectFields.Count-1 do + begin + isNotLast:=IMaxLen) and IsNotLast) then + begin + SQL.Add(L); + L:=IndentString; + end; + end; + SQL.Add(Format('%s %s', [SQLKeyWord(skFrom),GetQuoted(TableName)])); { Do not localize } + GenWhereClause(TableName,'',KeyFields,SQL); +end; + +procedure GetSelectedItems(ListBox: TListBox; List: TStrings); +var + I: Integer; +begin + List.Clear; + for I := 0 to ListBox.Items.Count - 1 do + if ListBox.Selected[I] then + List.Add(ListBox.Items[I]); +end; + +procedure TGenerateSQLForm.GenerateSQL; + + function QuotedTableName(const BaseName: string): string; + begin + if CBQuoteFields.Checked then + Result := Format('"%s"', [BaseName]) {do not localize} + else + Result := BaseName; + end; + +var + KeyFields: TStringList; + UpdateFields: TStringList; + DidConnect : Boolean; + +begin + if EdtQuoteChar.text<>'' then + QuoteChar:=EdtQuoteChar.text[1] + else + QuoteChar:='"'; + if (LBKeyFields.SelCount = 0) or (LBFields.SelCount = 0) then + raise Exception.Create(lrsSQLGenSelect); + KeyFields := TStringList.Create; + DidConnect := not DataSet.Database.Connected; + if DidConnect then + DataSet.Database.Connected := true; + + try + GetSelectedItems(LBKeyFields, KeyFields); + UpdateFields := TStringList.Create; + try + GetSelectedItems(LBFields, UpdateFields); + TableName := CBTables.Text; + GenDeleteSQL(TableName, KeyFields, MDelete.Lines); + GenInsertSQL(TableName, UpdateFields, Minsert.Lines); + GenModifySQL(TableName, KeyFields, UpdateFields, MUpdate.Lines); + GenRefreshSQL(TableName, UpdateFields, KeyFields, MRefresh.Lines); + finally + UpdateFields.Free; + end; + finally + KeyFields.Free; + if DidConnect then + DataSet.Database.Connected := false; + end; +end; + +procedure TGenerateSQLForm.TSResize(Sender: TObject); + +Var + W : Integer; + +begin + W:=TSFields.CLientWidth div 3; + POPtions.Width:=W; + PSelectFIelds.Width:=W; +end; + +function TGenerateSQLForm.IndentString: string; +begin + Result:=StringOfChar(' ',SEIndent.Value); +end; + +function TGenerateSQLForm.SQLKeyWord(aKeyWord: TSQLKeyWord): String; + +Const + KeyWords : Array[TSQLKeyWord] of string = + ('insert','into','delete','from','update','select','where','and','values','set'); + +begin + Result:=KeyWords[aKeyWord]; + if CBUppercaseKeyWords.Checked then + Result:=UpperCase(Result); +end; + + +function TGenerateSQLForm.GetTableName: String; +begin + Result:=CBTables.Text; +end; + +procedure TGenerateSQLForm.SetAS(AValue: Boolean); +begin + CBTables.Enabled:=AValue; +end; + +procedure TGenerateSQLForm.SetConnection(AValue: TSQLConnection); +begin + if FConnection=AValue then Exit; + FConnection:=AValue; + RefreshTableList; +end; + +function TGenerateSQLForm.GetSQLStatement(Index: integer): TStrings; +begin + Case Index of + 0 : Result:=MSelect.Lines; + 1 : Result:=MInsert.Lines; + 2 : Result:=MUpdate.Lines; + 3 : Result:=MDelete.Lines; + 4 : Result:=MRefresh.Lines; + end; +end; + +function TGenerateSQLForm.GetAS: Boolean; +begin + Result:=CBTables.Enabled; +end; + +procedure TGenerateSQLForm.RefreshTableList; + +Var + TN : String; + +begin + TN:=CBTables.Text; + With CBTables.Items do + try + BeginUpdate; + Clear; + if Not Assigned(FConnection) then + exit; + FConnection.Connected:=true; + FConnection.GetTableNames(CBTables.Items,CBSystemTables.Checked); + finally + EndUpdate; + end; + With CBTables do + If (TN<>'') then + ItemIndex:=Items.IndexOf(TN); +end; + +procedure TGenerateSQLForm.ClearSQL(clearSelect : Boolean = False); + +begin + if ClearSelect then + MSelect.Clear; + MInsert.Clear; + MUpdate.Clear; + MDelete.Clear; + MRefresh.Clear; +end; + +procedure TGenerateSQLForm.SetTableName(const AValue: String); + +begin + With CBTables do + begin + ItemIndex:=Items.IndexOf(AValue); + CBTablesChange(CBTables); + end; +end; + +procedure TGenerateSQLForm.SetFieldLists(aFields: TStrings); + +Var + I,Idx : Integer; + +begin + if aFields=Nil then + begin + LBKeyFields.Items.Clear; + LBFields.Items.Clear; + end + else + begin + LBKeyFields.Items:=aFields; + LBFields.Items:=aFields; + end; + if not Assigned(Dataset) then exit; + For I:=0 to FDataset.FieldDefs.Count-1 do + begin + Idx:=LBFields.Items.IndexOf(FDataset.FieldDefs[i].Name); + if Idx>=0 then + LBFields.Selected[Idx]:=true + end; + For I:=0 to FDataset.Fields.Count-1 do + if ((Dataset.UpdateMode=upWhereKeyOnly) and (pfInKey in FDataset.Fields[i].ProviderFlags)) or + (Dataset.UpdateMode=upWhereAll) then + begin + Idx:=LBKeyFields.Items.IndexOf(FDataset.Fields[i].FieldName); + if (Idx>=0) then + LBKeyFields.Selected[Idx]:=true; + end; +end; + +procedure TGenerateSQLForm.CBTablesChange(Sender: TObject); + +Var + l : TStringList; + +begin + With CBTables do + If (ItemIndex=-1) Then + SetFieldLists(Nil) + else + begin + L:=TstringList.Create; + try + Connection.GetFieldNames(TableName,L); + SetFieldLists(L) + finally + L.Free; + end; + end; + ClearSQL; +end; + +procedure TGenerateSQLForm.FormCreate(Sender: TObject); + +begin + Caption:= lrsGeneratesqlstatements; + EdtQuoteChar.Text:='"'; +end; + +procedure TGenerateSQLForm.BGenerateClick(Sender: TObject); +begin + GenerateSQL; +end; + +procedure TGenerateSQLForm.CBSystemTablesChange(Sender: TObject); +begin + if Assigned(Connection) then + RefreshTableList; +end; + + +end. + diff --git a/components/sqldb/languages/registersqldb.cs.po b/components/sqldb/languages/registersqldb.cs.po index 5f4be3fb33..430729f618 100644 --- a/components/sqldb/languages/registersqldb.cs.po +++ b/components/sqldb/languages/registersqldb.cs.po @@ -10,10 +10,26 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "X-Generator: Poedit 1.5.4\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Firebird datebáze" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Interbase databáze" diff --git a/components/sqldb/languages/registersqldb.de.po b/components/sqldb/languages/registersqldb.de.po index a82c1bec03..8c6b40d2af 100644 --- a/components/sqldb/languages/registersqldb.de.po +++ b/components/sqldb/languages/registersqldb.de.po @@ -11,10 +11,26 @@ msgstr "" "Language: de\n" "X-Generator: Poedit 1.8.9\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Firebird-Datenbanken" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Interbase-Datenbanken" diff --git a/components/sqldb/languages/registersqldb.es.po b/components/sqldb/languages/registersqldb.es.po index f2a31594a9..91df4c4794 100644 --- a/components/sqldb/languages/registersqldb.es.po +++ b/components/sqldb/languages/registersqldb.es.po @@ -9,10 +9,26 @@ msgstr "" "POT-Creation-Date: \n" "MIME-Version: 1.0\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Base de datos Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Base de datos Interbase" diff --git a/components/sqldb/languages/registersqldb.fr.po b/components/sqldb/languages/registersqldb.fr.po index 10485feff6..4de3f4a03d 100644 --- a/components/sqldb/languages/registersqldb.fr.po +++ b/components/sqldb/languages/registersqldb.fr.po @@ -11,10 +11,26 @@ msgstr "" "Language: fr\n" "X-Generator: Poedit 1.8.11\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Bases de données Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Bases de données Interbase" diff --git a/components/sqldb/languages/registersqldb.hu.po b/components/sqldb/languages/registersqldb.hu.po index 1dff4bbf98..880241f618 100644 --- a/components/sqldb/languages/registersqldb.hu.po +++ b/components/sqldb/languages/registersqldb.hu.po @@ -11,10 +11,26 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "X-Generator: Poedit 1.5.4\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Firebird adatbázisok" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Interbase adatbázisok" diff --git a/components/sqldb/languages/registersqldb.it.po b/components/sqldb/languages/registersqldb.it.po index e8c4528fa1..c87262af13 100644 --- a/components/sqldb/languages/registersqldb.it.po +++ b/components/sqldb/languages/registersqldb.it.po @@ -12,10 +12,26 @@ msgstr "" "Project-Id-Version: \n" "POT-Creation-Date: \n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Archivi Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Archivi Interbase" diff --git a/components/sqldb/languages/registersqldb.lt.po b/components/sqldb/languages/registersqldb.lt.po index a3b23c8d9b..ed1c347e8e 100644 --- a/components/sqldb/languages/registersqldb.lt.po +++ b/components/sqldb/languages/registersqldb.lt.po @@ -12,10 +12,26 @@ msgstr "" "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && (n%100<10 || n%100>=20) ? 1 : 2);\n" "Language: lt\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Firebird duomenų bazės" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Interbase duomenų bazės" diff --git a/components/sqldb/languages/registersqldb.pl.po b/components/sqldb/languages/registersqldb.pl.po index a4d8a0d461..f4ebdad591 100644 --- a/components/sqldb/languages/registersqldb.pl.po +++ b/components/sqldb/languages/registersqldb.pl.po @@ -12,10 +12,26 @@ msgstr "" "Language: pl\n" "X-Generator: Poedit 1.8.7.1\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Bazy danych Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Bazy danych Interbase" diff --git a/components/sqldb/languages/registersqldb.pot b/components/sqldb/languages/registersqldb.pot index 487c3ab60a..5faf2a6c19 100644 --- a/components/sqldb/languages/registersqldb.pot +++ b/components/sqldb/languages/registersqldb.pot @@ -1,10 +1,26 @@ msgid "" msgstr "Content-Type: text/plain; charset=UTF-8" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "" diff --git a/components/sqldb/languages/registersqldb.pt_BR.po b/components/sqldb/languages/registersqldb.pt_BR.po index d4490fd7ea..31940583ad 100644 --- a/components/sqldb/languages/registersqldb.pt_BR.po +++ b/components/sqldb/languages/registersqldb.pt_BR.po @@ -11,10 +11,26 @@ msgstr "" "Language: pt_BR\n" "X-Generator: Poedit 1.8.7.1\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Bancos de dados \"Firebird\"" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Bancos de dados \"Interbase\"" diff --git a/components/sqldb/languages/registersqldb.ru.po b/components/sqldb/languages/registersqldb.ru.po index ac16cfd040..3f2a44d9ee 100644 --- a/components/sqldb/languages/registersqldb.ru.po +++ b/components/sqldb/languages/registersqldb.ru.po @@ -11,10 +11,26 @@ msgstr "" "Language: ru\n" "X-Generator: Poedit 1.7.7\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Базы данных Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Базы данных Interbase" diff --git a/components/sqldb/languages/registersqldb.uk.po b/components/sqldb/languages/registersqldb.uk.po index e8d7353991..5a033b8368 100644 --- a/components/sqldb/languages/registersqldb.uk.po +++ b/components/sqldb/languages/registersqldb.uk.po @@ -13,10 +13,26 @@ msgstr "" "X-Generator: Lokalize 1.5\n" "Plural-Forms: nplurals=3; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && n%10<=4 && (n%100<10 || n%100>=20) ? 1 : 2);\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Бази даних Firebird" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Бази даних Interbase" diff --git a/components/sqldb/languages/registersqldb.zh_CN.po b/components/sqldb/languages/registersqldb.zh_CN.po index 0b1e83583b..773390764e 100644 --- a/components/sqldb/languages/registersqldb.zh_CN.po +++ b/components/sqldb/languages/registersqldb.zh_CN.po @@ -12,10 +12,26 @@ msgstr "" "X-Generator: Poedit 1.8.7.1\n" "X-Poedit-SourceCharset: UTF-8\n" +#: registersqldb.seditsql +msgid "Edit SQL ..." +msgstr "" + +#: registersqldb.seditupdatesql +msgid "Edit all SQL statements" +msgstr "" + +#: registersqldb.serrconnectionnotassigned +msgid "Database not assigned. Assign Database first" +msgstr "" + #: registersqldb.sfirebirddatabases msgid "Firebird databases" msgstr "Firebird数据库" +#: registersqldb.sgenerateupdatesql +msgid "Generate update SQL" +msgstr "" + #: registersqldb.sinterbasedatabases msgid "Interbase databases" msgstr "Interbase数据库" diff --git a/components/sqldb/registersqldb.pas b/components/sqldb/registersqldb.pas index 141fcf29d6..a249f910ce 100644 --- a/components/sqldb/registersqldb.pas +++ b/components/sqldb/registersqldb.pas @@ -25,6 +25,7 @@ unit registersqldb; {$mode objfpc}{$H+} +{$modeswitch typehelpers} {$DEFINE HASIBCONNECTION} {$DEFINE HASMYSQL55CONNECTION} @@ -209,7 +210,11 @@ Type TSQLQueryEditor = class(TBufDatasetDesignEditor) Private FVOffset : Integer; - Procedure EditSQL; + Protected + procedure DesignUpdateSQL(aQuery: TSQLQuery); virtual; + procedure GenerateUpdateSQL(aQuery: TSQLQuery); virtual; + procedure EditSQL(aQuery: TSQLQuery); virtual; + procedure DoEditSQL(aQuery: TSQLQuery); virtual; public constructor Create(AComponent: TComponent; ADesigner: TComponentEditorDesigner); override; procedure ExecuteVerb(Index: integer); override; @@ -223,7 +228,7 @@ implementation {$R registersqldb.res} -uses dynlibs; +uses dialogs, generatesqldlg, dynlibs; procedure RegisterUnitSQLdb; begin @@ -286,7 +291,10 @@ Resourcestring SSQLScript = 'SQL Script file'; SSQLScriptDesc = 'Create a new SQL Script file'; SSQLSource = 'Insert your SQL statements here'; - SEditSQL = 'Edit SQL...'; + SEditSQL = 'Edit SQL ...'; + SGenerateUpdateSQL = 'Generate update SQL'; + SEditUpdateSQL = 'Edit all SQL statements'; + SErrConnectionNotAssigned = 'Database not assigned. Assign Database first'; SFireBirdDatabases = 'Firebird databases'; SSQLite3Databases = 'SQLite3 databases'; @@ -295,23 +303,71 @@ Resourcestring sLibraries = 'Shared libraries'; +Type + + { TConnectionHelper } + + TConnectionHelper = Class(TSQLConnection) + Public + Function GenerateStatement(Q : TCustomSQLQuery; aKind : TUpdateKind; Out WithReturning : Boolean) : String; + end; + +{ TConnectionHelper } + +function TConnectionHelper.GenerateStatement(Q : TCustomSQLQuery; aKind: TUpdateKind; Out WithReturning : Boolean): String; +begin + WithReturning:=False; + Case aKind of + ukModify : Result:=Self.ConstructUpdateSQL(Q,WithReturning); + ukDelete : Result:=Self.ConstructDeleteSQL(Q); + ukInsert : Result:=Self.ConstructInsertSQL(Q,WithReturning); + end; +end; + + { TSQLQueryEditor } -procedure TSQLQueryEditor.EditSQL; +procedure TSQLQueryEditor.DesignUpdateSQL(aQuery: TSQLQuery); + +begin + if GenerateSQL(aQuery) then + Modified; +end; + +procedure TSQLQueryEditor.GenerateUpdateSQL(aQuery: TSQLQuery); + +Var + TH : TConnectionHelper; + R : Boolean; + +begin + if not Assigned(aQuery.SQLConnection) then + ShowMessage(SErrConnectionNotAssigned) + else + begin + TH:=TConnectionHelper(Aquery.SQLConnection); + R:=False; + aQuery.UpdateSQL.Text:=TH.GenerateStatement(aQuery,ukModify,R); + aQuery.DeleteSQL.Text:=TH.GenerateStatement(aQuery,ukDelete,R); + aQuery.InsertSQL.Text:=TH.GenerateStatement(aQuery,ukInsert,R); + Modified; + end; +end; + +procedure TSQLQueryEditor.EditSQL(aQuery : TSQLQuery); var TheDialog:TSQLStringsPropertyEditorDlg; Strings :TStrings; - Query :TSQLQuery; + begin - Query := Component as TSQLQuery; - Strings := Query.SQL; + Strings := aQuery.SQL; TheDialog := TSQLStringsPropertyEditorDlg.Create(Application); try TheDialog.SQLEditor.Text := Strings.Text; TheDialog.Caption := Format(SSQLStringsPropertyEditorDlgTitle, ['SQL']); - TheDialog.Connection := (Query.DataBase as TSQLConnection); - TheDialog.Transaction := (Query.Transaction as TSQLTransaction); + TheDialog.Connection := (aQuery.DataBase as TSQLConnection); + TheDialog.Transaction := (aQuery.Transaction as TSQLTransaction); if (TheDialog.ShowModal = mrOK)then begin Strings.Text := TheDialog.SQLEditor.Text; @@ -329,26 +385,46 @@ begin FVOffset:=Inherited GetVerbCount; end; -procedure TSQLQueryEditor.ExecuteVerb(Index: integer); +procedure TSQLQueryEditor.DoEditSQL(aQuery: TSQLQuery); + var AHook: TPropertyEditorHook; pe: TPropertyEditor; +begin + if not GetHook(AHook) then + EditSQL(aQuery) + else + begin + pe := TSQLStringsPropertyEditor.Create(AHook, 1); + try + pe.SetPropEntry(0, Component, FindPropInfo(Component, 'SQL')); + pe.Edit; + finally + pe.Free; + end; + end; +end; + + + +procedure TSQLQueryEditor.ExecuteVerb(Index: integer); +var + Q : TSQLQuery; + begin if Index < FVOffset then inherited else - if not GetHook(AHook) then - editSQL + begin + Q:=Component as TSQLQuery; + case Index - FVOffset of + 0 : DoEditSQL(Q); + 1 : GenerateUpdateSQL(Q); + 2 : DesignUpdateSQL(Q); else - begin - pe := TSQLStringsPropertyEditor.Create(AHook, 1); - try - pe.SetPropEntry(0, Component, FindPropInfo(Component, 'SQL')); - pe.Edit; - finally - pe.Free; - end; - end; + // Do nothing + end; + end; end; function TSQLQueryEditor.GetVerb(Index: integer): string; @@ -356,12 +432,16 @@ begin if Index < FVOffset then Result := inherited else - Result := SEditSQL; + case Index - FVOffset of + 0 : Result := SEditSQL; + 1 : Result := SGenerateUpdateSQL; + 2 : Result := SEditUpdateSQL; + end; end; function TSQLQueryEditor.GetVerbCount: integer; begin - Result := FVOffset + 1; + Result := FVOffset + 3; end; { TSQLDBLibraryLoaderConnectionTypePropertyEditor } diff --git a/components/sqldb/sqldblaz.lpk b/components/sqldb/sqldblaz.lpk index 83e011e754..be608d7d41 100644 --- a/components/sqldb/sqldblaz.lpk +++ b/components/sqldb/sqldblaz.lpk @@ -1,6 +1,6 @@ - + @@ -24,7 +24,7 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains code for the IDE and is usually not used by programs."/> - + @@ -39,6 +39,14 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains + + + + + + + + @@ -63,7 +71,6 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains - diff --git a/components/sqldb/sqldblaz.pas b/components/sqldb/sqldblaz.pas index 7ed720c96d..141e814ee8 100644 --- a/components/sqldb/sqldblaz.pas +++ b/components/sqldb/sqldblaz.pas @@ -8,7 +8,7 @@ unit SQLDBLaz; interface uses - registersqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf; + registersqldb, SQLStringsPropertyEditorDlg, generatesqldlg, LazarusPackageIntf; implementation