report_dm.dfm

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

        mmWidth = 7144
        BandType = 4
      end
      object ppLabel93: TppLabel
        UserName = 'Label45'
        Caption = '03'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 85725
        mmTop = 19315
        mmWidth = 3440
        BandType = 4
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 4092
        mmLeft = 158486
        mmTop = 115359
        mmWidth = 18344
        BandType = 4
      end
    end
    object ppFooterBand4: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppParameterList2: TppParameterList
    end
  end
  object D_Invoice: TppDesigner
    Caption = '报表编辑器'
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtParadox
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqBDELocal
    Position = poScreenCenter
    Report = R_Invoice
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 114
    Top = 24
  end
  object DBP_Ammeter: TppDBPipeline
    UserName = 'DBP_Ammeter'
    Left = 112
    Top = 80
    MasterDataPipelineName = 'DBP_Invoice'
    object DBP_AmmeterppField1: TppField
      FieldAlias = 'F_HOUSE_NO'
      FieldName = 'F_HOUSE_NO'
      FieldLength = 12
      DisplayWidth = 12
      Position = 0
    end
    object DBP_AmmeterppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMMETER_ORDER'
      FieldName = 'F_AMMETER_ORDER'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 1
    end
    object DBP_AmmeterppField3: TppField
      FieldAlias = 'F_AMMETER_NO'
      FieldName = 'F_AMMETER_NO'
      FieldLength = 10
      DisplayWidth = 10
      Position = 2
    end
    object DBP_AmmeterppField4: TppField
      FieldAlias = 'F_AMMETER_DATE'
      FieldName = 'F_AMMETER_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 3
    end
    object DBP_AmmeterppField5: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMMETER_COUNT'
      FieldName = 'F_AMMETER_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 4
    end
    object DBP_AmmeterppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMMETER_LAST_COUNT'
      FieldName = 'F_AMMETER_LAST_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 5
    end
    object DBP_AmmeterppField7: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_THIS_COUNT'
      FieldName = 'F_THIS_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 6
    end
    object DBP_AmmeterppField8: TppField
      FieldAlias = 'F_AMMETER_MODEL'
      FieldName = 'F_AMMETER_MODEL'
      FieldLength = 10
      DisplayWidth = 10
      Position = 7
    end
    object DBP_AmmeterppField9: TppField
      FieldAlias = 'F_AMMETER_RIGHT'
      FieldName = 'F_AMMETER_RIGHT'
      FieldLength = 10
      DisplayWidth = 10
      Position = 8
    end
    object DBP_AmmeterppField10: TppField
      FieldAlias = 'F_CT_NO'
      FieldName = 'F_CT_NO'
      FieldLength = 10
      DisplayWidth = 10
      Position = 9
    end
    object DBP_AmmeterppField11: TppField
      FieldAlias = 'F_CT_MODEL'
      FieldName = 'F_CT_MODEL'
      FieldLength = 10
      DisplayWidth = 10
      Position = 10
    end
    object DBP_AmmeterppField12: TppField
      FieldAlias = 'F_CT_RIGHT'
      FieldName = 'F_CT_RIGHT'
      FieldLength = 10
      DisplayWidth = 10
      Position = 11
    end
    object DBP_AmmeterppField13: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT01'
      FieldName = 'F_COUNT01'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 12
    end
    object DBP_AmmeterppField14: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT02'
      FieldName = 'F_COUNT02'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 13
    end
    object DBP_AmmeterppField15: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT03'
      FieldName = 'F_COUNT03'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 14
    end
    object DBP_AmmeterppField16: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT04'
      FieldName = 'F_COUNT04'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 15
    end
    object DBP_AmmeterppField17: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT05'
      FieldName = 'F_COUNT05'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 16
    end
    object DBP_AmmeterppField18: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT06'
      FieldName = 'F_COUNT06'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 17
    end
    object DBP_AmmeterppField19: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT07'
      FieldName = 'F_COUNT07'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 18
    end
    object DBP_AmmeterppField20: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT08'
      FieldName = 'F_COUNT08'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 19
    end
    object DBP_AmmeterppField21: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT09'
      FieldName = 'F_COUNT09'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 20
    end
    object DBP_AmmeterppField22: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT10'
      FieldName = 'F_COUNT10'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 21
    end
    object DBP_AmmeterppField23: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT11'
      FieldName = 'F_COUNT11'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 22
    end
    object DBP_AmmeterppField24: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT12'
      FieldName = 'F_COUNT12'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 23
    end
    object DBP_AmmeterppField25: TppField
      FieldAlias = 'F_LNO'
      FieldName = 'F_LNO'
      FieldLength = 4
      DisplayWidth = 4
      Position = 24
    end
    object DBP_AmmeterppField26: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 25
    end
    object DBP_AmmeterppField27: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LCONSTANT'
      FieldName = 'F_LCONSTANT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 26
    end
    object DBP_AmmeterppField28: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PLRATE'
      FieldName = 'F_PLRATE'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 27
    end
    object DBP_AmmeterppField29: TppField
      FieldAlias = 'F_TRANSFER_NO'
      FieldName = 'F_TRANSFER_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 28
    end
    object DBP_AmmeterppField30: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_OK'
      FieldName = 'F_OK'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 29
    end
    object DBP_AmmeterppField31: TppField
      FieldAlias = 'F_COPYTIME'
      FieldName = 'F_COPYTIME'
      FieldLength = 19
      DisplayWidth = 19
      Position = 30
    end
    object DBP_AmmeterppField32: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_MAXCOUNT'
      FieldName = 'F_MAXCOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 31
    end
    object DBP_AmmeterppField33: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_MINCOUNT'
      FieldName = 'F_MINCOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 32
    end
  end
  object DBP_FeeDetail: TppDBPipeline
    UserName = 'DBP_FeeDetail'
    Left = 192
    Top = 80
    MasterDataPipelineName = 'DBP_Invoice'
    object DBP_FeeDetailppField1: TppField
      FieldAlias = 'F_HOUSE_NO'
      FieldName = 'F_HOUSE_NO'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object DBP_FeeDetailppField2: TppField
      FieldAlias = 'F_ITEM'
      FieldName = 'F_ITEM'
      FieldLength = 20
      DisplayWidth = 20
      Position = 1
    end
    object DBP_FeeDetailppField3: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 2
    end
    object DBP_FeeDetailppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
    object DBP_FeeDetailppField5: TppField
      FieldAlias = 'F_ISTOTAL'
      FieldName = 'F_ISTOTAL'
      FieldLength = 1
      DisplayWidth = 1
      Position = 4
    end
    object DBP_FeeDetailppField6: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE'
      FieldName = 'F_PRICE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 5
    end
  end
end