| 1 |
object Form1: TForm1
|
| 2 |
Left = 413
|
| 3 |
Height = 402
|
| 4 |
Top = 367
|
| 5 |
Width = 773
|
| 6 |
Caption = 'IBX Script Example'
|
| 7 |
ClientHeight = 402
|
| 8 |
ClientWidth = 773
|
| 9 |
DefaultMonitor = dmPrimary
|
| 10 |
OnShow = FormShow
|
| 11 |
Position = poScreenCenter
|
| 12 |
LCLVersion = '2.2.0.2'
|
| 13 |
object Label1: TLabel
|
| 14 |
Left = 14
|
| 15 |
Height = 15
|
| 16 |
Top = 16
|
| 17 |
Width = 99
|
| 18 |
Caption = 'Database Name:'
|
| 19 |
end
|
| 20 |
object Label2: TLabel
|
| 21 |
Left = 14
|
| 22 |
Height = 15
|
| 23 |
Top = 56
|
| 24 |
Width = 36
|
| 25 |
Caption = 'Script'
|
| 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 = ssAutoHorizontal
|
| 37 |
TabOrder = 0
|
| 38 |
WordWrap = False
|
| 39 |
end
|
| 40 |
object Button1: TButton
|
| 41 |
Left = 369
|
| 42 |
Height = 30
|
| 43 |
Top = 192
|
| 44 |
Width = 77
|
| 45 |
Action = RunScript
|
| 46 |
Anchors = [akTop, akRight]
|
| 47 |
TabOrder = 1
|
| 48 |
end
|
| 49 |
object Label3: TLabel
|
| 50 |
Left = 459
|
| 51 |
Height = 15
|
| 52 |
Top = 56
|
| 53 |
Width = 68
|
| 54 |
Anchors = [akTop, akRight]
|
| 55 |
Caption = 'Results Log'
|
| 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 = 52
|
| 91 |
Caption = 'DBName'
|
| 92 |
end
|
| 93 |
object StopOnError: TCheckBox
|
| 94 |
Left = 104
|
| 95 |
Height = 22
|
| 96 |
Top = 375
|
| 97 |
Width = 136
|
| 98 |
Caption = 'Stop On First Error'
|
| 99 |
OnChange = StopOnErrorChange
|
| 100 |
TabOrder = 5
|
| 101 |
end
|
| 102 |
object EchoInput: TCheckBox
|
| 103 |
Left = 248
|
| 104 |
Height = 22
|
| 105 |
Top = 375
|
| 106 |
Width = 91
|
| 107 |
Caption = 'Echo Input'
|
| 108 |
OnChange = EchoInputChange
|
| 109 |
TabOrder = 6
|
| 110 |
end
|
| 111 |
object IBXScript1: TIBXScript
|
| 112 |
Database = IBDatabase1
|
| 113 |
IgnoreGrants = False
|
| 114 |
IgnoreCreateDatabase = False
|
| 115 |
Transaction = IBTransaction1
|
| 116 |
ShowAffectedRows = False
|
| 117 |
ShowPerformanceStats = False
|
| 118 |
GetParamValue = IBXScript1GetParamValue
|
| 119 |
OnOutputLog = IBXScript1LogProc
|
| 120 |
OnErrorLog = IBXScript1LogProc
|
| 121 |
OnProgressEvent = IBXScript1ProgressEvent
|
| 122 |
OnSelectSQL = IBXScript1SelectSQL
|
| 123 |
Left = 24
|
| 124 |
Top = 104
|
| 125 |
end
|
| 126 |
object IBDatabase1: TIBDatabase
|
| 127 |
Connected = False
|
| 128 |
BeforeConnect = IBDatabase1BeforeConnect
|
| 129 |
CreateIfNotExists = False
|
| 130 |
AllowStreamedConnected = False
|
| 131 |
DatabaseName = 'localhost:employee'
|
| 132 |
Params.Strings = (
|
| 133 |
'lc_ctype=UTF8 '
|
| 134 |
'user_name=SYSDBA'
|
| 135 |
)
|
| 136 |
IdleTimer = 0
|
| 137 |
TraceFlags = []
|
| 138 |
UseDefaultSystemCodePage = False
|
| 139 |
Left = 24
|
| 140 |
Top = 156
|
| 141 |
end
|
| 142 |
object IBTransaction1: TIBTransaction
|
| 143 |
Active = False
|
| 144 |
DefaultDatabase = IBDatabase1
|
| 145 |
Params.Strings = (
|
| 146 |
'concurrency'
|
| 147 |
'nowait'
|
| 148 |
)
|
| 149 |
Left = 24
|
| 150 |
Top = 208
|
| 151 |
end
|
| 152 |
object ActionList1: TActionList
|
| 153 |
Left = 75
|
| 154 |
Top = 104
|
| 155 |
object LoadScript: TAction
|
| 156 |
Caption = 'Load Script'
|
| 157 |
OnExecute = LoadScriptExecute
|
| 158 |
end
|
| 159 |
object RunScript: TAction
|
| 160 |
Caption = 'Execute'
|
| 161 |
OnExecute = RunScriptExecute
|
| 162 |
OnUpdate = RunScriptUpdate
|
| 163 |
end
|
| 164 |
end
|
| 165 |
object OpenDialog1: TOpenDialog
|
| 166 |
Title = 'Load SQL Script'
|
| 167 |
DefaultExt = '.sql'
|
| 168 |
Filter = 'SQL FIles|*.sql|All Files|*.*'
|
| 169 |
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
| 170 |
Left = 75
|
| 171 |
Top = 156
|
| 172 |
end
|
| 173 |
object OpenBlobDialog: TOpenDialog
|
| 174 |
Filter = 'All Files|*.*'
|
| 175 |
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
| 176 |
Left = 75
|
| 177 |
Top = 208
|
| 178 |
end
|
| 179 |
object Timer1: TTimer
|
| 180 |
Interval = 0
|
| 181 |
OnTimer = Timer1Timer
|
| 182 |
Left = 127
|
| 183 |
Top = 112
|
| 184 |
end
|
| 185 |
end
|
