smssg_collect.dfm

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

            Caption = #38263':'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label44: TLabel
            Left = 65
            Top = 183
            Width = 6
            Height = 24
            Caption = '-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label33: TLabel
            Left = 98
            Top = 188
            Width = 4
            Height = 16
            Caption = '/'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label34: TLabel
            Left = 130
            Top = 189
            Width = 9
            Height = 13
            Caption = 'in'
          end
          object Label39: TLabel
            Left = 146
            Top = 188
            Width = 24
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #23532':'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label48: TLabel
            Left = 205
            Top = 183
            Width = 6
            Height = 24
            Caption = '-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label64: TLabel
            Left = 236
            Top = 188
            Width = 4
            Height = 16
            Caption = '/'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label65: TLabel
            Left = 267
            Top = 189
            Width = 9
            Height = 13
            Caption = 'in'
          end
          object Label72: TLabel
            Left = 277
            Top = 187
            Width = 21
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #39640':'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label74: TLabel
            Left = 333
            Top = 184
            Width = 6
            Height = 24
            Caption = '-'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -19
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label89: TLabel
            Left = 363
            Top = 188
            Width = 4
            Height = 16
            Caption = '/'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label90: TLabel
            Left = 393
            Top = 189
            Width = 9
            Height = 13
            Caption = 'in'
          end
          object Label127: TLabel
            Left = 223
            Top = 209
            Width = 42
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #26448#31309':'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -15
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DBxEdit1: TDBxEdit
            Left = 85
            Top = 8
            Width = 310
            Height = 19
            AutoSize = False
            Color = 65408
            DataField = 'fsgcode'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            FirstCharUpper = False
          end
          object DBxEdit2: TDBxEdit
            Left = 85
            Top = 32
            Width = 310
            Height = 19
            AutoSize = False
            Color = 15793919
            DataField = 'fsgname'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            TabOrder = 1
            FirstCharUpper = False
          end
          object DBxEdit3: TDBxEdit
            Left = 85
            Top = 55
            Width = 310
            Height = 19
            AutoSize = False
            Color = 15793919
            DataField = 'fsgename'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            FirstCharUpper = False
          end
          object DBxEdit4: TDBxEdit
            Left = 85
            Top = 78
            Width = 311
            Height = 22
            Hint = #38617#25802#21487#36914#20837#20358#28304#32178#31449
            AutoSize = False
            Color = 15793919
            DataField = 'fsource'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            OnDblClick = DBxEdit4DblClick
            FirstCharUpper = False
          end
          object DBxMemo1: TDBxMemo
            Left = 16
            Top = 232
            Width = 398
            Height = 294
            Color = clMenu
            DataField = 'fremark'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 16
            OnEnter = DBxMemo1Enter
            OnExit = DBxMemo1Exit
          end
          object sppicsolid: TBitBtn
            Left = 422
            Top = 25
            Width = 406
            Height = 23
            Caption = '&S    '#19978'  '#20659'  '#22294'  '#27284
            Enabled = False
            TabOrder = 17
            OnClick = sppicsolidClick
            Glyph.Data = {
              F6000000424DF600000000000000760000002800000010000000100000000100
              04000000000080000000CE0E0000D80E00001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333330000000000000030F7F7F7F7F7F7F7007F7F7F7F7FA
              A7F00F7F7F7F7F7F7F7070000000000000008FFFFFFFFFFF0770888888888888
              7008333333333330088333333333300883333333333008833333333330088333
              3333333008833333333338088333333333333333333333333333}
          end
          object BitBtn1: TBitBtn
            Left = 422
            Top = 0
            Width = 406
            Height = 23
            Caption = '&P    '#31896'  '#36028'  '#22294'  '#27284
            Enabled = False
            TabOrder = 18
            OnClick = BitBtn1Click
            Glyph.Data = {
              4E010000424D4E01000000000000760000002800000012000000120000000100
              040000000000D800000000000000000000001000000000000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
              7777770000007777717777747777770000007777111777444777770000007771
              7177777474777700000077177777777777477700000071777000000077747700
              000071770788888807747700000017770F77777807774700000017770F777778
              07774700000017770F77777807774700000017770F7777780777470000001777
              0F77777807774700000071770FFFFFF707747700000071777000000077747700
              0000771777777777774777000000777171777774747777000000777711177744
              477777000000777771777774777777000000}