classuser.vb

来自「师生情况管理系统」· VB 代码 · 共 44 行

'************************************************************
'Copyright(c) 2007 长沙南方职业学院 信息系 软件2-061班
'All rights reserved
'
'程序名称：学校基本信息管理系统
'
'作者(原)：易湘陵
'完成日期：2007-11-12
'作者(改)：
'修改日期：
'************************************************************
Public Class ClassUser
    Private NameStr As String
    Private RoleStr As String

    Public PassWord As String

    Public Sub New(ByVal Nstr As String, ByVal Rstr As String, ByVal Pstr As String)
        NameStr = Nstr
        RoleStr = Rstr
        PassWord = Pstr
    End Sub

    Public Property LoginUserName() As String
        Get
            Return NameStr
        End Get
        Set(ByVal Value As String)
            NameStr = Value
        End Set
    End Property

    Public Property LoginUserRole() As String
        Get
            Return RoleStr
        End Get
        Set(ByVal Value As String)
            RoleStr = Value
        End Set
    End Property


End Class