mrprmmst.~dfm

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

            DataSource = DSBase01
            DataField = 'fbctup'
          end
          object DBComboBox9: TDBxComboBox
            Left = 368
            Top = 281
            Width = 119
            Height = 21
            Color = 65408
            ItemHeight = 0
            TabOrder = 25
            DataSource = DSBase01
            DataField = 'fbctyp'
          end
          object DBxEdit16: TDBxEdit
            Left = 103
            Top = 76
            Width = 241
            Height = 19
            AutoSize = False
            Color = 15793919
            DataField = 'frmname_e'
            DataSource = DSBase01
            TabOrder = 5
            FirstCharUpper = False
          end
          object DBComboBox1: TDBComboBox
            Left = 296
            Top = 100
            Width = 66
            Height = 21
            Color = 65408
            DataField = 'frmunit'
            DataSource = DataSource1
            ItemHeight = 13
            TabOrder = 7
          end
          object DBComboBox5: TDBComboBox
            Left = 368
            Top = 256
            Width = 153
            Height = 21
            Color = 65408
            DataField = 'fFlag'
            DataSource = DataSource1
            ItemHeight = 13
            Items.Strings = (
              'O:'#35531#36092#21934#21029#37319#36092
              'L:'#25209#37327#37319#36092
              'P:P/O'#21029#37319#36092
              'C:'#21046#20196#21029#37319#36092)
            TabOrder = 23
          end
        end
      end
      object TabSheet1: TTabSheet
        Caption = #22294#29255
        ImageIndex = 1
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 569
          Height = 27
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          DesignSize = (
            569
            27)
          object Button1: TButton
            Left = 679
            Top = 0
            Width = 67
            Height = 20
            Anchors = [akTop, akRight]
            Caption = #22294#29255'(&P)'
            TabOrder = 0
            OnClick = Button1Click
          end
        end
        object Panel7: TPanel
          Left = 0
          Top = 27
          Width = 569
          Height = 330
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object Image1: TImage
            Left = 0
            Top = 0
            Width = 569
            Height = 330
            Align = alClient
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #35443#32048#25551#36848
        ImageIndex = 3
        object DBMemo1: TDBMemo
          Left = 0
          Top = 0
          Width = 569
          Height = 357
          Align = alClient
          DataField = 'fmeno'
          DataSource = DSBase01
          Font.Charset = CHINESEBIG5_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #27161#26999#39636
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object TreeView: TTreeView
      Left = 1
      Top = 1
      Width = 162
      Height = 389
      Align = alLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      HideSelection = False
      Indent = 19
      ParentFont = False
      TabOrder = 0
      OnChange = TreeViewChange
      OnExpanded = TreeViewExpanded
    end
  end
  inherited CoolBar1: TCoolBar
    Width = 744
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 82
        Width = 740
      end>
    inherited ToolBar1: TToolBar
      Width = 727
    end
  end
  inherited Panelloc: TPanel
    Width = 744
    object Label28: TLabel
      Left = 55
      Top = 8
      Width = 30
      Height = 15
      Caption = #39006#21029
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 180
      Top = 9
      Width = 30
      Height = 15
      Caption = #26448#26009
      Font.Charset = CHINESEBIG5_CHARSET
      Font.Color = clRed
      Font.Height = -15
      Font.Name = #26032#32048#26126#39636
      Font.Style = []
      ParentFont = False
    end
    object Edit2: TEdit
      Left = 101
      Top = 7
      Width = 70
      Height = 19
      TabOrder = 0
      OnEnter = Edit2Enter
      OnExit = Edit2Exit
      OnKeyDown = Edit2KeyDown
    end
    object Edit1: TEdit
      Left = 217
      Top = 7
      Width = 85
      Height = 19
      TabOrder = 1
      OnChange = Edit1Change
    end
  end
  inherited DSBase01: TDataSource
    Left = 136
    Top = 96
  end
  inherited PopMenu: TPopupMenu
    Left = 73
    Top = 24
  end
  inherited ActionList1: TActionList
    inherited act_edit: TAction
      OnExecute = act_editExecute
    end
    inherited act_save: TAction
      OnExecute = act_saveExecute
    end
    inherited act_filter: TAction
      OnExecute = act_filterExecute
    end
  end
  inherited RxCalculator1: TRxCalculator
    Left = 573
    Top = 54
  end
  inherited V_MAIN: TADOQuery
    CursorType = ctStatic
    BeforePost = v_mainBeforePost
    OnNewRecord = v_mainNewRecord
    SQL.Strings = (
      'select frmcode,frmtobsrmcode,frmtobsrate,frmename,fstk_in,'
      'frmname,frmname_e'
      ',frmunit,frmlUnit,l,frmwUnit,w,'
      
        '       frmhUnit,h,frmfnsh,frmscrew,frmnstup,frmnstup0,frmstdup,f' +
        'kj,fusrname,fmeno,'
      
        '       frmdate,frmrate,fFlag,fSubject,FCRYCODE,fpicture,fbctyp,f' +
        'bctup,fpp,fstkcode,fweight'
      'from t_rmmst')
    object v_mainfrmcode: TStringField
      DisplayLabel = #26448#26009#20195#30908
      DisplayWidth = 9
      FieldName = 'frmcode'
      FixedChar = True
    end
    object v_mainfrmname: TStringField
      DisplayLabel = #26448#26009#20013#25991#21517
      DisplayWidth = 25
      FieldName = 'frmname'
      FixedChar = True
      Size = 50
    end
    object v_mainfrmunit: TStringField
      DisplayLabel = #21934#20301
      DisplayWidth = 4
      FieldName = 'frmunit'
      OnValidate = v_main1frmunitValidate
      FixedChar = True
      Size = 6
    end
    object v_mainfrmlUnit: TStringField
      FieldName = 'frmlUnit'
      FixedChar = True
      Size = 6
    end
    object v_mainfrmwUnit: TStringField
      FieldName = 'frmwUnit'
      FixedChar = True
      Size = 6
    end
    object v_mainfrmhUnit: TStringField
      FieldName = 'frmhUnit'
      FixedChar = True
      Size = 6
    end
    object V_MAINfrmtobsrmcode: TWideStringField
      FieldName = 'frmtobsrmcode'
      Size = 8
    end
    object V_MAINfrmtobsrate: TIntegerField
      FieldName = 'frmtobsrate'
    end
    object V_MAINfrmename: TWideStringField
      FieldName = 'frmename'
      Size = 50
    end
    object V_MAINfstk_in: TBooleanField
      FieldName = 'fstk_in'
    end
    object V_MAINfrmname_e: TWideStringField
      FieldName = 'frmname_e'
      Size = 50
    end
    object V_MAINl: TIntegerField
      FieldName = 'l'
    end
    object V_MAINw: TIntegerField
      FieldName = 'w'
    end
    object V_MAINh: TIntegerField
      FieldName = 'h'
    end
    object V_MAINfrmfnsh: TWideStringField
      FieldName = 'frmfnsh'
      Size = 6
    end
    object V_MAINfrmscrew: TWideStringField
      FieldName = 'frmscrew'
    end
    object V_MAINfrmnstup: TWideStringField
      FieldName = 'frmnstup'
      Size = 9
    end
    object V_MAINfrmnstup0: TFloatField
      FieldName = 'frmnstup0'
    end
    object V_MAINfrmstdup: TFloatField
      DisplayLabel = #27161#20934#21934#20215
      FieldName = 'frmstdup'
      DisplayFormat = '#0.0000'
    end
    object V_MAINfkj: TFloatField
      FieldName = 'fkj'
    end
    object V_MAINfusrname: TWideStringField
      FieldName = 'fusrname'
      Size = 10
    end
    object V_MAINfmeno: TMemoField
      FieldName = 'fmeno'
      BlobType = ftMemo
    end
    object V_MAINfrmdate: TDateTimeField
      FieldName = 'frmdate'
    end
    object V_MAINfrmrate: TFloatField
      DisplayLabel = #23526#29992#29575
      FieldName = 'frmrate'
    end
    object V_MAINfFlag: TWideStringField
      FieldName = 'fFlag'
      Size = 1
    end
    object V_MAINfSubject: TWideStringField
      FieldName = 'fSubject'
      Size = 7
    end
    object V_MAINFCRYCODE: TWideStringField
      FieldName = 'FCRYCODE'
      Size = 1
    end
    object V_MAINfpicture: TWideStringField
      FieldName = 'fpicture'
      Size = 12
    end
    object V_MAINfbctyp: TWideStringField
      FieldName = 'fbctyp'
    end
    object V_MAINfbctup: TWideStringField
      FieldName = 'fbctup'
      Size = 10
    end
    object V_MAINfpp: TWideStringField
      FieldName = 'fpp'
    end
    object V_MAINfstkcode: TWideStringField
      FieldName = 'fstkcode'
      Size = 1
    end
    object V_MAINfweight: TIntegerField
      FieldName = 'fweight'
    end
  end
  object ds: TDataSource
    Left = 325
    Top = 29
  end
  object OpenPictureDialog: TOpenPictureDialog
    FileName = #28961
    Left = 80
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = V_MAIN
    Left = 440
    Top = 256
  end
  object ds_stk: TDataSource
    DataSet = v_stk
    Left = 658
    Top = 382
  end
  object v_ins2: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <
      item
        Name = 'fr'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select max(frmtypcode)  FROM T_rmtypmst'
      'where frmtypcode like :fr')
    Left = 192
    Top = 242
  end
  object qry: TADOQuery
    Connection = mainData.Th_Erp
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from t_rmmst')
    Left = 64
    Top = 266
  end
  object v_stk: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <>
    SQL.Strings = (
      'select fstkcode,fstkname from t_stkmst order by fstkcode')
    Left = 666
    Top = 342
  end
end