unit2.~dfm

这是《Delphi程序设计基础》由李文池写的书的示例代码

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 261
  Top = 520
  Height = 150
  Width = 603
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Pr' +
      'ogram Files\Common Files\Borland Shared\Data\dbdemos.mdb'
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 32
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'customer'
    Left = 88
    Top = 32
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'orders'
    Left = 136
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 224
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 288
    Top = 24
  end
end