emindfield.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 = "eMindField"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mName As String
Private mFieldType As String
Private mLength As Long

Private Sub Class_Initialize()
    mFieldType = cdtChar
    mLength = MaxFieldLength
    mOriginalValue = ""
    mKeyField = False
End Sub

Public Property Get Name() As String
    Name = mName
End Property

Public Property Let Name(ByVal newvalue As String)
    mName = newvalue
End Property

Public Property Get FieldType() As String
    FieldType = mFieldType
End Property

Public Property Let FieldType(ByVal newvalue As String)
    mFieldType = newvalue
End Property

Public Property Get Length() As Long
    Length = mLength
End Property

Public Property Let Length(ByVal newvalue As Long)
    mLength = newvalue
End Property

Public Property Get KeyField() As Boolean
    KeyField = mKeyField
End Property

Public Property Let KeyField(ByVal newvalue As Boolean)
    mKeyField = newvalue
End Property