base.~dfm

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

      OnClick = BitBtn18Click
    end
    object BitBtn19: TBitBtn
      Left = 199
      Top = 135
      Width = 60
      Height = 20
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn19Click
    end
    object ComboEdit1: TComboEdit
      Left = 137
      Top = 80
      Width = 138
      Height = 21
      Color = 65408
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007777777444777777700000007777
        7774447777777000000077777777777777777000000077777774487777777000
        0000777777744877777770000000777777774477777770000000777777777448
        7777700000007777744778448777700000007777448777444777700000007777
        4487774447777000000077777447784487777000000077777744444877777000
        0000777777777777777770000000777777777777777770000000777777777777
        777770000000}
      ButtonWidth = 17
      NumGlyphs = 1
      TabOrder = 3
    end
    object DBxEdit8: TEdit
      Left = 137
      Top = 42
      Width = 135
      Height = 21
      Color = 65408
      TabOrder = 4
    end
  end
  object lgmPanel4: TlgmPanel
    Left = 24
    Top = 463
    Width = 273
    Height = 282
    AlignPanel = alNone
    AllowMinimize = False
    Moveable = True
    Title.Caption = #37096#20214#25104#26412#35079#35069
    Title.BGColor = clGreen
    Title.TextColor = clWhite
    Title.GlyphPos = gpRight
    Title.Glyph.Data = {
      9E020000424D9E0200000000000036000000280000000E0000000E0000000100
      18000000000068020000120B0000120B00000000000000000000060CEC0C19D9
      070DE9070DEA070DEB070DEB070DEB070DEB070DEB060CEA060CEA070EE90509
      F11225C700001021CC214397418C243F872943882E43882E43882E43882E4288
      2D4087293D8526428B2B3F7F3C1123CA00001227C250A10B73BE1E6FB91F4FA9
      0053AB0054AC0053AB0050AA0086C6429AD0605AB10050A6001830B50000142E
      B158A711DAEEC2D8EBC66EB52B4BA3004FA5004DA30076B936E9F4DFEDF6E463
      B1154B9E02172FB70000162EB64A9E019BCF67FDFEFCDCEDCB72B73046A0006D
      B429DCEDCBF9FCF682BF484EA6014EA007172FB70000172FB74EA0064BA50088
      C353F8FBF4DFEED08DC65ACFE7B9FDFEFC8CC45647A10052A9004FA108172FB7
      0000172FB74FA10851A80045A0007BBC3EECF6E4F9FCF6FDFEFC97CA6647A100
      50A50052A9004FA108172FB70000172FB74FA10852A9004BA30054A805CBE4B2
      FFFFFFF8FCF589C3524BA4004EA40052A9004FA108172FB70000172FB74FA108
      4EA70056A809B2D78EFDFEFCBBDC9ADEEECFF7FBF393C86150A5004FA7004FA1
      08172FB70000172FB74DA0055AAD0AA7D27EFFFFFFB9DB984AA30066B122DEEE
      CFF9FCF69FCE735CAE0D4CA005172FB700001730B54BA00094CB5CFFFFFFCDE5
      B554A7084CA4004AA20061AE1BD6EBC4FBFCF87ABD35489E00172FB70000152A
      BF4A9D047DC32EAFDA7D63B30D4EA90054AC0054AC004CA80064B41091CA505D
      B3004FA6001831B400000305F7234792448E293D85253F872943882E43882E43
      882E43882E4087293C8524438B2A3F803B0F1ED100000306F60912E3070DE806
      0CE9070DEB070DEB070DEB070DEB070DEB070DEA060DEA070DE90509F00D1BD6
      0000}
    object Label56: TLabel
      Left = 21
      Top = 212
      Width = 48
      Height = 16
      Caption = #35079#35069#21040
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #27161#26999#39636
      Font.Style = []
      ParentFont = False
    end
    object Label55: TLabel
      Left = 18
      Top = 36
      Width = 48
      Height = 16
      Caption = #28304#37096#20214
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #27161#26999#39636
      Font.Style = []
      ParentFont = False
    end
    object Label57: TLabel
      Left = 5
      Top = 61
      Width = 64
      Height = 16
      Caption = #36984#25799#37096#20214
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #27161#26999#39636
      Font.Style = []
      ParentFont = False
    end
    object BitBtn20: TBitBtn
      Left = 25
      Top = 248
      Width = 60
      Height = 19
      Caption = #30906#23450
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn20Click
    end
    object BitBtn21: TBitBtn
      Left = 175
      Top = 247
      Width = 60
      Height = 20
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BitBtn21Click
    end
    object CheckListBox1: TCheckListBox
      Left = 75
      Top = 61
      Width = 172
      Height = 142
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ItemHeight = 16
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
    end
    object ComboBox7: TComboBox
      Left = 74
      Top = 34
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      OnChange = ComboBox7Change
      Items.Strings = (
        #23526#26408#39006
        #26495#26448#39006
        #34180#29255#39006
        #20116#37329#39006
        #32025#31665#39006
        #20854#23427#39006)
    end
    object ComboBox8: TComboBox
      Left = 76
      Top = 211
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Items.Strings = (
        #23526#26408#39006
        #26495#26448#39006
        #34180#29255#39006
        #20116#37329#39006
        #32025#31665#39006
        #20854#23427#39006)
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 185
    Height = 704
    Align = alLeft
    BevelOuter = bvLowered
    Caption = 'Panel1'
    TabOrder = 4
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 29
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 0
      object Label1: TLabel
        Left = 5
        Top = 7
        Width = 165
        Height = 15
        Caption = #25353#21491#37749#26032#22686#20462#25913#21034#38500#29986#21697
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #26032#32048#26126#39636
        Font.Style = []
        ParentFont = False
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 30
      Width = 183
      Height = 673
      Align = alClient
      DataSource = ds_main
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #26032#32048#26126#39636
      FooterFont.Style = []
      PopupMenu = PopupMenu1
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #26032#32048#26126#39636
      TitleFont.Style = []
      WColor = False
      WFirstColor = 16252655
      WSecondColor = 16119033
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #26032#32048#26126#39636
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 477
    Top = 158
  end
  object ds_sum: TDataSource
    DataSet = v_sum
    Left = 345
    Top = 481
  end
  object DSUP: TDataSource
    AutoEdit = False
    DataSet = v_sggj
    Left = 488
    Top = 496
  end
  object ds_rep_gj: TDataSource
    DataSet = v_rep_gj
    Left = 628
    Top = 485
  end
  object ppDBPipeline2: TppDBPipeline
    DataSource = ds_rep_gj
    UserName = 'DBPipeline2'
    Left = 660
    Top = 485
    object ppDBPipeline2ppField1: TppField
      FieldAlias = 'fsgcode'
      FieldName = 'fsgcode'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object ppDBPipeline2ppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'fsno'
      FieldName = 'fsno'
      FieldLength = 0
      DataType = dtLongint
      DisplayWidth = 10
      Position = 1
    end
    object ppDBPipeline2ppField3: TppField
      FieldAlias = 'fptname'
      FieldName = 'fptname'
      FieldLength = 50
      DisplayWidth = 50
      Position = 2
    end
    object ppDBPipeline2ppField4: TppField
      FieldAlias = 'funit'
      FieldName = 'funit'
      FieldLength = 2
      DisplayWidth = 2
      Position = 3
    end
    object ppDBPipeline2ppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'fnl'
      FieldName = 'fnl'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 4
    end
    object ppDBPipeline2ppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'fnw'
      FieldName = 'fnw'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 5
    end
    object ppDBPipeline2ppField7: TppField
      Alignment = taRightJustify
      FieldAlias = 'fnh'
      FieldName = 'fnh'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 6
    end
    object ppDBPipeline2ppField8: TppField
      Alignment = taRightJustify
      FieldAlias = 'fsize1'
      FieldName = 'fsize1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 7
    end
    object ppDBPipeline2ppField9: TppField
      Alignment = taRightJustify
      FieldAlias = 'fusize'
      FieldName = 'fusize'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 8
    end
    object ppDBPipeline2ppField10: TppField
      Alignment = taRightJustify
      FieldAlias = 'fsize2'
      FieldName = 'fsize2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 9
    end
    object ppDBPipeline2ppField11: TppField
      Alignment = taRightJustify
      FieldAlias = 'fcsize'
      FieldName = 'fcsize'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 10
    end
    object ppDBPipeline2ppField12: TppField
      Alignment = taRightJustify
      FieldAlias = 'fqty'
      FieldName = 'fqty'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 11
    end
    object ppDBPipeline2ppField13: TppField
      FieldAlias = 'frmname'
      FieldName = 'frmname'
      FieldLength = 100
      DisplayWidth = 100
      Position = 12
    end
    object ppDBPipeline2ppField14: TppField
      Alignment = taRightJustify
      FieldAlias = 'frmup'
      FieldName = 'frmup'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 13
    end
    object ppDBPipeline2ppField15: TppField
      Alignment = taRightJustify
      FieldAlias = 'famt'
      FieldName = 'famt'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 14
    end
    object ppDBPipeline2ppField16: TppField
      Alignment = taRightJustify
      FieldAlias = 'fowcode'
      FieldName = 'fowcode'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 15
    end
    object ppDBPipeline2ppField17: TppField
      Alignment = taRightJustify
      FieldAlias = 'fbl'
      FieldName = 'fbl'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 16
    end
    object ppDBPipeline2ppField18: TppField
      Alignment = taRightJustify
      FieldAlias = 'fbw'
      FieldName = 'fbw'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 17
    end
    object ppDBPipeline2ppField19: TppField
      FieldAlias = 'fsize'
      FieldName = 'fsize'
      FieldLength = 50
      DisplayWidth = 50
      Position = 18
    end
    object p