ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/dbcontrolgrid/unit1.lfm
Revision: 380
Committed: Mon Jan 10 10:13:17 2022 UTC (2 years, 2 months ago) by tony
File size: 20419 byte(s)
Log Message:
propset for eol-style

File Contents

# Content
1 object Form1: TForm1
2 Left = 613
3 Height = 575
4 Top = 199
5 Width = 1034
6 Caption = 'Employee List'
7 ClientHeight = 575
8 ClientWidth = 1034
9 DefaultMonitor = dmPrimary
10 OnClose = FormClose
11 OnShow = FormShow
12 Position = poDefault
13 LCLVersion = '2.0.11.0'
14 object Button1: TButton
15 Left = 947
16 Height = 25
17 Top = 48
18 Width = 75
19 Action = AddEmployee
20 Anchors = [akTop, akRight]
21 TabOrder = 0
22 end
23 object Button3: TButton
24 Left = 947
25 Height = 25
26 Top = 80
27 Width = 75
28 Action = DeleteEmployee
29 Anchors = [akTop, akRight]
30 TabOrder = 1
31 end
32 object Label1: TLabel
33 Left = 17
34 Height = 13
35 Top = 14
36 Width = 87
37 Caption = 'Started Before'
38 ParentColor = False
39 end
40 object BeforeDate: TDateEdit
41 Left = 112
42 Height = 24
43 Top = 8
44 Width = 96
45 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
46 DateOrder = doNone
47 ButtonWidth = 23
48 NumGlyphs = 1
49 MaxLength = 0
50 OnChange = BeforeDateChange
51 TabOrder = 2
52 end
53 object Label2: TLabel
54 Left = 241
55 Height = 13
56 Top = 14
57 Width = 78
58 Caption = 'Started After'
59 ParentColor = False
60 end
61 object AfterDate: TDateEdit
62 Left = 333
63 Height = 24
64 Top = 8
65 Width = 91
66 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
67 DateOrder = doNone
68 ButtonWidth = 23
69 NumGlyphs = 1
70 MaxLength = 0
71 OnChange = BeforeDateChange
72 TabOrder = 3
73 end
74 object Panel1: TPanel
75 Left = 12
76 Height = 527
77 Top = 42
78 Width = 912
79 Anchors = [akTop, akLeft, akRight, akBottom]
80 BevelOuter = bvNone
81 ClientHeight = 527
82 ClientWidth = 912
83 ParentColor = False
84 TabOrder = 4
85 object DBControlGrid1: TDBControlGrid
86 Left = 0
87 Height = 477
88 Top = 0
89 Width = 912
90 Align = alClient
91 AlternateColor = clSkyBlue
92 AltColorStartNormal = True
93 Color = clWhite
94 DataSource = EmployeeSource
95 DefaultPositionAtEnd = False
96 DrawPanel = EmployeeEditorPanel
97 Options = [dgpIndicator]
98 TabOrder = 1
99 ColWidths = (
100 12
101 898
102 )
103 object EmployeeEditorPanel: TPanel
104 Left = 12
105 Height = 84
106 Top = 0
107 Width = 898
108 Anchors = []
109 BevelOuter = bvNone
110 BorderWidth = 2
111 BorderStyle = bsSingle
112 ClientHeight = 82
113 ClientWidth = 896
114 Color = clWhite
115 ParentColor = False
116 TabOrder = 0
117 Visible = False
118 object Label3: TLabel
119 Left = 0
120 Height = 13
121 Top = 7
122 Width = 83
123 Caption = 'Employee No.'
124 ParentColor = False
125 end
126 object DBEdit1: TDBEdit
127 Left = 90
128 Height = 24
129 Top = 2
130 Width = 120
131 DataField = 'EMP_NO'
132 DataSource = EmployeeSource
133 CharCase = ecNormal
134 MaxLength = 0
135 TabOrder = 0
136 end
137 object Label4: TLabel
138 Left = 12
139 Height = 13
140 Top = 32
141 Width = 64
142 Caption = 'First Name'
143 ParentColor = False
144 end
145 object DBEdit2: TDBEdit
146 Left = 90
147 Height = 24
148 Top = 28
149 Width = 120
150 DataField = 'FIRST_NAME'
151 DataSource = EmployeeSource
152 CharCase = ecNormal
153 MaxLength = 0
154 TabOrder = 1
155 end
156 object Label5: TLabel
157 Left = 12
158 Height = 13
159 Top = 56
160 Width = 64
161 Caption = 'Last Name'
162 ParentColor = False
163 end
164 object DBEdit3: TDBEdit
165 Left = 90
166 Height = 24
167 Top = 54
168 Width = 120
169 DataField = 'LAST_NAME'
170 DataSource = EmployeeSource
171 CharCase = ecNormal
172 MaxLength = 0
173 TabOrder = 2
174 end
175 object Label6: TLabel
176 Left = 216
177 Height = 13
178 Top = 7
179 Width = 77
180 Caption = 'Date Started'
181 ParentColor = False
182 end
183 object IBDateEdit1: TDBDateEdit
184 Left = 300
185 Height = 24
186 Top = 2
187 Width = 100
188 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
189 DateOrder = doNone
190 ButtonWidth = 23
191 AutoSelect = False
192 NumGlyphs = 1
193 MaxLength = 0
194 TabOrder = 3
195 DataField = 'HIRE_DATE'
196 DataSource = EmployeeSource
197 end
198 object Label7: TLabel
199 Left = 252
200 Height = 13
201 Top = 32
202 Width = 37
203 Caption = 'Salary'
204 ParentColor = False
205 end
206 object DBEdit4: TDBEdit
207 Left = 300
208 Height = 24
209 Top = 28
210 Width = 104
211 DataField = 'SALARY'
212 DataSource = EmployeeSource
213 CharCase = ecNormal
214 MaxLength = 0
215 TabOrder = 5
216 end
217 object Label8: TLabel
218 Left = 822
219 Height = 13
220 Top = 58
221 Width = 24
222 Anchors = [akTop, akRight]
223 Caption = 'Ext.'
224 ParentColor = False
225 end
226 object DBEdit5: TDBEdit
227 Left = 846
228 Height = 24
229 Top = 54
230 Width = 40
231 DataField = 'PHONE_EXT'
232 DataSource = EmployeeSource
233 Anchors = [akTop, akRight]
234 CharCase = ecNormal
235 MaxLength = 0
236 TabOrder = 4
237 end
238 object Label9: TLabel
239 Left = 536
240 Height = 13
241 Top = 7
242 Width = 50
243 Caption = 'Location'
244 ParentColor = False
245 end
246 object Label10: TLabel
247 Left = 413
248 Height = 13
249 Top = 9
250 Width = 59
251 Caption = 'Job Grade'
252 ParentColor = False
253 end
254 object JobGradeDBComboBox: TDBComboBox
255 Left = 480
256 Height = 23
257 Top = 0
258 Width = 48
259 AutoSize = False
260 DataField = 'JOB_GRADE'
261 DataSource = EmployeeSource
262 ItemHeight = 0
263 Items.Strings = (
264 '1'
265 '2'
266 '3'
267 '4'
268 '5'
269 )
270 MaxLength = 0
271 OnCloseUp = JobGradeDBComboBoxCloseUp
272 Style = csDropDownList
273 TabOrder = 6
274 end
275 object Label11: TLabel
276 Left = 536
277 Height = 13
278 Top = 32
279 Width = 48
280 Caption = 'Job Title'
281 ParentColor = False
282 end
283 object Label12: TLabel
284 Left = 256
285 Height = 13
286 Top = 58
287 Width = 33
288 Caption = 'Dept.'
289 ParentColor = False
290 end
291 object SpeedButton1: TSpeedButton
292 Left = 794
293 Height = 25
294 Top = 54
295 Width = 23
296 Action = SelectDept
297 Anchors = [akTop, akRight]
298 end
299 object DBEdit6: TDBEdit
300 Left = 300
301 Height = 24
302 Top = 54
303 Width = 486
304 DataField = 'DEPT_PATH'
305 DataSource = EmployeeSource
306 ReadOnly = True
307 Anchors = [akTop, akLeft, akRight]
308 CharCase = ecNormal
309 MaxLength = 0
310 TabOrder = 7
311 end
312 object DBEdit7: TDBEdit
313 Left = 592
314 Height = 24
315 Top = 0
316 Width = 246
317 DataField = 'JOB_COUNTRY'
318 DataSource = EmployeeSource
319 ReadOnly = True
320 CharCase = ecNormal
321 MaxLength = 0
322 TabOrder = 8
323 end
324 object DBEdit8: TDBEdit
325 Left = 592
326 Height = 24
327 Top = 28
328 Width = 246
329 DataField = 'JOB_TITLE'
330 DataSource = EmployeeSource
331 CharCase = ecNormal
332 MaxLength = 0
333 TabOrder = 9
334 end
335 object SpeedButton2: TSpeedButton
336 Left = 847
337 Height = 22
338 Top = 3
339 Width = 23
340 Action = EditLocationAction
341 end
342 object SpeedButton3: TSpeedButton
343 Left = 847
344 Height = 22
345 Top = 30
346 Width = 23
347 Action = EditJobCodeAction
348 end
349 end
350 end
351 object Panel2: TPanel
352 Left = 0
353 Height = 50
354 Top = 477
355 Width = 912
356 Align = alBottom
357 BevelOuter = bvNone
358 ClientHeight = 50
359 ClientWidth = 912
360 ParentColor = False
361 TabOrder = 0
362 object Button5: TButton
363 Left = 80
364 Height = 25
365 Top = 16
366 Width = 75
367 Action = CancelChanges
368 Anchors = [akLeft, akBottom]
369 TabOrder = 0
370 end
371 object Button4: TButton
372 Left = 1
373 Height = 25
374 Top = 16
375 Width = 75
376 Action = SaveChanges
377 Anchors = [akLeft, akBottom]
378 TabOrder = 1
379 end
380 object DBText1: TDBText
381 Left = 840
382 Height = 27
383 Top = 16
384 Width = 49
385 Alignment = taRightJustify
386 Anchors = [akTop, akRight, akBottom]
387 DataField = 'TOTALSALARIES'
388 DataSource = TotalsSource
389 ParentColor = False
390 end
391 end
392 end
393 object Label13: TLabel
394 Left = 456
395 Height = 13
396 Top = 14
397 Width = 79
398 Caption = 'Salary Range'
399 ParentColor = False
400 end
401 object SalaryRange: TComboBox
402 Left = 544
403 Height = 25
404 Top = 8
405 Width = 272
406 ItemHeight = 0
407 ItemIndex = 0
408 Items.Strings = (
409 'None Specified'
410 'Below $40,000'
411 'Between $40,000 and $100,000'
412 'Above $100,000'
413 )
414 OnCloseUp = BeforeDateChange
415 Style = csDropDownList
416 TabOrder = 5
417 Text = 'None Specified'
418 end
419 object IBDatabase1: TIBDatabase
420 Connected = False
421 CreateIfNotExists = False
422 AllowStreamedConnected = False
423 DatabaseName = 'localhost:employee'
424 Params.Strings = (
425 'user_name=SYSDBA'
426 'lc_ctype=UTF8'
427 'user_name=SYSDBA'
428 'user_name=SYSDBA'
429 )
430 DefaultTransaction = IBTransaction1
431 IdleTimer = 0
432 TraceFlags = []
433 UseDefaultSystemCodePage = False
434 Left = 832
435 Top = 168
436 end
437 object IBTransaction1: TIBTransaction
438 Active = False
439 DefaultDatabase = IBDatabase1
440 Params.Strings = (
441 'read_committed'
442 'rec_version'
443 'nowait'
444 )
445 Left = 872
446 Top = 168
447 end
448 object EmployeeSource: TDataSource
449 DataSet = Employees
450 Left = 832
451 Top = 336
452 end
453 object ActionList1: TActionList
454 Left = 832
455 Top = 416
456 object AddEmployee: TAction
457 Caption = 'Add'
458 OnExecute = AddEmployeeExecute
459 end
460 object EditEmployee: TAction
461 Caption = 'Edit'
462 OnUpdate = EditEmployeeUpdate
463 end
464 object DeleteEmployee: TAction
465 Caption = 'Delete'
466 OnExecute = DeleteEmployeeExecute
467 OnUpdate = EditEmployeeUpdate
468 end
469 object SaveChanges: TAction
470 Caption = 'Save'
471 OnExecute = SaveChangesExecute
472 OnUpdate = SaveChangesUpdate
473 end
474 object CancelChanges: TAction
475 Caption = 'Cancel'
476 OnExecute = CancelChangesExecute
477 OnUpdate = SaveChangesUpdate
478 end
479 object SelectDept: TAction
480 Caption = '...'
481 OnExecute = SelectDeptExecute
482 end
483 object EditJobCodeAction: TAction
484 Caption = '...'
485 OnExecute = EditJobCodeActionExecute
486 OnUpdate = EditJobCodeActionUpdate
487 end
488 object EditLocationAction: TAction
489 Caption = '...'
490 OnExecute = EditLocationActionExecute
491 OnUpdate = EditJobCodeActionUpdate
492 end
493 end
494 object TotalsQuery: TIBQuery
495 AllowAutoActivateTransaction = False
496 Database = IBDatabase1
497 Transaction = IBTransaction1
498 BeforeOpen = EmployeesBeforeOpen
499 BufferChunks = 1000
500 CachedUpdates = False
501 CaseSensitiveParameterNames = False
502 EnableStatistics = False
503 GenerateParamNames = False
504 GeneratorField.ApplyOnEvent = gaeOnNewRecord
505 MasterDetailDelay = 0
506 SQL.Strings = (
507 'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
508 'From EMPLOYEE'
509 )
510 Params = <>
511 SQLFiltered = False
512 DataSetCloseAction = dcDiscardChanges
513 TZTextOption = tzOffset
514 DefaultTZDate = 43831
515 Left = 872
516 Top = 376
517 object TotalsQueryTOTALSALARIES: TIBBCDField
518 DisplayWidth = 18
519 FieldKind = fkData
520 FieldName = 'TOTALSALARIES'
521 Index = 0
522 LookupCache = False
523 ProviderFlags = [pfInUpdate, pfInWhere]
524 ReadOnly = False
525 Required = False
526 OnGetText = TotalsQueryTOTALSALARIESGetText
527 Precision = 18
528 Currency = False
529 MaxValue = 0
530 MinValue = 0
531 Size = 2
532 end
533 end
534 object TotalsSource: TDataSource
535 DataSet = TotalsQuery
536 Left = 832
537 Top = 376
538 end
539 object Employees: TIBDataSet
540 AllowAutoActivateTransaction = False
541 Database = IBDatabase1
542 Transaction = IBTransaction1
543 ForcedRefresh = True
544 AfterDelete = EmployeesAfterDelete
545 AfterEdit = EmployeesAfterDelete
546 AfterInsert = EmployeesAfterInsert
547 AfterOpen = EmployeesAfterOpen
548 AfterPost = EmployeesAfterPost
549 BeforeClose = EmployeesBeforeClose
550 BeforeOpen = EmployeesBeforeOpen
551 BufferChunks = 1000
552 CachedUpdates = False
553 CaseSensitiveParameterNames = False
554 EnableStatistics = False
555 DeleteSQL.Strings = (
556 'Delete From EMPLOYEE A'
557 'Where A.EMP_NO = :EMP_NO'
558 )
559 InsertSQL.Strings = (
560 'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
561 'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
562 )
563 RefreshSQL.Strings = (
564 'with recursive Depts As ('
565 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as '
566 'VarChar(256)) as DEPT_PATH,'
567 'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
568 'From DEPARTMENT Where HEAD_DEPT is NULL '
569 'UNION ALL'
570 'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' '
571 '|| D.DEPARTMENT as DEPT_PATH,'
572 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
573 'From DEPARTMENT D'
574 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
575 ')'
576 ''
577 'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
578 'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
579 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
580 'D.DEPT_KEY_PATH, J.JOB_TITLE'
581 'From EMPLOYEE A'
582 'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
583 'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
584 ''
585 'Where A.EMP_NO = :EMP_NO'
586 )
587 SelectSQL.Strings = (
588 'with recursive Depts As ('
589 'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as '
590 'VarChar(256)) as DEPT_PATH,'
591 'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
592 'From DEPARTMENT Where HEAD_DEPT is NULL '
593 'UNION ALL'
594 'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH || '' / '' '
595 '|| D.DEPARTMENT as DEPT_PATH,'
596 'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
597 'From DEPARTMENT D'
598 'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
599 ')'
600 ''
601 'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
602 'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
603 'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
604 'D.DEPT_KEY_PATH, J.JOB_TITLE'
605 'From EMPLOYEE A'
606 'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
607 'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
608 ''
609 'Order by A.LAST_NAME'
610 )
611 ModifySQL.Strings = (
612 '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'
613 'Where A.EMP_NO = :OLD_EMP_NO'
614 )
615 GeneratorField.Generator = 'EMP_NO_GEN'
616 GeneratorField.Field = 'EMP_NO'
617 GeneratorField.ApplyOnEvent = gaeOnNewRecord
618 GenerateParamNames = False
619 MasterDetailDelay = 0
620 DataSetCloseAction = dcSaveChanges
621 TZTextOption = tzOffset
622 DefaultTZDate = 43831
623 SQLFiltered = False
624 AfterTransactionEnd = EmployeesAfterTransactionEnd
625 Left = 872
626 Top = 336
627 object EmployeesEMP_NO: TSmallintField
628 DisplayWidth = 10
629 FieldKind = fkData
630 FieldName = 'EMP_NO'
631 Index = 0
632 LookupCache = False
633 ProviderFlags = [pfInUpdate, pfInWhere]
634 ReadOnly = False
635 Required = True
636 end
637 object EmployeesFIRST_NAME: TIBStringField
638 DisplayWidth = 15
639 FieldKind = fkData
640 FieldName = 'FIRST_NAME'
641 Index = 1
642 LookupCache = False
643 ProviderFlags = [pfInUpdate, pfInWhere]
644 ReadOnly = False
645 Required = True
646 Size = 15
647 end
648 object EmployeesLAST_NAME: TIBStringField
649 DisplayWidth = 20
650 FieldKind = fkData
651 FieldName = 'LAST_NAME'
652 Index = 2
653 LookupCache = False
654 ProviderFlags = [pfInUpdate, pfInWhere]
655 ReadOnly = False
656 Required = True
657 end
658 object EmployeesPHONE_EXT: TIBStringField
659 Alignment = taRightJustify
660 DisplayWidth = 4
661 FieldKind = fkData
662 FieldName = 'PHONE_EXT'
663 Index = 3
664 LookupCache = False
665 ProviderFlags = [pfInUpdate, pfInWhere]
666 ReadOnly = False
667 Required = False
668 Size = 4
669 end
670 object EmployeesHIRE_DATE: TDateTimeField
671 DisplayWidth = 10
672 FieldKind = fkData
673 FieldName = 'HIRE_DATE'
674 Index = 4
675 LookupCache = False
676 ProviderFlags = [pfInUpdate, pfInWhere]
677 ReadOnly = False
678 Required = True
679 end
680 object EmployeesDEPT_NO: TIBStringField
681 DisplayWidth = 3
682 FieldKind = fkData
683 FieldName = 'DEPT_NO'
684 Index = 5
685 LookupCache = False
686 ProviderFlags = [pfInUpdate, pfInWhere]
687 ReadOnly = False
688 Required = True
689 Size = 3
690 end
691 object EmployeesJOB_CODE: TIBStringField
692 DisplayWidth = 5
693 FieldKind = fkData
694 FieldName = 'JOB_CODE'
695 Index = 6
696 LookupCache = False
697 ProviderFlags = [pfInUpdate, pfInWhere]
698 ReadOnly = False
699 Required = True
700 Size = 5
701 end
702 object EmployeesJOB_GRADE: TSmallintField
703 DisplayWidth = 10
704 FieldKind = fkData
705 FieldName = 'JOB_GRADE'
706 Index = 7
707 LookupCache = False
708 ProviderFlags = [pfInUpdate, pfInWhere]
709 ReadOnly = False
710 Required = True
711 end
712 object EmployeesJOB_COUNTRY: TIBStringField
713 DisplayWidth = 15
714 FieldKind = fkData
715 FieldName = 'JOB_COUNTRY'
716 Index = 8
717 LookupCache = False
718 ProviderFlags = [pfInUpdate, pfInWhere]
719 ReadOnly = False
720 Required = True
721 Size = 15
722 end
723 object EmployeesSALARY: TIBBCDField
724 DisplayWidth = 18
725 FieldKind = fkData
726 FieldName = 'SALARY'
727 Index = 9
728 LookupCache = False
729 ProviderFlags = [pfInUpdate, pfInWhere]
730 ReadOnly = False
731 Required = True
732 OnGetText = EmployeesSALARYGetText
733 Precision = 18
734 Currency = False
735 MaxValue = 0
736 MinValue = 0
737 Size = 2
738 end
739 object EmployeesFULL_NAME: TIBStringField
740 DisplayWidth = 37
741 FieldKind = fkData
742 FieldName = 'FULL_NAME'
743 Index = 10
744 LookupCache = False
745 ProviderFlags = [pfInUpdate, pfInWhere]
746 ReadOnly = True
747 Required = False
748 Size = 37
749 end
750 object EmployeesDEPT_PATH: TIBStringField
751 DisplayWidth = 256
752 FieldKind = fkData
753 FieldName = 'DEPT_PATH'
754 Index = 11
755 LookupCache = False
756 ProviderFlags = [pfInUpdate, pfInWhere]
757 ReadOnly = False
758 Required = True
759 Size = 256
760 end
761 object EmployeesDEPT_KEY_PATH: TIBStringField
762 DisplayWidth = 64
763 FieldKind = fkData
764 FieldName = 'DEPT_KEY_PATH'
765 Index = 12
766 LookupCache = False
767 ProviderFlags = [pfInUpdate, pfInWhere]
768 ReadOnly = False
769 Required = True
770 Size = 64
771 end
772 object EmployeesJOB_TITLE: TIBStringField
773 DisplayWidth = 25
774 FieldKind = fkData
775 FieldName = 'JOB_TITLE'
776 Index = 13
777 LookupCache = False
778 ProviderFlags = [pfInUpdate, pfInWhere]
779 ReadOnly = False
780 Required = True
781 Size = 25
782 end
783 end
784 end

Properties

Name Value
svn:eol-style native