unit1.dfm

很好的下拉列表制作 自由选择下拉的内容 结合了复选框功能

object Form1: TForm1
  Left = 347
  Top = 123
  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
  Position = poScreenCenter
  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
        AlwaysShowEditButton = True
        AutoFitColWidth = False
        DropDownBox.ColumnDefValues.EndEllipsis = True
        DropDownBox.ColumnDefValues.ToolTips = True
        DropDownBox.Columns = <
          item
            FieldName = 'DeptId'
            Title.Caption = #37096#38376#20195#30721
          end
          item
            FieldName = 'deptName'
            Title.Caption = #37096#38376#21517#31216
          end>
        DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh, dlgRowLinesEh, dlgAutoSortMarkingEh, dlgMultiSortMarkingEh]
        DropDownBox.UseMultiTitle = True
        DropDownRows = 8
        DropDownShowTitles = True
        DropDownSizing = True
        EditButtons = <>
        FieldName = 'DeptName'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'Notes'
        Footers = <>
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 0
    Top = 296
    Width = 409
    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
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    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
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'Dept'
    Left = 520
    Top = 384
  end
end