73 |
|
Height = 405 |
74 |
|
Top = 8 |
75 |
|
Width = 232 |
76 |
< |
ActivePage = SelectPage |
77 |
< |
TabIndex = 0 |
76 |
> |
ActivePage = ExecutePage |
77 |
> |
TabIndex = 1 |
78 |
|
TabOrder = 5 |
79 |
|
object SelectPage: TTabSheet |
80 |
|
Caption = 'Tables' |
223 |
|
ClientWidth = 226 |
224 |
|
OnShow = ExecutePageShow |
225 |
|
object Label16: TLabel |
226 |
< |
Left = 7 |
226 |
> |
Left = 9 |
227 |
|
Height = 14 |
228 |
< |
Top = 3 |
228 |
> |
Top = 56 |
229 |
|
Width = 100 |
230 |
|
Caption = 'Procedure Name' |
231 |
|
ParentColor = False |
232 |
|
end |
233 |
|
object Label17: TLabel |
234 |
< |
Left = 7 |
234 |
> |
Left = 9 |
235 |
|
Height = 14 |
236 |
< |
Top = 58 |
236 |
> |
Top = 111 |
237 |
|
Width = 104 |
238 |
|
Caption = 'Input Parameters' |
239 |
|
ParentColor = False |
240 |
|
end |
241 |
|
object Label18: TLabel |
242 |
< |
Left = 8 |
242 |
> |
Left = 10 |
243 |
|
Height = 14 |
244 |
< |
Top = 176 |
244 |
> |
Top = 229 |
245 |
|
Width = 114 |
246 |
|
Caption = 'Output Parameters' |
247 |
|
ParentColor = False |
248 |
|
end |
249 |
– |
object SelectProcedure: TLabel |
250 |
– |
Left = 7 |
251 |
– |
Height = 13 |
252 |
– |
Top = 306 |
253 |
– |
Width = 126 |
254 |
– |
Anchors = [akLeft, akBottom] |
255 |
– |
Caption = 'Is ''Select Procedure''' |
256 |
– |
Font.Height = -11 |
257 |
– |
Font.Style = [fsBold] |
258 |
– |
ParentColor = False |
259 |
– |
ParentFont = False |
260 |
– |
Visible = False |
261 |
– |
end |
249 |
|
object ProcedureNames: TIBLookupComboEditBox |
250 |
< |
Left = 7 |
250 |
> |
Left = 9 |
251 |
|
Height = 27 |
252 |
< |
Top = 17 |
252 |
> |
Top = 70 |
253 |
|
Width = 201 |
254 |
|
KeyField = 'RDB$PROCEDURE_NAME' |
255 |
|
ListField = 'RDB$PROCEDURE_NAME' |
263 |
|
ItemHeight = 0 |
264 |
|
end |
265 |
|
object InputProcGrid: TIBDynamicGrid |
266 |
< |
Left = 7 |
266 |
> |
Left = 9 |
267 |
|
Height = 96 |
268 |
< |
Top = 72 |
268 |
> |
Top = 125 |
269 |
|
Width = 201 |
270 |
|
Color = clWindow |
271 |
|
Columns = < |
272 |
|
item |
286 |
– |
ButtonStyle = cbsCheckboxColumn |
287 |
– |
Title.Caption = 'SELECTED' |
288 |
– |
Width = 30 |
289 |
– |
FieldName = 'SELECTED' |
290 |
– |
AutoSizeColumn = False |
291 |
– |
InitialSortColumn = False |
292 |
– |
DBLookupProperties.ItemHeight = 0 |
293 |
– |
DBLookupProperties.ItemWidth = 0 |
294 |
– |
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
295 |
– |
end |
296 |
– |
item |
273 |
|
Title.Caption = 'COLUMNNAME' |
274 |
|
Width = 64 |
275 |
|
FieldName = 'COLUMNNAME' |
290 |
|
DefaultPositionAtEnd = False |
291 |
|
end |
292 |
|
object OutputProcGrid: TIBDynamicGrid |
293 |
< |
Left = 7 |
293 |
> |
Left = 9 |
294 |
|
Height = 104 |
295 |
< |
Top = 192 |
295 |
> |
Top = 245 |
296 |
|
Width = 201 |
297 |
|
Color = clWindow |
298 |
|
Columns = < |
327 |
|
EditorBorderStyle = bsSingle |
328 |
|
DefaultPositionAtEnd = False |
329 |
|
end |
330 |
+ |
object PackageNameLabel: TLabel |
331 |
+ |
Left = 10 |
332 |
+ |
Height = 14 |
333 |
+ |
Top = 8 |
334 |
+ |
Width = 88 |
335 |
+ |
Caption = 'Package Name' |
336 |
+ |
ParentColor = False |
337 |
+ |
end |
338 |
+ |
object PackageNames: TIBLookupComboEditBox |
339 |
+ |
Left = 9 |
340 |
+ |
Height = 27 |
341 |
+ |
Top = 22 |
342 |
+ |
Width = 200 |
343 |
+ |
AutoComplete = False |
344 |
+ |
KeyField = 'RDB$PACKAGE_NAME' |
345 |
+ |
ListField = 'RDB$PACKAGE_NAME' |
346 |
+ |
ListFieldIndex = 0 |
347 |
+ |
LookupCache = False |
348 |
+ |
OnDblClick = PackageNamesDblClick |
349 |
+ |
ScrollListDataset = True |
350 |
+ |
TabOrder = 3 |
351 |
+ |
AutoInsert = False |
352 |
+ |
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] |
353 |
+ |
ItemHeight = 0 |
354 |
+ |
end |
355 |
|
end |
356 |
|
end |
357 |
|
object GenerateParams: TCheckBox |
396 |
|
ParamType = ptInput |
397 |
|
end> |
398 |
|
end |
398 |
– |
inherited UserProcedures: TIBQuery |
399 |
– |
AfterScroll = UserProceduresAfterScroll |
400 |
– |
end |
399 |
|
inherited ProcInputParams: TIBQuery |
400 |
|
ParamData = < |
401 |
|
item |
431 |
|
ParamType = ptInput |
432 |
|
end> |
433 |
|
end |
434 |
+ |
inherited PackageNames: TIBQuery |
435 |
+ |
BeforeClose = nil |
436 |
+ |
end |
437 |
|
end |
438 |
|
end |