trunk/design/ibsqleditor.lfm

object IBSQLEditorForm: TIBSQLEditorForm
  Left = 2090
  Height = 425
  Top = 382
  Width = 716
  ActiveControl = PageControl
  Caption = 'IBSQL Editor'
  ClientHeight = 425
  ClientWidth = 716
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Label3: TLabel
    Left = 288
    Height = 14
    Top = 8
    Width = 24
    Caption = 'SQL'
    ParentColor = False
  end
  object SQLText: TMemo
    Left = 288
    Height = 335
    Top = 27
    Width = 418
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoBoth
    TabOrder = 0
  end
  object GenerateBtn: TButton
    Left = 267
    Height = 30
    Top = 374
    Width = 104
    Anchors = [akRight, akBottom]
    Caption = 'Generate SQL'
    OnClick = GenerateBtnClick
    TabOrder = 1
  end
  object Button2: TButton
    Left = 627
    Height = 30
    Top = 374
    Width = 72
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object QuoteFields: TCheckBox
    Left = 16
    Height = 22
    Top = 392
    Width = 125
    Caption = '&Quote Identifiers'
    TabOrder = 3
  end
  object Button1: TButton
    Left = 539
    Height = 30
    Top = 373
    Width = 72
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 4
  end
  object PageControl: TPageControl
    Left = 16
    Height = 337
    Top = 27
    Width = 256
    ActivePage = SelectPage
    TabIndex = 0
    TabOrder = 5
    TabPosition = tpLeft
    object SelectPage: TTabSheet
      Caption = 'Select'
      ClientHeight = 331
      ClientWidth = 189
      OnShow = SelectPageShow
      object Label1: TLabel
        Left = 7
        Height = 14
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label2: TLabel
        Left = 7
        Height = 14
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object Label4: TLabel
        Left = 7
        Height = 14
        Top = 231
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object SelectTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 174
        Anchors = [akTop, akLeft, akRight]
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = SelectTableNamesCloseUp
        TabOrder = 0
      end
      object SelectFieldsList: TListBox
        Left = 7
        Height = 136
        Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
        Top = 69
        Width = 174
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 0
        MultiSelect = True
        OnDblClick = SelectFieldsListDblClick
        ParentShowHint = False
        ScrollWidth = 172
        ShowHint = True
        TabOrder = 1
        TopIndex = -1
      end
      object SelectPrimaryKeys: TListBox
        Left = 7
        Height = 77
        Top = 247
        Width = 174
        Anchors = [akTop, akLeft, akRight, akBottom]
        ItemHeight = 0
        ScrollWidth = 172
        TabOrder = 2
        TopIndex = -1
      end
    end
    object InsertPage: TTabSheet
      Caption = 'Insert'
      ClientHeight = 331
      ClientWidth = 189
      OnShow = InsertPageShow
      object Label8: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label9: TLabel
        Left = 7
        Height = 15
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object InsertTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        Anchors = [akTop, akLeft, akRight]
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = InsertTableNamesCloseUp
        TabOrder = 0
      end
      object InsertFieldsList: TListBox
        Left = 7
        Height = 256
        Hint = 'Select Fields to include in Insert  Statement or leave unselected to select all'
        Top = 69
        Width = 169
        Anchors = [akTop, akLeft, akRight, akBottom]
        ItemHeight = 0
        MultiSelect = True
        OnDblClick = SelectFieldsListDblClick
        ParentShowHint = False
        ScrollWidth = 167
        ShowHint = True
        TabOrder = 1
        TopIndex = -1
      end
    end
    object ModifyPage: TTabSheet
      Caption = 'Modify'
      ClientHeight = 331
      ClientWidth = 189
      OnShow = ModifyPageShow
      object Label10: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label11: TLabel
        Left = 7
        Height = 15
        Top = 53
        Width = 33
        Caption = 'Fields'
        ParentColor = False
      end
      object Label12: TLabel
        Left = 7
        Height = 15
        Top = 228
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object ModifyTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        Anchors = [akTop, akLeft, akRight]
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = ModifyTableNamesCloseUp
        TabOrder = 0
      end
      object ModifyFieldsList: TListBox
        Left = 7
        Height = 104
        Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
        Top = 69
        Width = 169
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 0
        MultiSelect = True
        OnClick = SelectFieldsListDblClick
        ScrollWidth = 167
        TabOrder = 1
        TopIndex = -1
      end
      object ModifyPrimaryKeys: TListBox
        Left = 7
        Height = 77
        Top = 244
        Width = 169
        Anchors = [akTop, akLeft, akRight, akBottom]
        ItemHeight = 0
        OnClick = SelectFieldsListDblClick
        ScrollWidth = 167
        TabOrder = 2
        TopIndex = -1
      end
      object IncludePrimaryKeys: TCheckBox
        Left = 5
        Height = 22
        Top = 181
        Width = 150
        Caption = 'Include Primary keys'
        OnClick = IncludePrimaryKeysClick
        TabOrder = 3
      end
      object Label5: TLabel
        Left = 27
        Height = 15
        Top = 202
        Width = 67
        Caption = 'in Field List'
        ParentColor = False
      end
    end
    object DeletePage: TTabSheet
      Caption = 'Delete'
      ClientHeight = 331
      ClientWidth = 189
      OnShow = DeletePageShow
      object Label14: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 69
        Caption = 'Table Name'
        ParentColor = False
      end
      object Label15: TLabel
        Left = 7
        Height = 15
        Top = 66
        Width = 77
        Caption = 'Primary Keys'
        ParentColor = False
      end
      object DeleteTableNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        Anchors = [akTop, akLeft, akRight]
        AutoComplete = True
        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
        ItemHeight = 0
        OnCloseUp = DeleteTableNamesCloseUp
        TabOrder = 0
      end
      object DeletePrimaryKeys: TListBox
        Left = 7
        Height = 55
        Top = 82
        Width = 167
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 0
        OnDblClick = SelectFieldsListDblClick
        ScrollWidth = 165
        TabOrder = 1
        TopIndex = -1
      end
    end
    object ExecutePage: TTabSheet
      Caption = 'Execute'
      ClientHeight = 331
      ClientWidth = 189
      OnShow = ExecutePageShow
      object Label16: TLabel
        Left = 7
        Height = 15
        Top = 3
        Width = 100
        Caption = 'Procedure Name'
        ParentColor = False
      end
      object Label17: TLabel
        Left = 10
        Height = 15
        Top = 61
        Width = 104
        Caption = 'Input Parameters'
        ParentColor = False
      end
      object Label18: TLabel
        Left = 11
        Height = 15
        Top = 181
        Width = 114
        Caption = 'Output Parameters'
        ParentColor = False
      end
      object ProcedureNames: TComboBox
        Left = 7
        Height = 27
        Top = 19
        Width = 169
        Anchors = [akTop, akLeft, akRight]
        ItemHeight = 0
        OnCloseUp = ProcedureNamesCloseUp
        TabOrder = 0
      end
      object ProcInputList: TListBox
        Left = 6
        Height = 80
        Top = 82
        Width = 164
        Anchors = [akTop, akLeft, akRight]
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 162
        TabOrder = 1
        TopIndex = -1
      end
      object ProcOutputList: TListBox
        Left = 10
        Height = 97
        Top = 201
        Width = 160
        Anchors = [akTop, akLeft, akRight]
        IntegralHeight = True
        ItemHeight = 0
        ScrollWidth = 158
        TabOrder = 2
        TopIndex = -1
      end
      object SelectProcedure: TLabel
        Left = 7
        Height = 14
        Top = 310
        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 TestBtn: TButton
    Left = 403
    Height = 30
    Top = 374
    Width = 66
    Anchors = [akRight, akBottom]
    Caption = 'Test'
    OnClick = TestBtnClick
    TabOrder = 6
  end
  object GenerateParams: TCheckBox
    Left = 16
    Height = 22
    Top = 368
    Width = 171
    Caption = 'Allow DSQL Placeholders'
    TabOrder = 7
  end
  object IBTransaction1: TIBTransaction
    Active = False
    left = 200
    top = 391
  end
