personps.vb

聊天工具,一个可以在任何系统下运作的聊天工具

Public Class Personps
    Inherits Person
    Private _UseId As String
    Private _Pass As String
    Private _Name As String         '姓名
    Private _NickName As String     '昵称
    Private _Sex As String          '性别
    Private _Birthday As Date       '生日
    Private _Email As String        '电子邮件
    Private _UseLevel As String     '使用等级
    Public Sub New(ByVal UseId As String, ByVal Pass As String, ByVal Name As String, ByVal NickName As String, ByVal sex As String, ByVal brithday As Date, ByVal email As String)
        _UseId = UseId
        _Pass = Pass
        _Name = Name
        _NickName = NickName
        _Sex = sex
        _Birthday = brithday
        _Email = email
    End Sub
    Public ReadOnly Property UseId() As String


        Get
            Return _UseId
        End Get


    End Property
    Public ReadOnly Property Pass() As String


        Get
            Return _Pass
        End Get


    End Property

    Public ReadOnly Property Name() As String


        Get
            Return _Name
        End Get


    End Property

    Public ReadOnly Property NickName() As String


        Get
            Return _NickName
        End Get


    End Property

    Public Property Birthday() As Date

        Get
            Return _Birthday
        End Get

        Set(ByVal value As Date)
            If value.Year > 1900 Then
                _Birthday = value
            Else
                _Birthday = New Date()
                'Console.WriteLine("wrong")

            End If
        End Set
    End Property

    Public Property Sex() As String
        Get
            Return _Sex
        End Get
        Set(ByVal value As String)
            If (value = "man") Or (value = "woman") Then
                _Sex = value
            Else
                _Sex = ""

            End If
        End Set
    End Property
    Public ReadOnly Property Email() As String
        Get
            Return _Email
        End Get
    End Property
End Class