boms.dfm

计算产品成本 计算出最低成本和最高成本（持鼎新的ERP）

    object cdstmpMD005: TStringField
      FieldName = 'MD005'
      Size = 10
    end
    object cdstmpMD006: TFloatField
      FieldName = 'MD006'
    end
    object cdstmpSUMQTY: TFloatField
      FieldName = 'SUMQTY'
    end
    object cdstmpMD007: TFloatField
      FieldName = 'MD007'
    end
    object cdstmpSUMDS: TFloatField
      FieldName = 'SUMDS'
    end
    object cdstmpMB046: TCurrencyField
      FieldName = 'MB046'
    end
    object cdstmpMB050: TCurrencyField
      FieldName = 'MB050'
    end
    object cdstmpSUMPRICE: TCurrencyField
      FieldName = 'SUMPRICE'
    end
    object cdstmpMAXPRICE: TCurrencyField
      FieldName = 'MAXPRICE'
    end
    object cdstmpMINPRICE: TCurrencyField
      FieldName = 'MINPRICE'
    end
    object cdstmpMD015: TStringField
      FieldName = 'MD015'
      Size = 50
    end
    object cdstmpTline: TIntegerField
      FieldName = 'Tline'
    end
    object cdstmpTEAM: TIntegerField
      FieldName = 'TEAM'
    end
    object cdstmpSUMPRICE2: TCurrencyField
      FieldName = 'SUMPRICE2'
    end
    object cdstmpSONSUMPRICE: TCurrencyField
      FieldName = 'SONSUMPRICE'
    end
    object cdstmpMODIREN: TStringField
      FieldName = 'MODIREN'
      Size = 10
    end
    object cdstmpSURETIME: TStringField
      FieldName = 'SURETIME'
    end
    object cdstmpleadertime: TFloatField
      FieldName = 'leadertime'
    end
    object cdstmppercent: TIntegerField
      FieldName = 'percent'
    end
    object cdstmpminorder: TFloatField
      FieldName = 'minorder'
    end
    object cdstmppack: TFloatField
      FieldName = 'pack'
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 56
    object numOutput: TMenuItem
      Caption = 'Export&ToExcel'
      OnClick = numOutputClick
    end
    object numClose: TMenuItem
      Caption = '&Close'
      OnClick = numCloseClick
    end
  end
  object ADOConnRead: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=dsc99;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=PIG;Data Source=192.168.2.248'
    LoginPrompt = False
    Mode = cmRead
    Provider = 'SQLOLEDB.1'
    Left = 488
    Top = 176
  end
  object DataSource1: TDataSource
    OnDataChange = DataSource1DataChange
    Left = 120
    Top = 112
  end
  object ADOStoredProc1: TADOStoredProc
    CommandTimeout = 60
    Parameters = <>
    Left = 168
    Top = 112
  end
  object ADOTable1: TADOTable
    Left = 88
    Top = 184
  end
  object Table1: TTable
    Left = 296
    Top = 136
  end
  object CDS1: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT *  FROM MULLEVELBOM '
    Params = <>
    Left = 256
    Top = 224
    object CDS1line: TIntegerField
      FieldName = 'line'
    end
    object CDS1tlevel: TIntegerField
      FieldName = 'tlevel'
    end
    object CDS1mark: TStringField
      FieldName = 'mark'
      Size = 10
    end
    object CDS1item: TStringField
      FieldName = 'item'
      Size = 30
    end
    object CDS1name: TStringField
      FieldName = 'name'
      Size = 50
    end
    object CDS1spec: TStringField
      FieldName = 'spec'
      Size = 100
    end
    object CDS1weight: TFloatField
      FieldName = 'weight'
    end
    object CDS1mp: TStringField
      FieldName = 'mp'
      Size = 2
    end
    object CDS1mp2: TStringField
      FieldName = 'mp2'
      Size = 2
    end
    object CDS1unit: TStringField
      FieldName = 'unit'
      Size = 10
    end
    object CDS1unit2: TStringField
      FieldName = 'unit2'
      Size = 10
    end
    object CDS1useqty: TFloatField
      FieldName = 'useqty'
    end
    object CDS1team1: TIntegerField
      FieldName = 'team1'
    end
    object CDS1team2: TIntegerField
      FieldName = 'team2'
    end
    object CDS1remark: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object CDS1modidate: TStringField
      FieldName = 'modidate'
      Size = 10
    end
    object CDS1begindate: TStringField
      FieldName = 'begindate'
      Size = 10
    end
    object CDS1percent1: TStringField
      FieldName = 'percent1'
      Size = 10
    end
    object CDS1leadtime: TFloatField
      FieldName = 'leadtime'
    end
    object CDS1minorder: TFloatField
      FieldName = 'minorder'
    end
    object CDS1pack: TFloatField
      FieldName = 'pack'
    end
    object CDS1lf: TStringField
      FieldName = 'lf'
      Size = 10
    end
    object CDS1security: TStringField
      FieldName = 'security'
      Size = 1
    end
    object CDS1stocks: TFloatField
      FieldName = 'stocks'
    end
    object CDS1price: TStringField
      FieldName = 'price'
      Size = 10
    end
    object CDS1cost: TStringField
      FieldName = 'cost'
      Size = 10
    end
    object CDS1lowsumcost: TStringField
      FieldName = 'lowsumcost'
      Size = 10
    end
    object CDS1highsumcost: TStringField
      FieldName = 'highsumcost'
      Size = 10
    end
    object CDS1lowcost: TStringField
      FieldName = 'lowcost'
      Size = 10
    end
    object CDS1highcost: TStringField
      FieldName = 'highcost'
      Size = 10
    end
    object CDS1fzqty: TFloatField
      FieldName = 'fzqty'
    end
    object CDS1ds: TIntegerField
      FieldName = 'ds'
    end
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 456
    Top = 216
  end
  object CDS2: TClientDataSet
    Aggregates = <>
    CommandText = 'SELECT *  FROM MULLEVELBOM '
    Params = <>
    Left = 296
    Top = 224
    object CDS2IntegerField5: TIntegerField
      FieldName = 'line'
    end
    object CDS2IntegerField6: TIntegerField
      FieldName = 'tlevel'
    end
    object CDS2mark: TStringField
      FieldName = 'mark'
      Size = 10
    end
    object CDS2StringField19: TStringField
      FieldName = 'item'
      Size = 30
    end
    object CDS2StringField20: TStringField
      FieldName = 'name'
      Size = 50
    end
    object CDS2StringField21: TStringField
      FieldName = 'spec'
      Size = 100
    end
    object CDS2weight: TFloatField
      FieldName = 'weight'
    end
    object CDS2StringField22: TStringField
      FieldName = 'mp'
      Size = 2
    end
    object CDS2StringField23: TStringField
      FieldName = 'unit'
      Size = 10
    end
    object CDS2unit2: TStringField
      FieldName = 'unit2'
      Size = 10
    end
    object CDS2FloatField2: TFloatField
      FieldName = 'useqty'
    end
    object CDS2IntegerField7: TIntegerField
      FieldName = 'team1'
    end
    object CDS2IntegerField8: TIntegerField
      FieldName = 'team2'
    end
    object CDS2StringField24: TStringField
      FieldName = 'remark'
      Size = 50
    end
    object CDS2StringField25: TStringField
      FieldName = 'modidate'
      Size = 10
    end
    object CDS2StringField26: TStringField
      FieldName = 'begindate'
      Size = 10
    end
    object CDS2StringField27: TStringField
      FieldName = 'percent1'
      Size = 10
    end
    object CDS2FloatField3: TFloatField
      FieldName = 'leadtime'
    end
    object CDS2FloatField4: TFloatField
      FieldName = 'minorder'
    end
    object CDS2FloatField5: TFloatField
      FieldName = 'pack'
    end
    object CDS2StringField28: TStringField
      FieldName = 'lf'
      Size = 10
    end
    object CDS2security: TStringField
      FieldName = 'security'
      Size = 1
    end
    object CDS2FloatField6: TFloatField
      FieldName = 'stocks'
    end
    object CDS2StringField29: TStringField
      FieldName = 'price'
      Size = 10
    end
    object CDS2StringField30: TStringField
      FieldName = 'cost'
      Size = 10
    end
    object CDS2StringField31: TStringField
      FieldName = 'lowsumcost'
      Size = 10
    end
    object CDS2StringField32: TStringField
      FieldName = 'highsumcost'
      Size = 10
    end
    object CDS2StringField33: TStringField
      FieldName = 'lowcost'
      Size = 10
    end
    object CDS2StringField34: TStringField
      FieldName = 'highcost'
      Size = 10
    end
  end
  object ADODataSet1: TADODataSet
    Parameters = <>
    Left = 192
    Top = 176
  end
end