mrprmtype.dfm

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

      Origin = 'DB_DZ.t_RmTypmst.fdisp'
      Size = 100
    end
    object StringField5: TStringField
      DisplayLabel = #20445#31649#39006#22411
      FieldName = 'fbgname'
      FixedChar = True
      Size = 8
    end
    object StringField6: TStringField
      DisplayLabel = #36039#29986#20195#34399
      FieldName = 'fasstype'
      FixedChar = True
      Size = 3
    end
    object StringField7: TStringField
      DisplayLabel = #26371#35336#31185#30446
      FieldName = 'fsubjectcode'
      FixedChar = True
      Size = 10
    end
  end
  object ds_rep: TDataSource
    DataSet = v_rep
    Left = 280
    Top = 341
  end
  object v_rep: TQuery
    DatabaseName = 'hb_erp'
    SQL.Strings = (
      'SELECT * FROM t_RmTypmst'
      'where frmtypcode>= :fr and frmtypcode<= :ft'
      'ORDER BY FrmtypCODE')
    Left = 248
    Top = 341
    ParamData = <
      item
        DataType = ftString
        Name = 'fr'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'ft'
        ParamType = ptUnknown
      end>
    object v_repfRmTypCode: TStringField
      FieldName = 'fRmTypCode'
      Origin = 'HB_ERP.t_RmTypmst.fRmTypCode'
      FixedChar = True
      Size = 16
    end
    object v_repfRmTypName: TStringField
      FieldName = 'fRmTypName'
      Origin = 'HB_ERP.t_RmTypmst.fRmTypName'
      FixedChar = True
    end
    object v_repfbgtype: TStringField
      FieldName = 'fbgtype'
      Origin = 'HB_ERP.t_RmTypmst.fbgtype'
      FixedChar = True
      Size = 1
    end
    object v_repfasstype: TStringField
      FieldName = 'fasstype'
      Origin = 'HB_ERP.t_RmTypmst.fasstype'
      FixedChar = True
      Size = 3
    end
    object v_repfdisp: TStringField
      FieldName = 'fdisp'
      Origin = 'HB_ERP.t_RmTypmst.fdisp'
      Size = 100
    end
    object v_repfSubjectCode: TStringField
      FieldName = 'fSubjectCode'
      Origin = 'HB_ERP.t_RmTypmst.fSubjectCode'
      FixedChar = True
      Size = 10
    end
  end
  object ppDBPipeline1: TppDBPipeline
    DataSource = ds_rep
    UserName = 'DBPipeline1'
    Left = 312
    Top = 341
    object ppDBPipeline1ppField1: TppField
      FieldAlias = 'fRmTypCode'
      FieldName = 'fRmTypCode'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object ppDBPipeline1ppField2: TppField
      FieldAlias = 'fRmTypName'
      FieldName = 'fRmTypName'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object ppDBPipeline1ppField3: TppField
      FieldAlias = 'fbgtype'
      FieldName = 'fbgtype'
      FieldLength = 1
      DisplayWidth = 1
      Position = 2
    end
    object ppDBPipeline1ppField4: TppField
      FieldAlias = 'fasstype'
      FieldName = 'fasstype'
      FieldLength = 3
      DisplayWidth = 3
      Position = 3
    end
    object ppDBPipeline1ppField5: TppField
      FieldAlias = 'fdisp'
      FieldName = 'fdisp'
      FieldLength = 100
      DisplayWidth = 100
      Position = 4
    end
    object ppDBPipeline1ppField6: TppField
      FieldAlias = 'fSubjectCode'
      FieldName = 'fSubjectCode'
      FieldLength = 10
      DisplayWidth = 10
      Position = 5
    end
  end
  object ppReport1: TppReport
    AutoStop = False
    Columns = 2
    ColumnPositions.Strings = (
      '6350'
      '105039')
    DataPipeline = ppDBPipeline1
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297127
    PrinterSetup.mmPaperWidth = 210079
    PrinterSetup.PaperSize = 9
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    Left = 344
    Top = 341
    Version = '7.0'
    mmColumnWidth = 98689
    DataPipelineName = 'ppDBPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 14552
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #26448#26009#20998#39006#26126#32048#34920
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 18
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 7324
        mmLeft = 76729
        mmTop = 2910
        mmWidth = 44450
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        AutoSize = False
        Caption = #21360#34920#26085#26399':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 142611
        mmTop = 2646
        mmWidth = 19315
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        AutoSize = False
        Caption = #38913'        '#30908':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 142611
        mmTop = 6879
        mmWidth = 19315
        BandType = 0
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 162719
        mmTop = 2646
        mmWidth = 17463
        BandType = 0
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        VarType = vtPageSet
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 162984
        mmTop = 6879
        mmWidth = 8805
        BandType = 0
      end
    end
    object ppColumnHeaderBand1: TppColumnHeaderBand
      mmBottomOffset = 0
      mmHeight = 6879
      mmPrintPosition = 0
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = #39006#21029#20195#34399
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 11
        Font.Style = []
        Transparent = True
        mmHeight = 4487
        mmLeft = 2381
        mmTop = 1588
        mmWidth = 15579
        BandType = 2
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Weight = 0.750000000000000000
        mmHeight = 265
        mmLeft = 0
        mmTop = 529
        mmWidth = 98425
        BandType = 2
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Weight = 0.750000000000000000
        mmHeight = 265
        mmLeft = 0
        mmTop = 6614
        mmWidth = 98425
        BandType = 2
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = #39006#21029#21517#31281
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 11
        Font.Style = []
        Transparent = True
        mmHeight = 4487
        mmLeft = 42333
        mmTop = 1323
        mmWidth = 15579
        BandType = 2
      end
    end
    object ppDetailBand1: TppDetailBand
      ColumnTraversal = ctLeftToRight
      mmBottomOffset = 0
      mmHeight = 5556
      mmPrintPosition = 0
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        DataField = 'fRmTypCode'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 2381
        mmTop = 529
        mmWidth = 30163
        BandType = 4
      end
      object ppDBText2: TppDBText
        UserName = 'DBText2'
        DataField = 'fRmTypName'
        DataPipeline = ppDBPipeline1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = 'Arial'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'ppDBPipeline1'
        mmHeight = 3969
        mmLeft = 42863
        mmTop = 529
        mmWidth = 53181
        BandType = 4
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Weight = 0.750000000000000000
        mmHeight = 265
        mmLeft = 0
        mmTop = 5027
        mmWidth = 98690
        BandType = 4
      end
    end
    object ppColumnFooterBand1: TppColumnFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 4233
      mmPrintPosition = 0
    end
  end
  object qry: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <>
    Left = 80
    Top = 186
  end
  object v_cqusrtorm: TADOQuery
    Connection = mainData.Th_Erp
    Parameters = <>
    SQL.Strings = (
      'select * from t_RmTypmst')
    Left = 32
    Top = 90
    object v_cqusrtormfRmTypCode: TWideStringField
      DisplayLabel = #39006#21029#20195#34399
      FieldName = 'fRmTypCode'
      Size = 16
    end
    object v_cqusrtormfRmTypName: TWideStringField
      DisplayLabel = #39006#21029#21517#31281
      FieldName = 'fRmTypName'
    end
    object v_cqusrtormfbgtype: TWideStringField
      FieldName = 'fbgtype'
      Size = 1
    end
    object v_cqusrtormfasstype: TWideStringField
      FieldName = 'fasstype'
      Size = 3
    end
    object v_cqusrtormfdisp: TWideStringField
      FieldName = 'fdisp'
      Size = 100
    end
    object v_cqusrtormfSubjectCode: TWideStringField
      FieldName = 'fSubjectCode'
      Size = 10
    end
  end
end