emindnode.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 = "eMindNode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mNodeID As String
Private mNodeCaption As String
Private mNodeDescription As String
Private mParentNodeID As String
Private mNodeFunction As String
Private mNodeMemo As String
Private mNodeBGPicture As String
Private mCreateDate As String
Private mUpdateDate As String
Private mExpireDate As String

Public Property Get NodeID() As String
NodeID = mNodeID
End Property

Public Property Let NodeID(ByVal vNewValue As String)
mNodeID = vNewValue
End Property

Public Property Get NodeCaption() As String
NodeCaption = mNodeCaption
End Property

Public Property Let NodeCaption(ByVal vNewValue As String)
mNodeCaption = vNewValue
End Property

Public Property Get NodeDescription() As String
NodeDescription = mNodeDescription
End Property

Public Property Let NodeDescription(ByVal vNewValue As String)
mNodeDescription = vNewValue
End Property

Public Property Get ParentNodeID() As String
ParentNodeID = mParentNodeID
End Property

Public Property Let ParentNodeID(ByVal vNewValue As String)
mParentNodeID = vNewValue
End Property

Public Property Get NodeFunction() As String
NodeFunction = mNodeFunction
End Property

Public Property Let NodeFunction(ByVal vNewValue As String)
mNodeFunction = vNewValue
End Property

Public Property Get NodeMemo() As String
NodeMemo = mNodeMemo
End Property

Public Property Let NodeMemo(ByVal vNewValue As String)
mNodeMemo = vNewValue
End Property

Public Property Get NodeBGPicture() As String
NodeBGPicture = mNodeBGPicture
End Property

Public Property Let NodeBGPicture(ByVal vNewValue As String)
mNodeBGPicture = vNewValue
End Property

Public Property Get CreateDate() As String
CreateDate = mCreateDate
End Property

Public Property Let CreateDate(ByVal vNewValue As String)
mCreateDate = vNewValue
End Property

Public Property Get UpdateDate() As String
UpdateDate = mUpdateDate
End Property

Public Property Let UpdateDate(ByVal vNewValue As String)
mUpdateDate = vNewValue
End Property

Public Property Get ExpireDate() As String
ExpireDate = mExpireDate
End Property

Public Property Let ExpireDate(ByVal vNewValue As String)
mExpireDate = vNewValue
End Property