lazarus/examples/database/dblookup/unit1.lfm

object Form1: TForm1
  Left = 384
  Height = 439
  Top = 109
  Width = 554
  Align = alTop
  Caption = 'Form1'
  ClientHeight = 439
  ClientWidth = 554
  OnShow = FormShow
  LCLVersion = '2.3.0.0'
  object DBGrid1: TDBGrid
    Left = 0
    Height = 171
    Top = 0
    Width = 554
    Align = alTop
    Color = clWindow
    Columns = <>
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBGrid2: TDBGrid
    Left = 0
    Height = 150
    Top = 176
    Width = 554
    Align = alClient
    Color = clWindow
    Columns = <>
    DataSource = DataSource2
    TabOrder = 1
  end
  object Splitter1: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 5
    Top = 171
    Width = 554
    Align = alTop
    ResizeAnchor = akTop
  end
  object Panel1: TPanel
    Left = 0
    Height = 108
    Top = 331
    Width = 554
    Align = alBottom
    Caption = 'Panel1'
    ClientHeight = 108
    ClientWidth = 554
    TabOrder = 3
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 120
      Height = 23
      Top = 66
      Width = 100
      DataField = 'ID_MONTH'
      DataSource = DataSource2
      KeyField = 'ID'
      ListField = 'MTH_NAME'
      ListFieldIndex = 0
      ListSource = DataSource1
      LookupCache = False
      Style = csDropDownList
      TabOrder = 0
    end
    object DBLookupListBox1: TDBLookupListBox
      Left = 8
      Height = 100
      Top = 2
      Width = 100
      DataField = 'ID_MONTH'
      DataSource = DataSource2
      KeyField = 'ID'
      ListField = 'MTH_NAME'
      ListFieldIndex = 0
      ListSource = DataSource1
      LookupCache = False
      TabOrder = 1
    end
    object DBLookupListBox2: TDBLookupListBox
      Left = 248
      Height = 100
      Top = 2
      Width = 100
      DataField = 'MONTH_NA'
      DataSource = DataSource2
      ListField = 'MTH_NAME'
      ListFieldIndex = 0
      LookupCache = False
      TabOrder = 2
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 360
      Height = 23
      Top = 66
      Width = 100
      DataField = 'MONTH_NA'
      DataSource = DataSource2
      ListField = 'MTH_NAME'
      ListFieldIndex = 0
      LookupCache = False
      TabOrder = 3
    end
  end
  object Splitter2: TSplitter
    Cursor = crVSplit
    Left = 0
    Height = 5
    Top = 326
    Width = 554
    Align = alBottom
    ResizeAnchor = akBottom
  end
  object Dbf1: TDbf
    FilePath = '.\data\'
    IndexDefs = <    
      item
        IndexFile = 'MONTHS.MBF'
        SortField = 'ID'
        Options = [ixPrimary]
      end>
    OpenMode = omAutoCreate
    TableName = 'months.dbf'
    TableLevel = 3
    FilterOptions = []
    Left = 144
    Top = 40
    object Dbf1ID: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'ID'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object Dbf1LANG: TStringField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'LANG'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 2
    end
    object Dbf1MTH_NO: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'MTH_NO'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object Dbf1MTH_NAME: TStringField
      DisplayWidth = 18
      FieldKind = fkData
      FieldName = 'MTH_NAME'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 18
    end
  end
  object Dbf2: TDbf
    FilePath = '.\data\'
    IndexDefs = <    
      item
        IndexFile = 'LOOKERUP.MBF'
        SortField = 'ID'
        Options = [ixPrimary]
      end>
    OpenMode = omAutoCreate
    TableName = 'lookerup.dbf'
    TableLevel = 3
    FilterOptions = []
    Left = 144
    Top = 176
    object Dbf2ID: TLongintField
      DisplayWidth = 6
      FieldKind = fkData
      FieldName = 'ID'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object Dbf2ID_MONTH: TLongintField
      DisplayWidth = 8
      FieldKind = fkData
      FieldName = 'ID_MONTH'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object Dbf2LANGUAGE: TStringField
      DisplayWidth = 4
      FieldKind = fkData
      FieldName = 'LANGUAGE'
      Index = 2
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 2
    end
    object Dbf2MONTH_NO: TLongintField
      DisplayWidth = 8
      FieldKind = fkData
      FieldName = 'MONTH_NO'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object Dbf2MONTH_NA: TStringField
      DisplayLabel = 'MONTH'
      DisplayWidth = 18
      FieldKind = fkLookup
      FieldName = 'MONTH_NA'
      Index = 4
      KeyFields = 'MONTH_NO'
      LookupCache = False
      LookupDataSet = Dbf1
      LookupKeyFields = 'MTH_NO'
      LookupResultField = 'MTH_NAME'
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 18
    end
  end
  object DataSource1: TDataSource
    DataSet = Dbf1
    Left = 227
    Top = 40
  end
  object DataSource2: TDataSource
    DataSet = Dbf2
    Left = 227
    Top = 176
  end
end