?'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發(fā)布日期：2007/07/23
'描    述：網(wǎng)吧計(jì)費(fèi)管理系統(tǒng)客戶端/服務(wù)器端
'網(wǎng)    站：http://www.Mndsoft.com/  (VB6源碼博客)
'網(wǎng)    站：http://www.VbDnet.com/   (VB.NET源碼博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Public Class ClsSuperUser
    Private _UserName As String
    Private _Password As String
    Private _ModUser As String
    Private _ModComputer As String
    Private _RealName As String
    Private _Memo As String

    Property UserName() As String
        Get
            Return _UserName
        End Get
        Set(ByVal value As String)
            _UserName = value
        End Set
    End Property
    Property Password() As String
        Get
            Return _Password
        End Get
        Set(ByVal value As String)
            _Password = value
        End Set
    End Property

    Property ModUser() As String
        Get
            Return _ModUser
        End Get
        Set(ByVal value As String)
            _ModUser = value
        End Set
    End Property

    Property ModComputer() As String
        Get
            Return _ModComputer
        End Get
        Set(ByVal value As String)
            _ModComputer = value
        End Set
    End Property

    Property RealName() As String
        Get
            Return _RealName

        End Get
        Set(ByVal value As String)
            _RealName = value
        End Set
    End Property

    Property Memo() As String
        Get
            Return _Memo
        End Get
        Set(ByVal value As String)
            _Memo = value
        End Set
    End Property
    Sub New(ByVal Name As String, ByVal PWD As String)
        _UserName = Name
        _Password = PWD
    End Sub

    Function LoginConfirm() As Boolean
        Dim SQLString As String
        SQLString = "SELECT * FROM tbSuperUser WHERE UserName='" & _UserName & "' AND Password='" & _Password & "'"
        'SQL查詢語句
        Dim UserTable As DataTable = ClsDBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count = 0 Then    '判斷用戶是否存在
            MsgBox("輸入用戶名或密碼有誤，請重試", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            '判斷用戶密碼是否正確 
            _RealName = UserTable.Rows(0)("RealName")
            _ModUser = UserTable.Rows(0)("ModUser")
            _ModComputer = UserTable.Rows(0)("ModComputer")
            _Memo = UserTable.Rows(0)("Memo")
            Return True
        End If
    End Function


    Function PasswordModify(ByVal NewPassword As String) As Boolean
        Dim SQLString As String
        SQLString = "UPDATE tbSuperUser SET [Password] ='" & NewPassword & "' WHERE UserName='" & _UserName & "'"
        ClsDBOperation.DBOperate(SQLString)
    End Function

    Sub DelUser(ByVal DeleteUserName As String)
        Dim SQLString As String
        SQLString = "DELETE FROM tbSuperUser WHERE UserName ='" & DeleteUserName & "'"
        ClsDBOperation.DBOperate(SQLString)
    End Sub

    Function AddUser(ByVal User As ClsSuperUser) As Boolean
        Dim SQLString As String
        SQLString = "SELECT * FROM tbSuperUser WHERE UserName='" & User.UserName & "' AND Password='" & User.Password & "'"
        Dim UserTable As DataTable = ClsDBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count >= 1 Then    '判斷用戶是否存在
            MsgBox("輸入用戶名已存在，請重試", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            SQLString = "INSERT INTO tbSuperUser VALUES('" & User.UserName & "','" & User.Password & "','" & User.RealName & "','" & User.ModUser & "','" & User.ModComputer & "','" & User.Memo & "')"
            ClsDBOperation.DBOperate(SQLString)
            Return True
        End If
    End Function

    Shared Function AttachCode() As String '隨機(jī)生成五位附加驗(yàn)證碼A~Z
        Dim TempCode As String = ""
        Dim randomvalue As Integer
        Dim I As Integer
        Randomize()
        For I = 1 To 5
            randomvalue = CInt(Int((90 - 65 + 1) * Rnd() + 65))
            TempCode = TempCode + Chr(randomvalue)
        Next
        Return TempCode
    End Function
End Class