ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/scriptengine/unit1.lfm
Revision: 37
Committed: Mon Feb 15 14:44:25 2016 UTC (8 years, 1 month ago) by tony
File size: 3697 byte(s)
Log Message:
Committing updates for Release R1-4-0

File Contents

# Content
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.4.4.0'
11 object Label1: TLabel
12 Left = 14
13 Height = 15
14 Top = 16
15 Width = 99
16 Caption = 'Database Name:'
17 ParentColor = False
18 end
19 object Label2: TLabel
20 Left = 14
21 Height = 15
22 Top = 56
23 Width = 36
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 = 459
50 Height = 15
51 Top = 56
52 Width = 68
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 = 52
91 Caption = 'DBName'
92 ParentColor = False
93 end
94 object StopOnError: TCheckBox
95 Left = 104
96 Height = 22
97 Top = 375
98 Width = 136
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 = 91
108 Caption = 'Echo Input'
109 OnChange = EchoInputChange
110 TabOrder = 6
111 end
112 object IBXScript1: TIBXScript
113 Database = IBDatabase1
114 Transaction = IBTransaction1
115 GetParamValue = IBXScript1GetParamValue
116 OnOutputLog = IBXScript1LogProc
117 OnErrorLog = IBXScript1LogProc
118 OnProgressEvent = IBXScript1ProgressEvent
119 OnSelectSQL = IBXScript1SelectSQL
120 left = 24
121 top = 104
122 end
123 object IBDatabase1: TIBDatabase
124 Connected = False
125 AllowStreamedConnected = False
126 DatabaseName = 'employee'
127 Params.Strings = (
128 'lc_ctype=UTF8 '
129 'user_name=SYSDBA'
130 )
131 IdleTimer = 0
132 TraceFlags = []
133 left = 24
134 top = 156
135 end
136 object IBTransaction1: TIBTransaction
137 Active = False
138 DefaultDatabase = IBDatabase1
139 Params.Strings = (
140 'concurrency'
141 'nowait'
142 )
143 left = 24
144 top = 208
145 end
146 object ActionList1: TActionList
147 left = 75
148 top = 104
149 object LoadScript: TAction
150 Caption = 'Load Script'
151 OnExecute = LoadScriptExecute
152 end
153 object RunScript: TAction
154 Caption = 'Execute'
155 OnExecute = RunScriptExecute
156 OnUpdate = RunScriptUpdate
157 end
158 end
159 object OpenDialog1: TOpenDialog
160 Title = 'Load SQL Script'
161 DefaultExt = '.sql'
162 Filter = 'SQL FIles|*.sql|All Files|*.*'
163 Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
164 left = 75
165 top = 156
166 end
167 object OpenBlobDialog: TOpenDialog
168 Filter = 'All Files|*.*'
169 Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
170 left = 75
171 top = 208
172 end
173 object Timer1: TTimer
174 Interval = 0
175 OnTimer = Timer1Timer
176 left = 127
177 top = 112
178 end
179 end