emailsettingdatamodel.vb

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

Public Class EmailSettingDataModel
  Private mvarMailSettingID As Integer  '邮件设置编号
  Private mvarMailServer As String      '邮件服务器，如smtp.163.com
  Private mvarUserName As String        '登录用户名
  Private mvarPassword As String        '密码
  Private mvarPort As String            '端口号，默认25，一般不用修改
  Private mvarFromName As String        '显示的发件人名字
  Private mvarFromEmail As String       '显示的发件人邮箱
  Private mvarTitle As String           '邮件标题

  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '以下为属性

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

  '提醒类型的ID
  Public Property MailServer() As String
    Get
      MailServer = mvarMailServer
    End Get
    Set(ByVal Value As String)
      mvarMailServer = Value
    End Set
  End Property

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

  '提醒客户ID
  Public Property Password() As String
    Get
      Password = mvarPassword
    End Get
    Set(ByVal Value As String)
      mvarPassword = Value
    End Set
  End Property

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

  '提醒显示日期
  Public Property FromName() As String
    Get
      FromName = mvarFromName
    End Get
    Set(ByVal Value As String)
      mvarFromName = Value
    End Set
  End Property

  '提醒显示日期
  Public Property FromEmail() As String
    Get
      FromEmail = mvarFromEmail
    End Get
    Set(ByVal Value As String)
      mvarFromEmail = Value
    End Set
  End Property

  '提醒显示日期
  Public Property Title() As String
    Get
      Title = mvarTitle
    End Get
    Set(ByVal Value As String)
      mvarTitle = Value
    End Set
  End Property
















































End Class