resident_agreement.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 = "resident_agreement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6E16000A9"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_入住协议书_
'
'
'属性：
'resident_agreement_ID:入住协议书号
'residential_name:物业主姓名
'
'操作：
'resign_resident_agreement():签定入住协议书
'
Option Explicit


'入住协议书号
'##ModelId=42B6E170016A
Private mResident_Agreement_ID As String

'物业主姓名
'##ModelId=42B6E188011F
Private mResidential_Name As String

'##ModelId=42BA05110095
Private mNewProperty As resident_list

'签定入住协议书
'##ModelId=42B99E92033D
Public Function resignResidentAgreement() As Boolean

End Function

'##ModelId=4305FBD60131
Public Property Get NewProperty() As resident_list

End Property

'##ModelId=4305FBD80224
Public Property Get Resident_Agreement_ID() As String

End Property

'##ModelId=4305FBD90063
Public Property Let Resident_Agreement_ID(ByVal vNewValue As String)

End Property

'##ModelId=4305FBDB02FB
Public Property Get Residential_Name() As String

End Property

'##ModelId=4305FBDC027A
Public Property Let Residential_Name(ByVal vNewValue As String)

End Property