warningdatamodel.vb

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

Public Class WarningDataModel

#Region "成员变量定义"
  Private mvarID As Integer '提醒信息ID
  Private mvarTypeId As Integer '提醒类型ID
  Private mvarTypeName As String '提醒类型名称
  Private mvarClientId As Integer '提醒客户ID
  Private mvarClientName As String '提醒客户名称
  Private mvarMsg As String '提醒显示消息
  Private mvarShowDate As Date '提醒显示时间

#End Region

  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '以下为部门的属性

  '提醒的ID
  Public Property ID() As Integer
    Get
      ID = mvarID
    End Get
    Set(ByVal Value As Integer)
      mvarID = Value
    End Set
  End Property

  '提醒类型的ID
    Public Property TypeID() As dmWarnType
        Get
            TypeID = mvarTypeId
        End Get
        Set(ByVal Value As dmWarnType)
            mvarTypeId = Value
        End Set
    End Property

    '提醒类型的名称
    Public Property TypeName() As String
        Get
            TypeName = mvarTypeName
        End Get
        Set(ByVal Value As String)
            mvarTypeName = Value
        End Set
    End Property

    '提醒客户ID
    Public Property ClientID() As Integer
        Get
            ClientID = mvarClientId
        End Get
        Set(ByVal Value As Integer)
            mvarClientId = Value
    End Set
  End Property

    '提醒客户的名称
  Public Property ClientName() As String
    Get
      ClientName = mvarClientName
    End Get
    Set(ByVal Value As String)
      mvarClientName = Value
    End Set
  End Property

  '提醒内容
  Public Property Msg() As String
    Get
      Msg = mvarMsg
    End Get
    Set(ByVal Value As String)
      mvarMsg = Value
    End Set
  End Property

  '提醒显示日期
  Public Property ShowDate() As Date
    Get
      ShowDate = mvarShowDate
    End Get
    Set(ByVal Value As Date)
      mvarShowDate = Value
    End Set
  End Property

End Class