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