ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit1.lfm
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 3 months ago) by tony
File size: 25843 byte(s)
Log Message:
Committing updates for Release R2-0-0

File Contents

# User Rev Content
1 tony 7 object Form1: TForm1
2 tony 45 Left = 453
3 tony 21 Height = 482
4 tony 45 Top = 336
5 tony 39 Width = 932
6 tony 21 Caption = 'Employee List'
7     ClientHeight = 482
8 tony 39 ClientWidth = 932
9 tony 7 OnClose = FormClose
10     OnShow = FormShow
11 tony 39 LCLVersion = '1.6.0.4'
12 tony 7 object Button1: TButton
13 tony 39 Left = 845
14 tony 7 Height = 25
15 tony 21 Top = 48
16 tony 7 Width = 75
17     Action = AddEmployee
18 tony 21 Anchors = [akTop, akRight]
19     TabOrder = 0
20 tony 7 end
21     object Button2: TButton
22 tony 39 Left = 845
23 tony 7 Height = 25
24 tony 21 Top = 86
25 tony 7 Width = 75
26     Action = EditEmployee
27 tony 21 Anchors = [akTop, akRight]
28     TabOrder = 1
29 tony 7 end
30     object Button3: TButton
31 tony 39 Left = 845
32 tony 7 Height = 25
33 tony 21 Top = 125
34 tony 7 Width = 75
35     Action = DeleteEmployee
36 tony 21 Anchors = [akTop, akRight]
37     TabOrder = 2
38     end
39     object Label1: TLabel
40     Left = 17
41     Height = 15
42     Top = 14
43 tony 39 Width = 87
44 tony 21 Caption = 'Started Before'
45     ParentColor = False
46     end
47     object BeforeDate: TDateEdit
48     Left = 112
49 tony 39 Height = 25
50 tony 21 Top = 8
51     Width = 80
52     CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
53     OKCaption = 'OK'
54     CancelCaption = 'Cancel'
55     DateOrder = doNone
56     ButtonWidth = 23
57     NumGlyphs = 1
58     MaxLength = 0
59     OnChange = BeforeDateChange
60 tony 7 TabOrder = 3
61     end
62 tony 21 object Label2: TLabel
63     Left = 241
64     Height = 15
65     Top = 14
66 tony 39 Width = 78
67 tony 21 Caption = 'Started After'
68     ParentColor = False
69     end
70     object AfterDate: TDateEdit
71     Left = 333
72 tony 39 Height = 25
73 tony 21 Top = 8
74     Width = 80
75     CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
76     OKCaption = 'OK'
77     CancelCaption = 'Cancel'
78     DateOrder = doNone
79     ButtonWidth = 23
80     NumGlyphs = 1
81     MaxLength = 0
82     OnChange = BeforeDateChange
83 tony 7 TabOrder = 4
84     end
85 tony 21 object Panel1: TPanel
86     Left = 12
87     Height = 434
88     Top = 42
89 tony 39 Width = 810
90 tony 21 Anchors = [akTop, akLeft, akRight, akBottom]
91     BevelOuter = bvNone
92     ClientHeight = 434
93 tony 39 ClientWidth = 810
94 tony 21 Color = clBackground
95     ParentColor = False
96 tony 7 TabOrder = 5
97 tony 21 object IBDynamicGrid1: TIBDynamicGrid
98     Left = 0
99     Height = 384
100     Top = 0
101 tony 39 Width = 810
102 tony 21 Align = alClient
103     Color = clWindow
104     Columns = <
105     item
106     Title.Alignment = taCenter
107     Title.Caption = 'Last Name'
108     Width = 100
109     FieldName = 'LAST_NAME'
110     AutoSizeColumn = False
111     InitialSortColumn = False
112     DBLookupProperties.ItemHeight = 0
113     DBLookupProperties.ItemWidth = 0
114     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
115     end
116     item
117     Title.Alignment = taCenter
118     Title.Caption = 'First Name'
119     Width = 100
120     FieldName = 'FIRST_NAME'
121     AutoSizeColumn = False
122     InitialSortColumn = False
123     DBLookupProperties.ItemHeight = 0
124     DBLookupProperties.ItemWidth = 0
125     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
126     end
127     item
128     Alignment = taCenter
129     Title.Alignment = taCenter
130     Title.Caption = 'Emp No.'
131     Width = 60
132     FieldName = 'EMP_NO'
133     AutoSizeColumn = False
134     InitialSortColumn = False
135     DBLookupProperties.ItemHeight = 0
136     DBLookupProperties.ItemWidth = 0
137     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
138     end
139     item
140     ReadOnly = True
141     Title.Alignment = taCenter
142     Title.Caption = 'Dept'
143     Width = 200
144     FieldName = 'DEPT_PATH'
145     AutoSizeColumn = True
146     InitialSortColumn = False
147     DBLookupProperties.ItemHeight = 0
148     DBLookupProperties.ItemWidth = 0
149     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
150     end
151     item
152     ButtonStyle = cbsPickList
153     Title.Alignment = taCenter
154     Title.Caption = 'Located'
155     Width = 100
156     FieldName = 'JOB_COUNTRY'
157     AutoSizeColumn = False
158     InitialSortColumn = False
159     DBLookupProperties.ItemHeight = 0
160     DBLookupProperties.ItemWidth = 0
161     DBLookupProperties.ListSource = CountrySource
162     DBLookupProperties.ListField = 'COUNTRY'
163     DBLookupProperties.AutoInsert = False
164     DBLookupProperties.AutoComplete = False
165     end
166     item
167     Title.Alignment = taCenter
168     Title.Caption = 'Started'
169     Width = 80
170     FieldName = 'HIRE_DATE'
171     AutoSizeColumn = False
172     InitialSortColumn = False
173     DBLookupProperties.ItemHeight = 0
174     DBLookupProperties.ItemWidth = 0
175     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176     end
177     item
178     Title.Alignment = taCenter
179     Title.Caption = 'Salary'
180     Width = 120
181     FieldName = 'SALARY'
182     ColumnTotalsControl = DBText1
183     AutoSizeColumn = False
184     InitialSortColumn = False
185     DBLookupProperties.ItemHeight = 0
186     DBLookupProperties.ItemWidth = 0
187     DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
188     end>
189     DataSource = EmployeeSource
190     Scrollbars = ssAutoBoth
191     TabOrder = 0
192     EditorPanel = EmployeeEditorPanel
193     ExpandEditorPanelBelowRow = False
194     Descending = False
195     EditorBorderStyle = bsSingle
196     DefaultPositionAtEnd = False
197     IndexFieldNames = 'EMP_NO'
198     end
199     object Panel2: TPanel
200     Left = 0
201     Height = 50
202     Top = 384
203 tony 39 Width = 810
204 tony 21 Align = alBottom
205     BevelOuter = bvNone
206     ClientHeight = 50
207 tony 39 ClientWidth = 810
208 tony 21 ParentColor = False
209     TabOrder = 1
210     object Button5: TButton
211     Left = 80
212     Height = 25
213     Top = 16
214     Width = 75
215     Action = CancelChanges
216     Anchors = [akLeft, akBottom]
217     TabOrder = 0
218     end
219     object Button4: TButton
220     Left = 1
221     Height = 25
222     Top = 16
223     Width = 75
224     Action = SaveChanges
225     Anchors = [akLeft, akBottom]
226     TabOrder = 1
227     end
228     object DBText1: TDBText
229     Left = 688
230     Height = 27
231     Top = 16
232 tony 39 Width = 49
233 tony 21 Alignment = taRightJustify
234     Anchors = [akTop, akLeft, akBottom]
235     DataField = 'TOTALSALARIES'
236     DataSource = TotalsSource
237     ParentColor = False
238     end
239     end
240     object EmployeeEditorPanel: TPanel
241     Left = 8
242     Height = 80
243     Top = 112
244     Width = 784
245     BevelOuter = bvNone
246     BorderWidth = 2
247     BorderStyle = bsSingle
248 tony 39 ClientHeight = 78
249     ClientWidth = 782
250 tony 21 Color = clWindow
251     ParentColor = False
252     TabOrder = 2
253     Visible = False
254     object Label3: TLabel
255     Left = 0
256     Height = 15
257     Top = 7
258 tony 39 Width = 83
259 tony 21 Caption = 'Employee No.'
260     ParentColor = False
261     end
262     object DBEdit1: TDBEdit
263     Left = 90
264 tony 39 Height = 25
265 tony 21 Top = 2
266     Width = 120
267     DataField = 'EMP_NO'
268     DataSource = EmployeeSource
269     CharCase = ecNormal
270     MaxLength = 0
271     TabOrder = 0
272     end
273     object Label4: TLabel
274     Left = 12
275     Height = 15
276     Top = 32
277 tony 39 Width = 64
278 tony 21 Caption = 'First Name'
279     ParentColor = False
280     end
281     object DBEdit2: TDBEdit
282     Left = 90
283 tony 39 Height = 25
284 tony 21 Top = 24
285     Width = 120
286     DataField = 'FIRST_NAME'
287     DataSource = EmployeeSource
288     CharCase = ecNormal
289     MaxLength = 0
290     TabOrder = 1
291     end
292     object Label5: TLabel
293     Left = 12
294     Height = 15
295     Top = 56
296 tony 39 Width = 64
297 tony 21 Caption = 'Last Name'
298     ParentColor = False
299     end
300     object DBEdit3: TDBEdit
301     Left = 90
302 tony 39 Height = 25
303 tony 21 Top = 46
304     Width = 120
305     DataField = 'LAST_NAME'
306     DataSource = EmployeeSource
307     CharCase = ecNormal
308     MaxLength = 0
309     TabOrder = 2
310     end
311     object Label6: TLabel
312     Left = 216
313     Height = 15
314     Top = 7
315 tony 39 Width = 77
316 tony 21 Caption = 'Date Started'
317     ParentColor = False
318     end
319     object IBDateEdit1: TDBDateEdit
320     Left = 300
321 tony 39 Height = 25
322 tony 21 Top = 2
323 tony 37 Width = 104
324 tony 21 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325     OKCaption = 'OK'
326     CancelCaption = 'Cancel'
327     DateOrder = doNone
328     ButtonWidth = 23
329 tony 27 AutoSelect = False
330 tony 21 NumGlyphs = 1
331     MaxLength = 0
332     TabOrder = 3
333     DataField = 'HIRE_DATE'
334     DataSource = EmployeeSource
335     end
336     object Label7: TLabel
337     Left = 252
338     Height = 15
339     Top = 32
340 tony 39 Width = 37
341 tony 21 Caption = 'Salary'
342     ParentColor = False
343     end
344     object DBEdit4: TDBEdit
345     Left = 300
346 tony 39 Height = 25
347 tony 21 Top = 24
348     Width = 104
349     DataField = 'SALARY'
350     DataSource = EmployeeSource
351     CharCase = ecNormal
352     MaxLength = 0
353     TabOrder = 5
354     end
355     object Label8: TLabel
356 tony 39 Left = 708
357 tony 21 Height = 15
358     Top = 54
359 tony 39 Width = 24
360 tony 21 Anchors = [akTop, akRight]
361     Caption = 'Ext.'
362     ParentColor = False
363     end
364     object DBEdit5: TDBEdit
365 tony 39 Left = 732
366     Height = 25
367 tony 21 Top = 48
368     Width = 40
369     DataField = 'PHONE_EXT'
370     DataSource = EmployeeSource
371     Anchors = [akTop, akRight]
372     CharCase = ecNormal
373     MaxLength = 0
374     TabOrder = 4
375     end
376     object Label9: TLabel
377     Left = 536
378     Height = 15
379     Top = 7
380 tony 39 Width = 51
381 tony 21 Caption = 'Location'
382     ParentColor = False
383     end
384     object Label10: TLabel
385     Left = 413
386     Height = 15
387     Top = 9
388 tony 39 Width = 59
389 tony 21 Caption = 'Job Grade'
390     ParentColor = False
391     end
392     object JobGradeDBComboBox: TDBComboBox
393     Left = 480
394 tony 37 Height = 23
395 tony 21 Top = 2
396     Width = 48
397     AutoSize = False
398     DataField = 'JOB_GRADE'
399     DataSource = EmployeeSource
400 tony 39 ItemHeight = 0
401 tony 21 Items.Strings = (
402     '1'
403     '2'
404     '3'
405     '4'
406     '5'
407     )
408     MaxLength = 0
409     OnCloseUp = JobGradeDBComboBoxCloseUp
410     Style = csDropDownList
411     TabOrder = 6
412     end
413     object Label11: TLabel
414     Left = 536
415     Height = 15
416     Top = 32
417 tony 39 Width = 48
418 tony 21 Caption = 'Job Title'
419     ParentColor = False
420     end
421     object Label12: TLabel
422     Left = 256
423     Height = 15
424     Top = 54
425 tony 39 Width = 33
426 tony 21 Caption = 'Dept.'
427     ParentColor = False
428     end
429     object SpeedButton1: TSpeedButton
430 tony 39 Left = 680
431 tony 21 Height = 25
432     Top = 48
433     Width = 23
434     Action = SelectDept
435     Anchors = [akTop, akRight]
436     end
437     object DBEdit6: TDBEdit
438     Left = 300
439 tony 39 Height = 25
440 tony 21 Top = 48
441 tony 39 Width = 372
442 tony 21 DataField = 'DEPT_PATH'
443     DataSource = EmployeeSource
444     ReadOnly = True
445     Anchors = [akTop, akLeft, akRight]
446     CharCase = ecNormal
447     MaxLength = 0
448     TabOrder = 7
449     end
450     object IBLookupComboEditBox2: TIBLookupComboEditBox
451     Left = 600
452 tony 37 Height = 23
453 tony 21 Top = 0
454 tony 39 Width = 172
455 tony 21 Anchors = [akTop, akLeft, akRight]
456     AutoSize = False
457     DataField = 'JOB_COUNTRY'
458     DataSource = EmployeeSource
459     KeyField = 'COUNTRY'
460     ListField = 'COUNTRY'
461     ListFieldIndex = 0
462     ListSource = CountrySource
463     LookupCache = False
464     Style = csDropDownList
465     TabOrder = 8
466     AutoInsert = False
467     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
468 tony 39 ItemHeight = 0
469 tony 21 end
470     object IBLookupComboEditBox1: TIBLookupComboEditBox
471     Left = 600
472 tony 37 Height = 23
473 tony 21 Top = 24
474 tony 39 Width = 172
475 tony 21 Anchors = [akTop, akLeft, akRight]
476     AutoSize = False
477     DataField = 'JOB_CODE'
478     DataSource = EmployeeSource
479     KeyField = 'JOB_CODE'
480     ListField = 'JOB_TITLE'
481     ListFieldIndex = 0
482     ListSource = JobCodeSource
483     LookupCache = False
484     Style = csDropDownList
485     TabOrder = 9
486     AutoInsert = False
487     AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
488 tony 39 ItemHeight = 0
489 tony 21 end
490     end
491 tony 7 end
492 tony 21 object Label13: TLabel
493     Left = 456
494     Height = 15
495     Top = 14
496 tony 39 Width = 79
497 tony 21 Caption = 'Salary Range'
498     ParentColor = False
499     end
500     object SalaryRange: TComboBox
501     Left = 544
502 tony 39 Height = 25
503 tony 21 Top = 8
504     Width = 272
505 tony 39 ItemHeight = 0
506 tony 21 ItemIndex = 0
507     Items.Strings = (
508     'None Specified'
509     'Below $40,000'
510     'Between $40,000 and $100,000'
511     'Above $100,000'
512     )
513     OnCloseUp = BeforeDateChange
514     Style = csDropDownList
515     TabOrder = 6
516     Text = 'None Specified'
517     end
518 tony 7 object IBDatabase1: TIBDatabase
519 tony 21 Connected = False
520 tony 45 CreateIfNotExists = False
521 tony 7 AllowStreamedConnected = False
522 tony 45 DatabaseName = 'localhost:employee'
523 tony 7 Params.Strings = (
524     'user_name=SYSDBA'
525 tony 33 'lc_ctype=UTF8'
526 tony 7 )
527     DefaultTransaction = IBTransaction1
528     IdleTimer = 0
529     TraceFlags = []
530 tony 45 UseDefaultSystemCodePage = False
531 tony 21 left = 832
532     top = 168
533 tony 7 end
534     object IBTransaction1: TIBTransaction
535     Active = False
536     DefaultDatabase = IBDatabase1
537     Params.Strings = (
538     'read_committed'
539     'rec_version'
540     'nowait'
541     )
542 tony 21 left = 872
543     top = 168
544 tony 7 end
545 tony 21 object EmployeeSource: TDataSource
546     DataSet = Employees
547     left = 832
548     top = 336
549     end
550     object ActionList1: TActionList
551     left = 832
552     top = 416
553     object AddEmployee: TAction
554     Caption = 'Add'
555     OnExecute = AddEmployeeExecute
556     end
557     object EditEmployee: TAction
558     Caption = 'Edit'
559     OnExecute = EditEmployeeExecute
560     OnUpdate = EditEmployeeUpdate
561     end
562     object DeleteEmployee: TAction
563     Caption = 'Delete'
564     OnExecute = DeleteEmployeeExecute
565     OnUpdate = EditEmployeeUpdate
566     end
567     object SaveChanges: TAction
568     Caption = 'Save'
569     OnExecute = SaveChangesExecute
570     OnUpdate = SaveChangesUpdate
571     end
572     object CancelChanges: TAction
573     Caption = 'Cancel'
574     OnExecute = CancelChangesExecute
575     OnUpdate = SaveChangesUpdate
576     end
577     object SelectDept: TAction
578     Caption = '...'
579     OnExecute = SelectDeptExecute
580     end
581     end
582     object CountrySource: TDataSource
583     DataSet = Countries
584     left = 832
585     top = 296
586     end
587     object TotalsQuery: TIBQuery
588 tony 45 AllowAutoActivateTransaction = False
589 tony 7 Database = IBDatabase1
590     Transaction = IBTransaction1
591 tony 21 BeforeOpen = EmployeesBeforeOpen
592 tony 7 BufferChunks = 1000
593     CachedUpdates = False
594 tony 19 GenerateParamNames = False
595 tony 7 GeneratorField.ApplyOnEvent = gaeOnNewRecord
596     SQL.Strings = (
597 tony 21 'Select sum(Salary) as TotalSalaries'
598     'From EMPLOYEE'
599 tony 7 )
600     Params = <>
601 tony 27 DataSetCloseAction = dcDiscardChanges
602 tony 21 left = 872
603     top = 376
604     object TotalsQueryTOTALSALARIES: TIBBCDField
605     DisplayWidth = 18
606     FieldKind = fkData
607     FieldName = 'TOTALSALARIES'
608     Index = 0
609     LookupCache = False
610     ProviderFlags = [pfInUpdate, pfInWhere]
611     ReadOnly = False
612     Required = False
613     OnGetText = EmployeesSALARYGetText
614     Precision = 18
615     Currency = False
616     MaxValue = 0
617     MinValue = 0
618     Size = 2
619     end
620     end
621     object TotalsSource: TDataSource
622     DataSet = TotalsQuery
623     left = 832
624     top = 376
625     end
626     object Employees: TIBDataSet
627 tony 45 AllowAutoActivateTransaction = False
628 tony 21 Database = IBDatabase1
629     Transaction = IBTransaction1
630     AfterDelete = EmployeesAfterDelete
631     AfterEdit = EmployeesAfterDelete
632     AfterInsert = EmployeesAfterInsert
633     AfterOpen = EmployeesAfterOpen
634     AfterPost = EmployeesAfterPost
635     AfterScroll = EmployeesAfterScroll
636     BeforeClose = EmployeesBeforeClose
637     BeforeOpen = EmployeesBeforeOpen
638 tony 45 BufferChunks = 5000
639 tony 21 CachedUpdates = False
640     DeleteSQL.Strings = (
641     'Delete From EMPLOYEE A'
642     'Where A.EMP_NO = :EMP_NO'
643     )
644     InsertSQL.Strings = (
645     'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
646     'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
647     )
648     RefreshSQL.Strings = (
649     'with recursive Depts As ('
650     'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,'
651     'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
652     'From DEPARTMENT Where HEAD_DEPT is NULL '
653     'UNION ALL'
654 tony 45 'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,'
655     'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
656     'From DEPARTMENT D'
657     'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
658 tony 21 ')'
659     ''
660     'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
661     'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
662     'From EMPLOYEE A'
663     'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
664 tony 45 ''
665 tony 21 'Where A.EMP_NO = :EMP_NO'
666     )
667     SelectSQL.Strings = (
668     'with recursive Depts As ('
669     'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as VarChar(256)) as DEPT_PATH,'
670     'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
671     'From DEPARTMENT Where HEAD_DEPT is NULL '
672     'UNION ALL'
673 tony 45 'Select D.DEPT_NO, D.DEPARTMENT, D.HEAD_DEPT, Depts.DEPT_PATH || '' / '' || D.DEPARTMENT as DEPT_PATH,'
674     'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
675     'From DEPARTMENT D'
676     'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
677 tony 21 ')'
678     ''
679 tony 45 'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
680 tony 21 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, D.DEPT_KEY_PATH'
681     'From EMPLOYEE A'
682     'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
683     )
684     ModifySQL.Strings = (
685     'Update EMPLOYEE A Set '#13#10' A.DEPT_NO = :DEPT_NO,'#13#10' A.FIRST_NAME = :FIRST_NAME,'#13#10' A.HIRE_DATE = :HIRE_DATE,'#13#10' A.JOB_CODE = :JOB_CODE,'#13#10' A.JOB_COUNTRY = :JOB_COUNTRY,'#13#10' A.JOB_GRADE = :JOB_GRADE,'#13#10' A.LAST_NAME = :LAST_NAME,'#13#10' A.PHONE_EXT = :PHONE_EXT,'#13#10' A.SALARY = :SALARY'
686     'Where A.EMP_NO = :OLD_EMP_NO'
687     )
688     GeneratorField.Generator = 'EMP_NO_GEN'
689     GeneratorField.Field = 'EMP_NO'
690     GeneratorField.ApplyOnEvent = gaeOnNewRecord
691     GenerateParamNames = False
692 tony 27 DataSetCloseAction = dcSaveChanges
693 tony 21 AfterTransactionEnd = EmployeesAfterTransactionEnd
694 tony 27 OnValidatePost = EmployeesValidatePost
695 tony 21 left = 872
696 tony 7 top = 336
697 tony 21 object EmployeesEMP_NO: TSmallintField
698 tony 7 DisplayWidth = 10
699     FieldKind = fkData
700     FieldName = 'EMP_NO'
701     Index = 0
702     LookupCache = False
703     ProviderFlags = [pfInUpdate, pfInWhere]
704     ReadOnly = False
705     Required = True
706     end
707 tony 21 object EmployeesFIRST_NAME: TIBStringField
708 tony 7 DisplayWidth = 15
709     FieldKind = fkData
710     FieldName = 'FIRST_NAME'
711     Index = 1
712     LookupCache = False
713     ProviderFlags = [pfInUpdate, pfInWhere]
714     ReadOnly = False
715     Required = True
716     Size = 15
717     end
718 tony 21 object EmployeesLAST_NAME: TIBStringField
719 tony 7 DisplayWidth = 20
720     FieldKind = fkData
721     FieldName = 'LAST_NAME'
722     Index = 2
723     LookupCache = False
724     ProviderFlags = [pfInUpdate, pfInWhere]
725     ReadOnly = False
726     Required = True
727     end
728 tony 21 object EmployeesPHONE_EXT: TIBStringField
729     Alignment = taRightJustify
730 tony 7 DisplayWidth = 4
731     FieldKind = fkData
732     FieldName = 'PHONE_EXT'
733     Index = 3
734     LookupCache = False
735     ProviderFlags = [pfInUpdate, pfInWhere]
736     ReadOnly = False
737     Required = False
738     Size = 4
739     end
740 tony 21 object EmployeesHIRE_DATE: TDateTimeField
741 tony 7 DisplayWidth = 10
742     FieldKind = fkData
743     FieldName = 'HIRE_DATE'
744     Index = 4
745     LookupCache = False
746     ProviderFlags = [pfInUpdate, pfInWhere]
747     ReadOnly = False
748     Required = True
749     end
750 tony 21 object EmployeesDEPT_NO: TIBStringField
751 tony 7 DisplayWidth = 3
752     FieldKind = fkData
753     FieldName = 'DEPT_NO'
754     Index = 5
755     LookupCache = False
756     ProviderFlags = [pfInUpdate, pfInWhere]
757     ReadOnly = False
758     Required = True
759     Size = 3
760     end
761 tony 21 object EmployeesJOB_CODE: TIBStringField
762 tony 7 DisplayWidth = 5
763     FieldKind = fkData
764     FieldName = 'JOB_CODE'
765     Index = 6
766     LookupCache = False
767     ProviderFlags = [pfInUpdate, pfInWhere]
768     ReadOnly = False
769     Required = True
770 tony 21 OnChange = EmployeesJOB_CODEChange
771 tony 7 Size = 5
772     end
773 tony 21 object EmployeesJOB_GRADE: TSmallintField
774 tony 7 DisplayWidth = 10
775     FieldKind = fkData
776     FieldName = 'JOB_GRADE'
777     Index = 7
778     LookupCache = False
779     ProviderFlags = [pfInUpdate, pfInWhere]
780     ReadOnly = False
781     Required = True
782 tony 21 OnChange = EmployeesJOB_GRADEChange
783 tony 7 end
784 tony 21 object EmployeesJOB_COUNTRY: TIBStringField
785 tony 7 DisplayWidth = 15
786     FieldKind = fkData
787     FieldName = 'JOB_COUNTRY'
788     Index = 8
789     LookupCache = False
790     ProviderFlags = [pfInUpdate, pfInWhere]
791     ReadOnly = False
792     Required = True
793     Size = 15
794     end
795 tony 21 object EmployeesSALARY: TIBBCDField
796     DisplayWidth = 18
797     FieldKind = fkData
798     FieldName = 'SALARY'
799     Index = 9
800     LookupCache = False
801     ProviderFlags = [pfInUpdate, pfInWhere]
802     ReadOnly = False
803     Required = True
804     OnGetText = EmployeesSALARYGetText
805     Precision = 18
806     Currency = False
807     MaxValue = 0
808     MinValue = 0
809     Size = 2
810     end
811     object EmployeesFULL_NAME: TIBStringField
812 tony 19 DisplayWidth = 37
813     FieldKind = fkData
814     FieldName = 'FULL_NAME'
815 tony 21 Index = 10
816 tony 19 LookupCache = False
817     ProviderFlags = [pfInUpdate, pfInWhere]
818     ReadOnly = True
819     Required = False
820     Size = 37
821     end
822 tony 21 object EmployeesDEPT_PATH: TIBStringField
823     DisplayWidth = 256
824 tony 7 FieldKind = fkData
825 tony 21 FieldName = 'DEPT_PATH'
826     Index = 11
827 tony 7 LookupCache = False
828     ProviderFlags = [pfInUpdate, pfInWhere]
829     ReadOnly = False
830     Required = True
831 tony 21 Size = 256
832 tony 7 end
833 tony 21 object EmployeesDEPT_KEY_PATH: TIBStringField
834     DisplayWidth = 64
835     FieldKind = fkData
836     FieldName = 'DEPT_KEY_PATH'
837     Index = 12
838     LookupCache = False
839     ProviderFlags = [pfInUpdate, pfInWhere]
840     ReadOnly = False
841     Required = True
842     Size = 64
843     end
844 tony 7 end
845 tony 21 object Countries: TIBQuery
846 tony 45 AllowAutoActivateTransaction = False
847 tony 21 Database = IBDatabase1
848     Transaction = IBTransaction1
849     BeforeOpen = CountriesBeforeOpen
850     BufferChunks = 1000
851     CachedUpdates = False
852     GenerateParamNames = False
853     GeneratorField.ApplyOnEvent = gaeOnNewRecord
854     SQL.Strings = (
855     'Select A.COUNTRY, A.CURRENCY From COUNTRY A'
856     'JOIN JOB J On J.JOB_COUNTRY = A.COUNTRY'
857     'Where J.JOB_CODE = :JOB_CODE and J.JOB_GRADE = :JOB_GRADE'
858     'Order by 1'
859     )
860     Params = <
861     item
862     DataType = ftUnknown
863     Name = 'JOB_CODE'
864     ParamType = ptInput
865     end
866     item
867     DataType = ftUnknown
868     Name = 'JOB_GRADE'
869     ParamType = ptInput
870     end>
871 tony 27 DataSetCloseAction = dcDiscardChanges
872 tony 21 left = 872
873 tony 7 top = 296
874 tony 21 ParamData = <
875     item
876     DataType = ftUnknown
877     Name = 'JOB_CODE'
878     ParamType = ptInput
879     end
880     item
881     DataType = ftUnknown
882     Name = 'JOB_GRADE'
883     ParamType = ptInput
884     end>
885 tony 7 end
886 tony 21 object JobCodeSource: TDataSource
887     DataSet = JobCodes
888     left = 832
889     top = 256
890 tony 7 end
891 tony 21 object JobCodes: TIBQuery
892 tony 45 AllowAutoActivateTransaction = False
893 tony 21 Database = IBDatabase1
894     Transaction = IBTransaction1
895     BeforeOpen = JobCodesBeforeOpen
896     BufferChunks = 1000
897     CachedUpdates = False
898     GenerateParamNames = False
899     GeneratorField.ApplyOnEvent = gaeOnNewRecord
900     SQL.Strings = (
901     'Select A.JOB_CODE, A.JOB_TITLE From JOB A'
902     'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE'
903     'Order by Upper(JOB_TITLE)'
904 tony 7 )
905 tony 21 Params = <
906     item
907     DataType = ftUnknown
908     Name = 'JOB_COUNTRY'
909     ParamType = ptInput
910     end
911     item
912     DataType = ftUnknown
913     Name = 'JOB_GRADE'
914     ParamType = ptInput
915     end>
916 tony 27 DataSetCloseAction = dcDiscardChanges
917 tony 21 left = 872
918     top = 256
919     ParamData = <
920     item
921     DataType = ftUnknown
922     Name = 'JOB_COUNTRY'
923     ParamType = ptInput
924     end
925     item
926     DataType = ftUnknown
927     Name = 'JOB_GRADE'
928     ParamType = ptInput
929     end>
930     end
931     object Depts: TIBQuery
932 tony 45 AllowAutoActivateTransaction = False
933 tony 21 Database = IBDatabase1
934     Transaction = IBTransaction1
935     BufferChunks = 1000
936     CachedUpdates = False
937     GenerateParamNames = False
938     GeneratorField.ApplyOnEvent = gaeOnNewRecord
939     SQL.Strings = (
940     'Select A.DEPT_NO, A.DEPARTMENT From DEPARTMENT A'
941     ''
942     'Order by Upper(Department)'
943 tony 7 )
944 tony 21 Params = <>
945 tony 27 DataSetCloseAction = dcDiscardChanges
946 tony 21 left = 872
947     top = 210
948 tony 7 end
949 tony 21 object DeptsSource: TDataSource
950     DataSet = Depts
951     left = 832
952     top = 208
953     end
954 tony 29 object JobGradeChangeTimer: TTimer
955     Interval = 0
956     OnTimer = JobGradeChangeTimerTimer
957 tony 39 left = 777
958     top = 304
959 tony 29 end
960     object JobCodeChangeTimer: TTimer
961     Interval = 0
962     OnTimer = JobCodeChangeTimerTimer
963 tony 39 left = 776
964     top = 353
965 tony 29 end
966 tony 7 end