bomptmst.dfm

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

inherited FrmBomPtMst: TFrmBomPtMst
  Left = 252
  Top = 136
  Caption = #37096#20214#22522#26412#34920
  ClientHeight = 472
  ClientWidth = 713
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 713
    Height = 391
    object Splitter1: TSplitter [0]
      Left = 163
      Top = 1
      Height = 389
    end
    inherited PageControl: TPageControl
      Left = 166
      Width = 546
      Height = 389
      ActivePage = TSEdit
      TabOrder = 1
      inherited TSBrow: TTabSheet
        inherited DBGrid1: TDBGridEh
          Width = 538
          Height = 357
          Font.Height = -15
          TitleFont.Height = -17
          Columns = <
            item
              EditButtons = <>
              FieldName = 'fPtCode'
              Footers = <>
              Width = 88
            end
            item
              EditButtons = <>
              FieldName = 'fPtName'
              Footers = <>
              Width = 207
            end
            item
              EditButtons = <>
              FieldName = 'fPtEName'
              Footers = <>
              Width = 168
            end
            item
              EditButtons = <>
              FieldName = 'fDate'
              Footers = <>
              Width = 98
            end>
        end
      end
      inherited TSEdit: TTabSheet
        inherited Panel3: TPanel
          Width = 538
          Height = 357
          Font.Height = -15
          object Label2: TLabel
            Left = 36
            Top = 20
            Width = 80
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #37096#20214#20195#34399
          end
          object Label3: TLabel
            Left = 10
            Top = 62
            Width = 104
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #37096#20214#20013#25991#21517#31281
          end
          object Label4: TLabel
            Left = 10
            Top = 98
            Width = 104
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #37096#20214#33521#25991#21517#31281
          end
          object Label5: TLabel
            Left = 36
            Top = 133
            Width = 80
            Height = 16
            Alignment = taRightJustify
            AutoSize = False
            Caption = #24314#31435#26085#26399
          end
          object DBEdit1: TDBxEdit
            Left = 121
            Top = 20
            Width = 121
            Height = 21
            AutoSize = False
            CharCase = ecUpperCase
            Color = 65408
            DataField = 'fPtCode'
            DataSource = DSBase01
            TabOrder = 0
            FirstCharUpper = False
          end
          object DBEdit2: TDBxEdit
            Left = 121
            Top = 60
            Width = 121
            Height = 21
            AutoSize = False
            CharCase = ecUpperCase
            Color = 65408
            DataField = 'fPtName'
            DataSource = DSBase01
            TabOrder = 1
            FirstCharUpper = False
          end
          object DBEdit3: TDBxEdit
            Left = 121
            Top = 97
            Width = 270
            Height = 21
            AutoSize = False
            CharCase = ecUpperCase
            Color = 15793919
            DataField = 'fPtEName'
            DataSource = DSBase01
            TabOrder = 2
            FirstCharUpper = False
          end
          object DBEdit4: TDBxEdit
            Left = 121
            Top = 133
            Width = 121
            Height = 21
            AutoSize = False
            CharCase = ecUpperCase
            Color = 65408
            DataField = 'fDate'
            DataSource = DSBase01
            ReadOnly = True
            TabOrder = 3
            FirstCharUpper = False
          end
        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 = 713
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 82
        Width = 709
      end>
    inherited ToolBar1: TToolBar
      Width = 696
    end
  end
  inherited Panelloc: TPanel
    Width = 713
    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 = #37096#20214
      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
    Top = 48
  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
  end
  inherited V_MAIN: TADOQuery
    CursorType = ctStatic
    OnNewRecord = v_mainNewRecord
    SQL.Strings = (
      'select * from t_ptmst')
    Left = 13
    Top = 118
    object v_mainfPtCode: TStringField
      DisplayLabel = #37096#20214#20195#34399
      FieldName = 'fPtCode'
      Origin = 'DB_DZ.t_ptmst.fPtCode'
      FixedChar = True
      Size = 5
    end
    object v_mainfPtName: TStringField
      DisplayLabel = #37096#20214#20013#25991#21517#31281
      FieldName = 'fPtName'
      Origin = 'DB_DZ.t_ptmst.fPtName'
    end
    object v_mainfPtEName: TStringField
      DisplayLabel = #37096#20214#33521#25991#21517#31281
      FieldName = 'fPtEName'
      Origin = 'DB_DZ.t_ptmst.fPtEName'
      Size = 100
    end
    object v_mainfDate: TDateTimeField
      DisplayLabel = #24314#31435#26085#26399
      DisplayWidth = 12
      FieldName = 'fDate'
      Origin = 'DB_DZ.t_ptmst.fDate'
      EditMask = '9999/99/99'
    end
  end
  object v_rmmst: TQuery
    DatabaseName = 'db_dz'
    SQL.Strings = (
      
        'select substring(a.fpono,3,4)as fprvcode,c.fprvnname,a.frmcode,m' +
        'in(a.fup),max(a.fup),max(b.fup) from t_rmpchsitem a'
      
        'left join (select substring(fpono,3,4) as fprvcode,frmcode,fup f' +
        'rom t_rmpchsitem where frmcode=  :frmcode  and'
      
        'fddate in (select max(fddate) from t_rmpchsitem where frmcode=  ' +
        ':frmcode)) b on'
      'a.frmcode=b.frmcode and substring(a.fpono,3,4)=b.fprvcode'
      'left join t_prvmst c on c.fprvcode=b.fprvcode'
      'where a.frmcode= :frmcode'
      'group by substring(a.fpono,3,4),c.fprvnname,a.frmcode'
      '')
    Left = 321
    Top = 505
    ParamData = <
      item
        DataType = ftString
        Name = 'frmcode'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'frmcode'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'frmcode'
        ParamType = ptUnknown
      end>
    object v_rmmstfprvcode: TStringField
      DisplayLabel = #20379#25033#21830#34399
      DisplayWidth = 13
      FieldName = 'fprvcode'
      FixedChar = True
      Size = 8
    end
    object v_rmmstfprvnname: TStringField
      DisplayLabel = #20379#25033#21830#21517
      DisplayWidth = 13
      FieldName = 'fprvnname'
      FixedChar = True
      Size = 10
    end
    object v_rmmstfrmcode: TStringField
      DisplayLabel = #26448#26009#34399
      DisplayWidth = 13
      FieldName = 'frmcode'
      FixedChar = True
      Size = 8
    end
    object v_rmmstCOLUMN4: TFloatField
      DisplayLabel = #26368#24213#20729
      DisplayWidth = 13
      FieldName = 'COLUMN4'
    end
    object v_rmmstCOLUMN5: TFloatField
      DisplayLabel = #26368#39640#20729
      DisplayWidth = 13
      FieldName = 'COLUMN5'
    end
    object v_rmmstCOLUMN6: TFloatField
      DisplayLabel = #26368#36817#20729
      DisplayWidth = 13
      FieldName = 'COLUMN6'
    end
  end
  object v_rmm: TDataSource
    DataSet = v_rmmst
    Left = 409
    Top = 513
  end
  object ds: TDataSource
    Left = 165
    Top = 77
  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_pttypmst'
      'where frmtypcode like :fr')
    Left = 192
    Top = 274
  end
  object QRY: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <>
    Left = 304
    Top = 298
  end
end