room.cls

来自「这是一个银行IC卡门禁系统软件」· CLS 代码 · 共 87 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Room"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'##ModelId=3D338A460131
Private m_RoomName As String
'##ModelId=3D338A46016D
Private m_Status As String
'##ModelId=3D338A4601A9
Private m_Address As String
Private m_PD As String
Private m_RoomID As String

Public Property Get RoomID() As String
     RoomID = m_RoomID
End Property

Public Property Let RoomID(ByVal Value As String)
     m_RoomID = Value
End Property

Public Property Get Address() As String
     Address = m_Address
End Property

Public Property Let Address(ByVal Value As String)
    m_Address = Value
End Property

Public Property Get PD() As String
     PD = m_PD
End Property

Public Property Let PD(ByVal Value As String)
     m_PD = Value
End Property

'##ModelId=3D338A48007F
Public Property Get Status() As String

    Status = m_Status

End Property

'##ModelId=3D338A480025
Public Property Let Status(ByVal Value As String)

    m_Status = Value

End Property

'##ModelId=3D338A48010B
Public Property Get RoomName() As String

    RoomName = m_RoomName

End Property

'##ModelId=3D338A4800B1
Public Property Let RoomName(ByVal Value As String)

    m_RoomName = Value

End Property

'##ModelId=3D338A48013E
Private Sub Class_Initialize()

    m_Status = "E"
    m_PD = "0"
    m_Address = "E"
    
End Sub