cooperatedatamodel.vb

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

Public Class CooperateDataModel

#Region "成员变量定义"
  Friend mvarID As Integer '合作信息ID
  Friend mvarClientId As Integer '客户ID
  Friend mvarClientName As String '客户名称
  Friend mvarRemark As String '合作信息
  Friend mvarCooperateDate As Date '合作日期
  Friend mvarSatisfaction As Short '合作满意度
#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 ClientID() As Integer
    Get
      ClientID = mvarClientId
    End Get
    Set(ByVal Value As Integer)
      mvarClientId = Value
      'SetClientName()
    End Set
  End Property

  '合作客户的名称，注意ClientName也是Cooperate表中的一个字段
  Public Property ClientName() As String
    Get
      ClientName = mvarClientName
    End Get
    Set(ByVal Value As String)
      mvarClientName = Value
    End Set
  End Property

  '合作内容
  Public Property Remark() As String
    Get
      Remark = mvarRemark
    End Get
    Set(ByVal Value As String)
      mvarRemark = Value
    End Set
  End Property

  '合作显示日期
  Public Property CooperateDate() As Date
    Get
      CooperateDate = mvarCooperateDate
    End Get
    Set(ByVal Value As Date)
      mvarCooperateDate = Value
    End Set
  End Property

  '满意度
  Public Property Satisfaction() As Short
    Get
      Satisfaction = mvarSatisfaction
    End Get
    Set(ByVal Value As Short)
      mvarSatisfaction = Value
    End Set
  End Property
End Class