tbuser.vb

用VB开发了一个超市管理系统

Public Class tbuser
    Private _userno As String
    Private _username As String
    Private _userpassword As String
    Private _xiaoshouright As String
    Private _kucunright As String
    Private _shangpinright As String
    Private _xitongright As String
    Property userno() As String
        Get
            Return _userno
        End Get
        Set(ByVal value As String)
            _userno = value
        End Set
    End Property
    Property username() As String
        Get
            Return _username
        End Get
        Set(ByVal value As String)
            _username = value
        End Set
    End Property
    Property userpassword() As String
        Get
            Return _userpassword
        End Get
        Set(ByVal value As String)
            _userpassword = value
        End Set
    End Property
    Property xitongright() As String
        Get
            Return _xitongright
        End Get
        Set(ByVal value As String)
            _xitongright = value
        End Set
    End Property
    Property xiaoshouright() As String
        Get
            Return _xiaoshouright
        End Get
        Set(ByVal value As String)
            _xiaoshouright = value
        End Set
    End Property
    Property kucunright() As String
        Get
            Return _kucunright

        End Get
        Set(ByVal value As String)
            _kucunright = value
        End Set
    End Property
    Property shangpinright() As String
        Get
            Return _shangpinright
        End Get
        Set(ByVal value As String)
            _shangpinright = value
        End Set
    End Property

    Sub New(ByVal userno As String, ByVal PWD As String)
        _userno = userno
        _userpassword = PWD
    End Sub

    Function LoginConfirm() As Boolean
        Dim SQLString As String
        SQLString = "SELECT * FROM tbuser WHERE userno='" & _userno & "' AND userpassword='" & _userpassword & "'"
        'SQL查询语句
        Dim UserTable As DataTable = DBOperation.DBOperate(SQLString)
        If UserTable.Rows.Count = 0 Then    '判断用户是否存在
            MsgBox("输入用户号或密码有误，请重试", MsgBoxStyle.Exclamation, "信息框")
            Return False
        Else
            '判断用户密码是否正确 
            _xitongright = UserTable.Rows(0)("xitongright")
            _xiaoshouright = UserTable.Rows(0)("xiaoshouright")
            _kucunright = UserTable.Rows(0)("kucunright")
            _shangpinright = UserTable.Rows(0)("shangpinright")
            Return True
        End If
    End Function
    Shared Function AttachCode() As String '随机生成五位附加验证码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