invoice400v_f.dfm

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

      FieldAlias = 'F_CHARGED'
      FieldName = 'F_CHARGED'
      FieldLength = 1
      DisplayWidth = 1
      Position = 49
    end
    object DBP_InvoiceppField51: TppField
      FieldAlias = 'F_RECEIVER'
      FieldName = 'F_RECEIVER'
      FieldLength = 8
      DisplayWidth = 8
      Position = 50
    end
    object DBP_InvoiceppField52: TppField
      FieldAlias = 'F_CHARGE_DATE'
      FieldName = 'F_CHARGE_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 51
    end
    object DBP_InvoiceppField53: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LAST_BALANCE'
      FieldName = 'F_LAST_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 52
    end
    object DBP_InvoiceppField54: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ACTUAL_RECEIVE'
      FieldName = 'F_ACTUAL_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 53
    end
    object DBP_InvoiceppField55: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BALANCE'
      FieldName = 'F_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 54
    end
    object DBP_InvoiceppField56: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GATHERING'
      FieldName = 'F_GATHERING'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 55
    end
    object DBP_InvoiceppField57: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GIVE_CHANGE'
      FieldName = 'F_GIVE_CHANGE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 56
    end
    object DBP_InvoiceppField58: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SHOULD_RECEIVE'
      FieldName = 'F_SHOULD_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 57
    end
  end
  object R_Invoice: TppReport
    AutoStop = False
    DataPipeline = DBP_Invoice
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = #21457#31080#25253#34920
    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 = 119
    Template.FileName = 'D:\Mis\Fee\exe\400V'#21457#31080'.RTM'
    Template.Format = ftASCII
    Units = utMillimeters
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    PreviewFormSettings.WindowState = wsMaximized
    PreviewFormSettings.ZoomSetting = zs100Percent
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 104
    Top = 80
    Version = '7.04'
    mmColumnWidth = 197300
    DataPipelineName = 'DBP_Invoice'
    object ppHeaderBand3: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 0
      mmPrintPosition = 0
    end
    object ppDetailBand4: TppDetailBand
      BeforePrint = ppDetailBand4BeforePrint
      PrintHeight = phDynamic
      mmBottomOffset = 0
      mmHeight = 129382
      mmPrintPosition = 0
      object ppDBText17: TppDBText
        UserName = 'DBText6'
        BlankWhenZero = True
        DataField = 'F_TRANS_USED'
        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 = 91281
        mmTop = 41540
        mmWidth = 11377
        BandType = 4
      end
      object ppDBText18: TppDBText
        UserName = 'DBText1'
        AutoSize = True
        DataField = 'F_HOUSE_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 = 4092
        mmLeft = 13229
        mmTop = 19579
        mmWidth = 20179
        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 = #23435#20307
        Font.Size = 10
        Font.Style = []
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 4092
        mmLeft = 113506
        mmTop = 10583
        mmWidth = 10583
        BandType = 4
      end
      object ppDBText21: 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 = 71173
        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 = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 76465
        mmTop = 41275
        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 = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 111919
        mmTop = 41010
        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 = #23435#20307
        Font.Size = 10
        Font.Style = []
        TextAlignment = taCentered
        Transparent = True
        DataPipelineName = 'DBP_Invoice'
        mmHeight = 3969
        mmLeft = 129382
        mmTop = 41010
        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 = 1058
        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 = #21457#31080#25253#34920
          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 = 119
          Template.Format = ftASCII
          Left = 328
          Top = 232
          Version = '7.04'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_Ammeter'
          object ppTitleBand1: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 7938
            mmPrintPosition = 0
          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 = 45773
        mmTop = 56092
        mmWidth = 121709
        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 = 'Custom'
          PrinterSetup.PrinterName = 'Default'
          PrinterSetup.mmMarginBottom = 6350
          PrinterSetup.mmMarginLeft = 6350
          PrinterSetup.mmMarginRight = 6350
          PrinterSetup.mmMarginTop = 6350
          PrinterSetup.mmPaperHeight = 139700
          PrinterSetup.mmPaperWidth = 210000
          PrinterSetup.PaperSize = 119
          Template.Format = ftASCII
          Units = utMillimeters
          Left = 368
          Top = 272
          Version = '7.04'
          mmColumnWidth = 0
          DataPipelineName = 'DBP_FeeDetail'
          object ppTitleBand2: TppTitleBand
            mmBottomOffset = 0
            mmHeight = 6350
            mmPrintPosition = 0
          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