unit2.dfm

来自「这是《Delphi程序设计基础》由李文池写的书的示例代码」· DFM 代码 · 共 47 行

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 162
  Top = 184
  Height = 150
  Width = 381
  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 = 40
    Top = 40
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'customer'
    Left = 128
    Top = 8
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    TableName = 'orders'
    Left = 128
    Top = 64
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 248
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 248
    Top = 64
  end
end