mrprmtype.~dfm

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

inherited FrmMrpRmtype: TFrmMrpRmtype
  Left = 150
  Top = 138
  Caption = #26448#26009#20998#39006
  ClientHeight = 466
  ClientWidth = 839
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 70
    Width = 839
    Height = 396
    object Splitter1: TSplitter [0]
      Left = 135
      Top = 1
      Width = 2
      Height = 394
    end
    inherited DBGrid1: TDBGridEh
      Left = 137
      Width = 496
      Height = 394
      AutoFitColWidths = True
      Font.Height = -15
      FooterFont.Height = -9
      ParentFont = False
      TitleFont.Charset = CHINESEBIG5_CHARSET
      TitleFont.Height = -15
      Columns = <
        item
          EditButtons = <>
          FieldName = 'fRmTypCode'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'fRmTypName'
          Footers = <>
          Width = 106
        end>
    end
    object Panel3: TPanel
      Left = 633
      Top = 1
      Width = 205
      Height = 394
      Align = alRight
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      object Label1: TLabel
        Left = 28
        Top = 45
        Width = 72
        Height = 16
        Caption = #26448#26009#20998#39006':'
        Font.Charset = CHINESEBIG5_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #27161#26999#39636
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 36
        Top = 133
        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 = 47
        Top = 78
        Width = 121
        Height = 21
        AutoSize = False
        Color = 65408
        DataField = 'fRmTypCode'
        DataSource = DSBase06
        TabOrder = 0
        OnExit = DBEdit1Exit
        FirstCharUpper = False
      end
      object DBEdit2: TDBxEdit
        Left = 47
        Top = 165
        Width = 121
        Height = 21
        AutoSize = False
        Color = 65408
        DataField = 'fRmTypName'
        DataSource = DSBase06
        TabOrder = 1
        FirstCharUpper = False
      end
    end
    object TreeView: TTreeView
      Left = 1
      Top = 1
      Width = 134
      Height = 394
      Align = alLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Indent = 19
      ParentFont = False
      TabOrder = 2
      OnChange = TreeViewChange
      OnExpanded = TreeViewExpanded
    end
  end
  inherited ToolBar1: TToolBar
    Width = 839
    Height = 38
    inherited ToolButton17: TToolButton
      Left = 341
      Wrap = False
    end
    inherited ToolButton10: TToolButton
      Left = 349
      Top = 0
    end
    inherited ToolButton21: TToolButton
      Left = 386
      Top = 0
    end
    inherited ToolButton11: TToolButton
      Left = 432
      Top = 0
    end
    inherited ToolButton12: TToolButton
      Left = 469
      Top = 0
    end
    inherited ToolButton18: TToolButton
      Left = 506
      Top = 0
    end
    inherited ToolButton13: TToolButton
      Left = 514
      Top = 0
    end
    inherited ToolButton19: TToolButton
      Left = 551
      Top = 0
    end
    inherited ToolButton20: TToolButton
      Left = 588
      Top = 0
    end
    inherited ToolButton15: TToolButton
      Left = 596
      Top = 0
    end
    inherited ToolButton14: TToolButton
      Left = 633
      Top = 0
    end
  end
  inherited Panelloc: TPanel
    Top = 38
    Width = 839
    object Label7: TLabel
      Left = 20
      Top = 5
      Width = 72
      Height = 16
      Caption = #26448#26009#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
  inherited DSBase06: TDataSource
    DataSet = v_cqusrtorm
  end
  inherited XPMenu1: TXPMenu
    Left = 389
    Top = 134
  end
  object t_rmmst: TQuery
    CachedUpdates = True
    DatabaseName = 'hb_erp'
    SQL.Strings = (
      'select *'
      'from t_rmmst'
      ' '
      ' '
      ' '
      ' ')
    Left = 341
    Top = 77
    object t_rmmstfrmcode: TStringField
      DisplayLabel = #26448#26009#20195#34399
      FieldName = 'frmcode'
      Origin = 'DB_DZ.t_rmmst.frmcode'
      FixedChar = True
      Size = 8
    end
    object t_rmmstfrmname: TStringField
      DisplayLabel = #26448#26009#21517#31281
      DisplayWidth = 10
      FieldName = 'frmname'
      Origin = 'DB_DZ.t_rmmst.frmname'
      Size = 50
    end
    object t_rmmstfrmename: TStringField
      DisplayLabel = #35215#26684
      FieldName = 'frmename'
      Origin = 'DB_DZ.t_rmmst.frmename'
      Size = 50
    end
    object t_rmmstfweight: TFloatField
      DisplayLabel = #21934#37325
      FieldName = 'fweight'
      Origin = 'DB_DZ.t_rmmst.fweight'
    end
    object t_rmmstfrmunit: TStringField
      DisplayLabel = #31532#19968#21934#20301
      FieldName = 'frmunit'
      Origin = 'DB_DZ.t_rmmst.frmunit'
      FixedChar = True
      Size = 6
    end
    object t_rmmstl: TFloatField
      DisplayLabel = #38263
      FieldName = 'l'
      Origin = 'DB_DZ.t_rmmst.l'
    end
    object t_rmmstfrmlUnit: TStringField
      DisplayLabel = #21934#20301
      FieldName = 'frmlUnit'
      Origin = 'DB_DZ.t_rmmst.frmlUnit'
      FixedChar = True
      Size = 6
    end
    object t_rmmstw: TFloatField
      DisplayLabel = #23532
      FieldName = 'w'
      Origin = 'DB_DZ.t_rmmst.w'
    end
    object t_rmmstfrmwUnit: TStringField
      DisplayLabel = #21934#20301
      FieldName = 'frmwUnit'
      Origin = 'DB_DZ.t_rmmst.frmwUnit'
      FixedChar = True
      Size = 6
    end
    object t_rmmsth: TFloatField
      DisplayLabel = #21402
      FieldName = 'h'
      Origin = 'DB_DZ.t_rmmst.h'
    end
    object t_rmmstfrmhUnit: TStringField
      DisplayLabel = #21934#20301
      FieldName = 'frmhUnit'
      Origin = 'DB_DZ.t_rmmst.frmhUnit'
      FixedChar = True
      Size = 6
    end
    object t_rmmstfrmfnsh: TStringField
      FieldName = 'frmfnsh'
      Origin = 'DB_DZ.t_rmmst.frmfnsh'
      FixedChar = True
      Size = 6
    end
    object t_rmmstfrmscrew: TStringField
      DisplayLabel = #38991#33394
      FieldName = 'frmscrew'
      Origin = 'DB_DZ.t_rmmst.frmscrew'
      FixedChar = True
    end
    object t_rmmstfrmnstup: TFloatField
      FieldName = 'frmnstup'
      Origin = 'DB_DZ.t_rmmst.frmnstup'
    end
    object t_rmmstfrmnstup0: TFloatField
      FieldName = 'frmnstup0'
      Origin = 'DB_DZ.t_rmmst.frmnstup0'
    end
    object t_rmmstfrmstdup: TFloatField
      DisplayLabel = #27161#28310#20215
      FieldName = 'frmstdup'
      Origin = 'DB_DZ.t_rmmst.frmstdup'
    end
    object t_rmmstFCRYCODE: TStringField
      DisplayLabel = #24163#21029
      FieldName = 'FCRYCODE'
      Origin = 'DB_DZ.t_rmmst.FCRYCODE'
      FixedChar = True
      Size = 1
    end
    object t_rmmstfkj: TFloatField
      DisplayLabel = #23380#24465
      FieldName = 'fkj'
      Origin = 'DB_DZ.t_rmmst.fkj'
    end
    object t_rmmstfbctyp: TStringField
      DisplayLabel = #31665#22411
      FieldName = 'fbctyp'
      Origin = 'DB_DZ.t_rmmst.fbctyp'
      FixedChar = True
    end
    object t_rmmstfbctup: TStringField
      DisplayLabel = #32025#36074
      FieldName = 'fbctup'
      Origin = 'DB_DZ.t_rmmst.fbctup'
      FixedChar = True
      Size = 10
    end
    object t_rmmstfpp: TStringField
      DisplayLabel = #21697#29260
      FieldName = 'fpp'
      Origin = 'DB_DZ.t_rmmst.fpp'
    end
  end
  object v_loc: TQuery
    CachedUpdates = True
    BeforePost = v_cqusrtormBeforePost
    OnNewRecord = v_cqusrtormNewRecord
    DatabaseName = 'hb_erp'
    SQL.Strings = (
      
        'select * from (select frmtypcode,frmtypname,fbgtype,fasstype,cas' +
        'e when fbgtype='#39'1'#39
      'then '#39#26222#36890#20445#31649#39'when fbgtype='#39'2'#39' then '#39#36039#29986#20445#31649#39
      'when fbgtype='#39'0'#39' then '#39#20197#33290#25563#26032#39' else '#39#39' '
      'end fbgname,fdisp,fsubjectcode from t_RmTypmst) z'
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 304
    Top = 192
    object StringField1: TStringField
      DisplayLabel = #26448#26009#20998#39006
      DisplayWidth = 10
      FieldName = 'fRmTypCode'
      Origin = 'DB_DZ.t_RmTypmst.fRmTypCode'
      FixedChar = True
      Size = 5
    end
    object StringField2: TStringField
      DisplayLabel = #39006#21029#21517#31281
      DisplayWidth = 14
      FieldName = 'fRmTypName'
      Origin = 'DB_DZ.t_RmTypmst.fRmTypName'
      FixedChar = True
    end
    object StringField3: TStringField
      DisplayLabel = #20445#31649#39006#22411
      DisplayWidth = 12
      FieldName = 'fbgtype'
      FixedChar = True
      Size = 8
    end
    object StringField4: TStringField
      DisplayLabel = #39023#31034#23383#27573
      DisplayWidth = 113
      FieldName = 'fdisp'