bompttype.dfm

家具行業的成本核算報价系統,主要征對家個產品的結構展開進行材料成本及人工制造費用統計,加上可調節的利潤設定,將其成本核算出來,同時將報價單作出來

inherited FrmBomPtType: TFrmBomPtType
  Left = 147
  Top = 124
  Caption = #37096#20214#20998#39006
  ClientWidth = 700
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [0]
    Left = 33
    Top = 20
    Width = 52
    Height = 13
    Caption = #36039#29986#20195#34399
  end
  object Splitter1: TSplitter [1]
    Left = 134
    Top = 114
    Width = 2
    Height = 371
  end
  inherited Panel2: TPanel
    Left = 136
    Width = 564
    inherited DBGrid1: TDBGridEh
      Width = 337
      AutoFitColWidths = True
      Font.Height = -15
      FooterFont.Height = -9
      ParentFont = False
      TitleFont.Charset = CHINESEBIG5_CHARSET
      TitleFont.Color = clBlue
      TitleFont.Height = -15
    end
    object Panel3: TPanel
      Left = 338
      Top = 1
      Width = 225
      Height = 369
      Align = alRight
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      object Label1: TLabel
        Left = 20
        Top = 26
        Width = 72
        Height = 16
        Caption = #37096#20214#39006#21029':'
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #27161#26999#39636
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 24
        Top = 124
        Width = 72
        Height = 16
        Caption = #39006#21029#21517#31281':'
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #27161#26999#39636
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 39
        Top = 75
        Width = 8
        Height = 16
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #27161#26999#39636
        Font.Style = []
        ParentFont = False
      end
      object DBEdit1: TDBxEdit
        Left = 48
        Top = 50
        Width = 121
        Height = 19
        AutoSize = False
        Color = 65408
        DataField = 'fRmTypCode'
        DataSource = DSBase06
        TabOrder = 0
        OnExit = DBEdit1Exit
        FirstCharUpper = False
      end
      object DBEdit2: TDBxEdit
        Left = 48
        Top = 146
        Width = 121
        Height = 19
        AutoSize = False
        Color = 65408
        DataField = 'fRmTypName'
        DataSource = DSBase06
        TabOrder = 1
        FirstCharUpper = False
      end
    end
  end
  inherited ToolBar1: TToolBar
    Width = 700
  end
  inherited Panelloc: TPanel
    Width = 700
    object Label7: TLabel
      Left = 20
      Top = 5
      Width = 72
      Height = 16
      Caption = #37096#20214#20998#39006':'
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #27161#26999#39636
      Font.Style = []
      ParentFont = False
    end
    object Edit2: TEdit
      Left = 98
      Top = 6
      Width = 121
      Height = 19
      TabOrder = 0
      OnChange = Edit2Change
    end
  end
  object TreeView: TTreeView [5]
    Left = 0
    Top = 114
    Width = 134
    Height = 371
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Indent = 19
    ParentFont = False
    TabOrder = 3
    OnChange = TreeViewChange
    OnExpanded = TreeViewExpanded
  end
  inherited DSBase06: TDataSource
    DataSet = v_main
  end
  inherited PopupMenu1: TPopupMenu
    Left = 206
    Top = 41
  end
  inherited ActionList1: TActionList
    Left = 301
    Top = 102
  end
  object v_main: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <>
    SQL.Strings = (
      'select fRmTypCode , fRmTypName      from  t_ptTypMst ')
    Left = 40
    Top = 130
    object v_mainfRmTypCode: TWideStringField
      DisplayLabel = #39006#21029#20195#34399
      FieldName = 'fRmTypCode'
      Size = 5
    end
    object v_mainfRmTypName: TWideStringField
      DisplayLabel = #39006#21029#21517#31281
      FieldName = 'fRmTypName'
    end
  end
end