charge_report_400v_f.dfm

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

object F_Charge_Report_400V: TF_Charge_Report_400V
  Left = 192
  Top = 107
  Width = 696
  Height = 480
  Caption = '400V用户收费报表统计'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object PC_Charge: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 412
    ActivePage = Ts_400V
    Align = alClient
    TabOrder = 0
    object Ts_400V: TTabSheet
      Caption = '400V收费报表'
      object DBG_400V: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 301
        Align = alClient
        Color = clMenu
        DataSource = Ds_400V
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'F_HOUSE_NO'
            Title.Caption = '户号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_HOUSE_NAME'
            Title.Caption = '户名'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_FEEAMOUNT'
            Title.Caption = '应收电费'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_RECEIVER'
            Title.Caption = '收款人'
            Width = 52
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_CHARGE_DATE'
            Title.Caption = '收款日期'
            Width = 85
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_LAST_BALANCE'
            Title.Caption = '上期余额'
            Width = 68
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_ACTUAL_RECEIVE'
            Title.Caption = '实收'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_BALANCE'
            Title.Caption = '本期余额'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_GATHERING'
            Title.Caption = '收款'
            Width = 67
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'F_GIVE_CHANGE'
            Title.Caption = '找零'
            Width = 56
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 0
        Top = 301
        Width = 680
        Height = 80
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Bt_Calc: TButton
          Left = 504
          Top = 8
          Width = 75
          Height = 25
          Caption = '统计'
          TabOrder = 0
          OnClick = Bt_CalcClick
        end
        object Bt_Print: TButton
          Left = 504
          Top = 40
          Width = 75
          Height = 25
          Caption = '打印'
          TabOrder = 1
          OnClick = Bt_PrintClick
        end
        object RB_Charged: TRadioButton
          Left = 344
          Top = 8
          Width = 105
          Height = 17
          Caption = '已缴费用户'
          Checked = True
          TabOrder = 2
          TabStop = True
        end
        object Rb_UnCharged: TRadioButton
          Left = 344
          Top = 32
          Width = 105
          Height = 17
          Caption = '未缴费用户'
          TabOrder = 3
        end
        object Rb_All: TRadioButton
          Left = 344
          Top = 56
          Width = 105
          Height = 17
          Caption = '全部用户'
          TabOrder = 4
        end
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 337
          Height = 80
          Align = alLeft
          Caption = '已缴费统计'
          TabOrder = 5
          object Label1: TLabel
            Left = 16
            Top = 24
            Width = 72
            Height = 16
            Caption = '缴费时间:'
          end
          object Label2: TLabel
            Left = 96
            Top = 24
            Width = 16
            Height = 16
            Caption = '从'
          end
          object Label3: TLabel
            Left = 96
            Top = 56
            Width = 16
            Height = 16
            Caption = '至'
          end
          object DTP_Start: TDateTimePicker
            Left = 120
            Top = 16
            Width = 105
            Height = 24
            CalAlignment = dtaLeft
            Date = 38116.6603019097
            Time = 38116.6603019097
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object DTP_End: TDateTimePicker
            Left = 120
            Top = 48
            Width = 105
            Height = 24
            CalAlignment = dtaLeft
            Date = 38116.6604670833
            Time = 38116.6604670833
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 1
          end
          object CB_AllReceiver: TCheckBox
            Left = 232
            Top = 24
            Width = 97
            Height = 17
            Hint = '不选中时只统计当前登录用户的收款'
            Caption = '全部收费员'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
          end
        end
        object Bt_Edit: TButton
          Left = 590
          Top = 40
          Width = 75
          Height = 25
          Caption = '报表修改'
          TabOrder = 6
          OnClick = Bt_EditClick
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 412
    Width = 688
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Panel2: TPanel
      Left = 596
      Top = 1
      Width = 91
      Height = 39
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Bt_Close: TButton
        Left = 6
        Top = 8
        Width = 75
        Height = 25
        Caption = '关闭&C'
        TabOrder = 0
        OnClick = Bt_CloseClick
      end
    end
  end
  object R_400V: TppReport
    AutoStop = False
    DataPipeline = DBP_400V
    PassSetting = psTwoPass
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = '发票报表'
    PrinterSetup.PaperName = 'A4 (210 x 297毫米)'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 9
    Template.FileName = 'D:\Mis\Fee\400V收费明细.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 = 92
    Top = 168
    Version = '7.04'
    mmColumnWidth = 197300
    DataPipelineName = 'DBP_400V'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 20108
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = '户  号'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 11642
        mmTop = 14817
        mmWidth = 12700
        BandType = 0
      end
      object ppLabel2: TppLabel
        UserName = 'Label2'
        Caption = '户  名'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4826
        mmLeft = 44715
        mmTop = 14817
        mmWidth = 12700
        BandType = 0
      end
      object ppLabel3: TppLabel
        UserName = 'Label3'
        Caption = '应收电费'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 82815
        mmTop = 14552
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel4: TppLabel
        UserName = 'Label4'
        Caption = '上期余额'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 106627
        mmTop = 14817
        mmWidth = 15875
        BandType = 0
      end
      object ppLabel5: TppLabel
        UserName = 'Label5'
        Caption = '本期余额'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 158750
        mmTop = 14023
        mmWidth = 16933
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = '实收'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 12
        Font.Style = []
        Transparent = True
        mmHeight = 4763
        mmLeft = 134409
        mmTop = 14288
        mmWidth = 8467
        BandType = 0
      end
      object ppLabel9: TppLabel
        UserName = 'Label9'
        Caption = '供电所一户一表收费明细表'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = '宋体'
        Font.Size = 16
        Font.Style = []
        Transparent = True
        mmHeight = 6435
        mmLeft = 70379
        mmTop = 3969
        mmWidth = 67564
        BandType = 0
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 30163
        mmTop = 12170
        mmWidth = 2381
        BandType = 0
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 75936
        mmTop = 12171
        mmWidth = 2381
        BandType = 0
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938
        mmLeft = 103452
        mmTop = 12171
        mmWidth = 2381
        BandType = 0
      end
      object ppLine5: TppLine
        UserName = 'Line5'
        Pen.Style = psDot
        Position = lpLeft
        Weight = 0.75
        mmHeight = 7938