trunk/design/ibsqleditor.lfm

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