invoice400v_f.dfm

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

        mmLeft = 75142
        mmTop = 62442
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel11: TppLabel
        UserName = 'Label32'
        Caption = #23457#26680
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 108215
        mmTop = 62442
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel12: TppLabel
        UserName = 'Label35'
        Caption = #23913#30005#20379#30005#26377#38480#36131#20219#20844#21496#30005#36153#32467#31639#36890#30693#21333
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Name = #40657#20307
        Font.Size = 14
        Font.Style = []
        Transparent = True
        mmHeight = 5556
        mmLeft = 66940
        mmTop = 7938
        mmWidth = 83873
        BandType = 4
      end
      object ppLabel13: TppLabel
        UserName = 'Label40'
        Caption = #25143#21517
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        WordWrap = True
        mmHeight = 3969
        mmLeft = 45773
        mmTop = 16933
        mmWidth = 7144
        BandType = 4
      end
      object ppLabel15: TppLabel
        UserName = 'Label42'
        Caption = #21512#35745#30005#37327'(KW.h)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clAqua
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 104246
        mmTop = 56356
        mmWidth = 24871
        BandType = 4
      end
      object ppDBText3: TppDBText
        UserName = 'DBText2'
        AutoSize = True
        DataField = 'F_HOUSE_NAME'
        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 = 55298
        mmTop = 16933
        mmWidth = 6879
        BandType = 4
      end
      object ppDBText4: TppDBText
        UserName = 'DBText4'
        DataField = 'F_POSITION'
        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 = 110067
        mmTop = 16933
        mmWidth = 39423
        BandType = 4
      end
      object ppDBText5: TppDBText
        UserName = 'DBText5'
        DataField = 'F_CT'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 23019
        mmTop = 48683
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText6: TppDBText
        UserName = 'DBText7'
        BlankWhenZero = True
        DataField = 'F_ADJUST_COUNT'
        DataPipeline = DBP_Invoice
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 74613
        mmTop = 48683
        mmWidth = 12171
        BandType = 4
      end
      object ppDBText7: TppDBText
        UserName = 'DBText8'
        DataField = 'F_USED_COUNT'
        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 = 133086
        mmTop = 56356
        mmWidth = 18256
        BandType = 4
      end
      object ppSubReport1: TppSubReport
        UserName = 'SubReport1'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        ParentPrinterSetup = False
        ParentWidth = False
        TraverseAllData = False
        DataPipelineName = 'DBP_Ammeter'
        mmHeight = 14817
        mmLeft = 12435
        mmTop = 33073
        mmWidth = 76729
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport1: TppChildReport
          AutoStop = False
          DataPipeline = DBP_Ammeter
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = #21457#31080#25253#34920
          PrinterSetup.PaperName = 'A4'
          PrinterSetup.PrinterName = 'Default'
          PrinterSetup.mmMarginBottom = 0
          PrinterSetup.mmMarginLeft = 0
          PrinterSetup.mmMarginRight = 0
          PrinterSetup.mmMarginTop = 0
          PrinterSetup.mmPaperHeight = 297127
          PrinterSetup.mmPaperWidth = 210079
          PrinterSetup.PaperSize = 9
          Template.Format = ftASCII
          Left = 328
          Top = 232
          Version = '7.04'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_Ammeter'
          object ppTitleBand3: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object ppDetailBand2: TppDetailBand
            mmBottomOffset = 0
            mmHeight = 5027
            mmPrintPosition = 0
            object ppDBText8: 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 = 2381
              mmTop = 529
              mmWidth = 20638
              BandType = 4
            end
            object ppDBText9: 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 = 26723
              mmTop = 529
              mmWidth = 14552
              BandType = 4
            end
            object ppDBText10: 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 = 44450
              mmTop = 529
              mmWidth = 16140
              BandType = 4
            end
            object ppDBText11: 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 = 62971
              mmTop = 529
              mmWidth = 15081
              BandType = 4
            end
          end
          object ppFooterBand1: TppFooterBand
            Visible = False
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
        end
      end
      object ppSubReport2: TppSubReport
        UserName = 'SubReport2'
        ExpandAll = False
        NewPrintJob = False
        OutlineSettings.CreateNode = True
        ParentWidth = False
        TraverseAllData = False
        DataPipelineName = 'DBP_FeeDetail'
        mmHeight = 26988
        mmLeft = 91281
        mmTop = 27517
        mmWidth = 102394
        BandType = 4
        mmBottomOffset = 0
        mmOverFlowOffset = 0
        mmStopPosition = 0
        object ppChildReport2: TppChildReport
          AutoStop = False
          DataPipeline = DBP_FeeDetail
          PrinterSetup.BinName = 'Default'
          PrinterSetup.DocumentName = #21457#31080#25253#34920
          PrinterSetup.PaperName = 'A4'
          PrinterSetup.PrinterName = 'Default'
          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 ppTitleBand4: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object ppDetailBand3: TppDetailBand
            mmBottomOffset = 0
            mmHeight = 5000
            mmPrintPosition = 0
            object ppDBText12: 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 = 794
              mmTop = 265
              mmWidth = 37306
              BandType = 4
            end
            object ppDBText13: 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 = 42069
              mmTop = 265
              mmWidth = 17198
              BandType = 4
            end
            object ppDBText14: 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 = 79904
              mmTop = 265
              mmWidth = 21960
              BandType = 4
            end
            object ppDBText15: 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 = 61383
              mmTop = 265
              mmWidth = 15610
              BandType = 4
            end
          end
          object ppSummaryBand1: TppSummaryBand
            mmBottomOffset = 0
            mmHeight = 0
            mmPrintPosition = 0
          end
          object raCodeModule1: TraCodeModule
            ProgramStream = {00}
          end
        end
      end
      object ppLabel16: TppLabel
        UserName = 'Label14'
        Caption = #25910#27454#21592
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 84402
        mmTop = 62442
        mmWidth = 10583
        BandType = 4
      end
      object ppLabel17: TppLabel
        UserName = 'Label22'
        Caption = #22797#26680#20154
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 3969
        mmLeft = 118004
        mmTop = 62442
        mmWidth = 10583
        BandType = 4
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable1'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #23435#20307
        Font.Size = 10