ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/scriptengine/unit1.lfm
Revision: 47
Committed: Mon Jan 9 15:31:51 2017 UTC (7 years, 2 months ago) by tony
File size: 3896 byte(s)
Log Message:
Committing updates for Release R2-0-1

File Contents

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