trunk/design/ibsqleditor.lfm

inherited IBSQLEditorForm: TIBSQLEditorForm
  Left = 506
  Height = 555
  Top = 383
  Width = 776
  Caption = 'IBSQL Editor'
  ClientHeight = 555
  ClientWidth = 776
  OnShow = FormShow
  inherited Label3: TLabel
    Left = 312
  end
  inherited Button1: TButton
    Left = 576
    Top = 504
  end
  inherited Button2: TButton
    Left = 664
    Top = 504
  end
  inherited GenerateBtn: TButton
    Left = 304
    Top = 504
    OnClick = GenerateBtnClick
  end
  inherited TestBtn: TButton
    Left = 440
    Top = 504
  end
  inherited QuoteFields: TCheckBox
    Left = 11
    Top = 496
  end
  inherited PageControl: TPageControl
    Left = 68
    ShowTabs = False
    inherited SelectPage: TTabSheet
      ClientHeight = 450
      inherited FieldNamesGrid: TIBDynamicGrid
        Height = 104
      end
      inherited SelectSelectAll: TCheckBox
        Top = 424
      end
      inherited ReadOnlyGrid: TIBDynamicGrid
        Left = 9
      end
    end
    inherited ExecutePage: TTabSheet
      ClientHeight = 450
      inherited Label16: TLabel
        Left = 10
      end
      inherited Label17: TLabel
        Top = 128
      end
      inherited Label18: TLabel
        Top = 280
      end
      inherited ProcedureNames: TIBLookupComboEditBox
        Left = 10
        Top = 72
      end
      inherited InputProcGrid: TIBDynamicGrid
        Left = 8
        Height = 122
        Top = 144
      end
      inherited OutputProcGrid: TIBDynamicGrid
        Top = 296
        Columns = <        
          item
            ButtonStyle = cbsCheckboxColumn
            PickList.Strings = (            )
            Title.Caption = 'SELECTED'
            Width = 30
            FieldName = 'SELECTED'
            AutoSizeColumn = False
            InitialSortColumn = False
            DBLookupProperties.ItemHeight = 0
            DBLookupProperties.ItemWidth = 0
            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
          end        
          item
            PickList.Strings = (            )
            Title.Caption = 'COLUMNNAME'
            Width = 64
            FieldName = 'COLUMNNAME'
            AutoSizeColumn = True
            InitialSortColumn = False
            DBLookupProperties.ItemHeight = 0
            DBLookupProperties.ItemWidth = 0
            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
          end>
      end
      object SelectProcedure: TLabel[8]
        Left = 10
        Height = 13
        Top = 104
        Width = 168
        Anchors = [akLeft, akBottom]
        Caption = 'This is a ''Select Procedure'''
        Font.Height = -11
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Visible = False
      end
    end
  end
  inherited GenerateParams: TCheckBox
    Left = 11
    Top = 472
  end
  inherited IBSQLEditFrame1: TIBSQLEditFrame
    Left = 312
    Height = 440
    Top = 24
    Width = 447
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 440
    ClientWidth = 447
    TabOrder = 7
    DesignLeft = 1974
    DesignTop = 200
    inherited SQLText: TSynEdit
      Height = 414
      Width = 447
    end
    inherited ToolBar1: TToolBar
      Width = 447
    end
    inherited FieldNameList: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited PrimaryKeys: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited UserProcedures: TIBQuery
      AfterScroll = UserProceduresAfterScroll
    end
    inherited ProcInputParams: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$PROCEDURE_NAME'
          ParamType = ptInput
        end>
    end
    inherited ProcOutputParams: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$PROCEDURE_NAME'
          ParamType = ptInput
        end>
    end
    inherited SQLTransaction: TIBTransaction
      Params.Strings = (      )
    end
    inherited IdentityCols: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited ReadOnlyFields: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited ReadOnlyFieldsSource: TDataSource
      left = 436
      top = 203
    end
    inherited PackageNames: TIBQuery
      BeforeClose = nil
    end
  end
  object TabControl1: TTabControl[9]
    Left = 11
    Height = 312
    Top = 8
    Width = 59
    OnChange = TabControl1Change
    TabPosition = tpLeft
    TabIndex = 4
    Tabs.Strings = (
      'Select'
      'Insert'
      'Modify'
      'Delete'
      'Execute'
    )
    TabOrder = 8
  end
  object IncludePrimaryKeys: TCheckBox[10]
    Left = 11
    Height = 22
    Top = 520
    Width = 241
    Caption = 'Include Primary keys in Update SQL'
    TabOrder = 9
  end
