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

# Content
1 object Form1: TForm1
2 Left = 453
3 Height = 482
4 Top = 336
5 Width = 932
6 Caption = 'Employee List'
7 ClientHeight = 482
8 ClientWidth = 932
9 OnClose = FormClose
10 OnShow = FormShow
11 LCLVersion = '1.6.0.4'
12 object Button1: TButton
13 Left = 845
14 Height = 25
15 Top = 48
16 Width = 75
17 Action = AddEmployee
18 Anchors = [akTop, akRight]
19 TabOrder = 0
20 end
21 object Button2: TButton
22 Left = 845
23 Height = 25
24 Top = 86
25 Width = 75
26 Action = EditEmployee
27 Anchors = [akTop, akRight]
28 TabOrder = 1
29 end
30 object Button3: TButton
31 Left = 845
32 Height = 25
33 Top = 125
34 Width = 75
35 Action = DeleteEmployee
36 Anchors = [akTop, akRight]
37 TabOrder = 2
38 end
39 object Label1: TLabel
40 Left = 17
41 Height = 15
42 Top = 14
43 Width = 87
44 Caption = 'Started Before'
45 ParentColor = False
46 end
47 object BeforeDate: TDateEdit
48 Left = 112
49 Height = 25
50 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 TabOrder = 3
61 end
62 object Label2: TLabel
63 Left = 241
64 Height = 15
65 Top = 14
66 Width = 78
67 Caption = 'Started After'
68 ParentColor = False
69 end
70 object AfterDate: TDateEdit
71 Left = 333
72 Height = 25
73 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 TabOrder = 4
84 end
85 object Panel1: TPanel
86 Left = 12
87 Height = 434
88 Top = 42
89 Width = 810
90 Anchors = [akTop, akLeft, akRight, akBottom]
91 BevelOuter = bvNone
92 ClientHeight = 434
93 ClientWidth = 810
94 Color = clBackground
95 ParentColor = False
96 TabOrder = 5
97 object IBDynamicGrid1: TIBDynamicGrid
98 Left = 0
99 Height = 384
100 Top = 0
101 Width = 810
102 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 Width = 810
204 Align = alBottom
205 BevelOuter = bvNone
206 ClientHeight = 50
207 ClientWidth = 810
208 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 Width = 49
233 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 ClientHeight = 78
249 ClientWidth = 782
250 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 Width = 83
259 Caption = 'Employee No.'
260 ParentColor = False
261 end
262 object DBEdit1: TDBEdit
263 Left = 90
264 Height = 25
265 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 Width = 64
278 Caption = 'First Name'
279 ParentColor = False
280 end
281 object DBEdit2: TDBEdit
282 Left = 90
283 Height = 25
284 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 Width = 64
297 Caption = 'Last Name'
298 ParentColor = False
299 end
300 object DBEdit3: TDBEdit
301 Left = 90
302 Height = 25
303 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 Width = 77
316 Caption = 'Date Started'
317 ParentColor = False
318 end
319 object IBDateEdit1: TDBDateEdit
320 Left = 300
321 Height = 25
322 Top = 2
323 Width = 104
324 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
325 OKCaption = 'OK'
326 CancelCaption = 'Cancel'
327 DateOrder = doNone
328 ButtonWidth = 23
329 AutoSelect = False
330 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 Width = 37
341 Caption = 'Salary'
342 ParentColor = False
343 end
344 object DBEdit4: TDBEdit
345 Left = 300
346 Height = 25
347 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 Left = 708
357 Height = 15
358 Top = 54
359 Width = 24
360 Anchors = [akTop, akRight]
361 Caption = 'Ext.'
362 ParentColor = False
363 end
364 object DBEdit5: TDBEdit
365 Left = 732
366 Height = 25
367 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 Width = 51
381 Caption = 'Location'
382 ParentColor = False
383 end
384 object Label10: TLabel
385 Left = 413
386 Height = 15
387 Top = 9
388 Width = 59
389 Caption = 'Job Grade'
390 ParentColor = False
391 end
392 object JobGradeDBComboBox: TDBComboBox
393 Left = 480
394 Height = 23
395 Top = 2
396 Width = 48
397 AutoSize = False
398 DataField = 'JOB_GRADE'
399 DataSource = EmployeeSource
400 ItemHeight = 0
401 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 Width = 48
418 Caption = 'Job Title'
419 ParentColor = False
420 end
421 object Label12: TLabel
422 Left = 256
423 Height = 15
424 Top = 54
425 Width = 33
426 Caption = 'Dept.'
427 ParentColor = False
428 end
429 object SpeedButton1: TSpeedButton
430 Left = 680
431 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 Height = 25
440 Top = 48
441 Width = 372
442 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 Height = 23
453 Top = 0
454 Width = 172
455 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 ItemHeight = 0
469 end
470 object IBLookupComboEditBox1: TIBLookupComboEditBox
471 Left = 600
472 Height = 23
473 Top = 24
474 Width = 172
475 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 ItemHeight = 0
489 end
490 end
491 end
492 object Label13: TLabel
493 Left = 456
494 Height = 15
495 Top = 14
496 Width = 79
497 Caption = 'Salary Range'
498 ParentColor = False
499 end
500 object SalaryRange: TComboBox
501 Left = 544
502 Height = 25
503 Top = 8
504 Width = 272
505 ItemHeight = 0
506 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 object IBDatabase1: TIBDatabase
519 Connected = False
520 CreateIfNotExists = False
521 AllowStreamedConnected = False
522 DatabaseName = 'localhost:employee'
523 Params.Strings = (
524 'user_name=SYSDBA'
525 'lc_ctype=UTF8'
526 )
527 DefaultTransaction = IBTransaction1
528 IdleTimer = 0
529 TraceFlags = []
530 UseDefaultSystemCodePage = False
531 left = 832
532 top = 168
533 end
534 object IBTransaction1: TIBTransaction
535 Active = False
536 DefaultDatabase = IBDatabase1
537 Params.Strings = (
538 'read_committed'
539 'rec_version'
540 'nowait'
541 )
542 left = 872
543 top = 168
544 end
545 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 AllowAutoActivateTransaction = False
589 Database = IBDatabase1
590 Transaction = IBTransaction1
591 BeforeOpen = EmployeesBeforeOpen
592 BufferChunks = 1000
593 CachedUpdates = False
594 GenerateParamNames = False
595 GeneratorField.ApplyOnEvent = gaeOnNewRecord
596 SQL.Strings = (
597 'Select sum(Salary) as TotalSalaries'
598 'From EMPLOYEE'
599 )
600 Params = <>
601 DataSetCloseAction = dcDiscardChanges
602 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 AllowAutoActivateTransaction = False
628 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 BufferChunks = 5000
639 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 '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 ')'
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 ''
665 '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 '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 ')'
678 ''
679 'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
680 '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 DataSetCloseAction = dcSaveChanges
693 AfterTransactionEnd = EmployeesAfterTransactionEnd
694 OnValidatePost = EmployeesValidatePost
695 left = 872
696 top = 336
697 object EmployeesEMP_NO: TSmallintField
698 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 object EmployeesFIRST_NAME: TIBStringField
708 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 object EmployeesLAST_NAME: TIBStringField
719 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 object EmployeesPHONE_EXT: TIBStringField
729 Alignment = taRightJustify
730 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 object EmployeesHIRE_DATE: TDateTimeField
741 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 object EmployeesDEPT_NO: TIBStringField
751 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 object EmployeesJOB_CODE: TIBStringField
762 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 OnChange = EmployeesJOB_CODEChange
771 Size = 5
772 end
773 object EmployeesJOB_GRADE: TSmallintField
774 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 OnChange = EmployeesJOB_GRADEChange
783 end
784 object EmployeesJOB_COUNTRY: TIBStringField
785 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 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 DisplayWidth = 37
813 FieldKind = fkData
814 FieldName = 'FULL_NAME'
815 Index = 10
816 LookupCache = False
817 ProviderFlags = [pfInUpdate, pfInWhere]
818 ReadOnly = True
819 Required = False
820 Size = 37
821 end
822 object EmployeesDEPT_PATH: TIBStringField
823 DisplayWidth = 256
824 FieldKind = fkData
825 FieldName = 'DEPT_PATH'
826 Index = 11
827 LookupCache = False
828 ProviderFlags = [pfInUpdate, pfInWhere]
829 ReadOnly = False
830 Required = True
831 Size = 256
832 end
833 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 end
845 object Countries: TIBQuery
846 AllowAutoActivateTransaction = False
847 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 DataSetCloseAction = dcDiscardChanges
872 left = 872
873 top = 296
874 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 end
886 object JobCodeSource: TDataSource
887 DataSet = JobCodes
888 left = 832
889 top = 256
890 end
891 object JobCodes: TIBQuery
892 AllowAutoActivateTransaction = False
893 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 )
905 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 DataSetCloseAction = dcDiscardChanges
917 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 AllowAutoActivateTransaction = False
933 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 )
944 Params = <>
945 DataSetCloseAction = dcDiscardChanges
946 left = 872
947 top = 210
948 end
949 object DeptsSource: TDataSource
950 DataSet = Depts
951 left = 832
952 top = 208
953 end
954 object JobGradeChangeTimer: TTimer
955 Interval = 0
956 OnTimer = JobGradeChangeTimerTimer
957 left = 777
958 top = 304
959 end
960 object JobCodeChangeTimer: TTimer
961 Interval = 0
962 OnTimer = JobCodeChangeTimerTimer
963 left = 776
964 top = 353
965 end
966 end