repair_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 = "repair_agreement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6E3280131"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_房屋装修协议书_
'
'
'属性：
'Agreement_ID:协议书号
'Residential_Name:物业主姓名
'Repair_Company_Name:装修公司名称
'Repair_Description:装修描述
'
'操作：
'resign_Repair_Agreement():签定入住协议书
Option Explicit

'##ModelId=42BA07390388
Implements resident_list


'协议书号
'##ModelId=42B6E34000EF
Private mAgreement_ID As Variant

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

'装修公司名称
'##ModelId=42B6E3F4022E
Private mRepair_Company_Name As Variant

'装修描述
'##ModelId=42B6E35502E4
Private mRepair_Description As Long

'##ModelId=42BA951400E4
Private mresident_listObject As New resident_list

'##ModelId=42BA085B0082
Private mNewProperty As repair_agreements

'签定入住协议书
'##ModelId=42B6E3670218
Public Sub resignRepairAgreement()

End Sub

'入住登记表__添加新物业主信息
'
'
'##ModelId=42BA95140170
Private Sub resident_list_add_new_residential()

End Sub

'入住登记表__查询物业主信息
'
'##ModelId=42BA951401AC
Private Sub resident_list_selete_new_residential()

End Sub

'入住登记表__删除物业主信息
'
'
'##ModelId=42BA951401DE
Private Sub resident_list_delete_residential()

End Sub

'入住登记表__
'##ModelId=42BA9514021A
Private Property Set resident_list_NewProperty(ByVal RHS As resident_agreement)

End Property

'入住登记表__
'##ModelId=42BA951402A7
Private Property Get resident_list_NewProperty() As resident_agreement

End Property

'入住登记表__添加新物业主信息
'
'
'##ModelId=42BAB1E803C1
Private Sub resident_list_addNewResidential()

End Sub

'入住登记表__查询物业主信息
'
'##ModelId=42BAB1E9001F
Private Sub resident_list_seleteNewResidential()

End Sub

'入住登记表__删除物业主信息
'
'
'##ModelId=42BAB1E90051
Private Sub resident_list_deleteResidential()

End Sub

'##ModelId=4305FBE7023A
Private Property Get resident_list_Door_Number() As Variant

End Property

'##ModelId=4305FBE702F8
Private Property Let resident_list_Door_Number(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBE80014
Private Property Get resident_list_Resident_List_ID() As Variant

End Property

'##ModelId=4305FBE8008D
Private Property Let resident_list_Resident_List_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBE801A5
Private Property Get resident_list_Residential_Family_name() As Variant

End Property

'##ModelId=4305FBE8024F
Private Property Let resident_list_Residential_Family_name(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBE80386
Private Property Get resident_list_Residential_gender() As Boolean

End Property

'##ModelId=4305FBE90016
Private Property Let resident_list_Residential_gender(ByVal vNewValue As Boolean)

End Property

'##ModelId=4305FBE9012E
Private Property Get resident_list_Residential_ID() As Variant

End Property

'##ModelId=4305FBE901B0
Private Property Let resident_list_Residential_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBE902AB
Private Property Get resident_list_Residential_Name() As Variant

End Property

'##ModelId=4305FBE9034B
Private Property Let resident_list_Residential_Name(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBEA007B
Private Property Get resident_list_time() As Date

End Property

'##ModelId=4305FBEA011C
Private Property Let resident_list_time(ByVal vNewValue As Date)

End Property

'##ModelId=4305FBF00156
Public Property Get Agreement_ID() As Variant

End Property

'##ModelId=4305FBF100FE
Public Property Let Agreement_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBF30377
Public Property Get NewProperty() As repair_agreements

End Property

'##ModelId=4305FBF702C9
Public Property Get Repair_Company_Name() As Variant

End Property

'##ModelId=4305FBF8023E
Public Property Let Repair_Company_Name(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FBFB03BF
Public Property Get Repair_Description() As Long

End Property

'##ModelId=4305FBFC030C
Public Property Let Repair_Description(ByVal vNewValue As Long)

End Property

'##ModelId=4305FC0C0193
Public Property Get resident_listObject() As resident_list

End Property

'##ModelId=4305FC0D020C
Public Property Set resident_listObject(ByVal vNewValue As resident_list)

End Property

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

End Property

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

End Property