boms.~dfm

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

object BOM: TBOM
  Left = 198
  Top = 173
  Width = 767
  Height = 515
  Caption = 'BOMCOST'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 100
    Width = 759
    Height = 348
    Align = alClient
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawColumnCell = DBGrid1DrawColumnCell
    Columns = <
      item
        Expanded = False
        FieldName = 'line'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'tlevel'
        Title.Caption = 'level'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mark'
        Title.Caption = 'Alternate Parts'
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'item'
        Title.Caption = 'Part No'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = 'Description'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'spec'
        Title.Caption = 'Specification'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'weight'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'mp'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'unit'
        Title.Caption = 'Unit'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'unit2'
        Title.Caption = ' price unit'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'useqty'
        Title.Caption = 'Usage'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Caption = 'Unit Price'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cost'
        Title.Caption = 'Usage Cost'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lowsumcost'
        Title.Caption = 'Lowest Assy Cost'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'highsumcost'
        Title.Caption = 'Highest Assy Cost'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lowcost'
        Title.Caption = 'Lowest Cost'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'highcost'
        Title.Caption = 'Highest Cost'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'remark'
        Title.Caption = 'CirCuit Code'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'modidate'
        Title.Caption = 'MODI_DATE'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'lf'
        Title.Caption = 'LF'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'security'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'begindate'
        Title.Caption = 'Effective _Date'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'percent1'
        Title.Caption = 'Purchase Rate'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'leadtime'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'minorder'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pack'
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'stocks'
        Width = 55
        Visible = True
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 759
    Height = 26
    AutoSize = True
    ButtonWidth = 38
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    TabOrder = 0
    object LblCompany: TLabel
      Left = 0
      Top = 0
      Width = 89
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Company:   '
      Layout = tlCenter
    end
    object CmbClass: TComboBox
      Left = 89
      Top = 0
      Width = 128
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = CmbClassChange
      OnClick = CmbClassClick
    end
    object ToolButton16: TToolButton
      Left = 217
      Top = 0
      Width = 8
      Caption = 'ToolButton16'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object TBtoexcel: TToolButton
      Left = 225
      Top = 0
      Hint = 'ExportExcel'
      Caption = 'ToExcel'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
      OnClick = TBtoexcelClick
    end
    object ToolButton12: TToolButton
      Left = 263
      Top = 0
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object TBclose: TToolButton
      Left = 271
      Top = 0
      Hint = 'CLOSE'
      Caption = 'Close'
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = TBcloseClick
    end
    object ToolButton13: TToolButton
      Left = 309
      Top = 0
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object LblCurrency: TLabel
      Left = 317
      Top = 0
      Width = 72
      Height = 22
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Currency:'
      Color = clActiveBorder
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []