ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/employee/unit1.lfm
Revision: 318
Committed: Thu Feb 25 12:03:26 2021 UTC (3 years, 2 months ago) by tony
File size: 26621 byte(s)
Log Message:
Update Examples for FB4

File Contents

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