unitdm.~dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 47
  Top = 38
  Height = 612
  Width = 708
  object qryExe: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from 原材料字典 where  简称 like"s%"')
    Left = 349
    Top = 8
  end
  object dsExe: TDataSource
    DataSet = qryExe
    Left = 317
    Top = 16
  end
  object tabStaff: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = tabStaffFilterRecord
    TableName = 'CommStaff.db'
    Left = 335
    Top = 154
  end
  object dsStaff: TDataSource
    AutoEdit = False
    DataSet = tabStaff
    Left = 303
    Top = 130
  end
  object tabManufacturer: TTable
    DatabaseName = 'JL2000'
    TableName = 'CommManufacturer.DB'
    Left = 343
    Top = 217
    object tabManufacturerManufacturerID: TStringField
      FieldName = 'ManufacturerID'
      Size = 5
    end
    object tabManufacturerManufacturer: TStringField
      DisplayWidth = 26
      FieldName = 'Manufacturer'
      Size = 26
    end
    object tabManufacturerToxudizi: TStringField
      FieldName = 'Toxudizi'
      Size = 40
    end
    object tabManufacturerDihuhama: TStringField
      FieldName = 'Dihuhama'
      Size = 12
    end
    object tabManufacturerYobi: TIntegerField
      FieldName = 'Yobi'
    end
    object tabManufacturerLixire: TStringField
      FieldName = 'Lixire'
      Size = 10
    end
  end
  object dsManufacturer: TDataSource
    AutoEdit = False
    DataSet = tabManufacturer
    Left = 367
    Top = 209
  end
  object tabWorkShop: TTable
    DatabaseName = 'JL2000'
    TableName = 'CommWorkShop.db'
    Left = 335
    Top = 273
  end
  object dsWorkShop: TDataSource
    AutoEdit = False
    DataSet = tabWorkShop
    Left = 343
    Top = 265
  end
  object tabProdDictionary: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = tabProdDictionaryFilterRecord
    TableName = 'ProdDictionary.DB'
    Left = 88
    Top = 8
    object tabProdDictionaryProdID: TStringField
      Alignment = taCenter
      DisplayLabel = '产品代号'
      FieldName = 'ProdID'
      Size = 5
    end
    object tabProdDictionaryFigID: TStringField
      Alignment = taCenter
      DisplayLabel = '图号'
      FieldName = 'FigID'
      Size = 25
    end
    object tabProdDictionaryProdName: TStringField
      Alignment = taCenter
      DisplayLabel = '产品名称'
      FieldName = 'ProdName'
    end
    object tabProdDictionaryRubbName: TStringField
      Alignment = taCenter
      DisplayLabel = '胶料名称'
      FieldName = 'RubbName'
      Size = 15
    end
    object tabProdDictionaryMakePrice: TFloatField
      Alignment = taCenter
      DisplayLabel = '加工单价'
      FieldName = 'MakePrice'
    end
    object tabProdDictionarySellPrice: TFloatField
      Alignment = taCenter
      DisplayLabel = '销售单价'
      FieldName = 'SellPrice'
    end
    object tabProdDictionaryWeight: TFloatField
      Alignment = taCenter
      DisplayLabel = '净重'
      FieldName = 'Weight'
    end
    object tabProdDictionaryContain: TIntegerField
      Alignment = taCenter
      DisplayLabel = '每箱只数'
      FieldName = 'Contain'
    end
    object tabProdDictionaryTanhuang: TIntegerField
      Alignment = taCenter
      DisplayLabel = '弹簧个数'
      FieldName = 'Tanhuang'
    end
    object tabProdDictionaryGujia: TIntegerField
      Alignment = taCenter
      DisplayLabel = '骨架个数'
      FieldName = 'Gujia'
    end
    object tabProdDictionaryGjxh: TStringField
      Alignment = taCenter
      DisplayLabel = '骨架型号'
      FieldName = 'Gjxh'
      Size = 10
    end
    object tabProdDictionaryThxh: TStringField
      Alignment = taCenter
      DisplayLabel = '弹簧型号'
      FieldName = 'Thxh'
      Size = 10
    end
    object tabProdDictionaryXioujia: TFloatField
      FieldName = 'Xioujia'
    end
  end
  object dsProdDictionary: TDataSource
    DataSet = tabProdDictionary
    Left = 173
    Top = 8
  end
  object tabProdInCard: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdInCard.DB'
    Left = 157
    Top = 80
    object tabProdInCardCardID: TStringField
      DisplayLabel = '入库单号'
      FieldName = 'CardID'
      Size = 10
    end
    object tabProdInCardInDate: TDateField
      DisplayLabel = '入库日期'
      FieldName = 'InDate'
    end
    object tabProdInCardProcBatID: TStringField
      DisplayLabel = '生产批号'
      FieldName = 'ProcBatID'
      Size = 10
    end
    object tabProdInCardProdID: TStringField
      FieldName = 'ProdID'
      Size = 5
    end
    object tabProdInCardProdName: TStringField
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'ProdName'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Lookup = True
    end
    object tabProdInCardNumber: TIntegerField
      DisplayLabel = '入库数量'
      FieldName = 'Number'
    end
    object tabProdInCardFigID: TStringField
      DisplayLabel = '图号'
      FieldKind = fkLookup
      FieldName = 'FigID'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 30
      Lookup = True
    end
    object tabProdInCardCheckerID: TStringField
      FieldName = 'CheckerID'
      Size = 5
    end
    object tabProdInCardChecker: TStringField
      DisplayLabel = '检验员'
      FieldKind = fkLookup
      FieldName = 'Checker'
      LookupDataSet = tabStaff
      LookupKeyFields = 'StaffID'
      LookupResultField = 'StaffName'
      KeyFields = 'CheckerID'
      Size = 8
      Lookup = True
    end
    object tabProdInCardNote: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 20
      FieldName = 'Note'
    end
  end
  object dsProdInCard: TDataSource
    DataSet = tabProdInCard
    Left = 173
    Top = 64
  end
  object tabProdOutCard: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdOutCard.db'
    Left = 157
    Top = 128
    object tabProdOutCardCardID: TStringField
      DisplayLabel = '出库单号'
      FieldName = 'CardID'
      Size = 10
    end
    object tabProdOutCardOutDate: TDateField
      DisplayLabel = '出库日期'
      FieldName = 'OutDate'
    end
    object tabProdOutCardProcBatID: TStringField
      DisplayLabel = '生产批号'
      FieldName = 'ProcBatID'
      Size = 10
    end
    object tabProdOutCardProdID: TStringField
      FieldName = 'ProdID'
      Size = 10
    end
    object tabProdOutCardProdName: TStringField
      DisplayLabel = '产品名称'
      FieldKind = fkLookup
      FieldName = 'ProdName'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'ProdName'
      KeyFields = 'ProdID'
      Lookup = True
    end
    object tabProdOutCardFigID: TStringField
      DisplayLabel = '图号'
      FieldKind = fkLookup
      FieldName = 'FigID'
      LookupDataSet = tabProdDictionary
      LookupKeyFields = 'ProdID'
      LookupResultField = 'FigID'
      KeyFields = 'ProdID'
      Size = 30
      Lookup = True
    end
    object tabProdOutCardOuterID: TStringField
      FieldName = 'OuterID'
      Size = 5
    end
    object tabProdOutCardNumber: TIntegerField
      FieldName = 'Number'
    end
    object tabProdOutCardBox: TFloatField
      DisplayLabel = '箱数'
      FieldName = 'Box'
    end
    object tabProdOutCardOuter: TStringField
      DisplayLabel = '经手人'
      FieldKind = fkLookup
      FieldName = 'Outer'
      LookupDataSet = tabStaff
      LookupKeyFields = 'StaffID'
      LookupResultField = 'StaffName'
      KeyFields = 'OuterID'
      Size = 8
      Lookup = True
    end
    object tabProdOutCardManufacturerID: TStringField
      FieldName = 'ManufacturerID'
      Size = 5
    end
    object tabProdOutCardManufacturer: TStringField
      DisplayLabel = '客户名称'
      FieldKind = fkLookup
      FieldName = 'Manufacturer'
      LookupDataSet = tabManufacturer
      LookupKeyFields = 'ManufacturerID'
      LookupResultField = 'Manufacturer'
      KeyFields = 'ManufacturerID'
      Lookup = True
    end
    object tabProdOutCardNote: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 30
      FieldName = 'Note'
      Size = 30
    end
  end
  object dsProdOutCard: TDataSource
    DataSet = tabProdOutCard
    Left = 181
    Top = 120
  end
  object dsProdWasteBook: TDataSource
    DataSet = tabProdWasteBook
    Left = 189
    Top = 175
  end