trunk/design/ibdataseteditor.lfm

object IBDataSetEditorForm: TIBDataSetEditorForm
  Left = 701
  Height = 410
  Top = 533
  Width = 662
  ActiveControl = PageControl
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'DataSet Editor'
  ClientHeight = 410
  ClientWidth = 662
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.1.0'
  object PageControl: TPageControl
    Left = 8
    Height = 352
    Top = 8
    Width = 641
    ActivePage = FieldsPage
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    object FieldsPage: TTabSheet
      Caption = 'Options'
      ClientHeight = 320
      ClientWidth = 635
      object GroupBox1: TGroupBox
        Left = 8
        Height = 315
        Top = 4
        Width = 617
        Anchors = [akTop, akLeft, akRight, akBottom]
        Caption = ' SQL Generation '
        ClientHeight = 300
        ClientWidth = 615
        TabOrder = 0
        object Label1: TLabel
          Left = 12
          Height = 14
          Top = 18
          Width = 73
          Caption = 'Table &Name:'
          ParentColor = False
        end
        object Label3: TLabel
          Left = 289
          Height = 14
          Top = 18
          Width = 62
          Caption = '&Key Fields:'
          ParentColor = False
        end
        object Label4: TLabel
          Left = 458
          Height = 14
          Top = 18
          Width = 110
          Caption = 'Updateable &Fields:'
          ParentColor = False
        end
        object GenerateButton: TButton
          Left = 9
          Height = 25
          Top = 83
          Width = 168
          Caption = '&Generate SQL'
          OnClick = GenerateButtonClick
          TabOrder = 0
        end
        object QuoteFields: TCheckBox
          Left = 9
          Height = 22
          Top = 160
          Width = 125
          Caption = '&Quote Identifiers'
          TabOrder = 1
        end
        object IncludePrimaryKeys: TCheckBox
          Left = 9
          Height = 22
          Top = 192
          Width = 241
          Caption = 'Include Primary keys in Update SQL'
          TabOrder = 2
        end
        object GenerateParams: TCheckBox
          Left = 9
          Height = 22
          Top = 128
          Width = 171
          Caption = 'Allow DSQL Placeholders'
          TabOrder = 3
        end
        object SelectTableNames: TIBLookupComboEditBox
          Left = 12
          Height = 27
          Top = 32
          Width = 209
          KeyField = 'RDB$RELATION_ID'
          ListField = 'RDB$RELATION_NAME'
          ListFieldIndex = 0
          LookupCache = False
          ScrollListDataset = True
          TabOrder = 4
          AutoInsert = False
          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
          ItemHeight = 0
        end
        object IncludeSysTables: TCheckBox
          Left = 13
          Height = 22
          Top = 59
          Width = 158
          Caption = 'Include System Tables'
          OnChange = IncludeSysTablesChange
          TabOrder = 5
        end
        object PrimaryKeysGrid: TIBDynamicGrid
          Left = 288
          Height = 61
          Top = 35
          Width = 144
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 6
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
        object FieldNamesGrid: TIBDynamicGrid
          Left = 458
          Height = 216
          Top = 32
          Width = 144
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          DataSource = IBSQLEditFrame.FieldsSource
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 7
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
        object SelectSelectAll: TCheckBox
          Left = 456
          Height = 22
          Top = 256
          Width = 134
          Caption = 'Select/Deselect All'
          OnClick = SelectSelectAllClick
          TabOrder = 8
        end
        object Label5: TLabel
          Left = 288
          Height = 14
          Top = 104
          Width = 138
          Caption = '&Computed By Columns'
          ParentColor = False
        end
        object ReadOnlyGrid: TIBDynamicGrid
          Left = 289
          Height = 48
          Top = 119
          Width = 143
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 9
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
        object Label6: TLabel
          Left = 289
          Height = 14
          Top = 176
          Width = 103
          Caption = '&Identity Columns'
          ParentColor = False
        end
        object IdentityGrid: TIBDynamicGrid
          Left = 288
          Height = 56
          Top = 192
          Width = 143
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          DataSource = IBSQLEditFrame.IdentityColsSource
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 10
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
      end
    end
    object SQLPage: TTabSheet
      Caption = 'SQL'
      ClientHeight = 320
      ClientWidth = 635
      OnShow = SQLPageShow
      object Label2: TLabel
        Left = 10
        Height = 14
        Top = 81
        Width = 56
        Caption = 'S&QL Text:'
        ParentColor = False
      end
      object StatementType: TRadioGroup
        Left = 10
        Height = 49
        Top = 9
        Width = 327
        AutoFill = True
        AutoSize = True
        Caption = 'Statement Type'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 5
        ClientHeight = 34
        ClientWidth = 325
        Columns = 5
        ItemIndex = 0
        Items.Strings = (
          '&Select'
          '&Modify'
          '&Insert'
          '&Delete'
          '&Refresh'
        )
        OnClick = StatementTypeClick
        TabOrder = 0
      end
      object TestBtn: TButton
        Left = 539
        Height = 25
        Top = 31
        Width = 75
        Anchors = [akTop, akRight]
        Caption = 'Test'
        OnClick = TestBtnClick
        TabOrder = 1
      end
      inline IBSQLEditFrame1: TIBSQLEditFrame
        Left = 12
        Height = 217
        Top = 95
        Width = 616
        Anchors = [akTop, akLeft, akRight, akBottom]
        ClientHeight = 217
        ClientWidth = 616
        TabOrder = 2
        inherited SQLText: TSynEdit
          Height = 191
          Width = 616
          OnChange = SQLMemoChange
        end
        inherited ToolBar1: TToolBar
          Width = 616
          inherited ToolButton3: TToolButton
            Height = 8
          end
          inherited ToolButton7: TToolButton
            Height = 8
          end
        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 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 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
      end
    end
  end
  object OkButton: TButton
    Left = 480
    Height = 25
    Top = 376
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object CancelButton: TButton
    Left = 573
    Height = 25
    Top = 376
    Width = 75
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
end
Revision:	105
Committed:	Thu Jan 18 14:37:32 2018 UTC (6 years, 11 months ago) by tony
File size:	13685 byte(s)
Log Message:	Property Editor Fixes
#	Content
1	object IBDataSetEditorForm: TIBDataSetEditorForm
2	Left = 701
3	Height = 410
4	Top = 533
5	Width = 662
6	ActiveControl = PageControl
7	BorderIcons = [biSystemMenu]
8	BorderStyle = bsDialog
9	Caption = 'DataSet Editor'
10	ClientHeight = 410
11	ClientWidth = 662
12	OnClose = FormClose
13	OnShow = FormShow
14	Position = poScreenCenter
15	LCLVersion = '1.8.1.0'
16	object PageControl: TPageControl
17	Left = 8
18	Height = 352
19	Top = 8
20	Width = 641
21	ActivePage = FieldsPage
22	Anchors = [akTop, akLeft, akRight, akBottom]
23	TabIndex = 0
24	TabOrder = 0
25	object FieldsPage: TTabSheet
26	Caption = 'Options'
27	ClientHeight = 320
28	ClientWidth = 635
29	object GroupBox1: TGroupBox
30	Left = 8
31	Height = 315
32	Top = 4
33	Width = 617
34	Anchors = [akTop, akLeft, akRight, akBottom]
35	Caption = ' SQL Generation '
36	ClientHeight = 300
37	ClientWidth = 615
38	TabOrder = 0
39	object Label1: TLabel
40	Left = 12
41	Height = 14
42	Top = 18
43	Width = 73
44	Caption = 'Table &Name:'
45	ParentColor = False
46	end
47	object Label3: TLabel
48	Left = 289
49	Height = 14
50	Top = 18
51	Width = 62
52	Caption = '&Key Fields:'
53	ParentColor = False
54	end
55	object Label4: TLabel
56	Left = 458
57	Height = 14
58	Top = 18
59	Width = 110
60	Caption = 'Updateable &Fields:'
61	ParentColor = False
62	end
63	object GenerateButton: TButton
64	Left = 9
65	Height = 25
66	Top = 83
67	Width = 168
68	Caption = '&Generate SQL'
69	OnClick = GenerateButtonClick
70	TabOrder = 0
71	end
72	object QuoteFields: TCheckBox
73	Left = 9
74	Height = 22
75	Top = 160
76	Width = 125
77	Caption = '&Quote Identifiers'
78	TabOrder = 1
79	end
80	object IncludePrimaryKeys: TCheckBox
81	Left = 9
82	Height = 22
83	Top = 192
84	Width = 241
85	Caption = 'Include Primary keys in Update SQL'
86	TabOrder = 2
87	end
88	object GenerateParams: TCheckBox
89	Left = 9
90	Height = 22
91	Top = 128
92	Width = 171
93	Caption = 'Allow DSQL Placeholders'
94	TabOrder = 3
95	end
96	object SelectTableNames: TIBLookupComboEditBox
97	Left = 12
98	Height = 27
99	Top = 32
100	Width = 209
101	KeyField = 'RDB$RELATION_ID'
102	ListField = 'RDB$RELATION_NAME'
103	ListFieldIndex = 0
104	LookupCache = False
105	ScrollListDataset = True
106	TabOrder = 4
107	AutoInsert = False
108	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
109	ItemHeight = 0
110	end
111	object IncludeSysTables: TCheckBox
112	Left = 13
113	Height = 22
114	Top = 59
115	Width = 158
116	Caption = 'Include System Tables'
117	OnChange = IncludeSysTablesChange
118	TabOrder = 5
119	end
120	object PrimaryKeysGrid: TIBDynamicGrid
121	Left = 288
122	Height = 61
123	Top = 35
124	Width = 144
125	Color = clWindow
126	Columns = <
127	item
128	ButtonStyle = cbsCheckboxColumn
129	Title.Caption = 'SELECTED'
130	Width = 30
131	FieldName = 'SELECTED'
132	AutoSizeColumn = False
133	InitialSortColumn = False
134	DBLookupProperties.ItemHeight = 0
135	DBLookupProperties.ItemWidth = 0
136	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
137	end
138	item
139	Title.Caption = 'COLUMNNAME'
140	Width = 64
141	FieldName = 'COLUMNNAME'
142	AutoSizeColumn = True
143	InitialSortColumn = False
144	DBLookupProperties.ItemHeight = 0
145	DBLookupProperties.ItemWidth = 0
146	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
147	end>
148	FixedCols = 0
149	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
150	Scrollbars = ssAutoVertical
151	TabOrder = 6
152	ExpandEditorPanelBelowRow = False
153	Descending = False
154	EditorBorderStyle = bsSingle
155	DefaultPositionAtEnd = False
156	end
157	object FieldNamesGrid: TIBDynamicGrid
158	Left = 458
159	Height = 216
160	Top = 32
161	Width = 144
162	Color = clWindow
163	Columns = <
164	item
165	ButtonStyle = cbsCheckboxColumn
166	Title.Caption = 'SELECTED'
167	Width = 30
168	FieldName = 'SELECTED'
169	AutoSizeColumn = False
170	InitialSortColumn = False
171	DBLookupProperties.ItemHeight = 0
172	DBLookupProperties.ItemWidth = 0
173	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
174	end
175	item
176	Title.Caption = 'COLUMNNAME'
177	Width = 64
178	FieldName = 'COLUMNNAME'
179	AutoSizeColumn = True
180	InitialSortColumn = False
181	DBLookupProperties.ItemHeight = 0
182	DBLookupProperties.ItemWidth = 0
183	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
184	end>
185	DataSource = IBSQLEditFrame.FieldsSource
186	FixedCols = 0
187	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
188	Scrollbars = ssAutoVertical
189	TabOrder = 7
190	ExpandEditorPanelBelowRow = False
191	Descending = False
192	EditorBorderStyle = bsSingle
193	DefaultPositionAtEnd = False
194	end
195	object SelectSelectAll: TCheckBox
196	Left = 456
197	Height = 22
198	Top = 256
199	Width = 134
200	Caption = 'Select/Deselect All'
201	OnClick = SelectSelectAllClick
202	TabOrder = 8
203	end
204	object Label5: TLabel
205	Left = 288
206	Height = 14
207	Top = 104
208	Width = 138
209	Caption = '&Computed By Columns'
210	ParentColor = False
211	end
212	object ReadOnlyGrid: TIBDynamicGrid
213	Left = 289
214	Height = 48
215	Top = 119
216	Width = 143
217	Color = clWindow
218	Columns = <
219	item
220	ButtonStyle = cbsCheckboxColumn
221	Title.Caption = 'SELECTED'
222	Width = 30
223	FieldName = 'SELECTED'
224	AutoSizeColumn = False
225	InitialSortColumn = False
226	DBLookupProperties.ItemHeight = 0
227	DBLookupProperties.ItemWidth = 0
228	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
229	end
230	item
231	Title.Caption = 'COLUMNNAME'
232	Width = 64
233	FieldName = 'COLUMNNAME'
234	AutoSizeColumn = True
235	InitialSortColumn = False
236	DBLookupProperties.ItemHeight = 0
237	DBLookupProperties.ItemWidth = 0
238	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
239	end>
240	FixedCols = 0
241	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
242	Scrollbars = ssAutoVertical
243	TabOrder = 9
244	ExpandEditorPanelBelowRow = False
245	Descending = False
246	EditorBorderStyle = bsSingle
247	DefaultPositionAtEnd = False
248	end
249	object Label6: TLabel
250	Left = 289
251	Height = 14
252	Top = 176
253	Width = 103
254	Caption = '&Identity Columns'
255	ParentColor = False
256	end
257	object IdentityGrid: TIBDynamicGrid
258	Left = 288
259	Height = 56
260	Top = 192
261	Width = 143
262	Color = clWindow
263	Columns = <
264	item
265	ButtonStyle = cbsCheckboxColumn
266	Title.Caption = 'SELECTED'
267	Width = 30
268	FieldName = 'SELECTED'
269	AutoSizeColumn = False
270	InitialSortColumn = False
271	DBLookupProperties.ItemHeight = 0
272	DBLookupProperties.ItemWidth = 0
273	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
274	end
275	item
276	Title.Caption = 'COLUMNNAME'
277	Width = 64
278	FieldName = 'COLUMNNAME'
279	AutoSizeColumn = True
280	InitialSortColumn = False
281	DBLookupProperties.ItemHeight = 0
282	DBLookupProperties.ItemWidth = 0
283	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
284	end>
285	DataSource = IBSQLEditFrame.IdentityColsSource
286	FixedCols = 0
287	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
288	Scrollbars = ssAutoVertical
289	TabOrder = 10
290	ExpandEditorPanelBelowRow = False
291	Descending = False
292	EditorBorderStyle = bsSingle
293	DefaultPositionAtEnd = False
294	end
295	end
296	end
297	object SQLPage: TTabSheet
298	Caption = 'SQL'
299	ClientHeight = 320
300	ClientWidth = 635
301	OnShow = SQLPageShow
302	object Label2: TLabel
303	Left = 10
304	Height = 14
305	Top = 81
306	Width = 56
307	Caption = 'S&QL Text:'
308	ParentColor = False
309	end
310	object StatementType: TRadioGroup
311	Left = 10
312	Height = 49
313	Top = 9
314	Width = 327
315	AutoFill = True
316	AutoSize = True
317	Caption = 'Statement Type'
318	ChildSizing.LeftRightSpacing = 6
319	ChildSizing.TopBottomSpacing = 6
320	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
321	ChildSizing.EnlargeVertical = crsHomogenousChildResize
322	ChildSizing.ShrinkHorizontal = crsScaleChilds
323	ChildSizing.ShrinkVertical = crsScaleChilds
324	ChildSizing.Layout = cclLeftToRightThenTopToBottom
325	ChildSizing.ControlsPerLine = 5
326	ClientHeight = 34
327	ClientWidth = 325
328	Columns = 5
329	ItemIndex = 0
330	Items.Strings = (
331	'&Select'
332	'&Modify'
333	'&Insert'
334	'&Delete'
335	'&Refresh'
336	)
337	OnClick = StatementTypeClick
338	TabOrder = 0
339	end
340	object TestBtn: TButton
341	Left = 539
342	Height = 25
343	Top = 31
344	Width = 75
345	Anchors = [akTop, akRight]
346	Caption = 'Test'
347	OnClick = TestBtnClick
348	TabOrder = 1
349	end
350	inline IBSQLEditFrame1: TIBSQLEditFrame
351	Left = 12
352	Height = 217
353	Top = 95
354	Width = 616
355	Anchors = [akTop, akLeft, akRight, akBottom]
356	ClientHeight = 217
357	ClientWidth = 616
358	TabOrder = 2
359	inherited SQLText: TSynEdit
360	Height = 191
361	Width = 616
362	OnChange = SQLMemoChange
363	end
364	inherited ToolBar1: TToolBar
365	Width = 616
366	inherited ToolButton3: TToolButton
367	Height = 8
368	end
369	inherited ToolButton7: TToolButton
370	Height = 8
371	end
372	end
373	inherited FieldNameList: TIBQuery
374	ParamData = <
375	item
376	DataType = ftUnknown
377	Name = 'RDB$RELATION_NAME'
378	ParamType = ptInput
379	end>
380	end
381	inherited PrimaryKeys: TIBQuery
382	ParamData = <
383	item
384	DataType = ftUnknown
385	Name = 'RDB$RELATION_NAME'
386	ParamType = ptInput
387	end>
388	end
389	inherited ProcInputParams: TIBQuery
390	ParamData = <
391	item
392	DataType = ftUnknown
393	Name = 'RDB$PROCEDURE_NAME'
394	ParamType = ptInput
395	end>
396	end
397	inherited ProcOutputParams: TIBQuery
398	ParamData = <
399	item
400	DataType = ftUnknown
401	Name = 'RDB$PROCEDURE_NAME'
402	ParamType = ptInput
403	end>
404	end
405	inherited IdentityCols: TIBQuery
406	ParamData = <
407	item
408	DataType = ftUnknown
409	Name = 'RDB$RELATION_NAME'
410	ParamType = ptInput
411	end>
412	end
413	inherited ReadOnlyFields: TIBQuery
414	ParamData = <
415	item
416	DataType = ftUnknown
417	Name = 'RDB$RELATION_NAME'
418	ParamType = ptInput
419	end>
420	end
421	end
422	end
423	end
424	object OkButton: TButton
425	Left = 480
426	Height = 25
427	Top = 376
428	Width = 75
429	Anchors = [akRight, akBottom]
430	Caption = '&OK'
431	Default = True
432	ModalResult = 1
433	TabOrder = 1
434	end
435	object CancelButton: TButton
436	Left = 573
437	Height = 25
438	Top = 376
439	Width = 75
440	Anchors = [akRight, akBottom]
441	Cancel = True
442	Caption = 'Cancel'
443	ModalResult = 2
444	TabOrder = 2
445	end
446	end