cvalueobject.cls

来自「Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonk」· CLS 代码 · 共 37 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CValueObject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private mValue As Variant
Private mName As Variant
Private mType As Integer

Public Property Let name(NewName As String)
    mName = NewName
End Property

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

Public Property Let value(NewVal As Variant)
    mValue = NewVal
End Property
Public Property Get value() As Variant
    value = mValue
End Property

Public Property Let dbType(newType As Integer)
    mType = newType
End Property
Public Property Get dbType() As Integer
    dbType = mType
End Property