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