bomlists.dfm

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

object BOMLIST: TBOMLIST
  Left = -9
  Top = 258
  Width = 324
  Height = 386
  Caption = 'PART NO FIND'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 316
    Height = 49
    Align = alTop
    TabOrder = 0
    object Edit1: TEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object BtnOK: TButton
      Left = 208
      Top = 16
      Width = 46
      Height = 21
      Caption = 'OK'
      TabOrder = 1
      OnClick = BtnOKClick
    end
    object BtnTrans: TButton
      Left = 260
      Top = 16
      Width = 46
      Height = 21
      Caption = 'TRANS'
      TabOrder = 2
      OnClick = BtnTransClick
    end
    object CmbClass: TComboBox
      Left = 8
      Top = 16
      Width = 73
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object ListView1: TListView
    Left = 0
    Top = 49
    Width = 316
    Height = 310
    Align = alClient
    Columns = <
      item
        Caption = 'PART NO'
        Width = 100
      end
      item
        Caption = 'NAME'
        Width = 80
      end
      item
        Caption = 'SPEC'
        Width = 80
      end
      item
        Caption = 'UNIT'
      end>
    RowSelect = True
    TabOrder = 1
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object EdtLang: TEdit
    Left = 168
    Top = 40
    Width = 49
    Height = 21
    TabOrder = 2
    Text = 'setlang'
    Visible = False
    OnChange = EdtLangChange
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 168
    Top = 96
  end
end