unit1.~dfm

来自「很好的下拉列表制作 自由选择下拉的内容 结合了复选框功能」· ~DFM 代码 · 共 159 行

object Form1: TForm1
  Left = 161
  Top = 107
  Width = 696
  Height = 518
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 24
    Width = 649
    Height = 249
    DataSource = dsLists
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'Item'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'DeptId'
        Footers = <>
        Width = 115
      end
      item
        EditButtons = <>
        FieldName = 'DeptName'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Notes'
        Footers = <>
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 296
    Width = 169
    Height = 185
    DataSource = dsDept
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'DeptId'
        Footers = <>
        Width = 73
      end
      item
        EditButtons = <>
        FieldName = 'deptName'
        Footers = <>
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 272
    Width = 240
    Height = 25
    DataSource = dsDept
    TabOrder = 2
  end
  object DBNavigator2: TDBNavigator
    Left = 0
    Top = 0
    Width = 290
    Height = 25
    DataSource = dsLists
    TabOrder = 3
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Sec' +
      'urity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 344
  end
  object tblLists: TADOTable
    Connection = ADOConnection1
    TableName = 'Lists'
    Left = 192
    Top = 344
    object tblListsItem: TAutoIncField
      FieldName = 'Item'
      ReadOnly = True
    end
    object tblListsDeptId: TWideStringField
      FieldName = 'DeptId'
      Size = 50
    end
    object tblListsDeptName: TStringField
      FieldKind = fkLookup
      FieldName = 'DeptName'
      LookupDataSet = tblDept
      LookupKeyFields = 'DeptId'
      LookupResultField = 'deptName'
      KeyFields = 'DeptId'
      Lookup = True
    end
    object tblListsNotes: TWideStringField
      FieldName = 'Notes'
      Size = 50
    end
  end
  object dsLists: TDataSource
    DataSet = tblLists
    Left = 264
    Top = 344
  end
  object dsDept: TDataSource
    DataSet = tblDept
    Left = 448
    Top = 344
  end
  object tblDept: TADOTable
    Connection = ADOConnection1
    TableName = 'Dept'
    Left = 520
    Top = 384
  end
end