user.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class User
#Region "属性定义"

    Dim UserIDValue, UserNameValue, PasswordValue As String
    Dim EmailValue, TelephoneValue, RoleValue As String
    Public Property UserID() As String '用户帐号
        Get
            Return UserIDValue
        End Get
        Set(ByVal value As String)
            UserIDValue = value
        End Set
    End Property
    Public Property UserName() As String '用户姓名
        Get
            Return UserNameValue
        End Get
        Set(ByVal value As String)
            UserNameValue = value
        End Set
    End Property
    Public Property Password() As String '密码
        Get
            Return PasswordValue
        End Get
        Set(ByVal value As String)
            PasswordValue = value
        End Set
    End Property
    Public Property Email() As String '电子邮箱
        Get
            Return EmailValue
        End Get
        Set(ByVal value As String)
            EmailValue = value
        End Set
    End Property
    Public Property Telephone() As String '电话
        Get
            Return TelephoneValue
        End Get
        Set(ByVal value As String)
            TelephoneValue = value
        End Set
    End Property
    Public Property Role() As String '用户身份
        Get
            Return RoleValue
        End Get
        Set(ByVal value As String)
            RoleValue = value
        End Set
    End Property

#End Region
    Protected cn As SqlConnection = New SqlConnection("server=localhost\sqlexpress;integrated security=sspi;database=GDMS")
    Protected cmd As New SqlCommand
    Protected cmdText As String
    Protected dr As SqlDataReader
#Region "方法定义"

    '默认方式构造函数
    Public Sub New()

    End Sub

    '根据用户帐号构造函数
    Public Sub New(ByVal UserID As String)
        cn.Open()

        cmd.Connection = cn
        cmdText = "select * from users where (UserID='" + UserID + "')"
        cmd.CommandText = cmdText

        dr = cmd.ExecuteReader()
        If dr.Read() Then
            UserID = dr("UserID")
            UserName = dr("UserName")
            Password = dr("Password")
            Role = dr("Role")
            Email = dr("Email")
            Telephone = dr("Telephone")
        End If

        cn.Close()
    End Sub

    '登入
    Public Function Login(ByVal UserID As String, ByVal Password As String) As Boolean
        cn.Open()

        cmd.Connection = cn
        cmdText = "select * from users where (UserID='" + UserID + "') and (Password='" + Password + "')"
        cmd.CommandText = cmdText

        dr = cmd.ExecuteReader()
        Try
            If dr.Read() Then
                UserID = dr("UserID")
                UserName = dr("UserName")
                Password = dr("Password")
                Role = dr("Role")
                Email = dr("Email")
                Telephone = dr("Telephone")
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Return False
        Finally
            cn.Close()
        End Try
    End Function

    '修改密码
    Public Function ChangePassword(ByVal UserID As String, ByVal CurrentPassword As String, ByVal NewPassword As String) As Boolean
        cn.Open()

        cmd.Connection = cn
        cmdText = "update users set Password='" + NewPassword + "' where (UserID='" + UserID + "') and (Password='" + CurrentPassword + "')"
        cmd.CommandText = cmdText
        Try
            If cmd.ExecuteNonQuery() = 1 Then
                ChangePassword = True
            Else
                ChangePassword = False
            End If
        Catch ex As Exception
            ChangePassword = False
        Finally
            cn.Close()
        End Try
    End Function
    Dim db As New DBObject
    '添加用户
    Protected Function AddUser() As Integer

        db.cmdText = "insert into users(UserID,UserName,Password,Email,Role,Telephone)" _
        + "values('" + UserID + "','" + UserName + "','" + Password + "','" + Email + "','" + Role + "','" + Telephone + "')"
        AddUser = db.SQL()

    End Function
    '删除用户
    Protected Sub DeleteUser()

        db.cmdText = "delete from users where UserID='" + UserID + "'"
        db.SQL()
    End Sub
    Public Function UserExists(ByVal userID As String) As Integer
        cn.Open()
        cmd.Connection = cn
        cmdText = "select userid from Users where userid='" + userID + "'"
        cmd.CommandText = cmdText
        dr = cmd.ExecuteReader()
        If Not dr.Read() Then '未注册
            UserExists = 0
        Else '用户已经注册
            UserExists = 1
        End If
        cn.Close()
    End Function
#End Region
End Class