report_dm.dfm

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

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = 'Form1'
  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 DBP_Invoice: TppDBPipeline
    UserName = 'DBP_Invoice'
    Left = 32
    Top = 80
  end
  object R_Invoice: TppReport
    AutoStop = False
    DataPipeline = DBP_Invoice
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = '发票报表'
    PrinterSetup.PaperName = 'Custom'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 139700
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 256
    Template.FileName = 'D:\Mis\Fee\400V发票.RTM'
    Template.Format = ftASCII
    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 = 32
    Top = 24
    Version = '7.03'
    mmColumnWidth = 197300
    DataPipelineName = 'DBP_Invoice'
    object ppHeaderBand3: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppDetailBand4: TppDetailBand
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 129382
      mmPrintPosition = 0
      object ppDBText17: TppDBText
        UserName = 'DBText6'
        BlankWhenZero = True
        DataField = 'F_TRANS_USED'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 99219
        mmTop = 41275
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText18: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'F_HOUSE_NO'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 4092
        mmLeft = 21167
        mmTop = 19315
        mmWidth = 20179
        BandType = 4
      end
      object ppLabel7: TppLabel
        UserName = 'Label1'
        Caption = '户号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 19315
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel10: TppLabel
        UserName = 'Label2'
        Caption = '年'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 77258
        mmTop = 19315
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel14: TppLabel
        UserName = 'Label3'
        Caption = '月份'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 95515
        mmTop = 19315
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel43: TppLabel
        UserName = 'Label4'
        Caption = '托收号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 123031
        mmTop = 19315
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel44: TppLabel
        UserName = 'Label5'
        Caption = '卡号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 24871
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel45: TppLabel
        UserName = 'Label6'
        Caption = '用电地址'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 62971
        mmTop = 25135
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel50: TppLabel
        UserName = 'Label11'
        Caption = '倍率'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 87048
        mmTop = 31485
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel51: TppLabel
        UserName = 'Label12'
        Caption = '加变耗'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 99484
        mmTop = 31221
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel52: TppLabel
        UserName = 'Label13'
        Caption = '加减量'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 120650
        mmTop = 31485
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel53: TppLabel
        UserName = 'Label15'
        Caption = '上次抄表'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 56092
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel54: TppLabel
        UserName = 'Label16'
        Caption = '本次抄表'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 62706
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel55: TppLabel
        UserName = 'Label17'
        Caption = '月'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 34660
        mmTop = 56092
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel56: TppLabel
        UserName = 'Label18'
        Caption = '月'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 34925
        mmTop = 62706
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel57: TppLabel
        UserName = 'Label19'
        Caption = '日'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 44979
        mmTop = 56092
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel58: TppLabel
        UserName = 'Label20'
        Caption = '日'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 45244
        mmTop = 62706
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel59: TppLabel
        UserName = 'Label25'
        Caption = '供电单位'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 68792
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel60: TppLabel
        UserName = 'Label26'
        Caption = '供电开关'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 74877
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel61: TppLabel
        UserName = 'Label27'
        Caption = '交费地点'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        WordWrap = True
        mmHeight = 7673
        mmLeft = 10583
        mmTop = 80698
        mmWidth = 8202
        BandType = 4
      end
      object ppLabel62: TppLabel
        UserName = 'Label28'
        Caption = '合计金额(大写)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 14023
        mmTop = 93398
        mmWidth = 24606
        BandType = 4
      end
      object ppLabel63: TppLabel
        UserName = 'Label29'
        Caption = '备注:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 103717
        mmWidth = 8731
        BandType = 4
      end