end
Revision:	67
Committed:	Tue Oct 3 14:08:11 2017 UTC (6 years, 6 months ago) by tony
File size:	10298 byte(s)
Log Message:	Property Editor positioning tidy up
#	User	Rev	Content
1	tony	7	object IBSQLEditorForm: TIBSQLEditorForm
2	tony	67	Left = 2090
3	tony	19	Height = 425
4	tony	67	Top = 382
5	tony	7	Width = 716
6			ActiveControl = PageControl
7			Caption = 'IBSQL Editor'
8	tony	19	ClientHeight = 425
9	tony	7	ClientWidth = 716
10			OnShow = FormShow
11	tony	67	Position = poScreenCenter
12			LCLVersion = '1.8.0.4'
13	tony	7	object Label3: TLabel
14			Left = 288
15	tony	64	Height = 14
16	tony	7	Top = 8
17	tony	19	Width = 24
18	tony	7	Caption = 'SQL'
19			ParentColor = False
20			end
21			object SQLText: TMemo
22			Left = 288
23	tony	19	Height = 335
24	tony	7	Top = 27
25			Width = 418
26			Anchors = [akTop, akLeft, akRight, akBottom]
27			ScrollBars = ssAutoBoth
28			TabOrder = 0
29			end
30			object GenerateBtn: TButton
31			Left = 267
32			Height = 30
33	tony	19	Top = 374
34	tony	7	Width = 104
35			Anchors = [akRight, akBottom]
36			Caption = 'Generate SQL'
37			OnClick = GenerateBtnClick
38			TabOrder = 1
39			end
40			object Button2: TButton
41			Left = 627
42			Height = 30
43	tony	19	Top = 374
44	tony	7	Width = 72
45			Anchors = [akRight, akBottom]
46			Cancel = True
47			Caption = 'Cancel'
48			ModalResult = 2
49			TabOrder = 2
50			end
51			object QuoteFields: TCheckBox
52			Left = 16
53	tony	37	Height = 22
54	tony	19	Top = 392
55	tony	37	Width = 125
56	tony	7	Caption = '&Quote Identifiers'
57			TabOrder = 3
58			end
59			object Button1: TButton
60			Left = 539
61			Height = 30
62	tony	19	Top = 373
63	tony	7	Width = 72
64			Anchors = [akRight, akBottom]
65			Caption = 'OK'
66			Default = True
67			ModalResult = 1
68			TabOrder = 4
69			end
70			object PageControl: TPageControl
71			Left = 16
72			Height = 337
73			Top = 27
74	tony	64	Width = 256
75	tony	37	ActivePage = SelectPage
76			TabIndex = 0
77	tony	7	TabOrder = 5
78	tony	37	TabPosition = tpLeft
79	tony	7	object SelectPage: TTabSheet
80			Caption = 'Select'
81	tony	37	ClientHeight = 331
82	tony	64	ClientWidth = 189
83	tony	7	OnShow = SelectPageShow
84			object Label1: TLabel
85			Left = 7
86	tony	64	Height = 14
87	tony	7	Top = 3
88	tony	21	Width = 69
89	tony	7	Caption = 'Table Name'
90			ParentColor = False
91			end
92			object Label2: TLabel
93			Left = 7
94	tony	64	Height = 14
95	tony	7	Top = 53
96	tony	21	Width = 33
97	tony	7	Caption = 'Fields'
98			ParentColor = False
99			end
100			object Label4: TLabel
101			Left = 7
102	tony	64	Height = 14
103	tony	7	Top = 231
104	tony	21	Width = 77
105	tony	7	Caption = 'Primary Keys'
106			ParentColor = False
107			end
108			object SelectTableNames: TComboBox
109			Left = 7
110	tony	21	Height = 27
111	tony	7	Top = 19
112	tony	64	Width = 174
113	tony	37	Anchors = [akTop, akLeft, akRight]
114	tony	21	AutoComplete = True
115			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
116	tony	7	ItemHeight = 0
117			OnCloseUp = SelectTableNamesCloseUp
118			TabOrder = 0
119			end
120			object SelectFieldsList: TListBox
121			Left = 7
122			Height = 136
123			Hint = 'Select Fields to include in Select Statement or leave unselected to select all'
124			Top = 69
125	tony	64	Width = 174
126	tony	37	Anchors = [akTop, akLeft, akRight]
127	tony	7	ItemHeight = 0
128			MultiSelect = True
129			OnDblClick = SelectFieldsListDblClick
130			ParentShowHint = False
131	tony	64	ScrollWidth = 172
132	tony	7	ShowHint = True
133			TabOrder = 1
134			TopIndex = -1
135			end
136			object SelectPrimaryKeys: TListBox
137			Left = 7
138	tony	37	Height = 77
139	tony	7	Top = 247
140	tony	64	Width = 174
141	tony	37	Anchors = [akTop, akLeft, akRight, akBottom]
142	tony	7	ItemHeight = 0
143	tony	64	ScrollWidth = 172
144	tony	7	TabOrder = 2
145			TopIndex = -1
146			end
147			end
148			object InsertPage: TTabSheet
149			Caption = 'Insert'
150	tony	37	ClientHeight = 331
151	tony	64	ClientWidth = 189
152	tony	7	OnShow = InsertPageShow
153			object Label8: TLabel
154			Left = 7
155	tony	21	Height = 15
156	tony	7	Top = 3
157	tony	21	Width = 69
158	tony	7	Caption = 'Table Name'
159			ParentColor = False
160			end
161			object Label9: TLabel
162			Left = 7
163	tony	21	Height = 15
164	tony	7	Top = 53
165	tony	21	Width = 33
166	tony	7	Caption = 'Fields'
167			ParentColor = False
168			end
169			object InsertTableNames: TComboBox
170			Left = 7
171	tony	21	Height = 27
172	tony	7	Top = 19
173			Width = 169
174	tony	37	Anchors = [akTop, akLeft, akRight]
175	tony	21	AutoComplete = True
176			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
177	tony	7	ItemHeight = 0
178			OnCloseUp = InsertTableNamesCloseUp
179			TabOrder = 0
180			end
181			object InsertFieldsList: TListBox
182			Left = 7
183	tony	37	Height = 256
184	tony	7	Hint = 'Select Fields to include in Insert Statement or leave unselected to select all'
185			Top = 69
186			Width = 169
187	tony	37	Anchors = [akTop, akLeft, akRight, akBottom]
188	tony	7	ItemHeight = 0
189			MultiSelect = True
190			OnDblClick = SelectFieldsListDblClick
191			ParentShowHint = False
192	tony	19	ScrollWidth = 167
193	tony	7	ShowHint = True
194			TabOrder = 1
195			TopIndex = -1
196			end
197			end
198			object ModifyPage: TTabSheet
199			Caption = 'Modify'
200	tony	37	ClientHeight = 331
201	tony	64	ClientWidth = 189
202	tony	7	OnShow = ModifyPageShow
203			object Label10: TLabel
204			Left = 7
205	tony	21	Height = 15
206	tony	7	Top = 3
207	tony	21	Width = 69
208	tony	7	Caption = 'Table Name'
209			ParentColor = False
210			end
211			object Label11: TLabel
212			Left = 7
213	tony	21	Height = 15
214	tony	7	Top = 53
215	tony	21	Width = 33
216	tony	7	Caption = 'Fields'
217			ParentColor = False
218			end
219			object Label12: TLabel
220			Left = 7
221	tony	21	Height = 15
222	tony	7	Top = 228
223	tony	21	Width = 77
224	tony	7	Caption = 'Primary Keys'
225			ParentColor = False
226			end
227			object ModifyTableNames: TComboBox
228			Left = 7
229	tony	21	Height = 27
230	tony	7	Top = 19
231			Width = 169
232	tony	37	Anchors = [akTop, akLeft, akRight]
233	tony	21	AutoComplete = True
234			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235	tony	7	ItemHeight = 0
236			OnCloseUp = ModifyTableNamesCloseUp
237			TabOrder = 0
238			end
239			object ModifyFieldsList: TListBox
240			Left = 7
241			Height = 104
242			Hint = 'Select Fields to include in Update Statement or leave unselected to select all'
243			Top = 69
244			Width = 169
245	tony	37	Anchors = [akTop, akLeft, akRight]
246	tony	7	ItemHeight = 0
247			MultiSelect = True
248			OnClick = SelectFieldsListDblClick
249	tony	19	ScrollWidth = 167
250	tony	7	TabOrder = 1
251			TopIndex = -1
252			end
253			object ModifyPrimaryKeys: TListBox
254			Left = 7
255	tony	37	Height = 77
256	tony	7	Top = 244
257	tony	37	Width = 169
258			Anchors = [akTop, akLeft, akRight, akBottom]
259	tony	7	ItemHeight = 0
260			OnClick = SelectFieldsListDblClick
261	tony	37	ScrollWidth = 167
262	tony	7	TabOrder = 2
263			TopIndex = -1
264			end
265			object IncludePrimaryKeys: TCheckBox
266			Left = 5
267	tony	37	Height = 22
268	tony	7	Top = 181
269	tony	37	Width = 150
270	tony	7	Caption = 'Include Primary keys'
271			OnClick = IncludePrimaryKeysClick
272			TabOrder = 3
273			end
274			object Label5: TLabel
275			Left = 27
276	tony	21	Height = 15
277	tony	7	Top = 202
278	tony	21	Width = 67
279	tony	7	Caption = 'in Field List'
280			ParentColor = False
281			end
282			end
283			object DeletePage: TTabSheet
284			Caption = 'Delete'
285	tony	37	ClientHeight = 331
286	tony	64	ClientWidth = 189
287	tony	7	OnShow = DeletePageShow
288			object Label14: TLabel
289			Left = 7
290	tony	21	Height = 15
291	tony	7	Top = 3
292	tony	21	Width = 69
293	tony	7	Caption = 'Table Name'
294			ParentColor = False
295			end
296			object Label15: TLabel
297			Left = 7
298	tony	21	Height = 15
299	tony	7	Top = 66
300	tony	21	Width = 77
301	tony	7	Caption = 'Primary Keys'
302			ParentColor = False
303			end
304			object DeleteTableNames: TComboBox
305			Left = 7
306	tony	21	Height = 27
307	tony	7	Top = 19
308			Width = 169
309	tony	37	Anchors = [akTop, akLeft, akRight]
310	tony	21	AutoComplete = True
311			AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
312	tony	7	ItemHeight = 0
313			OnCloseUp = DeleteTableNamesCloseUp
314			TabOrder = 0
315			end
316			object DeletePrimaryKeys: TListBox
317			Left = 7
318			Height = 55
319			Top = 82
320	tony	37	Width = 167
321			Anchors = [akTop, akLeft, akRight]
322	tony	7	ItemHeight = 0
323			OnDblClick = SelectFieldsListDblClick
324	tony	37	ScrollWidth = 165
325	tony	7	TabOrder = 1
326			TopIndex = -1
327			end
328			end
329			object ExecutePage: TTabSheet
330			Caption = 'Execute'
331	tony	37	ClientHeight = 331
332	tony	64	ClientWidth = 189
333	tony	7	OnShow = ExecutePageShow
334			object Label16: TLabel
335			Left = 7
336	tony	19	Height = 15
337	tony	7	Top = 3
338	tony	19	Width = 100
339	tony	7	Caption = 'Procedure Name'
340			ParentColor = False
341			end
342			object Label17: TLabel
343			Left = 10
344	tony	19	Height = 15
345	tony	7	Top = 61
346	tony	19	Width = 104
347	tony	7	Caption = 'Input Parameters'
348			ParentColor = False
349			end
350			object Label18: TLabel
351			Left = 11
352	tony	19	Height = 15
353	tony	7	Top = 181
354	tony	19	Width = 114
355	tony	7	Caption = 'Output Parameters'
356			ParentColor = False
357			end
358			object ProcedureNames: TComboBox
359			Left = 7
360	tony	19	Height = 27
361	tony	7	Top = 19
362			Width = 169
363	tony	37	Anchors = [akTop, akLeft, akRight]
364	tony	7	ItemHeight = 0
365			OnCloseUp = ProcedureNamesCloseUp
366			TabOrder = 0
367			end
368			object ProcInputList: TListBox
369			Left = 6
370			Height = 80
371			Top = 82
372			Width = 164
373	tony	37	Anchors = [akTop, akLeft, akRight]
374	tony	7	IntegralHeight = True
375			ItemHeight = 0
376	tony	19	ScrollWidth = 162
377	tony	7	TabOrder = 1
378			TopIndex = -1
379			end
380			object ProcOutputList: TListBox
381			Left = 10
382	tony	37	Height = 97
383	tony	7	Top = 201
384			Width = 160
385	tony	37	Anchors = [akTop, akLeft, akRight]
386	tony	7	IntegralHeight = True
387			ItemHeight = 0
388	tony	19	ScrollWidth = 158
389	tony	7	TabOrder = 2
390			TopIndex = -1
391			end
392			object SelectProcedure: TLabel
393			Left = 7
394	tony	19	Height = 14
395	tony	37	Top = 310
396	tony	19	Width = 126
397	tony	7	Anchors = [akLeft, akBottom]
398			Caption = 'Is ''Select Procedure'''
399			Font.Height = -11
400			Font.Style = [fsBold]
401			ParentColor = False
402			ParentFont = False
403			Visible = False
404			end
405			end
406			end
407			object TestBtn: TButton
408			Left = 403
409			Height = 30
410	tony	19	Top = 374
411	tony	7	Width = 66
412			Anchors = [akRight, akBottom]
413			Caption = 'Test'
414			OnClick = TestBtnClick
415			TabOrder = 6
416			end
417	tony	19	object GenerateParams: TCheckBox
418			Left = 16
419	tony	37	Height = 22
420	tony	19	Top = 368
421	tony	37	Width = 171
422	tony	19	Caption = 'Allow DSQL Placeholders'
423			TabOrder = 7
424			end
425	tony	7	object IBTransaction1: TIBTransaction
426			Active = False
427			left = 200
428			top = 391
429			end
430			end