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
#	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.2.2.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 = 24
53	Top = 392
54	Width = 127
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 = ExecutePage
75	TabIndex = 4
76	TabOrder = 5
77	object SelectPage: TTabSheet
78	Caption = 'Select'
79	ClientHeight = 300
80	ClientWidth = 243
81	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	ScrollWidth = 167
126	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	ScrollWidth = 157
138	TabOrder = 2
139	TopIndex = -1
140	end
141	end
142	object InsertPage: TTabSheet
143	Caption = 'Insert'
144	ClientHeight = 300
145	ClientWidth = 243
146	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	ScrollWidth = 167
184	ShowHint = True
185	TabOrder = 1
186	TopIndex = -1
187	end
188	end
189	object ModifyPage: TTabSheet
190	Caption = 'Modify'
191	ClientHeight = 300
192	ClientWidth = 243
193	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	ScrollWidth = 167
237	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	ScrollWidth = 157
249	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	ClientHeight = 300
273	ClientWidth = 243
274	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	ScrollWidth = 157
308	TabOrder = 1
309	TopIndex = -1
310	end
311	end
312	object ExecutePage: TTabSheet
313	Caption = 'Execute'
314	ClientHeight = 300
315	ClientWidth = 243
316	OnShow = ExecutePageShow
317	object Label16: TLabel
318	Left = 7
319	Height = 15
320	Top = 3
321	Width = 100
322	Caption = 'Procedure Name'
323	ParentColor = False
324	end
325	object Label17: TLabel
326	Left = 10
327	Height = 15
328	Top = 61
329	Width = 104
330	Caption = 'Input Parameters'
331	ParentColor = False
332	end
333	object Label18: TLabel
334	Left = 11
335	Height = 15
336	Top = 181
337	Width = 114
338	Caption = 'Output Parameters'
339	ParentColor = False
340	end
341	object ProcedureNames: TComboBox
342	Left = 7
343	Height = 27
344	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	ScrollWidth = 162
358	TabOrder = 1
359	TopIndex = -1
360	end
361	object ProcOutputList: TListBox
362	Left = 10
363	Height = 66
364	Top = 201
365	Width = 160
366	Anchors = [akTop, akLeft, akBottom]
367	IntegralHeight = True
368	ItemHeight = 0
369	ScrollWidth = 158
370	TabOrder = 2
371	TopIndex = -1
372	end
373	object SelectProcedure: TLabel
374	Left = 7
375	Height = 14
376	Top = 279
377	Width = 126
378	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	Top = 374
392	Width = 66
393	Anchors = [akRight, akBottom]
394	Caption = 'Test'
395	OnClick = TestBtnClick
396	TabOrder = 6
397	end
398	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	object IBTransaction1: TIBTransaction
407	Active = False
408	left = 200
409	top = 391
410	end
411	end