datamoduleunit.dfm

来自「Delphi 应用举例」· DFM 代码 · 共 45 行

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 393
  Top = 201
  Height = 294
  Width = 321
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 24
    Top = 32
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 104
    Top = 32
    object Table1NAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object Table1SIZE: TSmallintField
      FieldName = 'SIZE'
    end
    object Table1WEIGHT: TSmallintField
      FieldName = 'WEIGHT'
    end
    object Table1AREA: TStringField
      FieldName = 'AREA'
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 64
    Top = 152
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = Table1
    Left = 144
    Top = 104
  end
end