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 |
OnShow = FormShow
|
10 |
LCLVersion = '1.6.2.0'
|
11 |
object Label1: TLabel
|
12 |
Left = 14
|
13 |
Height = 17
|
14 |
Top = 16
|
15 |
Width = 94
|
16 |
Caption = 'Database Name:'
|
17 |
ParentColor = False
|
18 |
end
|
19 |
object Label2: TLabel
|
20 |
Left = 14
|
21 |
Height = 17
|
22 |
Top = 56
|
23 |
Width = 32
|
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 = 464
|
50 |
Height = 17
|
51 |
Top = 56
|
52 |
Width = 63
|
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 = 17
|
89 |
Top = 16
|
90 |
Width = 51
|
91 |
Caption = 'DBName'
|
92 |
ParentColor = False
|
93 |
end
|
94 |
object StopOnError: TCheckBox
|
95 |
Left = 104
|
96 |
Height = 22
|
97 |
Top = 375
|
98 |
Width = 127
|
99 |
Caption = 'Stop On First Error'
|
100 |
OnChange = StopOnErrorChange
|
101 |
TabOrder = 5
|
102 |
end
|
103 |
object EchoInput: TCheckBox
|
104 |
Left = 248
|
105 |
Height = 22
|
106 |
Top = 375
|
107 |
Width = 83
|
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 |
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 = '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
|