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

File Contents

# Content
1 object EditEmployeeDlg: TEditEmployeeDlg
2 Left = 1325
3 Height = 397
4 Top = 347
5 Width = 395
6 Caption = 'Edit Employee Details'
7 ClientHeight = 397
8 ClientWidth = 395
9 OnClose = FormClose
10 OnShow = FormShow
11 LCLVersion = '0.9.30'
12 object Label1: TLabel
13 Left = 20
14 Height = 18
15 Top = 25
16 Width = 72
17 Caption = 'First Name'
18 ParentColor = False
19 end
20 object DBEdit1: TDBEdit
21 Left = 20
22 Height = 27
23 Top = 45
24 Width = 194
25 DataField = 'FIRST_NAME'
26 DataSource = Datasource1
27 CharCase = ecNormal
28 MaxLength = 0
29 TabOrder = 0
30 end
31 object Label2: TLabel
32 Left = 20
33 Height = 18
34 Top = 96
35 Width = 71
36 Caption = 'Last Name'
37 ParentColor = False
38 end
39 object Label3: TLabel
40 Left = 248
41 Height = 18
42 Top = 25
43 Width = 92
44 Caption = 'Employee No.'
45 ParentColor = False
46 end
47 object Label4: TLabel
48 Left = 20
49 Height = 18
50 Top = 168
51 Width = 83
52 Caption = 'Date Started'
53 ParentColor = False
54 end
55 object Label5: TLabel
56 Left = 248
57 Height = 18
58 Top = 168
59 Width = 42
60 Caption = 'Salary'
61 ParentColor = False
62 end
63 object Label6: TLabel
64 Left = 20
65 Height = 18
66 Top = 240
67 Width = 79
68 Caption = 'Department'
69 ParentColor = False
70 end
71 object DBEdit2: TDBEdit
72 Left = 20
73 Height = 27
74 Top = 120
75 Width = 194
76 DataField = 'LAST_NAME'
77 DataSource = Datasource1
78 CharCase = ecNormal
79 MaxLength = 0
80 TabOrder = 1
81 end
82 object DBEdit4: TDBEdit
83 Left = 248
84 Height = 27
85 Top = 45
86 Width = 80
87 DataField = 'EMP_NO'
88 DataSource = Datasource1
89 CharCase = ecNormal
90 MaxLength = 0
91 TabOrder = 2
92 end
93 object DBLookupComboBox1: TDBLookupComboBox
94 Left = 20
95 Height = 29
96 Top = 259
97 Width = 189
98 DataField = 'DEPT_NO'
99 DataSource = Datasource1
100 KeyField = 'DEPT_NO'
101 ListField = 'DEPARTMENT'
102 ListFieldIndex = 0
103 ListSource = Datasource2
104 LookupCache = False
105 NullValueKey = 16430
106 TabOrder = 3
107 end
108 object DBEdit5: TDBEdit
109 Left = 248
110 Height = 27
111 Top = 188
112 Width = 96
113 DataField = 'SALARY'
114 DataSource = Datasource1
115 CharCase = ecNormal
116 MaxLength = 0
117 TabOrder = 4
118 end
119 object DateEdit1: TDateEdit
120 Left = 20
121 Height = 27
122 Top = 188
123 Width = 104
124 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
125 OKCaption = 'OK'
126 CancelCaption = 'Cancel'
127 DateOrder = doNone
128 ButtonWidth = 23
129 CharCase = ecNormal
130 Glyph.Data = {
131 36040000424D3604000000000000360000002800000010000000100000000100
132 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
133 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
134 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D69E
135 72C4D3996EF4D19668FFCE9263FFCB8E5EFFC98A5BFFC78756FFC38452FFC384
136 52FFC38452FFC38452FFC38452FFC38452FFBB7742B0FFFFFF00FFFFFF00D7A1
137 75FFF8F2EDFFF7F0EAFFF6EDE6FFF4EAE2FFF3E7DEFFF1E4DBFFF0E2D8FFEAD6
138 C8FFF2E5DCFFFAF4F1FFF9F3F0FFFAF5F2FFC58A5DFDFFFFFF00FFFFFF00D9A4
139 7AFFF9F3EEFFEBD2BEFFFFFFFFFFEBD3BFFFFFFFFFFFEBD3C0FFFFFFFFFFEAC7
140 ADFFECD9CDFFF1E4DBFFF9F3F0FFF9F2EFFFC68C5FFFFFFFFF00FFFFFF00DDA8
141 7EFFF9F3EFFFEBD0BAFFEBD0BBFF75B57AFF75B57AFF75B57AFFEBD1BDFFEACD
142 B5FFFAF4F0FFEBD9CCFFF1E4DBFFFAF4F1FFC68A5CFFFFFFFF00FFFFFF00DFAA
143 82FFF9F3EFFFEACEB7FFFFFFFFFF75B57AFF94D49BFF74B579FFFFFFFFFFEACF
144 BAFFFBF6F2FFFAF3F0FFEBD8CBFFF2E6DDFFC88D5FFFFFFFFF00FFFFFF00E1AE
145 87FFFAF4F0FFEACBB2FFEACCB3FF75B57AFF74B579FF73B478FFEACEB7FF70B3
146 75FF6FB274FF6EB172FFE8C8AEFFEAD7C9FFC48654FFFFFFFF00FFFFFF00E3B1
147 8CFFFAF6F1FFEAC9AEFFFFFFFFFFEAC9B0FFFFFFFFFFE9CBB3FFFFFFFFFF6FB1
148 73FF8ED295FF6BAF6FFFFFFFFFFFF1E5DBFFC68655FFFFFFFF00FFFFFF00E5B4
149 8FFFFAF6F2FFE9C6AAFFE9C6ACFFEAC7ACFFE9C7ADFFE9C9AEFFE9C9B0FF6CB0
150 71FF6AAF6EFF68AD6DFFE8CCB5FFF2E7DEFFC88A59FFFFFFFF00FFFFFF00E7B7
151 94FFFBF7F4FFE9C3A6FFFFFFFFFFE8C4A9FFFFFFFFFFE9C6AAFFFFFFFFFFE8C7
152 ACFFFFFFFFFFE8C8B0FFFFFFFFFFF7F1EBFFCB8F5FFFFFFFFF00FFFFFF00E9BA
153 98FFFBF7F4FF65A4FFFF64A3FFFF62A2FFFF61A1FFFF5F9FFFFF5C9DFFFF5A9A
154 FFFF5798FFFF5495FFFF5294FFFFFBF7F4FFCE9364FFFFFFFF00FFFFFF00EBBD
155 9BFFFBF7F4FF64A4FFFF79BDFFFF75BBFFFF71B9FFFF6DB8FFFF68B3FFFF61B0
156 FFFF5AABFFFF54A7FFFF3B7DFFFFFBF7F4FFD1976AFFFFFFFF00FFFFFF00ECBF
157 9EFFFBF7F4FF65A4FFFF64A3FFFF60A0FFFF5D9EFFFF5899FFFF5496FFFF4D90
158 FFFF478BFFFF4284FFFF3D7FFFFFFBF7F4FFD49B6FFFFFFFFF00FFFFFF00EEC1
159 A1EBFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7
160 F4FFFBF7F4FFFBF7F4FFFBF7F4FFFBF7F4FFD7A074F8FFFFFF00FFFFFF00EFC2
161 A37EEFC1A2E3EDC09FFFEBBE9DFFEBBC9AFFE9BA96FFE7B793FFE6B590FFE4B2
162 8CFFE2AF88FFE0AC84FFDDA980FFDCA57DFFDAA37ACAFFFFFF00FFFFFF00FFFF
163 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
164 FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
165 }
166 NumGlyphs = 0
167 MaxLength = 0
168 OnChange = DateEdit1Change
169 TabOrder = 5
170 end
171 object Button1: TButton
172 Left = 113
173 Height = 25
174 Top = 368
175 Width = 75
176 Caption = 'OK'
177 Default = True
178 ModalResult = 1
179 TabOrder = 6
180 end
181 object Button2: TButton
182 Left = 208
183 Height = 25
184 Top = 368
185 Width = 75
186 Cancel = True
187 Caption = 'Cancel'
188 ModalResult = 2
189 TabOrder = 7
190 end
191 object Label8: TLabel
192 Left = 20
193 Height = 18
194 Top = 304
195 Width = 52
196 Caption = 'Country'
197 ParentColor = False
198 end
199 object DBLookupComboBox3: TDBLookupComboBox
200 Left = 21
201 Height = 29
202 Top = 321
203 Width = 188
204 DataField = 'JOB_COUNTRY'
205 DataSource = Datasource1
206 KeyField = 'COUNTRY'
207 ListField = 'COUNTRY'
208 ListFieldIndex = 0
209 ListSource = Datasource4
210 LookupCache = False
211 TabOrder = 8
212 end
213 object IBDataSet1: TIBDataSet
214 Database = Form1.IBDatabase1
215 Transaction = Form1.IBTransaction1
216 AfterClose = IBDataSet1AfterClose
217 AfterInsert = IBDataSet1AfterInsert
218 AfterRefresh = IBDataSet1AfterScroll
219 AfterScroll = IBDataSet1AfterScroll
220 BeforeOpen = IBDataSet1BeforeOpen
221 BeforePost = IBDataSet1BeforePost
222 BufferChunks = 1000
223 CachedUpdates = False
224 DeleteSQL.Strings = (
225 'Delete From EMPLOYEE A'
226 'Where A.EMP_NO = :EMP_NO'
227 )
228 InsertSQL.Strings = (
229 'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
230 'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
231 )
232 RefreshSQL.Strings = (
233 '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'
234 'Where A.EMP_NO = :EMP_NO'
235 )
236 SelectSQL.Strings = (
237 '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'
238 'Where EMP_NO = :EMP_NO'
239 )
240 ModifySQL.Strings = (
241 'Update EMPLOYEE A Set '
242 ' A.EMP_NO = :EMP_NO,'
243 ' A.FIRST_NAME = :FIRST_NAME,'
244 ' A.LAST_NAME = :LAST_NAME,'
245 ' A.PHONE_EXT = :PHONE_EXT,'
246 ' A.HIRE_DATE = :HIRE_DATE,'
247 ' A.DEPT_NO = :DEPT_NO,'
248 ' A.JOB_CODE = :JOB_CODE,'
249 ' A.JOB_GRADE = :JOB_GRADE,'
250 ' A.JOB_COUNTRY = :JOB_COUNTRY,'
251 ' A.SALARY = :SALARY'
252 'Where A.EMP_NO = :OLD_EMP_NO'
253 )
254 GeneratorField.Generator = 'EMP_NO_GEN'
255 GeneratorField.Field = 'EMP_NO'
256 GeneratorField.ApplyOnEvent = gaeOnNewRecord
257 left = 288
258 top = 80
259 object IBDataSet1EMP_NO: TSmallintField
260 DisplayWidth = 10
261 FieldKind = fkData
262 FieldName = 'EMP_NO'
263 Index = 0
264 LookupCache = False
265 ProviderFlags = [pfInUpdate, pfInWhere]
266 ReadOnly = False
267 Required = True
268 end
269 object IBDataSet1FIRST_NAME: TIBStringField
270 DisplayWidth = 15
271 FieldKind = fkData
272 FieldName = 'FIRST_NAME'
273 Index = 1
274 LookupCache = False
275 ProviderFlags = [pfInUpdate, pfInWhere]
276 ReadOnly = False
277 Required = True
278 Size = 15
279 end
280 object IBDataSet1LAST_NAME: TIBStringField
281 DisplayWidth = 20
282 FieldKind = fkData
283 FieldName = 'LAST_NAME'
284 Index = 2
285 LookupCache = False
286 ProviderFlags = [pfInUpdate, pfInWhere]
287 ReadOnly = False
288 Required = True
289 end
290 object IBDataSet1PHONE_EXT: TIBStringField
291 DisplayWidth = 4
292 FieldKind = fkData
293 FieldName = 'PHONE_EXT'
294 Index = 3
295 LookupCache = False
296 ProviderFlags = [pfInUpdate, pfInWhere]
297 ReadOnly = False
298 Required = False
299 Size = 4
300 end
301 object IBDataSet1HIRE_DATE: TDateTimeField
302 DisplayWidth = 10
303 FieldKind = fkData
304 FieldName = 'HIRE_DATE'
305 Index = 4
306 LookupCache = False
307 ProviderFlags = [pfInUpdate, pfInWhere]
308 ReadOnly = False
309 Required = True
310 end
311 object IBDataSet1DEPT_NO: TIBStringField
312 DisplayWidth = 3
313 FieldKind = fkData
314 FieldName = 'DEPT_NO'
315 Index = 5
316 LookupCache = False
317 ProviderFlags = [pfInUpdate, pfInWhere]
318 ReadOnly = False
319 Required = True
320 Size = 3
321 end
322 object IBDataSet1JOB_CODE: TIBStringField
323 DisplayWidth = 5
324 FieldKind = fkData
325 FieldName = 'JOB_CODE'
326 Index = 6
327 LookupCache = False
328 ProviderFlags = [pfInUpdate, pfInWhere]
329 ReadOnly = False
330 Required = True
331 Size = 5
332 end
333 object IBDataSet1JOB_GRADE: TSmallintField
334 DisplayWidth = 10
335 FieldKind = fkData
336 FieldName = 'JOB_GRADE'
337 Index = 7
338 LookupCache = False
339 ProviderFlags = [pfInUpdate, pfInWhere]
340 ReadOnly = False
341 Required = True
342 end
343 object IBDataSet1JOB_COUNTRY: TIBStringField
344 DisplayWidth = 15
345 FieldKind = fkData
346 FieldName = 'JOB_COUNTRY'
347 Index = 8
348 LookupCache = False
349 ProviderFlags = [pfInUpdate, pfInWhere]
350 ReadOnly = False
351 Required = True
352 Size = 15
353 end
354 object IBDataSet1SALARY: TIBBCDField
355 DisplayWidth = 18
356 FieldKind = fkData
357 FieldName = 'SALARY'
358 Index = 9
359 LookupCache = False
360 ProviderFlags = [pfInUpdate, pfInWhere]
361 ReadOnly = False
362 Required = True
363 Precision = 18
364 Currency = False
365 MaxValue = 0
366 MinValue = 0
367 Size = 2
368 end
369 object IBDataSet1FULL_NAME: TIBStringField
370 DisplayWidth = 37
371 FieldKind = fkData
372 FieldName = 'FULL_NAME'
373 Index = 10
374 LookupCache = False
375 ProviderFlags = [pfInUpdate, pfInWhere]
376 ReadOnly = True
377 Required = False
378 Size = 37
379 end
380 end
381 object Datasource1: TDatasource
382 DataSet = IBDataSet1
383 left = 248
384 top = 80
385 end
386 object Depts: TIBQuery
387 Database = Form1.IBDatabase1
388 Transaction = Form1.IBTransaction1
389 BufferChunks = 1000
390 CachedUpdates = False
391 GeneratorField.ApplyOnEvent = gaeOnNewRecord
392 SQL.Strings = (
393 'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO From DEPARTMENT A'
394 'Order by DEPARTMENT asc'
395 )
396 Params = <>
397 left = 288
398 top = 120
399 end
400 object Datasource2: TDatasource
401 DataSet = Depts
402 left = 248
403 top = 120
404 end
405 object Countries: TIBQuery
406 Database = Form1.IBDatabase1
407 Transaction = Form1.IBTransaction1
408 BufferChunks = 1000
409 CachedUpdates = False
410 GeneratorField.ApplyOnEvent = gaeOnNewRecord
411 SQL.Strings = (
412 'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
413 'Order by Country Asc'
414 )
415 Params = <>
416 left = 367
417 top = 120
418 object CountriesCOUNTRY: TIBStringField
419 DisplayWidth = 15
420 FieldKind = fkData
421 FieldName = 'COUNTRY'
422 Index = 0
423 LookupCache = False
424 ProviderFlags = [pfInUpdate, pfInWhere]
425 ReadOnly = False
426 Required = True
427 Size = 15
428 end
429 object CountriesCURRENCY: TIBStringField
430 DisplayWidth = 10
431 FieldKind = fkData
432 FieldName = 'CURRENCY'
433 Index = 1
434 LookupCache = False
435 ProviderFlags = [pfInUpdate, pfInWhere]
436 ReadOnly = False
437 Required = True
438 Size = 10
439 end
440 end
441 object Datasource4: TDatasource
442 DataSet = Countries
443 left = 328
444 top = 120
445 end
446 end