repair_agreements.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_agreements"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"42B6E38A00F6"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"entity"
'_施工许可证_
'
'
'属性：
'Repair_Agreement_ID:许可证号
'Residential_Name:物业主姓名
'Repair_Company_Name:装修公司名称
'
'操作：
'getAdmition():领取施工许可证
'
Option Explicit


'许可证号
'##ModelId=42B6E3A60254
Private mRepair_Agreements_ID As String

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

'装修公司名称
'##ModelId=42B6E3BD021B
Private mRepair_Company_Name As String

'##ModelId=42BA085B0084
Private mNewProperty As repair_agreement

'领取施工许可证
'##ModelId=42B6E3D20135
Public Sub getAdmition()

End Sub

'##ModelId=4305FC6E023E
Public Property Get NewProperty() As repair_agreement

End Property

'##ModelId=4305FC7100DA
Public Property Get Repair_Agreements_ID() As String

End Property

'##ModelId=4305FC720077
Public Property Let Repair_Agreements_ID(ByVal vNewValue As String)

End Property

'##ModelId=4305FC7401BA
Public Property Get Repair_Company_Name() As String

End Property

'##ModelId=4305FC7500B7
Public Property Let Repair_Company_Name(ByVal vNewValue As String)

End Property

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

End Property

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

End Property