charge_list.cls

上传的文件是针对小区物业管理的程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "charge_list"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6E21A0024"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_收费单_
'
'
'属性：
'charge_list_ID:收费单号
'residential_name:物业主姓名
'door_number:门牌号码
'repair_fee:装修费用
'
'操作：
'chargeRepairFee():收取装修相关费用
'chargeOffFee():退户费用结算
Option Explicit


'收费单号
'##ModelId=42B6E223037A
Private mCharge_List_ID As Variant

'物业主姓名
'##ModelId=42B6E22C00CA
Private mResidential_Name As Variant

'门牌号码
'##ModelId=42BA1FF2014E
Private mDoor_Number As Variant

'装修费用
'##ModelId=42BA1FDC012E
Private mRepair_Fee As Long

'##ModelId=42BA34790303
Private mNewProperty As Collection

'收取装修相关费用
'##ModelId=42BA1D5C0033
Public Sub chargeRepairFee()

End Sub

'退户费用结算
'##ModelId=42BA1E06038B
Public Sub chargeOffFee()

End Sub

'##ModelId=4305FC850147
Public Property Get Charge_List_ID() As Variant

End Property

'##ModelId=4305FC860080
Public Property Let Charge_List_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FC880336
Public Property Get Door_Number() As Variant

End Property

'##ModelId=4305FC890229
Public Property Let Door_Number(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FC8B033A
Public Property Get NewProperty() As Collection

End Property

'##ModelId=4305FC8D03DD
Public Property Get Repair_Fee() As Long

End Property

'##ModelId=4305FC8F0079
Public Property Let Repair_Fee(ByVal vNewValue As Long)

End Property

'##ModelId=4305FC910248
Public Property Get Residential_Name() As Variant

End Property

'##ModelId=4305FC9201C7
Public Property Let Residential_Name(ByVal vNewValue As Variant)

End Property