clientdatamodel.vb

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

Public Class ClientDataModel

#Region "成员变量定义"
  Friend mvarID As Integer            '客户编号
  Friend mvarName As String           '客户名称
  Friend mvarAge As Short             '客户年龄
  Friend mvarSex As dmSex             '性别
  Friend mvarTypeId As Integer        '客户类型Id
  Friend mvarTypeName As String       '客户类型名
  Friend mvarMobile As String         '手机
  Friend mvarEmail As String          'E-mail
  Friend mvarOfficePhone As String    '办公室电话
  Friend mvarHomePhone As String      '宅电
  Friend mvarFax As String            '传真
  Friend mvarHomeAddress As String    '家庭住址
  Friend mvarMailAddress As String    '通讯地址
  Friend mvarZipCode As String        '邮编
  Friend mvarBirthday As Date         '生日
  Friend mvarBirthdayWarn As Boolean  '是不启用生日提醒
  Friend mvarJob As String            '职业
  Friend mvarJobPosition As String    '职位
  Friend mvarCompany As String        '公司
  Friend mvarCompanySite As String    '公司网址
  Friend mvarSelfSite As String       '个人网址
  Friend mvarLikes As String          '喜好
  Friend mvarHates As String          '厌恶
  Friend mvarImportance As Short      '重要度
  Friend mvarFriendly As Short        '友好度
  Friend mvarSatisfaction As Short    '满意度
  Friend mvarRemark As String         '备注
#End Region

  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '以下为类的属性

  '客户编号
  Public Property ID() As Integer
    Get
      ID = mvarID
    End Get
    Set(ByVal Value As Integer)
      mvarID = Value
    End Set
  End Property

  '姓名
  Public Property Name() As String
    Get
      Return mvarName
    End Get
    Set(ByVal Value As String)
      Value = Trim(Value) '去除两边的空格
      '控制名称的长度不可大于10
      If Len(Value) > 10 Then Value = Left(Value, 10)
      mvarName = Value
    End Set
  End Property

  '类型名称，只读
  Public ReadOnly Property TypeName() As String
    Get
      TypeName = mvarTypeName
    End Get
  End Property

  '部门ID
  Public Property TypeID() As Integer
    Get
      TypeID = mvarTypeId
    End Get
    Set(ByVal Value As Integer)
      mvarTypeId = Value
    End Set
  End Property

  '性别
  Public Property Sex() As dmSex
    Get
      Sex = mvarSex
    End Get
    Set(ByVal Value As dmSex)
      mvarSex = Value
    End Set
  End Property

  '手机
  Public Property Mobile() As String
    Get
      Mobile = mvarMobile
    End Get
    Set(ByVal Value As String)
      mvarMobile = Value
    End Set
  End Property

  'Email
  Public Property Email() As String
    Get
      Email = mvarEmail
    End Get
    Set(ByVal Value As String)
      mvarEmail = Value
    End Set
  End Property

  '办公室电话
  Public Property OfficePhone() As String
    Get
      OfficePhone = mvarOfficePhone
    End Get
    Set(ByVal Value As String)
      mvarOfficePhone = Value
    End Set
  End Property

  '住宅电话
  Public Property HomePhone() As String
    Get
      HomePhone = mvarHomePhone
    End Get
    Set(ByVal Value As String)
      mvarHomePhone = Value
    End Set
  End Property

  '传真
  Public Property Fax() As String
    Get
      Fax = mvarFax
    End Get
    Set(ByVal Value As String)
      mvarFax = Value
    End Set
  End Property

  '住址
  Public Property HomeAddress() As String
    Get
      HomeAddress = mvarHomeAddress
    End Get
    Set(ByVal Value As String)
      mvarHomeAddress = Value
    End Set
  End Property

  '通讯地址
  Public Property MailAddress() As String
    Get
      MailAddress = mvarMailAddress
    End Get
    Set(ByVal Value As String)
      mvarMailAddress = Value
    End Set
  End Property

  '邮编
  Public Property ZipCode() As String
    Get
      ZipCode = mvarZipCode
    End Get
    Set(ByVal Value As String)
      mvarZipCode = Value
    End Set
  End Property

  '生日
  Public Property Birthday() As Date
    Get
      Birthday = mvarBirthday
    End Get
    Set(ByVal Value As Date)
      mvarBirthday = Value
    End Set
  End Property

  '年龄
  Public Property Age() As Short
    Get
      Age = mvarAge
    End Get
    Set(ByVal Value As Short)
      mvarAge = Value
    End Set
  End Property

  '启用生日提醒
  Public Property BirthdayWarn() As Boolean
    Get
      BirthdayWarn = mvarBirthdayWarn
    End Get
    Set(ByVal Value As Boolean)
      mvarBirthdayWarn = Value
    End Set
  End Property

  '职业
  Public Property Job() As String
    Get
      Job = mvarJob
    End Get
    Set(ByVal Value As String)
      mvarJob = Value
    End Set
  End Property

  '职位
  Public Property JobPosition() As String
    Get
      JobPosition = mvarJobPosition
    End Get
    Set(ByVal Value As String)
      mvarJobPosition = Value
    End Set
  End Property

  '就职单位
  Public Property Company() As String
    Get
      Company = mvarCompany
    End Get
    Set(ByVal Value As String)
      mvarCompany = Value
    End Set
  End Property

  '公司网站
  Public Property CompanySite() As String
    Get
      CompanySite = mvarCompanySite
    End Get
    Set(ByVal Value As String)
      mvarCompanySite = Value
    End Set
  End Property

  '个人网站
  Public Property SelfSite() As String
    Get
      SelfSite = mvarSelfSite
    End Get
    Set(ByVal Value As String)
      mvarSelfSite = Value
    End Set
  End Property

  '喜好
  Public Property Likes() As String
    Get
      Likes = mvarLikes
    End Get
    Set(ByVal Value As String)
      mvarLikes = Value
    End Set
  End Property

  '厌恶
  Public Property Hates() As String
    Get
      Hates = mvarHates
    End Get
    Set(ByVal Value As String)
      mvarHates = 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 Importance() As Short
    Get
      Importance = mvarImportance
    End Get
    Set(ByVal Value As Short)
      mvarImportance = Value
    End Set
  End Property

  '友好度
  Public Property Friendly() As Short
    Get
      Friendly = mvarFriendly
    End Get
    Set(ByVal Value As Short)
      mvarFriendly = 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