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