clienttypedatamodel.vb

来自「<Visual Basic 数据库开发实例精粹（第二版）>一书首先介」· VB 代码 · 共 46 行

Public Class ClientTypeDataModel

#Region "成员变量定义"
  Friend mvarTypeName As String '类型名称
  Friend mvarID As Integer '类型Id
  Friend mvarSuperID As Integer '上级Id
#End Region

  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '以下为客户类型的属性

  '上级客户类型ID
  Public Property SuperID() As Integer
    Get
      SuperID = mvarSuperID
    End Get
    Set(ByVal Value As Integer)
      mvarSuperID = Value
    End Set
  End Property

  '本客户类型的ID
  Public Property ID() As Integer
    Get
      ID = mvarID
    End Get
    Set(ByVal Value As Integer)
      mvarID = Value
    End Set
  End Property

  '本客户类型的名称
  Public Property TypeName() As String
    Get
      TypeName = mvarTypeName
    End Get
    Set(ByVal Value As String)
      Value = Trim(Value) '去除两边的空格

      '控制名称的长度不可大于50
      If Len(Value) > 50 Then Value = Left(Value, 50)
      mvarTypeName = Value
    End Set
  End Property
End Class