400v-i

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

        PrinterSetup.mmMarginTop = 0
        PrinterSetup.mmPaperHeight = 70000
        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 = 0
          mmPrintPosition = 0
        end
        object ppDetailBand6: TppDetailBand
          mmBottomOffset = 0
          mmHeight = 5000
          mmPrintPosition = 0
          object ppDBText29: TppDBText
            UserName = 'DBText13'
            DataField = 'F_ITEM'
            DataPipeline = DBP_FeeDetail
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4015
            mmLeft = 1058
            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 = '宋体'
            Font.Size = 10
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4015
            mmLeft = 42333
            mmTop = 529
            mmWidth = 17198
            BandType = 4
          end
          object ppDBText31: TppDBText
            UserName = 'DBText15'
            DataField = 'F_AMOUNT'
            DataPipeline = DBP_FeeDetail
            DisplayFormat = '0.00'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Name = '宋体'
            Font.Size = 10
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4015
            mmLeft = 80169
            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 = '宋体'
            Font.Size = 10
            Font.Style = []
            TextAlignment = taCentered
            Transparent = True
            DataPipelineName = 'DBP_FeeDetail'
            mmHeight = 4015
            mmLeft = 61648
            mmTop = 529
            mmWidth = 15610
            BandType = 4
          end
        end
        object ppSummaryBand2: TppSummaryBand
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object raCodeModule1: TraCodeModule
          ProgramStream = {00}
        end
      end
    end
    object ppLabel7: TppLabel
      UserName = 'Label14'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3991
      mmLeft = 67469
      mmTop = 55827
      mmWidth = 10523
      BandType = 4
    end
    object ppLabel10: TppLabel
      UserName = 'Label22'
      Caption = '李文良'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3991
      mmLeft = 109802
      mmTop = 55827
      mmWidth = 10523
      BandType = 4
    end
    object ppSystemVariable1: TppSystemVariable
      UserName = 'SystemVariable1'
      DisplayFormat = 'YYYY-MM-DD'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 3969
      mmLeft = 156369
      mmTop = 56092
      mmWidth = 18256
      BandType = 4
    end
    object ppDBMemo1: TppDBMemo
      UserName = 'DBMemo1'
      CharWrap = False
      DataField = 'F_NOTE'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 4498
      mmLeft = 25400
      mmTop = 48419
      mmWidth = 65617
      BandType = 4
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmLeading = 0
    end
    object ppDBText33: TppDBText
      UserName = 'DBText9'
      DataField = 'F_FEEAMOUNT'
      DataPipeline = DBP_Invoice
      DisplayFormat = '0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 142611
      mmTop = 48948
      mmWidth = 17198
      BandType = 4
    end
    object ppLabel14: TppLabel
      UserName = 'Label7'
      Caption = '李庆华'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3991
      mmLeft = 24077
      mmTop = 55827
      mmWidth = 10523
      BandType = 4
    end
    object ppDBText20: TppDBText
      UserName = 'DBText3'
      DataField = 'F_TRANSFER_NAME'
      DataPipeline = DBP_Invoice
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      WordWrap = True
      DataPipelineName = 'DBP_Invoice'
      mmHeight = 3969
      mmLeft = 167217
      mmTop = 9260
      mmWidth = 20902
      BandType = 4
    end
    object ppDBText36: TppDBText
      UserName = 'DBText35'
      DataField = 'F_BOX_NO'
      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 = 85461
      mmTop = 9260
      mmWidth = 15081
      BandType = 4
    end
    object ppSystemVariable3: TppSystemVariable
      UserName = 'SystemVariable2'
      DisplayFormat = 'YYYY'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 18256
      mmTop = 3175
      mmWidth = 7408
      BandType = 4
    end
    object ppSystemVariable4: TppSystemVariable
      UserName = 'SystemVariable3'
      DisplayFormat = 'MM'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 32544
      mmTop = 3175
      mmWidth = 3704
      BandType = 4
    end
    object ppLabel37: TppLabel
      UserName = 'Label23'
      Caption = '杨  桥'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3991
      mmLeft = 163513
      mmTop = 3440
      mmWidth = 10644
      BandType = 4
    end
    object ppLabel38: TppLabel
      UserName = 'Label1'
      Caption = '15'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 44979
      mmTop = 14817
      mmWidth = 3704
      BandType = 4
    end
    object ppLabel39: TppLabel
      UserName = 'Label2'
      Caption = '15'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = '宋体'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      mmHeight = 3969
      mmLeft = 75671
      mmTop = 14817
      mmWidth = 3704
      BandType = 4
    end
  end
  object ppFooterBand4: TppFooterBand
    mmBottomOffset = 0
    mmHeight = 0
    mmPrintPosition = 0
  end
  object ppParameterList1: TppParameterList
  end
end