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