fee_balance2_f.dfm

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

              mmWidth = 15081
              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 = 28575
        mmLeft = 93398
        mmTop = 26988
        mmWidth = 102394
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport4: TppChildReport
          AutoStop = False
          DataPipeline = DBP_FeeDetail
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = #21457#31080#25253#34920
          PrinterSetup.PaperName = 'A4 210 x 297 mm'
          PrinterSetup.PrinterName = 'Screen'
          PrinterSetup.mmMarginBottom = 0
          PrinterSetup.mmMarginLeft = 0
          PrinterSetup.mmMarginRight = 0
          PrinterSetup.mmMarginTop = 0
          PrinterSetup.mmPaperHeight = 297000
          PrinterSetup.mmPaperWidth = 210000
          PrinterSetup.PaperSize = 9
          Template.Format = ftASCII
          Units = utMillimeters
          Left = 368
          Top = 272
          Version = '7.04'
          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 = #23435#20307
              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 = #23435#20307
              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 = #23435#20307
              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 = #23435#20307
              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 raCodeModule2: TraCodeModule
            ProgramStream = {00}
          end
        end
      end
      object ppLabel7: TppLabel
        UserName = 'Label14'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3979
        mmLeft = 67204
        mmTop = 63500
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel10: TppLabel
        UserName = 'Label22'
        Caption = #26446#21152#29788
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 109538
        mmTop = 63500
        mmWidth = 10541
        BandType = 4
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        DisplayFormat = 'YYYY-MM-DD'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        mmHeight = 3969
        mmLeft = 156104
        mmTop = 63765
        mmWidth = 18256
        BandType = 4
      end
      object ppDBMemo2: TppDBMemo
        UserName = 'DBMemo1'
        CharWrap = False
        DataField = 'F_NOTE'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 4498
        mmLeft = 25135
        mmTop = 56092
        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 = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 142346
        mmTop = 56621
        mmWidth = 17198
        BandType = 4
      end
      object ppLabel14: TppLabel
        UserName = 'Label7'
        Caption = #26446#22269#25996
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 23813
        mmTop = 63500
        mmWidth = 10541
        BandType = 4
      end
      object ppDBText20: TppDBText
        UserName = 'DBText3'
        DataField = 'F_TRANSFER_NAME'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        WordWrap = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 166952
        mmTop = 16933
        mmWidth = 24077
        BandType = 4
      end
      object ppDBText35: TppDBText
        UserName = 'DBText35'
        DataField = 'F_BOX_NO'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 85196
        mmTop = 16933
        mmWidth = 15081
        BandType = 4
      end
      object ppSystemVariable3: TppSystemVariable
        UserName = 'SystemVariable2'
        DisplayFormat = 'YYYY'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 17992
        mmTop = 10848
        mmWidth = 7408
        BandType = 4
      end
      object ppSystemVariable4: TppSystemVariable
        UserName = 'SystemVariable3'
        DisplayFormat = 'MM'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 32279
        mmTop = 10848
        mmWidth = 3704
        BandType = 4
      end
      object ppL_StationName: TppLabel
        UserName = 'Label23'
        Caption = #23567#34903#20379#30005#25152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4022
        mmLeft = 163248
        mmTop = 11113
        mmWidth = 17568
        BandType = 4
      end
      object ppLabel30: TppLabel
        UserName = 'Label1'
        Caption = '15'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 44715
        mmTop = 22490
        mmWidth = 3704
        BandType = 4
      end
      object ppLabel31: TppLabel
        UserName = 'Label2'
        Caption = '15'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 75406
        mmTop = 22490
        mmWidth = 3704
        BandType = 4
      end
    end
    object ppFooterBand4: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppParameterList1: TppParameterList
    end
  end
  object DBP_Invoice: TppDBPipeline
    DataSource = Ds_Invoice
    UserName = 'DBP_Invoice'
    OnDataChange = DBP_InvoiceDataChange
    Left = 256
    Top = 184
    object DBP_InvoiceppField1: TppField
      FieldAlias = 'F_TRANSFER_NAME'
      FieldName = 'F_TRANSFER_NAME'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object DBP_InvoiceppField2: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_FEEAMOUNT'
      FieldName = 'F_FEEAMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 1
    end
    object DBP_InvoiceppField3: TppField
      FieldAlias = 'F_POSITION'
      FieldName = 'F_POSITION'
      FieldLength = 30
      DisplayWidth = 30
      Position = 2
    end
    object DBP_InvoiceppField4: TppField
      FieldAlias = 'F_HOUSE_NO'
      FieldName = 'F_HOUSE_NO'
      FieldLength = 12
      DisplayWidth = 12
      Position = 3
    end
    object DBP_InvoiceppField5: TppField
      FieldAlias = 'F_TRANSFER_NO'
      FieldName = 'F_TRANSFER_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 4
    end
    object DBP_InvoiceppField6: TppField
      FieldAlias = 'F_VOLUME_NO'
      FieldName = 'F_VOLUME_NO'
      FieldLength = 1
      DisplayWidth = 1
      Position = 5
    end
    object DBP_InvoiceppField7: TppField
      FieldAlias = 'F_VILLAGE_NO'
      FieldName = 'F_VILLAGE_NO'
      FieldLength = 5
      DisplayWidth = 5
      Position = 6
    end
    object DBP_InvoiceppField8: TppField
      FieldAlias = 'F_HOUSE_NAME'
      FieldName = 'F_HOUSE_NAME'
      FieldLength = 20
      DisplayWidth = 20
      Position = 7
    end
    object DBP_InvoiceppField9: TppField
      FieldAlias = 'F_POSITION_1'
      FieldName = 'F_POSITION_1'
      FieldLength = 10
      DisplayWidth = 10
      Position = 8
    end
    object DBP_InvoiceppField10: TppField
      FieldAlias = 'F_TELEPHONE'
      FieldName = 'F_TELEPHONE'
      FieldLength = 12
      DisplayWidth = 12
      Position = 9
    end
    object DBP_InvoiceppField11: TppField
      FieldAlias = 'F_VOLTAGE_NO'
      FieldName = 'F_VOLTAGE_NO'
      FieldLength = 2
      DisplayWidth = 2
      Position = 10
    end
    object DBP_InvoiceppField12: TppField
      FieldAlias = 'F_MASTER_AMMETER_NO'
      FieldName = 'F_MASTER_AMMETER_NO'
      FieldLength = 10
      DisplayWidth = 10
      Position = 11
    end
    object DBP_InvoiceppField13: TppField
      FieldAlias = 'F_BOX_NO'
      FieldName = 'F_BOX_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 12
    end
    object DBP_InvoiceppField14: TppField
      FieldAlias = 'F_DATE'
      FieldName = 'F_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 13
    end
    object DBP_InvoiceppField15: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ADJUST_COUNT'
      FieldName = 'F_ADJUST_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 14
    end
    object DBP_InvoiceppField16: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SON_COUNT'
      FieldName = 'F_SON_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10