unitdm.~dfm

此代码为企业原料管理代码

  object tabProdWasteBook: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdWasteBook.db'
    Left = 173
    Top = 183
    object tabProdWasteBookSerialNum: TSmallintField
      DisplayLabel = '序号'
      FieldName = 'SerialNum'
    end
    object tabProdWasteBookCardID: TStringField
      DisplayLabel = '入、出库单号'
      FieldName = 'CardID'
      Size = 10
    end
    object tabProdWasteBookProdID: TStringField
      FieldName = 'ProdID'
      Size = 10
    end
    object tabProdWasteBookInOutFlag: TBooleanField
      FieldName = 'InOutFlag'
    end
    object tabProdWasteBookYear: TStringField
      DisplayLabel = '年'
      FieldName = 'Year'
      Size = 2
    end
    object tabProdWasteBookMonth: TStringField
      DisplayLabel = '月'
      FieldName = 'Month'
      Size = 2
    end
    object tabProdWasteBookDay: TStringField
      DisplayLabel = '日'
      FieldName = 'Day'
      Size = 2
    end
    object tabProdWasteBookProcBatID: TStringField
      DisplayLabel = '生产批号'
      FieldName = 'ProcBatID'
      Size = 11
    end
    object tabProdWasteBookInNum: TIntegerField
      DisplayLabel = '入库数量'
      FieldName = 'InNum'
    end
    object tabProdWasteBookOutNum: TIntegerField
      DisplayLabel = '出库数量'
      FieldName = 'OutNum'
    end
    object tabProdWasteBookOutBox: TFloatField
      DisplayLabel = '出库箱数'
      FieldName = 'OutBox'
    end
    object tabProdWasteBookWasteBookNum: TIntegerField
      DisplayLabel = '库存(件)'
      FieldName = 'WasteBookNum'
    end
    object tabProdWasteBookWasteBookBox: TIntegerField
      DisplayLabel = '库存(箱)'
      FieldName = 'WasteBookBox'
    end
    object tabProdWasteBookBoxLeft: TIntegerField
      DisplayLabel = '余数'
      FieldName = 'BoxLeft'
    end
    object tabProdWasteBookBoxBat: TStringField
      DisplayLabel = '装箱批号'
      FieldName = 'BoxBat'
      Size = 15
    end
    object tabProdWasteBookNote: TStringField
      DisplayLabel = '备注'
      FieldName = 'Note'
    end
  end
  object tabProdStock: TTable
    DatabaseName = 'JL2000'
    Filtered = True
    TableName = 'ProdStock.db'
    Left = 181
    Top = 247
    object tabProdStockProdID: TStringField
      DisplayLabel = '产品代号'
      DisplayWidth = 8
      FieldName = 'ProdID'
      Size = 5
    end
    object tabProdStockFigID: TStringField
      DisplayLabel = '图号'
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'FigID'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 30
      Lookup = True
    end
    object tabProdStockProdName: TStringField
      DisplayLabel = '产品名称'
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'ProdName'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Lookup = True
    end
    object tabProdStockNumber: TIntegerField
      DisplayLabel = '数量'
      DisplayWidth = 14
      FieldName = 'Number'
    end
  end
  object dsProdStock: TDataSource
    DataSet = tabProdStock
    Left = 197
    Top = 239
  end
  object tabProdIDHistory: TTable
    AfterScroll = tabProdIDHistoryAfterScroll
    DatabaseName = 'JL2000'
    TableName = 'ProdIDHistory.db'
    Left = 311
    Top = 357
    object tabProdIDHistoryProdID: TStringField
      FieldName = 'ProdID'
      Size = 5
    end
    object tabProdIDHistoryProdName: TStringField
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'ProdName'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Lookup = True
    end
    object tabProdIDHistoryFigID: TStringField
      FieldKind = fkLookup
      FieldName = 'FigID'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 30
      Lookup = True
    end
    object tabProdIDHistoryContain: TIntegerField
      DisplayLabel = '每箱只数'
      FieldKind = fkLookup
      FieldName = 'Contain'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'Contain'
      KeyFields = 'ProdID'
      Lookup = True
    end
  end
  object tabProdMonthCheck: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdMonthCheck.db'
    Left = 39
    Top = 333
  end
  object tabProdCheckDiary: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdCheckDiary.db'
    Left = 79
    Top = 309
  end
  object tabProdSetAcc: TTable
    OnCalcFields = tabProdSetAccCalcFields
    DatabaseName = 'JL2000'
    TableName = 'ProdSettleAccount.DB'
    Left = 180
    Top = 306
    object tabProdSetAccAccDate: TDateField
      DisplayLabel = '结帐日期'
      FieldName = 'AccDate'
    end
    object tabProdSetAccProdID: TStringField
      DisplayLabel = '产品代号'
      FieldName = 'ProdID'
      Size = 10
    end
    object tabProdSetAccProdName: TStringField
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'ProdName'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Lookup = True
    end
    object tabProdSetAccFigID: TStringField
      DisplayLabel = '图号'
      FieldKind = fkLookup
      FieldName = 'FigID'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 30
      Lookup = True
    end
    object tabProdSetAccPrice: TFloatField
      DisplayLabel = '单价'
      FieldName = 'Price'
    end
    object tabProdSetAccThisOutTotal: TFloatField
      DisplayLabel = '出库金额'
      FieldKind = fkCalculated
      FieldName = 'ThisOutTotal'
      Calculated = True
    end
    object tabProdSetAccThisNumTotal: TFloatField
      DisplayLabel = '库存金额'
      FieldKind = fkCalculated
      FieldName = 'ThisNumTotal'
      Calculated = True
    end
    object tabProdSetAccLastNum: TIntegerField
      DisplayLabel = '上月库存'
      FieldName = 'LastNum'
    end
    object tabProdSetAccThisIn: TIntegerField
      DisplayLabel = '本月入库'
      FieldName = 'ThisIn'
    end
    object tabProdSetAccThisOut: TIntegerField
      DisplayLabel = '本月出库'
      FieldName = 'ThisOut'
    end
    object tabProdSetAccThisNum: TIntegerField
      DisplayLabel = '本月库存'
      FieldName = 'ThisNum'
    end
  end
  object dsProdSetAcc: TDataSource
    DataSet = tabProdSetAcc
    Left = 196
    Top = 298
  end
  object dsProdIDHistory: TDataSource
    DataSet = tabProdIDHistory
    Left = 357
    Top = 344
  end
  object tabMaterDictionary: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = tabMaterDictionaryFilterRecord
    TableName = '原材料字典.DB'
    Left = 63
    Top = 169
    object tabMaterDictionaryBDEDesigner: TIntegerField
      FieldName = '标识号'
    end
    object tabMaterDictionaryBDEDesigner2: TStringField
      FieldName = '材料名称'
      Size = 40
    end
    object tabMaterDictionaryBDEDesigner3: TStringField
      FieldName = '简称'
    end
    object tabMaterDictionaryBDEDesigner4: TFloatField
      FieldName = '库存下限'
    end
  end
  object dsMaterDictionary: TDataSource
    AutoEdit = False
    DataSet = tabMaterDictionary
    Left = 59
    Top = 140
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 23
    Top = 257
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = '炼胶月报表.db'
    Left = 60
    Top = 249
    object Table1BDEDesigner: TStringField
      FieldName = '胶料名称'
      Size = 15
    end
    object Table1BDEDesigner2: TFloatField
      FieldName = '上月结存'
    end
    object Table1BDEDesigner3: TFloatField
      FieldName = '本月入库'
    end
    object Table1BDEDesigner8: TFloatField
      FieldName = '本月出库'
    end
    object Table1BDEDesigner4: TFloatField
      FieldName = '成品重量'
    end
    object Table1BDEDesigner5: TFloatField
      FieldName = '本月库存'
    end
    object Table1BDEDesigner6: TFloatField
      FieldName = '损耗'
    end
    object Table1BDEDesigner7: TFloatField
      DisplayLabel = '合格率(%)'
      FieldName = '百分率'
    end
  end
  object Table2: TTable
    DatabaseName = 'JL2000'
    TableName = 'Rubjiao.db'
    Left = 104
    Top = 384
  end
  object Table3: TTable
    DatabaseName = 'JL2000'
    TableName = 'mater.db'
    Left = 224
    Top = 376
  end
end