car_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 = "car_list"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6DDDA03C3"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_车位服务登记表_
'
'属性：
'Driver_Name:车主姓名
'Car_Number:车主车牌号码
'
'操作：
'addDriver():添加新车主姓名
'selectDriver():查询车主记录
'deleteDriver():删除车主记录
Option Explicit

'##ModelId=42BA0725013A
Implements resident_list


'车主名称
'
'##ModelId=42B6DF0D0374
Private mDriver_Name As Variant

'车主车牌号码
'##ModelId=42B6DF20005A
Private mCar_Number As Variant

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

'添加新车主姓名
'##ModelId=42B6DF56030B
Public Function addDriver() As String

End Function

'查询车主记录
'##ModelId=42B6DFAB019B
Public Sub selectDriver()

End Sub

'删除车主记录
'##ModelId=42B6DF6F02A3
Public Sub deleteDriver()

End Sub

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

End Sub

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

End Sub

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

End Sub

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

End Property

'_入住登记表__
'##ModelId=42BA951003AF
Private Property Get resident_list() As resident_agreement

End Property

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

End Sub

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

End Sub

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

End Sub

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

End Property

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

End Property

'##ModelId=4305F1ED01C9
Public Property Get Car_List_ID() As Variant

End Property

'##ModelId=4305F1F000DD
Public Property Let Car_List_ID(ByVal vNewValue As Variant)

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

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

End Property

'##ModelId=4305FB2E0049
Public Property Get Car_Number() As Variant

End Property

'##ModelId=4305FB2F014F
Public Property Let Car_Number(ByVal vNewValue As Variant)

End Property

'##ModelId=4305FB3102C4
Public Property Get Driver_Name() As Variant

End Property

'##ModelId=4305FB320185
Public Property Let Driver_Name(ByVal vNewValue As Variant)

End Property

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

End Property