report_dm.dfm

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

      object ppLabel64: TppLabel
        UserName = 'Label30'
        Caption = '收费单位(盖章有效)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 15081
        mmTop = 115359
        mmWidth = 31750
        BandType = 4
      end
      object ppLabel65: TppLabel
        UserName = 'Label31'
        Caption = '收费'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 70379
        mmTop = 115359
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel66: TppLabel
        UserName = 'Label32'
        Caption = '复核'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 103452
        mmTop = 115359
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel67: TppLabel
        UserName = 'Label33'
        Caption = '开票'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 136261
        mmTop = 115359
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel68: TppLabel
        UserName = 'Label34'
        Caption = '报销凭证'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        WordWrap = True
        mmHeight = 16140
        mmLeft = 178859
        mmTop = 44186
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel69: TppLabel
        UserName = 'Label35'
        Caption = '云 南 省 电 费 收 费 专 用 发 票'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 63765
        mmTop = 0
        mmWidth = 56356
        BandType = 4
      end
      object ppLabel70: TppLabel
        UserName = 'Label36'
        Caption = '第二联'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 70908
        mmTop = 7938
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel71: TppLabel
        UserName = 'Label37'
        Caption = '发   票'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Name = '宋体'
        Font.Size = 14
        Font.Style = []
        Transparent = True
        mmHeight = 5556
        mmLeft = 88106
        mmTop = 6085
        mmWidth = 17463
        BandType = 4
      end
      object ppLabel72: TppLabel
        UserName = 'Label38'
        Caption = '种类代码:00000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 9525
        mmWidth = 24606
        BandType = 4
      end
      object ppLabel73: TppLabel
        UserName = 'Label39'
        Caption = 'G5300000000000'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 10583
        mmTop = 14288
        mmWidth = 24871
        BandType = 4
      end
      object ppLabel74: TppLabel
        UserName = 'Label40'
        Caption = '客户名称'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        WordWrap = True
        mmHeight = 7938
        mmLeft = 111654
        mmTop = 8996
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel75: TppLabel
        UserName = 'Label41'
        Caption = '$:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 140229
        mmTop = 94721
        mmWidth = 3440
        BandType = 4
      end
      object ppLabel76: TppLabel
        UserName = 'Label42'
        Caption = '合计电量(KW.h)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 140759
        mmTop = 31485
        mmWidth = 24606
        BandType = 4
      end
      object ppDBText19: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        DataField = 'F_HOUSE_NAME'
        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 = 121444
        mmTop = 10319
        mmWidth = 10583
        BandType = 4
      end
      object ppDBText20: TppDBText
        UserName = 'DBText3'
        DataField = 'F_VILLAGE_NO'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        SuppressRepeatedValues = True
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3440
        mmLeft = 81756
        mmTop = 25400
        mmWidth = 13229
        BandType = 4
      end
      object ppDBText21: TppDBText
        UserName = 'DBText4'
        DataField = 'F_POSITION'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 95779
        mmTop = 24871
        mmWidth = 42598
        BandType = 4
      end
      object ppDBText22: TppDBText
        UserName = 'DBText5'
        DataField = 'F_CT'
        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 = 84402
        mmTop = 41010
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText23: TppDBText
        UserName = 'DBText7'
        BlankWhenZero = True
        DataField = 'F_ADJUST_COUNT'
        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 = 119856
        mmTop = 40746
        mmWidth = 12171
        BandType = 4
      end
      object ppDBText24: TppDBText
        UserName = 'DBText8'
        DataField = 'F_USED_COUNT'
        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 = 137319
        mmTop = 40746
        mmWidth = 33867
        BandType = 4
      end
      object ppSubReport3: TppSubReport
        UserName = 'SubReport1'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        ParentWidth = False
        TraverseAllData = False
        DataPipelineName = 'DBP_Ammeter'
        mmHeight = 25400
        mmLeft = 8731
        mmTop = 29369
        mmWidth = 75671
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport3: TppChildReport
          AutoStop = False
          DataPipeline = DBP_Ammeter
          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.Format = ftASCII
          Left = 328
          Top = 232
          Version = '7.03'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_Ammeter'
          object ppTitleBand1: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 6615
            mmPrintPosition = 0
            object ppLabel46: TppLabel
              UserName = 'Label7'
              Caption = '表    号'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 4092
              mmLeft = 794
              mmTop = 1199
              mmWidth = 14393
              BandType = 1
            end
            object ppLabel47: TppLabel
              UserName = 'Label8'
              Caption = '上次抄表'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 19050
              mmTop = 1323
              mmWidth = 14023
              BandType = 1
            end
            object ppLabel48: TppLabel
              UserName = 'Label9'
              Caption = '本次抄表'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 38365
              mmTop = 1323
              mmWidth = 14023
              BandType = 1
            end
            object ppLabel49: TppLabel
              UserName = 'Label10'
              Caption = '差  额'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 3969
              mmLeft = 57944