| 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 |