end
Revision:	107
Committed:	Thu Jan 18 14:37:40 2018 UTC (6 years, 3 months ago) by tony
File size:	5293 byte(s)
Log Message:	Fixes merged
#	User	Rev	Content
1	tony	80	inherited IBSQLEditorForm: TIBSQLEditorForm
2	tony	107	Left = 506
3	tony	106	Height = 555
4	tony	107	Top = 383
5	tony	80	Width = 776
6	tony	7	Caption = 'IBSQL Editor'
7	tony	106	ClientHeight = 555
8	tony	80	ClientWidth = 776
9	tony	7	OnShow = FormShow
10	tony	80	inherited Label3: TLabel
11			Left = 312
12	tony	7	end
13	tony	80	inherited Button1: TButton
14	tony	106	Left = 576
15			Top = 504
16	tony	7	end
17	tony	80	inherited Button2: TButton
18	tony	106	Left = 664
19			Top = 504
20	tony	80	end
21			inherited GenerateBtn: TButton
22	tony	106	Left = 304
23			Top = 504
24	tony	7	OnClick = GenerateBtnClick
25			end
26	tony	80	inherited TestBtn: TButton
27	tony	106	Left = 440
28			Top = 504
29	tony	7	end
30	tony	80	inherited QuoteFields: TCheckBox
31	tony	106	Left = 11
32			Top = 496
33	tony	7	end
34	tony	80	inherited PageControl: TPageControl
35			Left = 68
36			ShowTabs = False
37			inherited SelectPage: TTabSheet
38	tony	106	ClientHeight = 450
39	tony	80	inherited FieldNamesGrid: TIBDynamicGrid
40	tony	106	Height = 104
41	tony	7	end
42	tony	80	inherited SelectSelectAll: TCheckBox
43	tony	106	Top = 424
44	tony	7	end
45	tony	106	inherited ReadOnlyGrid: TIBDynamicGrid
46			Left = 9
47	tony	7	end
48			end
49	tony	80	inherited ExecutePage: TTabSheet
50	tony	106	ClientHeight = 450
51	tony	107	inherited Label16: TLabel
52			Left = 10
53			end
54			inherited Label17: TLabel
55			Top = 128
56			end
57			inherited Label18: TLabel
58			Top = 280
59			end
60			inherited ProcedureNames: TIBLookupComboEditBox
61			Left = 10
62			Top = 72
63			end
64			inherited InputProcGrid: TIBDynamicGrid
65			Left = 8
66			Height = 122
67			Top = 144
68			end
69			inherited OutputProcGrid: TIBDynamicGrid
70			Top = 296
71			Columns = <
72			item
73			ButtonStyle = cbsCheckboxColumn
74			PickList.Strings = ( )
75			Title.Caption = 'SELECTED'
76			Width = 30
77			FieldName = 'SELECTED'
78			AutoSizeColumn = False
79			InitialSortColumn = False
80			DBLookupProperties.ItemHeight = 0
81			DBLookupProperties.ItemWidth = 0
82			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
83			end
84			item
85			PickList.Strings = ( )
86			Title.Caption = 'COLUMNNAME'
87			Width = 64
88			FieldName = 'COLUMNNAME'
89			AutoSizeColumn = True
90			InitialSortColumn = False
91			DBLookupProperties.ItemHeight = 0
92			DBLookupProperties.ItemWidth = 0
93			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
94			end>
95			end
96			object SelectProcedure: TLabel[8]
97			Left = 10
98			Height = 13
99			Top = 104
100			Width = 168
101			Anchors = [akLeft, akBottom]
102			Caption = 'This is a ''Select Procedure'''
103			Font.Height = -11
104			Font.Style = [fsBold]
105			ParentColor = False
106			ParentFont = False
107			Visible = False
108			end
109	tony	7	end
110			end
111	tony	80	inherited GenerateParams: TCheckBox
112	tony	106	Left = 11
113			Top = 472
114	tony	7	end
115	tony	80	inherited IBSQLEditFrame1: TIBSQLEditFrame
116			Left = 312
117	tony	106	Height = 440
118	tony	80	Top = 24
119			Width = 447
120			Anchors = [akTop, akLeft, akRight, akBottom]
121	tony	106	ClientHeight = 440
122	tony	80	ClientWidth = 447
123	tony	19	TabOrder = 7
124	tony	80	DesignLeft = 1974
125			DesignTop = 200
126			inherited SQLText: TSynEdit
127	tony	106	Height = 414
128	tony	80	Width = 447
129			end
130			inherited ToolBar1: TToolBar
131			Width = 447
132			end
133			inherited FieldNameList: TIBQuery
134			ParamData = <
135			item
136			DataType = ftUnknown
137			Name = 'RDB$RELATION_NAME'
138			ParamType = ptInput
139			end>
140			end
141			inherited PrimaryKeys: TIBQuery
142			ParamData = <
143			item
144			DataType = ftUnknown
145			Name = 'RDB$RELATION_NAME'
146			ParamType = ptInput
147			end>
148			end
149			inherited UserProcedures: TIBQuery
150			AfterScroll = UserProceduresAfterScroll
151			end
152			inherited ProcInputParams: TIBQuery
153			ParamData = <
154			item
155			DataType = ftUnknown
156			Name = 'RDB$PROCEDURE_NAME'
157			ParamType = ptInput
158			end>
159			end
160			inherited ProcOutputParams: TIBQuery
161			ParamData = <
162			item
163			DataType = ftUnknown
164			Name = 'RDB$PROCEDURE_NAME'
165			ParamType = ptInput
166			end>
167			end
168			inherited SQLTransaction: TIBTransaction
169			Params.Strings = ( )
170			end
171	tony	106	inherited IdentityCols: TIBQuery
172			ParamData = <
173			item
174			DataType = ftUnknown
175			Name = 'RDB$RELATION_NAME'
176			ParamType = ptInput
177			end>
178			end
179			inherited ReadOnlyFields: TIBQuery
180			ParamData = <
181			item
182			DataType = ftUnknown
183			Name = 'RDB$RELATION_NAME'
184			ParamType = ptInput
185			end>
186			end
187			inherited ReadOnlyFieldsSource: TDataSource
188			left = 436
189			top = 203
190			end
191	tony	107	inherited PackageNames: TIBQuery
192			BeforeClose = nil
193			end
194	tony	19	end
195	tony	80	object TabControl1: TTabControl[9]
196			Left = 11
197			Height = 312
198			Top = 8
199			Width = 59
200			OnChange = TabControl1Change
201			TabPosition = tpLeft
202	tony	107	TabIndex = 4
203	tony	80	Tabs.Strings = (
204			'Select'
205			'Insert'
206			'Modify'
207			'Delete'
208			'Execute'
209			)
210			TabOrder = 8
211	tony	7	end
212	tony	106	object IncludePrimaryKeys: TCheckBox[10]
213			Left = 11
214			Height = 22
215			Top = 520
216			Width = 241
217			Caption = 'Include Primary keys in Update SQL'
218			TabOrder = 9
219			end
220	tony	7	end