examples/dbcontrolgrid/unit1.lfm

object Form1: TForm1
  Left = 613
  Height = 575
  Top = 199
  Width = 1034
  Caption = 'Employee List'
  ClientHeight = 575
  ClientWidth = 1034
  DefaultMonitor = dmPrimary
  OnClose = FormClose
  OnShow = FormShow
  Position = poDefault
  LCLVersion = '2.0.11.0'
  object Button1: TButton
    Left = 947
    Height = 25
    Top = 48
    Width = 75
    Action = AddEmployee
    Anchors = [akTop, akRight]
    TabOrder = 0
  end
  object Button3: TButton
    Left = 947
    Height = 25
    Top = 80
    Width = 75
    Action = DeleteEmployee
    Anchors = [akTop, akRight]
    TabOrder = 1
  end
  object Label1: TLabel
    Left = 17
    Height = 13
    Top = 14
    Width = 87
    Caption = 'Started Before'
    ParentColor = False
  end
  object BeforeDate: TDateEdit
    Left = 112
    Height = 24
    Top = 8
    Width = 96
    CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    DateOrder = doNone
    ButtonWidth = 23
    NumGlyphs = 1
    MaxLength = 0
    OnChange = BeforeDateChange
    TabOrder = 2
  end
  object Label2: TLabel
    Left = 241
    Height = 13
    Top = 14
    Width = 78
    Caption = 'Started After'
    ParentColor = False
  end
  object AfterDate: TDateEdit
    Left = 333
    Height = 24
    Top = 8
    Width = 91
    CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
    DateOrder = doNone
    ButtonWidth = 23
    NumGlyphs = 1
    MaxLength = 0
    OnChange = BeforeDateChange
    TabOrder = 3
  end
  object Panel1: TPanel
    Left = 12
    Height = 527
    Top = 42
    Width = 912
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 527
    ClientWidth = 912
    ParentColor = False
    TabOrder = 4
    object DBControlGrid1: TDBControlGrid
      Left = 0
      Height = 477
      Top = 0
      Width = 912
      Align = alClient
      AlternateColor = clSkyBlue
      AltColorStartNormal = True
      Color = clWhite
      DataSource = EmployeeSource
      DefaultPositionAtEnd = False
      DrawPanel = EmployeeEditorPanel
      Options = [dgpIndicator]
      TabOrder = 1
      ColWidths = (
        12
        898
      )
      object EmployeeEditorPanel: TPanel
        Left = 12
        Height = 84
        Top = 0
        Width = 898
        Anchors = []
        BevelOuter = bvNone
        BorderWidth = 2
        BorderStyle = bsSingle
        ClientHeight = 82
        ClientWidth = 896
        Color = clWhite
        ParentColor = False
        TabOrder = 0
        Visible = False
        object Label3: TLabel
          Left = 0
          Height = 13
          Top = 7
          Width = 83
          Caption = 'Employee No.'
          ParentColor = False
        end
        object DBEdit1: TDBEdit
          Left = 90
          Height = 24
          Top = 2
          Width = 120
          DataField = 'EMP_NO'
          DataSource = EmployeeSource
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 0
        end
        object Label4: TLabel
          Left = 12
          Height = 13
          Top = 32
          Width = 64
          Caption = 'First Name'
          ParentColor = False
        end
        object DBEdit2: TDBEdit
          Left = 90
          Height = 24
          Top = 28
          Width = 120
          DataField = 'FIRST_NAME'
          DataSource = EmployeeSource
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 1
        end
        object Label5: TLabel
          Left = 12
          Height = 13
          Top = 56
          Width = 64
          Caption = 'Last Name'
          ParentColor = False
        end
        object DBEdit3: TDBEdit
          Left = 90
          Height = 24
          Top = 54
          Width = 120
          DataField = 'LAST_NAME'
          DataSource = EmployeeSource
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 2
        end
        object Label6: TLabel
          Left = 216
          Height = 13
          Top = 7
          Width = 77
          Caption = 'Date Started'
          ParentColor = False
        end
        object IBDateEdit1: TDBDateEdit
          Left = 300
          Height = 24
          Top = 2
          Width = 100
          CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
          DateOrder = doNone
          ButtonWidth = 23
          AutoSelect = False
          NumGlyphs = 1
          MaxLength = 0
          TabOrder = 3
          DataField = 'HIRE_DATE'
          DataSource = EmployeeSource
        end
        object Label7: TLabel
          Left = 252
          Height = 13
          Top = 32
          Width = 37
          Caption = 'Salary'
          ParentColor = False
        end
        object DBEdit4: TDBEdit
          Left = 300
          Height = 24
          Top = 28
          Width = 104
          DataField = 'SALARY'
          DataSource = EmployeeSource
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 5
        end
        object Label8: TLabel
          Left = 822
          Height = 13
          Top = 58
          Width = 24
          Anchors = [akTop, akRight]
          Caption = 'Ext.'
          ParentColor = False
        end
        object DBEdit5: TDBEdit
          Left = 846
          Height = 24
          Top = 54
          Width = 40
          DataField = 'PHONE_EXT'
          DataSource = EmployeeSource
          Anchors = [akTop, akRight]
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 4
        end
        object Label9: TLabel
          Left = 536
          Height = 13
          Top = 7
          Width = 50
          Caption = 'Location'
          ParentColor = False
        end
        object Label10: TLabel
          Left = 413
          Height = 13
          Top = 9
          Width = 59
          Caption = 'Job Grade'
          ParentColor = False
        end
        object JobGradeDBComboBox: TDBComboBox
          Left = 480
          Height = 23
          Top = 0
          Width = 48
          AutoSize = False
          DataField = 'JOB_GRADE'
          DataSource = EmployeeSource
          ItemHeight = 0
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
          )
          MaxLength = 0
          OnCloseUp = JobGradeDBComboBoxCloseUp
          Style = csDropDownList
          TabOrder = 6
        end
        object Label11: TLabel
          Left = 536
          Height = 13
          Top = 32
          Width = 48
          Caption = 'Job Title'
          ParentColor = False
        end
        object Label12: TLabel
          Left = 256
          Height = 13
          Top = 58
          Width = 33
          Caption = 'Dept.'
          ParentColor = False
        end
        object SpeedButton1: TSpeedButton
          Left = 794
          Height = 25
          Top = 54
          Width = 23
          Action = SelectDept
          Anchors = [akTop, akRight]
        end
        object DBEdit6: TDBEdit
          Left = 300
          Height = 24
          Top = 54
          Width = 486
          DataField = 'DEPT_PATH'
          DataSource = EmployeeSource
          ReadOnly = True
          Anchors = [akTop, akLeft, akRight]
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 7
        end
        object DBEdit7: TDBEdit
          Left = 592
          Height = 24
          Top = 0
          Width = 246
          DataField = 'JOB_COUNTRY'
          DataSource = EmployeeSource
          ReadOnly = True
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 8
        end
        object DBEdit8: TDBEdit
          Left = 592
          Height = 24
          Top = 28
          Width = 246
          DataField = 'JOB_TITLE'
          DataSource = EmployeeSource
          CharCase = ecNormal
          MaxLength = 0
          TabOrder = 9
        end
        object SpeedButton2: TSpeedButton
          Left = 847
          Height = 22
          Top = 3
          Width = 23
          Action = EditLocationAction
        end
        object SpeedButton3: TSpeedButton
          Left = 847
          Height = 22
          Top = 30
          Width = 23
          Action = EditJobCodeAction
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Height = 50
      Top = 477
      Width = 912
      Align = alBottom
      BevelOuter = bvNone
      ClientHeight = 50
      ClientWidth = 912
      ParentColor = False
      TabOrder = 0
      object Button5: TButton
        Left = 80
        Height = 25
        Top = 16
        Width = 75
        Action = CancelChanges
        Anchors = [akLeft, akBottom]
        TabOrder = 0
      end
      object Button4: TButton
        Left = 1
        Height = 25
        Top = 16
        Width = 75
        Action = SaveChanges
        Anchors = [akLeft, akBottom]
        TabOrder = 1
      end
      object DBText1: TDBText
        Left = 840
        Height = 27
        Top = 16
        Width = 49
        Alignment = taRightJustify
        Anchors = [akTop, akRight, akBottom]
        DataField = 'TOTALSALARIES'
        DataSource = TotalsSource
        ParentColor = False
      end
    end
  end
  object Label13: TLabel
    Left = 456
    Height = 13
    Top = 14
    Width = 79
    Caption = 'Salary Range'
    ParentColor = False
  end
  object SalaryRange: TComboBox
    Left = 544
    Height = 25
    Top = 8
    Width = 272
    ItemHeight = 0
    ItemIndex = 0
    Items.Strings = (
      'None Specified'
      'Below $40,000'
      'Between $40,000 and $100,000'
      'Above $100,000'
    )
    OnCloseUp = BeforeDateChange
    Style = csDropDownList
    TabOrder = 5
    Text = 'None Specified'
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    CreateIfNotExists = False
    AllowStreamedConnected = False
    DatabaseName = 'localhost:employee'
    Params.Strings = (
      'user_name=SYSDBA'
      'lc_ctype=UTF8'
      'user_name=SYSDBA'
      'user_name=SYSDBA'
    )
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    Left = 832
    Top = 168
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait'
    )
    Left = 872
    Top = 168
  end
  object EmployeeSource: TDataSource
    DataSet = Employees
    Left = 832
    Top = 336
  end
  object ActionList1: TActionList
    Left = 832
    Top = 416
    object AddEmployee: TAction
      Caption = 'Add'
      OnExecute = AddEmployeeExecute
    end
    object EditEmployee: TAction
      Caption = 'Edit'
      OnUpdate = EditEmployeeUpdate
    end
    object DeleteEmployee: TAction
      Caption = 'Delete'
      OnExecute = DeleteEmployeeExecute
      OnUpdate = EditEmployeeUpdate
    end
    object SaveChanges: TAction
      Caption = 'Save'
      OnExecute = SaveChangesExecute
      OnUpdate = SaveChangesUpdate
    end
    object CancelChanges: TAction
      Caption = 'Cancel'
      OnExecute = CancelChangesExecute
      OnUpdate = SaveChangesUpdate
    end
    object SelectDept: TAction
      Caption = '...'
      OnExecute = SelectDeptExecute
    end
    object EditJobCodeAction: TAction
      Caption = '...'
      OnExecute = EditJobCodeActionExecute
      OnUpdate = EditJobCodeActionUpdate
    end
    object EditLocationAction: TAction
      Caption = '...'
      OnExecute = EditLocationActionExecute
      OnUpdate = EditJobCodeActionUpdate
    end
  end
  object TotalsQuery: TIBQuery
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    BeforeOpen = EmployeesBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    CaseSensitiveParameterNames = False
    EnableStatistics = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    MasterDetailDelay = 0
    SQL.Strings = (
      'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
      'From EMPLOYEE'
    )
    Params = <>
    SQLFiltered = False
    DataSetCloseAction = dcDiscardChanges
    TZTextOption = tzOffset
    DefaultTZDate = 43831
    Left = 872
    Top = 376
    object TotalsQueryTOTALSALARIES: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'TOTALSALARIES'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      OnGetText = TotalsQueryTOTALSALARIESGetText
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
  end
  object TotalsSource: TDataSource
    DataSet = TotalsQuery
    Left = 832
    Top = 376
  end
  object Employees: TIBDataSet
    AllowAutoActivateTransaction = False
    Database = IBDatabase1
    Transaction = IBTransaction1
    ForcedRefresh = True
    AfterDelete = EmployeesAfterDelete
    AfterEdit = EmployeesAfterDelete
    AfterInsert = EmployeesAfterInsert
    AfterOpen = EmployeesAfterOpen
    AfterPost = EmployeesAfterPost
    BeforeClose = EmployeesBeforeClose
    BeforeOpen = EmployeesBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    CaseSensitiveParameterNames = False
    EnableStatistics = False
    DeleteSQL.Strings = (
      'Delete From EMPLOYEE A'
      'Where A.EMP_NO = :EMP_NO'
    )
    InsertSQL.Strings = (
      'Insert Into EMPLOYEE(EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, HIRE_DATE, DEPT_NO, JOB_CODE, JOB_GRADE, JOB_COUNTRY, SALARY)'
      'Values(:EMP_NO, :FIRST_NAME, :LAST_NAME, :PHONE_EXT, :HIRE_DATE, :DEPT_NO, :JOB_CODE, :JOB_GRADE, :JOB_COUNTRY, :SALARY)'
    )
    RefreshSQL.Strings = (
      'with recursive Depts As ('
      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
      'VarChar(256)) as DEPT_PATH,'
      'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
      'From DEPARTMENT Where HEAD_DEPT is NULL '
      'UNION ALL'
      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
      '|| D.DEPARTMENT as DEPT_PATH,'
      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
      'From DEPARTMENT  D'
      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
      ')'
      ''
      'Select A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
      'D.DEPT_KEY_PATH, J.JOB_TITLE'
      'From EMPLOYEE A'
      'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
      'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
      ''
      'Where A.EMP_NO = :EMP_NO'
    )
    SelectSQL.Strings = (
      'with recursive Depts As ('
      'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT  as '
      'VarChar(256)) as DEPT_PATH,'
      'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
      'From DEPARTMENT Where HEAD_DEPT is NULL '
      'UNION ALL'
      'Select D.DEPT_NO, D.DEPARTMENT,D. HEAD_DEPT, Depts.DEPT_PATH ||  '' / '' '
      '|| D.DEPARTMENT as DEPT_PATH,'
      'Depts.DEPT_KEY_PATH || '';'' || D.DEPT_NO as DEPT_KEY_PATH'
      'From DEPARTMENT  D'
      'JOIN Depts On D.HEAD_DEPT = Depts.DEPT_NO'
      ')'
      ''
      'Select distinct A.EMP_NO, A.FIRST_NAME, A.LAST_NAME, A.PHONE_EXT, '
      'A.HIRE_DATE, A.DEPT_NO, A.JOB_CODE, '
      'A.JOB_GRADE, A.JOB_COUNTRY, A.SALARY, A.FULL_NAME, D.DEPT_PATH, '
      'D.DEPT_KEY_PATH, J.JOB_TITLE'
      'From EMPLOYEE A'
      'JOIN Depts D On D.DEPT_NO = A.DEPT_NO'
      'JOIN JOB J on J.JOB_CODE = A.JOB_CODE'
      ''
      'Order by A.LAST_NAME'
    )
    ModifySQL.Strings = (
      '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'
      'Where A.EMP_NO = :OLD_EMP_NO'
    )
    GeneratorField.Generator = 'EMP_NO_GEN'
    GeneratorField.Field = 'EMP_NO'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    GenerateParamNames = False
    MasterDetailDelay = 0
    DataSetCloseAction = dcSaveChanges
    TZTextOption = tzOffset
    DefaultTZDate = 43831
    SQLFiltered = False
    AfterTransactionEnd = EmployeesAfterTransactionEnd
    Left = 872
    Top = 336
    object EmployeesEMP_NO: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'EMP_NO'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesFIRST_NAME: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'FIRST_NAME'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesLAST_NAME: TIBStringField
      DisplayWidth = 20
      FieldKind = fkData
      FieldName = 'LAST_NAME'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesPHONE_EXT: TIBStringField
      Alignment = taRightJustify
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'PHONE_EXT'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 4
    end
    object EmployeesHIRE_DATE: TDateTimeField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'HIRE_DATE'
      Index = 4
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesDEPT_NO: TIBStringField
      DisplayWidth = 3
      FieldKind = fkData
      FieldName = 'DEPT_NO'
      Index = 5
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 3
    end
    object EmployeesJOB_CODE: TIBStringField
      DisplayWidth = 5
      FieldKind = fkData
      FieldName = 'JOB_CODE'
      Index = 6
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 5
    end
    object EmployeesJOB_GRADE: TSmallintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'JOB_GRADE'
      Index = 7
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
    end
    object EmployeesJOB_COUNTRY: TIBStringField
      DisplayWidth = 15
      FieldKind = fkData
      FieldName = 'JOB_COUNTRY'
      Index = 8
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 15
    end
    object EmployeesSALARY: TIBBCDField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'SALARY'
      Index = 9
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      OnGetText = EmployeesSALARYGetText
      Precision = 18
      Currency = False
      MaxValue = 0
      MinValue = 0
      Size = 2
    end
    object EmployeesFULL_NAME: TIBStringField
      DisplayWidth = 37
      FieldKind = fkData
      FieldName = 'FULL_NAME'
      Index = 10
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = True
      Required = False
      Size = 37
    end
    object EmployeesDEPT_PATH: TIBStringField
      DisplayWidth = 256
      FieldKind = fkData
      FieldName = 'DEPT_PATH'
      Index = 11
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 256
    end
    object EmployeesDEPT_KEY_PATH: TIBStringField
      DisplayWidth = 64
      FieldKind = fkData
      FieldName = 'DEPT_KEY_PATH'
      Index = 12
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 64
    end
    object EmployeesJOB_TITLE: TIBStringField
      DisplayWidth = 25
      FieldKind = fkData
      FieldName = 'JOB_TITLE'
      Index = 13
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      Size = 25
    end
  end
