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.6.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 = InsertPage |
75 |
TabIndex = 1 |
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 = 15 |
85 |
Top = 3 |
86 |
Width = 69 |
87 |
Caption = 'Table Name' |
88 |
ParentColor = False |
89 |
end |
90 |
object Label2: TLabel |
91 |
Left = 7 |
92 |
Height = 15 |
93 |
Top = 53 |
94 |
Width = 33 |
95 |
Caption = 'Fields' |
96 |
ParentColor = False |
97 |
end |
98 |
object Label4: TLabel |
99 |
Left = 7 |
100 |
Height = 15 |
101 |
Top = 231 |
102 |
Width = 77 |
103 |
Caption = 'Primary Keys' |
104 |
ParentColor = False |
105 |
end |
106 |
object SelectTableNames: TComboBox |
107 |
Left = 7 |
108 |
Height = 27 |
109 |
Top = 19 |
110 |
Width = 169 |
111 |
AutoComplete = True |
112 |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
113 |
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 |
ScrollWidth = 167 |
128 |
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 |
ScrollWidth = 157 |
140 |
TabOrder = 2 |
141 |
TopIndex = -1 |
142 |
end |
143 |
end |
144 |
object InsertPage: TTabSheet |
145 |
Caption = 'Insert' |
146 |
ClientHeight = 300 |
147 |
ClientWidth = 243 |
148 |
OnShow = InsertPageShow |
149 |
object Label8: TLabel |
150 |
Left = 7 |
151 |
Height = 15 |
152 |
Top = 3 |
153 |
Width = 69 |
154 |
Caption = 'Table Name' |
155 |
ParentColor = False |
156 |
end |
157 |
object Label9: TLabel |
158 |
Left = 7 |
159 |
Height = 15 |
160 |
Top = 53 |
161 |
Width = 33 |
162 |
Caption = 'Fields' |
163 |
ParentColor = False |
164 |
end |
165 |
object InsertTableNames: TComboBox |
166 |
Left = 7 |
167 |
Height = 27 |
168 |
Top = 19 |
169 |
Width = 169 |
170 |
AutoComplete = True |
171 |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
172 |
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 |
ScrollWidth = 167 |
188 |
ShowHint = True |
189 |
TabOrder = 1 |
190 |
TopIndex = -1 |
191 |
end |
192 |
end |
193 |
object ModifyPage: TTabSheet |
194 |
Caption = 'Modify' |
195 |
ClientHeight = 300 |
196 |
ClientWidth = 243 |
197 |
OnShow = ModifyPageShow |
198 |
object Label10: TLabel |
199 |
Left = 7 |
200 |
Height = 15 |
201 |
Top = 3 |
202 |
Width = 69 |
203 |
Caption = 'Table Name' |
204 |
ParentColor = False |
205 |
end |
206 |
object Label11: TLabel |
207 |
Left = 7 |
208 |
Height = 15 |
209 |
Top = 53 |
210 |
Width = 33 |
211 |
Caption = 'Fields' |
212 |
ParentColor = False |
213 |
end |
214 |
object Label12: TLabel |
215 |
Left = 7 |
216 |
Height = 15 |
217 |
Top = 228 |
218 |
Width = 77 |
219 |
Caption = 'Primary Keys' |
220 |
ParentColor = False |
221 |
end |
222 |
object ModifyTableNames: TComboBox |
223 |
Left = 7 |
224 |
Height = 27 |
225 |
Top = 19 |
226 |
Width = 169 |
227 |
AutoComplete = True |
228 |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
229 |
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 |
ScrollWidth = 167 |
243 |
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 |
ScrollWidth = 157 |
255 |
TabOrder = 2 |
256 |
TopIndex = -1 |
257 |
end |
258 |
object IncludePrimaryKeys: TCheckBox |
259 |
Left = 5 |
260 |
Height = 24 |
261 |
Top = 181 |
262 |
Width = 152 |
263 |
Caption = 'Include Primary keys' |
264 |
OnClick = IncludePrimaryKeysClick |
265 |
TabOrder = 3 |
266 |
end |
267 |
object Label5: TLabel |
268 |
Left = 27 |
269 |
Height = 15 |
270 |
Top = 202 |
271 |
Width = 67 |
272 |
Caption = 'in Field List' |
273 |
ParentColor = False |
274 |
end |
275 |
end |
276 |
object DeletePage: TTabSheet |
277 |
Caption = 'Delete' |
278 |
ClientHeight = 300 |
279 |
ClientWidth = 243 |
280 |
OnShow = DeletePageShow |
281 |
object Label14: TLabel |
282 |
Left = 7 |
283 |
Height = 15 |
284 |
Top = 3 |
285 |
Width = 69 |
286 |
Caption = 'Table Name' |
287 |
ParentColor = False |
288 |
end |
289 |
object Label15: TLabel |
290 |
Left = 7 |
291 |
Height = 15 |
292 |
Top = 66 |
293 |
Width = 77 |
294 |
Caption = 'Primary Keys' |
295 |
ParentColor = False |
296 |
end |
297 |
object DeleteTableNames: TComboBox |
298 |
Left = 7 |
299 |
Height = 27 |
300 |
Top = 19 |
301 |
Width = 169 |
302 |
AutoComplete = True |
303 |
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
304 |
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 |
ScrollWidth = 157 |
316 |
TabOrder = 1 |
317 |
TopIndex = -1 |
318 |
end |
319 |
end |
320 |
object ExecutePage: TTabSheet |
321 |
Caption = 'Execute' |
322 |
ClientHeight = 300 |
323 |
ClientWidth = 243 |
324 |
OnShow = ExecutePageShow |
325 |
object Label16: TLabel |
326 |
Left = 7 |
327 |
Height = 15 |
328 |
Top = 3 |
329 |
Width = 100 |
330 |
Caption = 'Procedure Name' |
331 |
ParentColor = False |
332 |
end |
333 |
object Label17: TLabel |
334 |
Left = 10 |
335 |
Height = 15 |
336 |
Top = 61 |
337 |
Width = 104 |
338 |
Caption = 'Input Parameters' |
339 |
ParentColor = False |
340 |
end |
341 |
object Label18: TLabel |
342 |
Left = 11 |
343 |
Height = 15 |
344 |
Top = 181 |
345 |
Width = 114 |
346 |
Caption = 'Output Parameters' |
347 |
ParentColor = False |
348 |
end |
349 |
object ProcedureNames: TComboBox |
350 |
Left = 7 |
351 |
Height = 27 |
352 |
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 |
ScrollWidth = 162 |
366 |
TabOrder = 1 |
367 |
TopIndex = -1 |
368 |
end |
369 |
object ProcOutputList: TListBox |
370 |
Left = 10 |
371 |
Height = 66 |
372 |
Top = 201 |
373 |
Width = 160 |
374 |
Anchors = [akTop, akLeft, akBottom] |
375 |
IntegralHeight = True |
376 |
ItemHeight = 0 |
377 |
ScrollWidth = 158 |
378 |
TabOrder = 2 |
379 |
TopIndex = -1 |
380 |
end |
381 |
object SelectProcedure: TLabel |
382 |
Left = 7 |
383 |
Height = 14 |
384 |
Top = 279 |
385 |
Width = 126 |
386 |
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 |
Top = 374 |
400 |
Width = 66 |
401 |
Anchors = [akRight, akBottom] |
402 |
Caption = 'Test' |
403 |
OnClick = TestBtnClick |
404 |
TabOrder = 6 |
405 |
end |
406 |
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 |
object IBTransaction1: TIBTransaction |
415 |
Active = False |
416 |
left = 200 |
417 |
top = 391 |
418 |
end |
419 |
end |