emindsearchcondition.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 = "eMindSearchCondition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mNodeID As String
Private mLogicalOperator As String
Private mColumnName As String
Private mColumnTitle As String
Private mColumnType As String
Private mColumnLength As Integer
Private mArithmeticOperator As String
Private mSearchContent As String

Private Sub Class_Initialize()
mNodeID = ""
mLogicalOperator = ""
mColumnName = ""
mColumnTitle = ""
mColumnType = ""
mColumnLength = 0
mArithmeticOperator = ""
mSearchContent = ""
End Sub

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 LogicalOperator() As String
    LogicalOperator = mLogicalOperator
End Property

Public Property Let LogicalOperator(ByVal newvalue As String)
    mLogicalOperator = 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 ColumnType() As String
    ColumnType = mColumnType
End Property

Public Property Let ColumnType(ByVal newvalue As String)
    mColumnType = newvalue
End Property

Public Property Get ColumnLength() As Integer
    ColumnLength = mColumnLength
End Property

Public Property Let ColumnLength(ByVal newvalue As Integer)
    mColumnLength = newvalue
End Property

Public Property Get ArithmeticOperator() As String
    ArithmeticOperator = mArithmeticOperator
End Property

Public Property Let ArithmeticOperator(ByVal newvalue As String)
    mArithmeticOperator = newvalue
End Property

Public Property Get SearchContent() As String
    SearchContent = mSearchContent
End Property

Public Property Let SearchContent(ByVal newvalue As String)
    mSearchContent = newvalue
End Property