base.~dfm

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

object FRMcost: TFRMcost
  Left = 157
  Top = 49
  Width = 1006
  Height = 682
  Caption = #25104#26412#26680#31639
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Panel16: TPanel
    Left = 0
    Top = 0
    Width = 981
    Height = 41
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object act_del4: TMenuButton
      Left = 508
      Top = 9
      Width = 60
      Height = 25
      Caption = #21034#38500
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      Layout = blGlyphRight
      Margin = 30
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 12
      OnClick = act_del4Click
    end
    object act_copy: TMenuButton
      Left = 371
      Top = 9
      Width = 60
      Height = 25
      Hint = #21015#21360
      Caption = #35079#35069
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      Layout = blGlyphRight
      Margin = 16
      ParentFont = False
      ParentShowHint = False
      PopupMenu = ptcopy
      ShowHint = True
      Spacing = 12
    end
    object act_add4: TBitBtn
      Left = 301
      Top = 9
      Width = 60
      Height = 25
      Caption = #26032#22686
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = act_add4Click
    end
    object act_edit4: TBitBtn
      Left = 440
      Top = 9
      Width = 60
      Height = 25
      Caption = #20462#25913
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = act_edit4Click
    end
    object act_save4: TBitBtn
      Left = 577
      Top = 9
      Width = 60
      Height = 25
      Caption = #20445#23384
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = act_save4Click
    end
    object act_cancel4: TBitBtn
      Left = 646
      Top = 9
      Width = 60
      Height = 25
      Caption = #21462#28040
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = act_cancel4Click
    end
    object Panel17: TPanel
      Left = 3
      Top = 4
      Width = 185
      Height = 31
      Color = clYellow
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBNavigator4: TDBNavigator
      Left = 190
      Top = 6
      Width = 104
      Height = 28
      DataSource = DSUP
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Hints.Strings = (
        #26368#21069
        #21069#19968
        #21518#19968
        #26368#21518)
      TabOrder = 5
    end
    object BitBtn12: TBitBtn
      Left = 717
      Top = 9
      Width = 78
      Height = 25
      Caption = #25104#26412#21015#21360
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = BitBtn12Click
    end
  end
  object PageControl2: TPageControl
    Left = 185
    Top = 41
    Width = 796
    Height = 704
    ActivePage = TabSheet7
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    MultiLine = True
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 1
    TabWidth = 100
    OnChange = PageControl2Change
    object sm: TTabSheet
      Caption = #23526#26408#39006
      object smgrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 788
        Height = 670
        Align = alClient
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = smgridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = smgridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'fptname'
            Footer.Value = #23567#35336':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 91
          end
          item
            EditButtons = <>
            FieldName = 'funit'
            Footers = <>
            PickList.Strings = (
              'MM'
              'CM'
              'IN')
            Width = 35
          end
          item
            EditButtons = <>
            FieldName = 'fnl'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#38263
          end
          item
            EditButtons = <>
            FieldName = 'fnw'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#23532
          end
          item
            EditButtons = <>
            FieldName = 'fnh'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#21402
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'fusize'
            Footer.FieldName = 'fusize'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = #23526#38555' |'#26448#31309
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'fsize2'
            Footers = <>
            Width = 52
          end
          item
            EditButtons = <>
            FieldName = 'fcsize'
            Footer.FieldName = 'fcsize'
            Footer.ValueType = fvtSum
            Footers = <>
            Width = 57
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 128
          end
          item
            EditButtons = <>
            FieldName = 'fsize1'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frmup'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'famt'
            Footer.FieldName = 'famt'
            Footer.ValueType = fvtSum
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'frtname'
            Footers = <>
            Width = 55
          end>
      end
    end
    object wb: TTabSheet
      Caption = #26495#26448#39006
      ImageIndex = 4
      object bsgrid: TDBGridEh
        Left = 0
        Top = 0
        Width = 805
        Height = 573
        Align = alClient
        DataSource = DSUP
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = 'Arial'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ParentFont = False
        ParentShowHint = False
        RowHeight = 2
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -13
        TitleFont.Name = #26032#32048#26126#39636
        TitleFont.Style = []
        TitleLines = 1
        UseMultiTitle = True
        OnEditButtonClick = bsgridEditButtonClick
        OnEnter = smgridEnter
        OnExit = smgridExit
        OnKeyPress = bsgridKeyPress
        WColor = True
        WFirstColor = 16252655
        WSecondColor = 16119033
        Columns = <
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'fptname'
            Footer.Value = #23567#35336':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 91
          end
          item
            EditButtons = <>
            FieldName = 'funit'
            Footers = <>
            PickList.Strings = (
              'MM'
              'CM'
              'IN')
            Width = 36
          end
          item
            EditButtons = <>
            FieldName = 'fnl'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#38263
          end
          item
            EditButtons = <>
            FieldName = 'fnw'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#23532
          end
          item
            EditButtons = <>
            FieldName = 'fnh'
            Footers = <>
            Title.Caption = #25104#21697#23610#23544'|('#21934#20301':)|'#21402
          end
          item
            EditButtons = <>
            FieldName = 'fqty'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'fbl'
            Footers = <>
            Width = 41
          end
          item
            EditButtons = <>
            FieldName = 'fbw'
            Footers = <>
            Width = 44
          end
          item
            EditButtons = <>
            FieldName = 'fusize'
            Footer.FieldName = 'fusize'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = #23526#38555' |'#26448#31309
            Width = 56
          end
          item
            EditButtons = <>
            FieldName = 'fsize2'
            Footers = <>
            Width = 52
          end
          item
            EditButtons = <>
            FieldName = 'fcsize'
            Footer.FieldName = 'fcsize'
            Footer.ValueType = fvtSum
            Footers = <>
            Width = 57
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'frmname'
            Footers = <>
            Width = 128
          end
          item
            EditButtons = <>