classes/clsUser.vb

（完整代码） 1KB 

''' <summary>
''' 用户类，对应库中表S_User
''' </summary>
Public Class ClsUser
    '表名 S_User 的类
    'UserId,UserName,UserPassword

    Private mUserId As Integer
    Private mUserName As String
    Private mUserPassword As String
    Private mUserIfAdmin As Boolean


    Public Property UserId As Integer
        Get
            Return mUserId
        End Get
        Set(value As Integer)
            mUserId = value
        End Set
    End Property

    Public Property UserName As String
        Get
            Return mUserName
        End Get
        Set(value As String)
            mUserName = value
        End Set
    End Property

    Public Property UserPassword As String
        Get
            Return mUserPassword
        End Get
        Set(value As String)
            mUserPassword = value
        End Set
    End Property

    Public Property UserIfAdmin As Boolean
        Get
            Return mUserIfAdmin
        End Get
        Set(value As Boolean)
            mUserIfAdmin = value
        End Set
    End Property
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。