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