charge_report_400v_f.dfm

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

    object DBP_400VppField9: TppField
      FieldAlias = 'F_TELEPHONE'
      FieldName = 'F_TELEPHONE'
      FieldLength = 12
      DisplayWidth = 12
      Position = 8
    end
    object DBP_400VppField10: TppField
      FieldAlias = 'F_VOLTAGE_NO'
      FieldName = 'F_VOLTAGE_NO'
      FieldLength = 2
      DisplayWidth = 2
      Position = 9
    end
    object DBP_400VppField11: TppField
      FieldAlias = 'F_MASTER_AMMETER_NO'
      FieldName = 'F_MASTER_AMMETER_NO'
      FieldLength = 10
      DisplayWidth = 10
      Position = 10
    end
    object DBP_400VppField12: TppField
      FieldAlias = 'F_BOX_NO'
      FieldName = 'F_BOX_NO'
      FieldLength = 6
      DisplayWidth = 6
      Position = 11
    end
    object DBP_400VppField13: TppField
      FieldAlias = 'F_DATE'
      FieldName = 'F_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 12
    end
    object DBP_400VppField14: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ADJUST_COUNT'
      FieldName = 'F_ADJUST_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 13
    end
    object DBP_400VppField15: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SON_COUNT'
      FieldName = 'F_SON_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 14
    end
    object DBP_400VppField16: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SUM_COUNT'
      FieldName = 'F_SUM_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 15
    end
    object DBP_400VppField17: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BASE_COUNT'
      FieldName = 'F_BASE_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 16
    end
    object DBP_400VppField18: TppField
      FieldAlias = 'F_ELECT_NO'
      FieldName = 'F_ELECT_NO'
      FieldLength = 2
      DisplayWidth = 2
      Position = 17
    end
    object DBP_400VppField19: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE'
      FieldName = 'F_PRICE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 18
    end
    object DBP_400VppField20: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT'
      FieldName = 'F_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 19
    end
    object DBP_400VppField21: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT'
      FieldName = 'F_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 20
    end
    object DBP_400VppField22: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE1'
      FieldName = 'F_RATE1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 21
    end
    object DBP_400VppField23: TppField
      FieldAlias = 'F_ELECT_NO1'
      FieldName = 'F_ELECT_NO1'
      FieldLength = 2
      DisplayWidth = 2
      Position = 22
    end
    object DBP_400VppField24: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE1'
      FieldName = 'F_PRICE1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 23
    end
    object DBP_400VppField25: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT1'
      FieldName = 'F_COUNT1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 24
    end
    object DBP_400VppField26: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT1'
      FieldName = 'F_AMOUNT1'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 25
    end
    object DBP_400VppField27: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE2'
      FieldName = 'F_RATE2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 26
    end
    object DBP_400VppField28: TppField
      FieldAlias = 'F_ELECT_NO2'
      FieldName = 'F_ELECT_NO2'
      FieldLength = 2
      DisplayWidth = 2
      Position = 27
    end
    object DBP_400VppField29: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE2'
      FieldName = 'F_PRICE2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 28
    end
    object DBP_400VppField30: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT2'
      FieldName = 'F_COUNT2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 29
    end
    object DBP_400VppField31: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT2'
      FieldName = 'F_AMOUNT2'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 30
    end
    object DBP_400VppField32: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_RATE3'
      FieldName = 'F_RATE3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 31
    end
    object DBP_400VppField33: TppField
      FieldAlias = 'F_ELECT_NO3'
      FieldName = 'F_ELECT_NO3'
      FieldLength = 2
      DisplayWidth = 2
      Position = 32
    end
    object DBP_400VppField34: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_PRICE3'
      FieldName = 'F_PRICE3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 33
    end
    object DBP_400VppField35: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_COUNT3'
      FieldName = 'F_COUNT3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 34
    end
    object DBP_400VppField36: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_AMOUNT3'
      FieldName = 'F_AMOUNT3'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 35
    end
    object DBP_400VppField37: TppField
      FieldAlias = 'F_NOTE'
      FieldName = 'F_NOTE'
      FieldLength = 50
      DisplayWidth = 50
      Position = 36
    end
    object DBP_400VppField38: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ARREARAGE'
      FieldName = 'F_ARREARAGE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 37
    end
    object DBP_400VppField39: TppField
      FieldAlias = 'F_2YEAR'
      FieldName = 'F_2YEAR'
      FieldLength = 1
      DisplayWidth = 1
      Position = 38
    end
    object DBP_400VppField40: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LATEFEE'
      FieldName = 'F_LATEFEE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 39
    end
    object DBP_400VppField41: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_AMOUNT'
      FieldName = 'F_USED_AMOUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 40
    end
    object DBP_400VppField42: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_CT'
      FieldName = 'F_CT'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 41
    end
    object DBP_400VppField43: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_TRANS_USED'
      FieldName = 'F_TRANS_USED'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 42
    end
    object DBP_400VppField44: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_USED_COUNT'
      FieldName = 'F_USED_COUNT'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 43
    end
    object DBP_400VppField45: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_IRON_USED'
      FieldName = 'F_IRON_USED'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 44
    end
    object DBP_400VppField46: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_EXCESSTYPE'
      FieldName = 'F_EXCESSTYPE'
      FieldLength = 0
      DataType = dtInteger
      DisplayWidth = 10
      Position = 45
    end
    object DBP_400VppField47: TppField
      FieldAlias = 'F_PRINTINVOICE'
      FieldName = 'F_PRINTINVOICE'
      FieldLength = 1
      DisplayWidth = 1
      Position = 46
    end
    object DBP_400VppField48: TppField
      FieldAlias = 'F_PRINTEDINVOICE'
      FieldName = 'F_PRINTEDINVOICE'
      FieldLength = 1
      DisplayWidth = 1
      Position = 47
    end
    object DBP_400VppField49: TppField
      FieldAlias = 'F_CHARGED'
      FieldName = 'F_CHARGED'
      FieldLength = 1
      DisplayWidth = 1
      Position = 48
    end
    object DBP_400VppField50: TppField
      FieldAlias = 'F_RECEIVER'
      FieldName = 'F_RECEIVER'
      FieldLength = 8
      DisplayWidth = 8
      Position = 49
    end
    object DBP_400VppField51: TppField
      FieldAlias = 'F_CHARGE_DATE'
      FieldName = 'F_CHARGE_DATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 50
    end
    object DBP_400VppField52: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_LAST_BALANCE'
      FieldName = 'F_LAST_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 51
    end
    object DBP_400VppField53: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_ACTUAL_RECEIVE'
      FieldName = 'F_ACTUAL_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 52
    end
    object DBP_400VppField54: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_BALANCE'
      FieldName = 'F_BALANCE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 53
    end
    object DBP_400VppField55: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GATHERING'
      FieldName = 'F_GATHERING'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 54
    end
    object DBP_400VppField56: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_GIVE_CHANGE'
      FieldName = 'F_GIVE_CHANGE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 55
    end
    object DBP_400VppField57: TppField
      Alignment = taRightJustify
      FieldAlias = 'F_SHOULD_RECEIVE'
      FieldName = 'F_SHOULD_RECEIVE'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 56
    end
  end
  object D_400V: TppDesigner
    Caption = '报表编辑器'
    DataSettings.SessionType = 'BDESession'
    DataSettings.AllowEditSQL = False
    DataSettings.DatabaseType = dtParadox
    DataSettings.IsCaseSensitive = True
    DataSettings.SQLType = sqBDELocal
    Position = poScreenCenter
    Report = R_400V
    IniStorageType = 'IniFile'
    IniStorageName = '($WINSYS)\RBuilder.ini'
    WindowHeight = 400
    WindowLeft = 100
    WindowTop = 50
    WindowWidth = 600
    WindowState = wsMaximized
    Left = 34
    Top = 168
  end
  object Q_400V: TQuery
    DatabaseName = 'SMDLJF'
    SQL.Strings = (
      'Select H.f_Used_Amount As f_FeeAmount,'
      '       V.f_Village_Name || H.f_Position As f_Position,'
      '       H.*,'
      '       H.f_Used_Amount - H.f_Last_Balance As f_Should_Receive'
      'From Tb_House H'
      '     Join Tb_Village V On H.f_Village_No = V.f_Village_No'
      'Order By f_House_No')
    Left = 260
    Top = 168
  end
  object Ds_400V: TDataSource
    DataSet = Q_400V
    Left = 204
    Top = 171
  end
end