object EditJobCode: TEditJobCode
  Left = 512
  Height = 104
  Top = 364
  Width = 330
  BorderStyle = bsDialog
  Caption = 'Edit Job Title'
  ClientHeight = 104
  ClientWidth = 330
  OnClose = FormClose
  OnShow = FormShow
  Position = poMainFormCenter
  LCLVersion = '1.4.0.2'
  object Bevel1: TBevel
    Left = 8
    Height = 70
    Top = 11
    Width = 227
  end
  object Button1: TButton
    Left = 245
    Height = 25
    Top = 8
    Width = 75
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object Button2: TButton
    Left = 245
    Height = 25
    Top = 40
    Width = 75
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
  end
  object IBLookupComboEditBox1: TIBLookupComboEditBox
    Left = 16
    Height = 25
    Top = 24
    Width = 203
    Anchors = [akTop, akLeft, akRight]
    AutoSize = False
    KeyField = 'JOB_CODE'
    ListField = 'JOB_TITLE'
    ListFieldIndex = 0
    ListSource = JobCodeSource
    LookupCache = False
    Style = csDropDownList
    TabOrder = 2
    AutoInsert = False
    AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
    ItemHeight = 0
  end
  object JobCodes: TIBQuery
    Database = Form1.IBDatabase1
    Transaction = Form1.IBTransaction1
    AfterOpen = JobCodesAfterOpen
    BeforeOpen = JobCodesBeforeOpen
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    SQL.Strings = (
      'Select distinct A.JOB_CODE, A.JOB_TITLE From JOB A'
      'Where JOB_COUNTRY = :JOB_COUNTRY and JOB_GRADE = :JOB_GRADE'
      'Order by Upper(JOB_TITLE)'
    )
    Params = <    
      item
        DataType = ftUnknown
        Name = 'JOB_COUNTRY'
        ParamType = ptInput
      end    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
    left = 280
    top = 72
    ParamData = <    
      item
        DataType = ftUnknown
        Name = 'JOB_COUNTRY'
        ParamType = ptInput
      end    
      item
        DataType = ftUnknown
        Name = 'JOB_GRADE'
        ParamType = ptInput
      end>
  end
  object JobCodeSource: TDataSource
    DataSet = JobCodes
    left = 256
    top = 72
  end
end