unit1.~dfm

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

object datamodule1: Tdatamodule1
  OldCreateOrder = False
  Left = 192
  Top = 189
  Height = 398
  Width = 696
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 24
  end
  object Table1: TTable
    DatabaseName = 'allen'
    TableName = 'goods.DB'
    Left = 64
    object Table1Goodid: TFloatField
      FieldName = 'Goodid'
    end
    object Table1Name: TStringField
      FieldName = 'Name'
    end
    object Table1Kind: TStringField
      FieldName = 'Kind'
    end
    object Table1Pdata: TDateField
      FieldName = 'Pdata'
    end
    object Table1Odata: TDateField
      FieldName = 'Odata'
    end
    object Table1Price: TCurrencyField
      FieldName = 'Price'
    end
    object Table1Sum: TSmallintField
      FieldName = 'Sum'
    end
    object Table1Lsum: TSmallintField
      FieldName = 'Lsum'
    end
    object Table1Sort: TStringField
      FieldName = 'Sort'
      Size = 25
    end
    object Table1Bmp: TGraphicField
      FieldName = 'Bmp'
      BlobType = ftGraphic
      Size = 100
    end
    object Table1Text: TMemoField
      FieldName = 'Text'
      BlobType = ftMemo
      Size = 240
    end
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 24
    Top = 48
  end
  object Table2: TTable
    DatabaseName = 'allen'
    TableName = 'company.DB'
    Left = 72
    Top = 48
    object Table2Companyid: TFloatField
      FieldName = 'Companyid'
    end
    object Table2Cname: TStringField
      FieldName = 'Cname'
      Size = 30
    end
    object Table2Address: TStringField
      FieldName = 'Address'
      Size = 40
    end
    object Table2Tel: TStringField
      FieldName = 'Tel'
      Size = 12
    end
    object Table2Fax: TStringField
      FieldName = 'Fax'
      Size = 12
    end
  end
  object Query1: TQuery
    DatabaseName = 'allen'
    SQL.Strings = (
      ''
      ''
      '')
    Left = 24
    Top = 104
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 72
    Top = 112
  end
  object Table3: TTable
    DatabaseName = 'allen'
    IndexFieldNames = 'Companyid'
    MasterFields = 'Cid'
    MasterSource = DataSource5
    ReadOnly = True
    TableName = 'company.DB'
    Left = 80
    Top = 160
  end
  object DataSource4: TDataSource
    DataSet = Table3
    Left = 32
    Top = 152
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'allen'
    IndexFieldNames = 'Gid'
    MasterFields = 'Goodid'
    MasterSource = DataSource3
    ReadOnly = True
    TableName = 'produce.db'
    Left = 88
    Top = 208
  end
  object DataSource5: TDataSource
    DataSet = Table4
    Left = 40
    Top = 224
  end
  object Table5: TTable
    Active = True
    AutoCalcFields = False
    DatabaseName = 'allen'
    TableName = 'price.db'
    Left = 112
    Top = 264
  end
  object DataSource6: TDataSource
    DataSet = Table5
    Left = 56
    Top = 280
  end
  object Query2: TQuery
    DatabaseName = 'allen'
    Constrained = True
    SQL.Strings = (
      '')
    Left = 144
    Top = 32
  end
  object DataSource7: TDataSource
    DataSet = Query2
    Left = 224
    Top = 56
  end
end