examples/dbcontrolgrid/unit1.lfm

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