smssg_collect.dfm

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

inherited FrmSmsSg_Collect: TFrmSmsSg_Collect
  Left = 24
  Top = 35
  Caption = #36039#26009#25628#38598','#20998#26512
  ClientHeight = 650
  ClientWidth = 1016
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label96: TLabel [0]
    Left = 217
    Top = 368
    Width = 127
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'CUST SALES:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  inherited Panel2: TPanel
    Width = 1016
    Height = 569
    object Splitter1: TSplitter [0]
      Left = 169
      Top = 1
      Height = 567
    end
    inherited PageControl: TPageControl
      Left = 172
      Width = 843
      Height = 567
      ActivePage = TabSheet6
      OnChanging = PageControlChanging
      inherited TSBrow: TTabSheet
        inherited DBGrid1: TDBGridEh
          Width = 835
          Height = 535
          Hint = #32005#33394#39023#31034#30340#28858#21453#26680#20934#36039#26009
          Color = 16744448
          DrawMemoText = True
          OnDblClick = DBGrid1DblClick
          OnDragOver = DBGrid1DragOver
          OnEndDrag = DBGrid1EndDrag
          OnGetCellParams = DBGrid1GetCellParams
          OnKeyPress = DBGrid1KeyPress
          OnMouseDown = DBGrid1MouseDown
          OnSortMarkingChanged = DBGrid1SortMarkingChanged
          WColor = False
          Columns = <
            item
              EditButtons = <>
              FieldName = 'fsgcode'
              Footers = <>
              Title.TitleButton = True
              Width = 158
            end
            item
              EditButtons = <>
              FieldName = 'fsgname'
              Footers = <>
              Title.TitleButton = True
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'fsgename'
              Footers = <>
              Title.TitleButton = True
              Visible = False
              Width = 130
            end
            item
              EditButtons = <>
              FieldName = 'ftypname'
              Footers = <>
              Title.TitleButton = True
              Width = 230
            end
            item
              EditButtons = <>
              FieldName = 'fsource'
              Footers = <>
              Title.Hint = #38617#25802#21487#36914#20837#20358#28304#32178#31449
              Title.TitleButton = True
              Width = 255
            end
            item
              EditButtons = <>
              FieldName = 'fusrname_r'
              Footers = <>
              Title.TitleButton = True
              Width = 93
            end
            item
              EditButtons = <>
              FieldName = 'fdate_r'
              Footers = <>
              Title.TitleButton = True
              Width = 131
            end
            item
              EditButtons = <>
              FieldName = 'ftypname_fg'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'fnocheck'
              Footers = <>
              Visible = False
            end>
        end
      end
      inherited TSEdit: TTabSheet
        inherited Panel3: TPanel
          Width = 835
          Height = 535
          object ktMultiBevel3: TktMultiBevel
            Left = 419
            Top = 87
            Width = 403
            Height = 443
            Color = clLime
            ColorHighlight = 11272107
            ColorShadow = 43008
          end
          object Label1: TLabel
            Left = 7
            Top = 8
            Width = 71
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #22294#27284#20195#30908
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 7
            Top = 33
            Width = 71
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #22294#27284#21517#31281
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = -18
            Top = 56
            Width = 96
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #33521#25991#21517#31281
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = -18
            Top = 79
            Width = 96
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #36039#26009#20358#28304
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 6
            Top = 211
            Width = 67
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #22294#27284#25551#36848
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object Image1: TImage
            Left = 422
            Top = 91
            Width = 393
            Height = 433
            Hint = #38617#25802#21487#30475#22823#22294
            Center = True
            ParentShowHint = False
            ShowHint = True
            Stretch = True
            OnDblClick = Image1DblClick
          end
          object Label50: TLabel
            Left = 7
            Top = 106
            Width = 74
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #25152#23660#39006#21029':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object DBText1: TDBText
            Left = 182
            Top = 106
            Width = 219
            Height = 53
            DataField = 'ftypname'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object Label14: TLabel
            Left = 8
            Top = 162
            Width = 72
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #23458#25142#27512#23660':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
          end
          object DBText2: TDBText
            Left = 182
            Top = 162
            Width = 219
            Height = 19
            DataField = 'ftypname_fg'
            DataSource = DSBase01
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -15
            Font.Name = #26032#32048#26126#39636
            Font.Style = []
            ParentFont = False
            WordWrap = True
          end
          object Label17: TLabel
            Left = 6
            Top = 187
            Width = 19
            Height = 16
            Alignment = taRightJustify
            AutoSize = False