resident_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 = "resident_list"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6DFBC036C"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_入住登记表_
'
'
'属性：
'resident_list_ID:入住登记表号
'residential_name:物业主姓名
'residential_gender:物业主性别
'residential_ID:物业主身份证证号
'residential_family_name:物业主家庭成员姓名
'door_number:门牌号码
'
'操作：
'add_new_residential():添加新物业主信息
'select_new_residential():查询物业主信息
'delete_residential():删除物业主信息
Option Explicit


'##ModelId=42B6DFCC0026
Private mResident_List_ID As Variant

'##ModelId=42C25D260270
Private mResidential_ID As Variant

'
'
'##ModelId=42B6DFFC0115
Private mResidential_Name As Variant

'##ModelId=42B6E00800C2
Private mResidential_gender As Boolean

'##ModelId=42B6E01502A2
Private mResidential_Family_name As Variant

'##ModelId=42B6E01E00F6
Private mDoor_Number As Variant

'##ModelId=42C25DC102C3
Private mtime As Date

'##ModelId=42BA0511008B
Private mNewProperty As resident_agreement

'添加新物业主信息
'
'
'##ModelId=42B6E03C01DF
Public Sub addNewResidential()

End Sub

'查询物业主信息
'
'##ModelId=42B6E054008F
Public Sub seleteNewResidential()

End Sub

'删除物业主信息
'
'
'##ModelId=42B6E04700F5
Public Sub deleteResidential()

End Sub

'##ModelId=4305F296026C
Public Property Get NewProperty() As resident_agreement

End Property

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

End Property

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

End Property

'##ModelId=4305FA3E0301
Public Property Get Resident_List_ID() As Variant

End Property

'##ModelId=4305FA3F01FE
Public Property Let Resident_List_ID(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FA42009A
Public Property Get Residential_Family_name() As Variant

End Property

'##ModelId=4305FA4203CF
Public Property Let Residential_Family_name(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FA4602E4
Public Property Get Residential_gender() As Boolean

End Property

'##ModelId=4305FA4702FA
Public Property Let Residential_gender(ByVal vNewValue As Boolean)

End Property

'##ModelId=4305FA4C0044
Public Property Get Residential_ID() As Variant

End Property

'##ModelId=4305FA4C03E7
Public Property Let Residential_ID(ByVal vNewValue As Variant)

End Property

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

End Property

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

End Property

'##ModelId=4305FA5601D9
Public Property Get time() As Date

End Property

'##ModelId=4305FA5800D7
Public Property Let time(ByVal vNewValue As Date)

End Property