ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit1.lfm
Revision: 7
Committed: Sun Aug 5 18:28:19 2012 UTC (11 years, 7 months ago) by tony
File size: 7582 byte(s)
Log Message:
Committing updates for Release R1-0-0

File Contents

# Content
1 object Form1: TForm1
2 Left = 461
3 Height = 454
4 Top = 312
5 Width = 743
6 Caption = 'Form1'
7 ClientHeight = 454
8 ClientWidth = 743
9 OnClose = FormClose
10 OnShow = FormShow
11 LCLVersion = '0.9.30.1'
12 object DBGrid1: TDBGrid
13 Left = 8
14 Height = 375
15 Top = 24
16 Width = 632
17 Color = clWindow
18 Columns = <
19 item
20 Title.Alignment = taCenter
21 Title.Caption = 'Last Name'
22 Width = 150
23 FieldName = 'LAST_NAME'
24 end
25 item
26 Title.Alignment = taCenter
27 Title.Caption = 'First Name'
28 Width = 150
29 FieldName = 'FIRST_NAME'
30 end
31 item
32 Title.Alignment = taCenter
33 Title.Caption = 'Employee No.'
34 Width = 100
35 FieldName = 'EMP_NO'
36 end
37 item
38 Alignment = taCenter
39 Title.Alignment = taCenter
40 Title.Caption = 'Started'
41 Width = 80
42 FieldName = 'HIRE_DATE'
43 end
44 item
45 Title.Alignment = taCenter
46 Title.Caption = 'Salary'
47 Width = 100
48 FieldName = 'SALARY'
49 end>
50 DataSource = Datasource1
51 TabOrder = 0
52 OnDblClick = DBGrid1DblClick
53 end
54 object Button1: TButton
55 Left = 656
56 Height = 25
57 Top = 24
58 Width = 75
59 Action = AddEmployee
60 TabOrder = 1
61 end
62 object Button2: TButton
63 Left = 656
64 Height = 25
65 Top = 62
66 Width = 75
67 Action = EditEmployee
68 TabOrder = 2
69 end
70 object Button3: TButton
71 Left = 656
72 Height = 25
73 Top = 101
74 Width = 75
75 Action = DeleteEmployee
76 TabOrder = 3
77 end
78 object Button4: TButton
79 Left = 488
80 Height = 25
81 Top = 416
82 Width = 75
83 Action = SaveChanges
84 TabOrder = 4
85 end
86 object Button5: TButton
87 Left = 568
88 Height = 25
89 Top = 416
90 Width = 75
91 Action = CancelChanges
92 TabOrder = 5
93 end
94 object IBDatabase1: TIBDatabase
95 Connected = True
96 AfterConnect = IBDatabase1AfterConnect
97 BeforeDisconnect = IBDatabase1BeforeDisconnect
98 AllowStreamedConnected = False
99 DatabaseName = 'employee'
100 Params.Strings = (
101 'user_name=SYSDBA'
102 'lc_ctype=UTF-8'
103 )
104 DefaultTransaction = IBTransaction1
105 IdleTimer = 0
106 TraceFlags = []
107 left = 672
108 top = 224
109 end
110 object IBTransaction1: TIBTransaction
111 Active = False
112 DefaultDatabase = IBDatabase1
113 Params.Strings = (
114 'read_committed'
115 'rec_version'
116 'nowait'
117 )
118 left = 672
119 top = 256
120 end
121 object IBQuery1: TIBQuery
122 Database = IBDatabase1
123 Transaction = IBTransaction1
124 AfterDelete = IBQuery1AfterDelete
125 AfterOpen = IBQuery1AfterOpen
126 BeforeClose = IBQuery1BeforeClose
127 BeforeOpen = IBQuery1BeforeOpen
128 OnDeleteError = IBQuery1PostError
129 OnPostError = IBQuery1PostError
130 BufferChunks = 1000
131 CachedUpdates = False
132 GeneratorField.ApplyOnEvent = gaeOnNewRecord
133 SQL.Strings = (
134 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
135 'Order by LAST_NAME'
136 )
137 Params = <>
138 UpdateObject = IBUpdateSQL1
139 AfterTransactionEnd = IBQuery1AfterTransactionEnd
140 left = 672
141 top = 336
142 object IBQuery1EMP_NO: TSmallintField
143 DisplayWidth = 10
144 FieldKind = fkData
145 FieldName = 'EMP_NO'
146 Index = 0
147 LookupCache = False
148 ProviderFlags = [pfInUpdate, pfInWhere]
149 ReadOnly = False
150 Required = True
151 end
152 object IBQuery1FIRST_NAME: TIBStringField
153 DisplayWidth = 15
154 FieldKind = fkData
155 FieldName = 'FIRST_NAME'
156 Index = 1
157 LookupCache = False
158 ProviderFlags = [pfInUpdate, pfInWhere]
159 ReadOnly = False
160 Required = True
161 Size = 15
162 end
163 object IBQuery1LAST_NAME: TIBStringField
164 DisplayWidth = 20
165 FieldKind = fkData
166 FieldName = 'LAST_NAME'
167 Index = 2
168 LookupCache = False
169 ProviderFlags = [pfInUpdate, pfInWhere]
170 ReadOnly = False
171 Required = True
172 end
173 object IBQuery1PHONE_EXT: TIBStringField
174 DisplayWidth = 4
175 FieldKind = fkData
176 FieldName = 'PHONE_EXT'
177 Index = 3
178 LookupCache = False
179 ProviderFlags = [pfInUpdate, pfInWhere]
180 ReadOnly = False
181 Required = False
182 Size = 4
183 end
184 object IBQuery1HIRE_DATE: TDateTimeField
185 DisplayWidth = 10
186 FieldKind = fkData
187 FieldName = 'HIRE_DATE'
188 Index = 4
189 LookupCache = False
190 ProviderFlags = [pfInUpdate, pfInWhere]
191 ReadOnly = False
192 Required = True
193 end
194 object IBQuery1DEPT_NO: TIBStringField
195 DisplayWidth = 3
196 FieldKind = fkData
197 FieldName = 'DEPT_NO'
198 Index = 5
199 LookupCache = False
200 ProviderFlags = [pfInUpdate, pfInWhere]
201 ReadOnly = False
202 Required = True
203 Size = 3
204 end
205 object IBQuery1JOB_CODE: TIBStringField
206 DisplayWidth = 5
207 FieldKind = fkData
208 FieldName = 'JOB_CODE'
209 Index = 6
210 LookupCache = False
211 ProviderFlags = [pfInUpdate, pfInWhere]
212 ReadOnly = False
213 Required = True
214 Size = 5
215 end
216 object IBQuery1JOB_GRADE: TSmallintField
217 DisplayWidth = 10
218 FieldKind = fkData
219 FieldName = 'JOB_GRADE'
220 Index = 7
221 LookupCache = False
222 ProviderFlags = [pfInUpdate, pfInWhere]
223 ReadOnly = False
224 Required = True
225 end
226 object IBQuery1JOB_COUNTRY: TIBStringField
227 DisplayWidth = 15
228 FieldKind = fkData
229 FieldName = 'JOB_COUNTRY'
230 Index = 8
231 LookupCache = False
232 ProviderFlags = [pfInUpdate, pfInWhere]
233 ReadOnly = False
234 Required = True
235 Size = 15
236 end
237 object IBQuery1SALARY: TIBBCDField
238 DisplayWidth = 18
239 FieldKind = fkData
240 FieldName = 'SALARY'
241 Index = 9
242 LookupCache = False
243 ProviderFlags = [pfInUpdate, pfInWhere]
244 ReadOnly = False
245 Required = True
246 OnGetText = IBQuery1SALARYGetText
247 Precision = 18
248 Currency = False
249 MaxValue = 0
250 MinValue = 0
251 Size = 2
252 end
253 object IBQuery1FULL_NAME: TIBStringField
254 DisplayWidth = 37
255 FieldKind = fkData
256 FieldName = 'FULL_NAME'
257 Index = 10
258 LookupCache = False
259 ProviderFlags = [pfInUpdate, pfInWhere]
260 ReadOnly = True
261 Required = False
262 Size = 37
263 end
264 end
265 object Datasource1: TDatasource
266 DataSet = IBQuery1
267 left = 672
268 top = 296
269 end
270 object ActionList1: TActionList
271 left = 672
272 top = 376
273 object AddEmployee: TAction
274 Caption = 'Add'
275 OnExecute = AddEmployeeExecute
276 end
277 object EditEmployee: TAction
278 Caption = 'Edit'
279 OnExecute = EditEmployeeExecute
280 OnUpdate = EditEmployeeUpdate
281 end
282 object DeleteEmployee: TAction
283 Caption = 'Delete'
284 OnExecute = DeleteEmployeeExecute
285 OnUpdate = EditEmployeeUpdate
286 end
287 object SaveChanges: TAction
288 Caption = 'Save'
289 OnExecute = SaveChangesExecute
290 OnUpdate = SaveChangesUpdate
291 end
292 object CancelChanges: TAction
293 Caption = 'Cancel'
294 OnExecute = CancelChangesExecute
295 OnUpdate = SaveChangesUpdate
296 end
297 end
298 object IBUpdateSQL1: TIBUpdateSQL
299 RefreshSQL.Strings = (
300 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME From EMPLOYEE A'
301 'Where A.EMP_NO = :EMP_NO'
302 )
303 DeleteSQL.Strings = (
304 'Delete From EMPLOYEE A'
305 'Where A.EMP_NO = :EMP_NO'
306 )
307 left = 712
308 top = 336
309 end
310 end