end
Revision:	380
Committed:	Mon Jan 10 10:13:17 2022 UTC (2 years, 3 months ago) by tony
File size:	20419 byte(s)
Log Message:	propset for eol-style
#	User	Rev	Content
1	tony	23	object Form1: TForm1
2	tony	112	Left = 613
3	tony	23	Height = 575
4	tony	112	Top = 199
5	tony	263	Width = 1034
6	tony	23	Caption = 'Employee List'
7			ClientHeight = 575
8	tony	263	ClientWidth = 1034
9	tony	68	DefaultMonitor = dmPrimary
10	tony	23	OnClose = FormClose
11			OnShow = FormShow
12	tony	68	Position = poDefault
13	tony	318	LCLVersion = '2.0.11.0'
14	tony	23	object Button1: TButton
15	tony	263	Left = 947
16	tony	23	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	tony	263	Left = 947
25	tony	23	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	tony	318	Height = 13
35	tony	23	Top = 14
36	tony	68	Width = 87
37	tony	23	Caption = 'Started Before'
38			ParentColor = False
39			end
40			object BeforeDate: TDateEdit
41			Left = 112
42	tony	68	Height = 24
43	tony	23	Top = 8
44	tony	37	Width = 96
45	tony	23	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	tony	318	Height = 13
56	tony	23	Top = 14
57	tony	68	Width = 78
58	tony	23	Caption = 'Started After'
59			ParentColor = False
60			end
61			object AfterDate: TDateEdit
62			Left = 333
63	tony	68	Height = 24
64	tony	23	Top = 8
65	tony	37	Width = 91
66	tony	23	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	tony	263	Width = 912
79	tony	23	Anchors = [akTop, akLeft, akRight, akBottom]
80			BevelOuter = bvNone
81			ClientHeight = 527
82	tony	263	ClientWidth = 912
83	tony	23	ParentColor = False
84			TabOrder = 4
85			object DBControlGrid1: TDBControlGrid
86			Left = 0
87			Height = 477
88			Top = 0
89	tony	263	Width = 912
90	tony	23	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	tony	263	898
102	tony	23	)
103			object EmployeeEditorPanel: TPanel
104			Left = 12
105	tony	47	Height = 84
106	tony	23	Top = 0
107	tony	263	Width = 898
108	tony	23	Anchors = []
109			BevelOuter = bvNone
110			BorderWidth = 2
111			BorderStyle = bsSingle
112	tony	47	ClientHeight = 82
113	tony	263	ClientWidth = 896
114	tony	23	Color = clWhite
115			ParentColor = False
116			TabOrder = 0
117			Visible = False
118			object Label3: TLabel
119			Left = 0
120	tony	318	Height = 13
121	tony	23	Top = 7
122	tony	68	Width = 83
123	tony	23	Caption = 'Employee No.'
124			ParentColor = False
125			end
126			object DBEdit1: TDBEdit
127			Left = 90
128	tony	68	Height = 24
129	tony	23	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	tony	318	Height = 13
140	tony	23	Top = 32
141	tony	68	Width = 64
142	tony	23	Caption = 'First Name'
143			ParentColor = False
144			end
145			object DBEdit2: TDBEdit
146			Left = 90
147	tony	68	Height = 24
148	tony	47	Top = 28
149	tony	23	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	tony	318	Height = 13
159	tony	23	Top = 56
160	tony	68	Width = 64
161	tony	23	Caption = 'Last Name'
162			ParentColor = False
163			end
164			object DBEdit3: TDBEdit
165			Left = 90
166	tony	68	Height = 24
167	tony	47	Top = 54
168	tony	23	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	tony	318	Height = 13
178	tony	23	Top = 7
179	tony	68	Width = 77
180	tony	23	Caption = 'Date Started'
181			ParentColor = False
182			end
183			object IBDateEdit1: TDBDateEdit
184			Left = 300
185	tony	68	Height = 24
186	tony	23	Top = 2
187	tony	37	Width = 100
188	tony	23	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	tony	318	Height = 13
201	tony	23	Top = 32
202	tony	68	Width = 37
203	tony	23	Caption = 'Salary'
204			ParentColor = False
205			end
206			object DBEdit4: TDBEdit
207			Left = 300
208	tony	68	Height = 24
209	tony	47	Top = 28
210	tony	23	Width = 104
211			DataField = 'SALARY'
212			DataSource = EmployeeSource
213			CharCase = ecNormal
214			MaxLength = 0
215			TabOrder = 5
216			end
217			object Label8: TLabel
218	tony	263	Left = 822
219	tony	318	Height = 13
220	tony	47	Top = 58
221	tony	68	Width = 24
222	tony	23	Anchors = [akTop, akRight]
223			Caption = 'Ext.'
224			ParentColor = False
225			end
226			object DBEdit5: TDBEdit
227	tony	263	Left = 846
228	tony	68	Height = 24
229	tony	47	Top = 54
230	tony	23	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	tony	318	Height = 13
241	tony	23	Top = 7
242	tony	318	Width = 50
243	tony	23	Caption = 'Location'
244			ParentColor = False
245			end
246			object Label10: TLabel
247			Left = 413
248	tony	318	Height = 13
249	tony	23	Top = 9
250	tony	68	Width = 59
251	tony	23	Caption = 'Job Grade'
252			ParentColor = False
253			end
254			object JobGradeDBComboBox: TDBComboBox
255			Left = 480
256	tony	45	Height = 23
257	tony	41	Top = 0
258	tony	23	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	tony	318	Height = 13
278	tony	23	Top = 32
279	tony	68	Width = 48
280	tony	23	Caption = 'Job Title'
281			ParentColor = False
282			end
283			object Label12: TLabel
284			Left = 256
285	tony	318	Height = 13
286	tony	47	Top = 58
287	tony	68	Width = 33
288	tony	23	Caption = 'Dept.'
289			ParentColor = False
290			end
291			object SpeedButton1: TSpeedButton
292	tony	263	Left = 794
293	tony	23	Height = 25
294	tony	47	Top = 54
295	tony	23	Width = 23
296			Action = SelectDept
297			Anchors = [akTop, akRight]
298			end
299			object DBEdit6: TDBEdit
300			Left = 300
301	tony	68	Height = 24
302	tony	47	Top = 54
303	tony	263	Width = 486
304	tony	23	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	tony	68	Height = 24
315	tony	23	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	tony	68	Height = 24
327	tony	47	Top = 28
328	tony	23	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	tony	47	Top = 3
339	tony	23	Width = 23
340			Action = EditLocationAction
341			end
342			object SpeedButton3: TSpeedButton
343			Left = 847
344			Height = 22
345	tony	47	Top = 30
346	tony	23	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	tony	263	Width = 912
356	tony	23	Align = alBottom
357			BevelOuter = bvNone
358			ClientHeight = 50
359	tony	263	ClientWidth = 912
360	tony	23	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	tony	263	Left = 840
382	tony	23	Height = 27
383			Top = 16
384	tony	68	Width = 49
385	tony	23	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	tony	318	Height = 13
396	tony	23	Top = 14
397	tony	68	Width = 79
398	tony	23	Caption = 'Salary Range'
399			ParentColor = False
400			end
401			object SalaryRange: TComboBox
402			Left = 544
403	tony	68	Height = 25
404	tony	23	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	tony	143	Connected = False
421	tony	45	CreateIfNotExists = False
422	tony	23	AllowStreamedConnected = False
423	tony	318	DatabaseName = 'localhost:employee'
424	tony	23	Params.Strings = (
425			'user_name=SYSDBA'
426	tony	33	'lc_ctype=UTF8'
427	tony	45	'user_name=SYSDBA'
428			'user_name=SYSDBA'
429	tony	23	)
430			DefaultTransaction = IBTransaction1
431			IdleTimer = 0
432			TraceFlags = []
433	tony	41	UseDefaultSystemCodePage = False
434	tony	318	Left = 832
435			Top = 168
436	tony	23	end
437			object IBTransaction1: TIBTransaction
438			Active = False
439			DefaultDatabase = IBDatabase1
440			Params.Strings = (
441			'read_committed'
442			'rec_version'
443			'nowait'
444			)
445	tony	318	Left = 872
446			Top = 168
447	tony	23	end
448			object EmployeeSource: TDataSource
449			DataSet = Employees
450	tony	318	Left = 832
451			Top = 336
452	tony	23	end
453			object ActionList1: TActionList
454	tony	318	Left = 832
455			Top = 416
456	tony	23	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	tony	47	AllowAutoActivateTransaction = False
496	tony	23	Database = IBDatabase1
497			Transaction = IBTransaction1
498			BeforeOpen = EmployeesBeforeOpen
499			BufferChunks = 1000
500			CachedUpdates = False
501	tony	318	CaseSensitiveParameterNames = False
502	tony	209	EnableStatistics = False
503	tony	23	GenerateParamNames = False
504			GeneratorField.ApplyOnEvent = gaeOnNewRecord
505	tony	209	MasterDetailDelay = 0
506	tony	23	SQL.Strings = (
507	tony	318	'Select cast(sum(Salary) as Numeric(12,2)) as TotalSalaries'
508	tony	23	'From EMPLOYEE'
509			)
510			Params = <>
511	tony	318	SQLFiltered = False
512	tony	27	DataSetCloseAction = dcDiscardChanges
513	tony	318	TZTextOption = tzOffset
514			DefaultTZDate = 43831
515			Left = 872
516			Top = 376
517	tony	23	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	tony	318	Left = 832
537			Top = 376
538	tony	23	end
539			object Employees: TIBDataSet
540	tony	47	AllowAutoActivateTransaction = False
541	tony	23	Database = IBDatabase1
542			Transaction = IBTransaction1
543	tony	112	ForcedRefresh = True
544	tony	23	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	tony	318	CaseSensitiveParameterNames = False
554	tony	209	EnableStatistics = False
555	tony	23	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	tony	45	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as '
566			'VarChar(256)) as DEPT_PATH,'
567	tony	23	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
568			'From DEPARTMENT Where HEAD_DEPT is NULL '
569			'UNION ALL'
570	tony	45	'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	tony	23	')'
576			''
577	tony	45	'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	tony	23	'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	tony	45	''
585	tony	23	'Where A.EMP_NO = :EMP_NO'
586			)
587			SelectSQL.Strings = (
588			'with recursive Depts As ('
589	tony	45	'Select DEPT_NO, DEPARTMENT, HEAD_DEPT, cast(DEPARTMENT as '
590			'VarChar(256)) as DEPT_PATH,'
591	tony	23	'cast(DEPT_NO as VarChar(64)) as DEPT_KEY_PATH'
592			'From DEPARTMENT Where HEAD_DEPT is NULL '
593			'UNION ALL'
594	tony	45	'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	tony	23	')'
600			''
601	tony	45	'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	tony	23	'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	tony	45	''
609	tony	23	'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	tony	209	MasterDetailDelay = 0
620	tony	27	DataSetCloseAction = dcSaveChanges
621	tony	318	TZTextOption = tzOffset
622			DefaultTZDate = 43831
623			SQLFiltered = False
624	tony	23	AfterTransactionEnd = EmployeesAfterTransactionEnd
625	tony	318	Left = 872
626			Top = 336
627	tony	23	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