| 1 |
object Form1: TForm1
|
| 2 |
Left = 577
|
| 3 |
Height = 402
|
| 4 |
Top = 339
|
| 5 |
Width = 773
|
| 6 |
Caption = 'IBX Script Example'
|
| 7 |
ClientHeight = 402
|
| 8 |
ClientWidth = 773
|
| 9 |
OnShow = FormShow
|
| 10 |
LCLVersion = '1.6.0.4'
|
| 11 |
object Label1: TLabel
|
| 12 |
Left = 14
|
| 13 |
Height = 15
|
| 14 |
Top = 16
|
| 15 |
Width = 86
|
| 16 |
Caption = 'Database Name:'
|
| 17 |
ParentColor = False
|
| 18 |
end
|
| 19 |
object Label2: TLabel
|
| 20 |
Left = 14
|
| 21 |
Height = 15
|
| 22 |
Top = 56
|
| 23 |
Width = 30
|
| 24 |
Caption = 'Script'
|
| 25 |
ParentColor = False
|
| 26 |
end
|
| 27 |
object IBScript: TMemo
|
| 28 |
Left = 14
|
| 29 |
Height = 287
|
| 30 |
Top = 72
|
| 31 |
Width = 341
|
| 32 |
Anchors = [akTop, akLeft, akRight, akBottom]
|
| 33 |
Lines.Strings = (
|
| 34 |
'IBScript'
|
| 35 |
)
|
| 36 |
ScrollBars = ssAutoVertical
|
| 37 |
TabOrder = 0
|
| 38 |
end
|
| 39 |
object Button1: TButton
|
| 40 |
Left = 369
|
| 41 |
Height = 30
|
| 42 |
Top = 192
|
| 43 |
Width = 77
|
| 44 |
Action = RunScript
|
| 45 |
Anchors = [akTop, akRight]
|
| 46 |
TabOrder = 1
|
| 47 |
end
|
| 48 |
object Label3: TLabel
|
| 49 |
Left = 467
|
| 50 |
Height = 15
|
| 51 |
Top = 56
|
| 52 |
Width = 60
|
| 53 |
Anchors = [akTop, akRight]
|
| 54 |
Caption = 'Results Log'
|
| 55 |
ParentColor = False
|
| 56 |
end
|
| 57 |
object ResultsLog: TMemo
|
| 58 |
Left = 460
|
| 59 |
Height = 287
|
| 60 |
Top = 72
|
| 61 |
Width = 296
|
| 62 |
Anchors = [akTop, akRight, akBottom]
|
| 63 |
Lines.Strings = (
|
| 64 |
'ResultsLog'
|
| 65 |
)
|
| 66 |
ScrollBars = ssAutoVertical
|
| 67 |
TabOrder = 2
|
| 68 |
end
|
| 69 |
object ProgressBar1: TProgressBar
|
| 70 |
Left = 460
|
| 71 |
Height = 20
|
| 72 |
Top = 369
|
| 73 |
Width = 296
|
| 74 |
Anchors = [akRight, akBottom]
|
| 75 |
TabOrder = 3
|
| 76 |
end
|
| 77 |
object Button2: TButton
|
| 78 |
Left = 14
|
| 79 |
Height = 30
|
| 80 |
Top = 369
|
| 81 |
Width = 82
|
| 82 |
Action = LoadScript
|
| 83 |
Anchors = [akLeft, akBottom]
|
| 84 |
TabOrder = 4
|
| 85 |
end
|
| 86 |
object DBName: TLabel
|
| 87 |
Left = 119
|
| 88 |
Height = 15
|
| 89 |
Top = 16
|
| 90 |
Width = 47
|
| 91 |
Caption = 'DBName'
|
| 92 |
ParentColor = False
|
| 93 |
end
|
| 94 |
object StopOnError: TCheckBox
|
| 95 |
Left = 104
|
| 96 |
Height = 19
|
| 97 |
Top = 375
|
| 98 |
Width = 116
|
| 99 |
Caption = 'Stop On First Error'
|
| 100 |
OnChange = StopOnErrorChange
|
| 101 |
TabOrder = 5
|
| 102 |
end
|
| 103 |
object EchoInput: TCheckBox
|
| 104 |
Left = 248
|
| 105 |
Height = 19
|
| 106 |
Top = 375
|
| 107 |
Width = 77
|
| 108 |
Caption = 'Echo Input'
|
| 109 |
OnChange = EchoInputChange
|
| 110 |
TabOrder = 6
|
| 111 |
end
|
| 112 |
object IBXScript1: TIBXScript
|
| 113 |
Database = IBDatabase1
|
| 114 |
IgnoreGrants = False
|
| 115 |
Transaction = IBTransaction1
|
| 116 |
GetParamValue = IBXScript1GetParamValue
|
| 117 |
OnOutputLog = IBXScript1LogProc
|
| 118 |
OnErrorLog = IBXScript1LogProc
|
| 119 |
OnProgressEvent = IBXScript1ProgressEvent
|
| 120 |
OnSelectSQL = IBXScript1SelectSQL
|
| 121 |
left = 24
|
| 122 |
top = 104
|
| 123 |
end
|
| 124 |
object IBDatabase1: TIBDatabase
|
| 125 |
Connected = False
|
| 126 |
AllowStreamedConnected = False
|
| 127 |
DatabaseName = 'employee'
|
| 128 |
Params.Strings = (
|
| 129 |
'lc_ctype=UTF8 '
|
| 130 |
'user_name=SYSDBA'
|
| 131 |
)
|
| 132 |
IdleTimer = 0
|
| 133 |
TraceFlags = []
|
| 134 |
UseDefaultSystemCodePage = False
|
| 135 |
left = 24
|
| 136 |
top = 156
|
| 137 |
end
|
| 138 |
object IBTransaction1: TIBTransaction
|
| 139 |
Active = False
|
| 140 |
DefaultDatabase = IBDatabase1
|
| 141 |
Params.Strings = (
|
| 142 |
'concurrency'
|
| 143 |
'nowait'
|
| 144 |
)
|
| 145 |
left = 24
|
| 146 |
top = 208
|
| 147 |
end
|
| 148 |
object ActionList1: TActionList
|
| 149 |
left = 75
|
| 150 |
top = 104
|
| 151 |
object LoadScript: TAction
|
| 152 |
Caption = 'Load Script'
|
| 153 |
OnExecute = LoadScriptExecute
|
| 154 |
end
|
| 155 |
object RunScript: TAction
|
| 156 |
Caption = 'Execute'
|
| 157 |
OnExecute = RunScriptExecute
|
| 158 |
OnUpdate = RunScriptUpdate
|
| 159 |
end
|
| 160 |
end
|
| 161 |
object OpenDialog1: TOpenDialog
|
| 162 |
Title = 'Load SQL Script'
|
| 163 |
DefaultExt = '.sql'
|
| 164 |
Filter = 'SQL FIles|*.sql|All Files|*.*'
|
| 165 |
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
| 166 |
left = 75
|
| 167 |
top = 156
|
| 168 |
end
|
| 169 |
object OpenBlobDialog: TOpenDialog
|
| 170 |
Filter = 'All Files|*.*'
|
| 171 |
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
| 172 |
left = 75
|
| 173 |
top = 208
|
| 174 |
end
|
| 175 |
object Timer1: TTimer
|
| 176 |
Interval = 0
|
| 177 |
OnTimer = Timer1Timer
|
| 178 |
left = 127
|
| 179 |
top = 112
|
| 180 |
end
|
| 181 |
end
|
