use_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 = "use_list"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6E083020A"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_水电气表_
'
'
'属性：
'Use_List_ID:水电气表号
'Writer_Name:抄表员名称
'
'操作：
'Initiate():记录入住时的底数
Option Explicit


'水电气表号
'##ModelId=42B6E09300A4
Private mUse_List_ID As Variant

'抄表员名称
'##ModelId=42B6E09C0210
Private mWriter_Name As Variant

'记录日期
'##ModelId=4305F70A012B
Private mdata As Date

'水表指数
'##ModelId=4305F738002D
Private mWaterIndex As Variant

'电表指数
'##ModelId=4305F75C0350
Private mElecIndex As Variant

'气表指数
'##ModelId=4305F7970048
Private mGasIndex As Variant

'##ModelId=4305F7D4030C
Private mTotalFee As Long

'##ModelId=4305F82201D8
Private mResidential_Name As Variant

'##ModelId=42BA34790305
Private mNewProperty As charge_list

'记录入住时的底数
'##ModelId=42B6E0B40214
Public Sub Initiate()

End Sub

'##ModelId=4305FC9F004A
Public Property Get data() As Date

End Property

'##ModelId=4305FC9F0339
Public Property Let data(ByVal vNewValue As Date)

End Property

'##ModelId=4305FCA3001D
Public Property Get ElecIndex() As Variant

End Property

'##ModelId=4305FCA3030C
Public Property Let ElecIndex(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FCA600AE
Public Property Get GasIndex() As Variant

End Property

'##ModelId=4305FCA70019
Public Property Let GasIndex(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FCAA00D2
Public Property Get NewProperty() As charge_list

End Property

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

End Property

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

End Property

'##ModelId=4305FCB1032B
Public Property Get TotalFee() As Long

End Property

'##ModelId=4305FCB2026E
Public Property Let TotalFee(ByVal vNewValue As Long)

End Property

'##ModelId=4305FCB603B4
Public Property Get Use_List_ID() As Variant

End Property

'##ModelId=4305FCB70351
Public Property Let Use_List_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FCBB02F3
Public Property Get WaterIndex() As Variant

End Property

'##ModelId=4305FCBC0236
Public Property Let WaterIndex(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FCBF00B4
Public Property Get Writer_Name() As Variant

End Property

'##ModelId=4305FCBF03CB
Public Property Let Writer_Name(ByVal vNewValue As Variant)

End Property