emindsheetfield.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 = "eMindSheetColumn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mNodeID As String
Private mColumnName As String
Private mColumnTitle As String
Private mColumnDescription As String
Private mColumnUnique As String
Private mColumnFormat As String
Private mColumnIndexed As String
Private mPreviousColumn As String
Private mNextColumn As String
Private mPosLeft As Integer
Private mPosTop As Integer
Private mPosRight As Integer
Private mPosBottom As Integer
Private mPickListID As String
Private mBlock As String
Private mQuery As String
Private mHidden 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 newvalue As String)
    mNodeID = newvalue
End Property

Public Property Get ColumnName() As String
    ColumnName = mColumnName
End Property

Public Property Let ColumnName(ByVal newvalue As String)
    mColumnName = newvalue
End Property

Public Property Get ColumnTitle() As String
    ColumnTitle = mColumnTitle
End Property

Public Property Let ColumnTitle(ByVal newvalue As String)
    mColumnTitle = newvalue
End Property

Public Property Get ColumnDescription() As String
    ColumnDescription = mColumnDescription
End Property

Public Property Let ColumnDescription(ByVal newvalue As String)
    mColumnDescription = newvalue
End Property

Public Property Get ColumnUnique() As String
    ColumnUnique = mColumnUnique
End Property

Public Property Let ColumnUnique(ByVal newvalue As String)
    mColumnUnique = newvalue
End Property

Public Property Get ColumnFormat() As String
    ColumnFormat = mColumnFormat
End Property

Public Property Let ColumnFormat(ByVal newvalue As String)
    mColumnFormat = newvalue
End Property

Public Property Get ColumnIndexed() As String
    ColumnIndexed = mColumnIndexed
End Property

Public Property Let ColumnIndexed(ByVal newvalue As String)
    mColumnIndexed = newvalue
End Property

Public Property Get PreviousColumn() As String
    PreviousColumn = mPreviousColumn
End Property

Public Property Let PreviousColumn(ByVal newvalue As String)
    mPreviousColumn = newvalue
End Property

Public Property Get NextColumn() As String
    NextColumn = mNextColumn
End Property

Public Property Let NextColumn(ByVal newvalue As String)
    mNextColumn = newvalue
End Property

Public Property Get PosLeft() As String
    PosLeft = mPosLeft
End Property

Public Property Let PosLeft(ByVal newvalue As String)
    mPosLeft = newvalue
End Property

Public Property Get PosTop() As String
    PosTop = mPosTop
End Property

Public Property Let PosTop(ByVal newvalue As String)
    mPosTop = newvalue
End Property

Public Property Get PosRight() As String
    PosRight = mPosRight
End Property

Public Property Let PosRight(ByVal newvalue As String)
    mPosRight = newvalue
End Property

Public Property Get PosBottom() As String
    PosBottom = mPosBottom
End Property

Public Property Let PosBottom(ByVal newvalue As String)
    mPosBottom = newvalue
End Property

Public Property Get PickListID() As String
    PickListID = mPickListID
End Property

Public Property Let PickListID(ByVal newvalue As String)
    mPickListID = newvalue
End Property

Public Property Get Block() As String
    Block = mBlock
End Property

Public Property Let Block(ByVal newvalue As String)
    mBlock = newvalue
End Property

Public Property Get Query() As String
    Query = mQuery
End Property

Public Property Let Query(ByVal newvalue As String)
    mQuery = newvalue
End Property

Public Property Get Hidden() As String
    Hidden = mHidden
End Property

Public Property Let Hidden(ByVal newvalue As String)
    mHidden = newvalue
End Property

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

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

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

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

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

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