object IBSelectSQLEditorForm: TIBSelectSQLEditorForm Left = 582 Height = 437 Top = 460 Width = 747 ActiveControl = PageControl Caption = 'Select SQL Editor' ClientHeight = 437 ClientWidth = 747 OnShow = FormShow LCLVersion = '1.2.6.0' object Label3: TLabel Left = 279 Height = 15 Top = 16 Width = 24 Caption = 'SQL' ParentColor = False end object SQLText: TMemo Left = 279 Height = 327 Top = 36 Width = 437 Anchors = [akTop, akLeft, akRight, akBottom] ScrollBars = ssAutoBoth TabOrder = 0 end object Button1: TButton Left = 550 Height = 30 Top = 379 Width = 72 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 end object Button2: TButton Left = 638 Height = 30 Top = 379 Width = 72 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object GenerateBtn: TButton Left = 278 Height = 30 Top = 379 Width = 101 Anchors = [akRight, akBottom] Caption = 'Generate SQL' OnClick = GenerateBtnClick TabOrder = 3 end object TestBtn: TButton Left = 414 Height = 30 Top = 379 Width = 66 Anchors = [akRight, akBottom] Caption = 'Test' OnClick = TestBtnClick TabOrder = 4 end object QuoteFields: TCheckBox Left = 24 Height = 22 Top = 400 Width = 125 Caption = '&Quote Identifiers' TabOrder = 5 end object PageControl: TPageControl Left = 24 Height = 335 Top = 28 Width = 232 ActivePage = ExecutePage TabIndex = 1 TabOrder = 6 object SelectPage: TTabSheet Caption = 'Tables' ClientHeight = 302 ClientWidth = 226 OnShow = SelectPageShow object Label1: TLabel Left = 7 Height = 15 Top = 4 Width = 69 Caption = 'Table Name' ParentColor = False end object Label2: TLabel Left = 7 Height = 15 Top = 72 Width = 33 Caption = 'Fields' ParentColor = False end object Label4: TLabel Left = 7 Height = 15 Top = 244 Width = 77 Caption = 'Primary Keys' ParentColor = False end object TableNamesCombo: TComboBox Left = 6 Height = 27 Top = 20 Width = 201 AutoComplete = True AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] ItemHeight = 0 OnCloseUp = TableNamesComboCloseUp TabOrder = 0 end object FieldList: TListBox Left = 7 Height = 138 Hint = 'Select Fields to include in Select Statements, or leave unselected to select all' Top = 92 Width = 204 ItemHeight = 0 MultiSelect = True OnDblClick = FieldListDblClick ParentShowHint = False ScrollWidth = 202 ShowHint = True TabOrder = 1 TopIndex = -1 end object PrimaryKeyList: TListBox Left = 7 Height = 28 Top = 260 Width = 200 ItemHeight = 0 OnDblClick = PrimaryKeyListDblClick ScrollWidth = 198 TabOrder = 2 TopIndex = -1 end end object ExecutePage: TTabSheet Caption = 'Procedures' ClientHeight = 302 ClientWidth = 226 OnShow = ExecutePageShow object Label16: TLabel Left = 7 Height = 15 Top = 3 Width = 100 Caption = 'Procedure Name' ParentColor = False end object Label17: TLabel Left = 7 Height = 15 Top = 60 Width = 104 Caption = 'Input Parameters' ParentColor = False end object Label18: TLabel Left = 8 Height = 15 Top = 172 Width = 114 Caption = 'Output Parameters' ParentColor = False end object ProcedureNames: TComboBox Left = 7 Height = 27 Top = 20 Width = 201 ItemHeight = 0 OnCloseUp = ProcedureNamesCloseUp ParentColor = True TabOrder = 0 end object ProcInputList: TListBox Left = 7 Height = 80 Top = 81 Width = 198 IntegralHeight = True ItemHeight = 0 ScrollWidth = 196 TabOrder = 1 TopIndex = -1 end object ProcOutputList: TListBox Left = 7 Height = 80 Top = 192 Width = 198 IntegralHeight = True ItemHeight = 0 ScrollWidth = 196 TabOrder = 2 TopIndex = -1 end object SelectProcedure: TLabel Left = 7 Height = 14 Top = 285 Width = 126 Anchors = [akLeft, akBottom] Caption = 'Is ''Select Procedure''' Font.Height = -11 Font.Style = [fsBold] ParentColor = False ParentFont = False Visible = False end end end object GenerateParams: TCheckBox Left = 24 Height = 22 Top = 376 Width = 171 Caption = 'Allow DSQL Placeholders' TabOrder = 7 end object IBTransaction1: TIBTransaction Active = False left = 212 top = 390 end end