report_dm.dfm

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

              mmTop = 1323
              mmWidth = 10848
              BandType = 1
            end
          end
          object ppDetailBand5: TppDetailBand
            mmBottomOffset = 0
            mmHeight = 5292
            mmPrintPosition = 0
            object ppDBText25: TppDBText
              UserName = 'DBText12'
              DataField = 'F_AMMETER_NO'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4233
              mmLeft = 1058
              mmTop = 529
              mmWidth = 14552
              BandType = 4
            end
            object ppDBText26: TppDBText
              UserName = 'DBText9'
              DataField = 'F_AMMETER_LAST_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4233
              mmLeft = 18521
              mmTop = 529
              mmWidth = 15346
              BandType = 4
            end
            object ppDBText27: TppDBText
              UserName = 'DBText10'
              DataField = 'F_THIS_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4233
              mmLeft = 36513
              mmTop = 529
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText28: TppDBText
              UserName = 'DBText11'
              DataField = 'F_COUNT'
              DataPipeline = DBP_Ammeter
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              ParentDataPipeline = False
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_Ammeter'
              mmHeight = 4233
              mmLeft = 55033
              mmTop = 529
              mmWidth = 17198
              BandType = 4
            end
          end
          object ppFooterBand3: TppFooterBand
            Visible = False
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
      end
      object ppSubReport4: TppSubReport
        UserName = 'SubReport2'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        ParentWidth = False
        TraverseAllData = False
        DataPipelineName = 'DBP_FeeDetail'
        mmHeight = 35454
        mmLeft = 53711
        mmTop = 55827
        mmWidth = 121709
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport4: TppChildReport
          AutoStop = False
          DataPipeline = DBP_FeeDetail
          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
          Units = utMillimeters
          Left = 368
          Top = 272
          Version = '7.03'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_FeeDetail'
          object ppTitleBand2: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 6350
            mmPrintPosition = 0
            object ppLabel77: TppLabel
              UserName = 'Label1'
              Caption = '收费项目'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              mmHeight = 4233
              mmLeft = 1588
              mmTop = 794
              mmWidth = 34396
              BandType = 1
            end
            object ppLabel78: TppLabel
              UserName = 'Label2'
              Caption = '计费电量'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 4233
              mmLeft = 46567
              mmTop = 794
              mmWidth = 16933
              BandType = 1
            end
            object ppLabel79: TppLabel
              UserName = 'Label3'
              Caption = '单  价'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 4092
              mmLeft = 67998
              mmTop = 794
              mmWidth = 10724
              BandType = 1
            end
            object ppLabel80: TppLabel
              UserName = 'Label4'
              Caption = '金        额'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = '宋体'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              mmHeight = 4092
              mmLeft = 84931
              mmTop = 794
              mmWidth = 21731
              BandType = 1
            end
          end
          object ppDetailBand6: TppDetailBand
            mmBottomOffset = 0
            mmHeight = 5292
            mmPrintPosition = 0
            object ppDBText29: TppDBText
              UserName = 'DBText13'
              DataField = 'F_ITEM'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 794
              mmTop = 529
              mmWidth = 37306
              BandType = 4
            end
            object ppDBText30: TppDBText
              UserName = 'DBText14'
              DataField = 'F_COUNT'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 46302
              mmTop = 529
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText31: TppDBText
              UserName = 'DBText15'
              DataField = 'F_AMOUNT'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 84667
              mmTop = 529
              mmWidth = 21960
              BandType = 4
            end
            object ppDBText32: TppDBText
              UserName = 'DBText33'
              DataField = 'F_PRICE'
              DataPipeline = DBP_FeeDetail
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clBlack
              Font.Name = 'Arial'
              Font.Size = 10
              Font.Style = []
              TextAlignment = taCentered
              Transparent = True
              DataPipelineName = 'DBP_FeeDetail'
              mmHeight = 4233
              mmLeft = 65352
              mmTop = 529
              mmWidth = 17198
              BandType = 4
            end
          end
          object ppSummaryBand2: TppSummaryBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
      end
      object ppDBText33: TppDBText
        UserName = 'DBText16'
        DataField = 'F_FEEAMOUNT'
        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 = 144463
        mmTop = 94721
        mmWidth = 17198
        BandType = 4
      end
      object ppLabel81: TppLabel
        UserName = 'Label14'
        Caption = '收款员'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 80433
        mmTop = 115359
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel82: TppLabel
        UserName = 'Label21'
        Caption = '开票人'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 146315
        mmTop = 115359
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel86: TppLabel
        UserName = 'Label22'
        Caption = '复核人'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 113242
        mmTop = 115359
        mmWidth = 10583
        BandType = 4
      end
      object ppL_UpperCash: TppLabel
        UserName = 'L_UpperCash'
        SaveOrder = 0
        Save = True
        Caption = '壹佰陆拾元玖角'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 40217
        mmTop = 93398
        mmWidth = 14023
        BandType = 4
      end
      object ppLabel90: TppLabel
        UserName = 'Label24'
        Caption = '城区供电所'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 29104
        mmTop = 69056
        mmWidth = 17198
        BandType = 4
      end
      object ppLabel91: TppLabel
        UserName = 'Label43'
        Caption = '城区供电所'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 24342
        mmTop = 82550
        mmWidth = 17198
        BandType = 4
      end
      object ppLabel92: TppLabel
        UserName = 'Label44'
        Caption = '2004'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 66675
        mmTop = 19315