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, 3 months ago) by tony
File size:	13685 byte(s)
Log Message:	Property Editor Fixes
#	User	Rev	Content
1	tony	5	object IBDataSetEditorForm: TIBDataSetEditorForm
2	tony	105	Left = 701
3	tony	5	Height = 410
4	tony	105	Top = 533
5	tony	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	tony	67	Position = poScreenCenter
15	tony	80	LCLVersion = '1.8.1.0'
16	tony	5	object PageControl: TPageControl
17			Left = 8
18			Height = 352
19			Top = 8
20			Width = 641
21	tony	21	ActivePage = FieldsPage
22	tony	5	Anchors = [akTop, akLeft, akRight, akBottom]
23	tony	21	TabIndex = 0
24	tony	5	TabOrder = 0
25			object FieldsPage: TTabSheet
26			Caption = 'Options'
27	tony	67	ClientHeight = 320
28			ClientWidth = 635
29	tony	5	object GroupBox1: TGroupBox
30			Left = 8
31	tony	67	Height = 315
32	tony	5	Top = 4
33	tony	67	Width = 617
34	tony	5	Anchors = [akTop, akLeft, akRight, akBottom]
35			Caption = ' SQL Generation '
36	tony	67	ClientHeight = 300
37			ClientWidth = 615
38	tony	5	TabOrder = 0
39			object Label1: TLabel
40			Left = 12
41	tony	67	Height = 14
42	tony	5	Top = 18
43	tony	19	Width = 73
44	tony	5	Caption = 'Table &Name:'
45			ParentColor = False
46			end
47			object Label3: TLabel
48	tony	105	Left = 289
49	tony	67	Height = 14
50	tony	105	Top = 18
51	tony	19	Width = 62
52	tony	5	Caption = '&Key Fields:'
53			ParentColor = False
54			end
55			object Label4: TLabel
56	tony	7	Left = 458
57	tony	67	Height = 14
58	tony	7	Top = 18
59	tony	105	Width = 110
60			Caption = 'Updateable &Fields:'
61	tony	5	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	tony	80	TabOrder = 0
71	tony	5	end
72			object QuoteFields: TCheckBox
73			Left = 9
74	tony	67	Height = 22
75	tony	19	Top = 160
76	tony	67	Width = 125
77	tony	5	Caption = '&Quote Identifiers'
78	tony	80	TabOrder = 1
79	tony	5	end
80	tony	7	object IncludePrimaryKeys: TCheckBox
81	tony	19	Left = 9
82	tony	67	Height = 22
83	tony	19	Top = 192
84	tony	80	Width = 241
85			Caption = 'Include Primary keys in Update SQL'
86			TabOrder = 2
87	tony	7	end
88	tony	19	object GenerateParams: TCheckBox
89			Left = 9
90	tony	67	Height = 22
91	tony	19	Top = 128
92	tony	67	Width = 171
93	tony	19	Caption = 'Allow DSQL Placeholders'
94	tony	80	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	tony	105	Height = 61
123	tony	80	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	tony	19	TabOrder = 6
152	tony	80	ExpandEditorPanelBelowRow = False
153			Descending = False
154			EditorBorderStyle = bsSingle
155			DefaultPositionAtEnd = False
156	tony	19	end
157	tony	80	object FieldNamesGrid: TIBDynamicGrid
158			Left = 458
159	tony	105	Height = 216
160	tony	80	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	tony	105	Top = 256
199	tony	80	Width = 134
200			Caption = 'Select/Deselect All'
201			OnClick = SelectSelectAllClick
202			TabOrder = 8
203			end
204	tony	105	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	tony	5	end
296			end
297			object SQLPage: TTabSheet
298			Caption = 'SQL'
299	tony	67	ClientHeight = 320
300			ClientWidth = 635
301	tony	5	OnShow = SQLPageShow
302			object Label2: TLabel
303			Left = 10
304	tony	80	Height = 14
305	tony	5	Top = 81
306	tony	19	Width = 56
307	tony	5	Caption = 'S&QL Text:'
308			ParentColor = False
309			end
310			object StatementType: TRadioGroup
311			Left = 10
312	tony	80	Height = 49
313	tony	5	Top = 9
314	tony	80	Width = 327
315	tony	5	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	tony	80	ClientHeight = 34
327			ClientWidth = 325
328	tony	5	Columns = 5
329			ItemIndex = 0
330			Items.Strings = (
331			'&Select'
332			'&Modify'
333			'&Insert'
334			'&Delete'
335			'&Refresh'
336			)
337			OnClick = StatementTypeClick
338	tony	80	TabOrder = 0
339	tony	5	end
340	tony	7	object TestBtn: TButton
341	tony	19	Left = 539
342	tony	5	Height = 25
343			Top = 31
344			Width = 75
345			Anchors = [akTop, akRight]
346			Caption = 'Test'
347	tony	7	OnClick = TestBtnClick
348	tony	80	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	tony	5	TabOrder = 2
359	tony	80	inherited SQLText: TSynEdit
360			Height = 191
361			Width = 616
362			OnChange = SQLMemoChange
363			end
364			inherited ToolBar1: TToolBar
365			Width = 616
366	tony	105	inherited ToolButton3: TToolButton
367			Height = 8
368			end
369			inherited ToolButton7: TToolButton
370			Height = 8
371			end
372	tony	80	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	tony	105	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	tony	5	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