unit2.dfm

《Delphi7编程100例》代码,书配资料

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 266
  Top = 214
  Height = 238
  Width = 329
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 48
    Top = 16
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'country.db'
    Left = 104
    Top = 16
    object Table1Name: TStringField
      FieldName = 'Name'
      Size = 24
    end
    object Table1Capital: TStringField
      FieldName = 'Capital'
      Size = 24
    end
    object Table1Continent: TStringField
      FieldName = 'Continent'
      Size = 24
    end
    object Table1Area: TFloatField
      FieldName = 'Area'
    end
    object Table1Population: TFloatField
      FieldName = 'Population'
    end
  end
end