dmu.~dfm

这是一个用Delphi和access做的一个treeview控件的小练习 希望大家多指教

object DM: TDM
  OldCreateOrder = False
  Left = 422
  Top = 125
  Height = 335
  Width = 489
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=kmgl.md' +
      'b;Persist Security Info=True'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 24
  end
  object Table2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'y_kmlbb'
    Left = 176
    Top = 24
    object Table2kmlb: TStringField
      FieldName = 'kmlb'
      FixedChar = True
      Size = 1
    end
    object Table2kmlbmc: TStringField
      FieldName = 'kmlbmc'
      FixedChar = True
      Size = 40
    end
    object Table2xgsj: TDateTimeField
      FieldName = 'xgsj'
    end
    object Table2yefx: TStringField
      FieldName = 'yefx'
      FixedChar = True
      Size = 1
    end
  end
  object Table1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'y_kmbmb'
    Left = 104
    Top = 24
    object Table1kmbm: TStringField
      FieldName = 'kmbm'
      FixedChar = True
    end
    object Table1kmmc: TStringField
      FieldName = 'kmmc'
      FixedChar = True
      Size = 40
    end
    object Table1kmpy: TStringField
      FieldName = 'kmpy'
      FixedChar = True
      Size = 10
    end
    object Table1bmjb: TIntegerField
      FieldName = 'bmjb'
    end
    object Table1sjbm: TStringField
      FieldName = 'sjbm'
      FixedChar = True
    end
    object Table1kmlb: TStringField
      FieldName = 'kmlb'
      FixedChar = True
      Size = 1
    end
    object Table1yefx: TStringField
      FieldName = 'yefx'
      FixedChar = True
      Size = 1
    end
    object Table1yhzh: TStringField
      FieldName = 'yhzh'
      FixedChar = True
      Size = 30
    end
    object Table1sjbz: TBooleanField
      FieldName = 'sjbz'
    end
    object Table1tybz: TBooleanField
      FieldName = 'tybz'
    end
    object Table1xgsj: TDateTimeField
      FieldName = 'xgsj'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 176
    Top = 88
  end
end