rb_f.dfm

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

object RB: TRB
  Left = 348
  Top = 111
  Width = 696
  Height = 480
  Caption = 'Report Builder'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Q_HouseFee: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select f_House_No, f_House_Name, f_Box_No, f_Used_Count, f_Used_' +
        'Amount'
      'From Tb_House'
      'Where f_Transfer_No = :TransferNo And f_Used_Count <> 0'
      'order by f_Box_No, f_House_No')
    Left = 32
    Top = 80
    ParamData = <
      item
        DataType = ftString
        Name = 'TransferNo'
        ParamType = ptInput
        Value = 'B05005'
      end>
    object Q_HouseFeeF_HOUSE_NO: TIBStringField
      DisplayLabel = '户号'
      DisplayWidth = 12
      FieldName = 'F_HOUSE_NO'
      Origin = 'TB_HOUSE.F_HOUSE_NO'
      Required = True
      FixedChar = True
      Size = 12
    end
    object Q_HouseFeeF_HOUSE_NAME: TIBStringField
      DisplayLabel = '户名'
      DisplayWidth = 20
      FieldName = 'F_HOUSE_NAME'
      Origin = 'TB_HOUSE.F_HOUSE_NAME'
      FixedChar = True
    end
    object Q_HouseFeeF_BOX_NO: TIBStringField
      DisplayLabel = '箱号'
      DisplayWidth = 6
      FieldName = 'F_BOX_NO'
      Origin = 'TB_HOUSE.F_BOX_NO'
      FixedChar = True
      Size = 6
    end
    object Q_HouseFeeF_USED_COUNT: TFloatField
      DisplayLabel = '电量'
      FieldName = 'F_USED_COUNT'
      Origin = 'TB_HOUSE.F_USED_COUNT'
    end
    object Q_HouseFeeF_USED_AMOUNT: TFloatField
      DisplayLabel = '电费'
      FieldName = 'F_USED_AMOUNT'
      Origin = 'TB_HOUSE.F_USED_AMOUNT'
    end
  end
  object Ds_HouseFee: TDataSource
    DataSet = Q_HouseFee
    Left = 32
    Top = 128
  end
  object Report: TppReport
    AutoStop = False
    DataPipeline = DBP_HouseFee
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = '电费公布'
    PrinterSetup.PaperName = 'A4 Long (210 x 405毫米)'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 3000
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 3000
    PrinterSetup.mmPaperHeight = 405000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 262
    Template.FileName = 'D:\Mis\Fee\Exe\农电三-2表.rtm'
    Units = utMillimeters
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    PreviewFormSettings.WindowState = wsMaximized
    PreviewFormSettings.ZoomSetting = zs100Percent
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 152
    Top = 24
    Version = '7.04'
    mmColumnWidth = 127000
    DataPipelineName = 'DBP_HouseFee'
    object ppHeaderBand2: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 25665
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = '嵩电供电有限责任公司 杨林供电所 电费公布栏'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 14
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 5556
        mmLeft = 44979
        mmTop = 3969
        mmWidth = 105834
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = '户号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 25135
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = '户  名'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 57944
        mmTop = 19579
        mmWidth = 12700
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        Caption = '箱号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 92869
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = '电量'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 110596
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = '电费'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 132027
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = '序号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        mmHeight = 4763
        mmLeft = 3440
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 146844
        mmTop = 19050
        mmWidth = 2117
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = '交费'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 4763
        mmLeft = 154252
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLine8: TppLine
        UserName = 'Line8'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 169334
        mmTop = 19050
        mmWidth = 2117
        BandType = 0
      end
      object ppLabel9: TppLabel
        UserName = 'Label9'
        Caption = '备注'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 4763
        mmLeft = 175948
        mmTop = 19579
        mmWidth = 8467
        BandType = 0
      end
      object ppLine11: TppLine
        UserName = 'Line11'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 15081
        mmTop = 19050
        mmWidth = 529
        BandType = 0
      end
      object ppLine12: TppLine
        UserName = 'Line12'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 41275
        mmTop = 19050
        mmWidth = 529
        BandType = 0
      end
      object ppLine13: TppLine
        UserName = 'Line101'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 85990
        mmTop = 19050
        mmWidth = 529
        BandType = 0
      end
      object ppLine14: TppLine
        UserName = 'Line14'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 105834
        mmTop = 19050
        mmWidth = 529
        BandType = 0
      end
      object ppLine15: TppLine
        UserName = 'Line15'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 6615
        mmLeft = 123825
        mmTop = 19050
        mmWidth = 529
        BandType = 0
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        VarType = vtPageSetDesc
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 171450
        mmTop = 13229
        mmWidth = 23283
        BandType = 0
      end
      object ppDBText3: TppDBText
        UserName = 'DBText3'
        DataField = 'F_TRANSFER_NAME'
        DataPipeline = DBP_SyncTransfer
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        ParentDataPipeline = False
        Transparent = True
        DataPipelineName = 'DBP_SyncTransfer'
        mmHeight = 4763
        mmLeft = 3704
        mmTop = 13494
        mmWidth = 28310
        BandType = 0
      end
    end
    object ppDetailBand4: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 7144
      mmPrintPosition = 0
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        DataField = 'F_USED_COUNT'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4763
        mmLeft = 108215
        mmTop = 1588
        mmWidth = 14552
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText6'
        DataField = 'F_USED_AMOUNT'
        DataPipeline = DBP_HouseFee
        DisplayFormat = '0.00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4763
        mmLeft = 127000
        mmTop = 1588
        mmWidth = 17198
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText7'
        DataField = 'F_HOUSE_NO'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        TextAlignment = taRightJustified
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'
        mmHeight = 4763
        mmLeft = 16140
        mmTop = 1588
        mmWidth = 25400
        BandType = 4
      end
      object ppDBText1: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'F_HOUSE_NAME'
        DataPipeline = DBP_HouseFee
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_HouseFee'