cusers.vb

这个是本人写的题库系统,开发工具是vb.net.试题编辑,试卷编辑,可以在word中编辑试题.由于时间关系,很多功能需要细化.

Public Class CUsers
    Public UserID As Integer '用户编号 NotNULL
    Public UserName As String '用户名称 长度为20 NotNULL
    Public UserType As String '用户类型 值域(操作员，系统管理员)
    Public UserPassWord As String '用户密码长度为20 
    Public Sub Initials()
        UserID = 0
        UserName = ""
        UserType = "操作员"
        UserPassWord = ""
    End Sub
    Public Sub Equal(ByVal tmpuser As CUsers)
        UserID = tmpuser.UserID
        UserName = tmpuser.UserName
        UserType = tmpuser.UserType
        UserPassWord = tmpuser.UserPassWord
    End Sub
    Public Function LoadUserByAdm() As DataSet
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from VUsers order by 编号"
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetMyRow(ByVal tmpdataset As DataSet) As DataRow
        Dim myrow As DataRow
        myrow = tmpdataset.Tables(0).Rows(0)
        myrow.Item("编号") = UserID
        myrow.Item("用户名称") = UserName
        myrow.Item("用户类型") = UserType
        myrow.Item("密码") = UserPassWord
        Return myrow
    End Function
    Public Function CheckUser(ByVal tmpname As String, ByVal tmptype As String, ByVal tmppwd As String) As Boolean
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from VUsers where 用户名称='" & tmpname _
                  & "'and 用户类型='" & tmptype & "' and 密码='" & tmppwd & "'"
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            UserID = dbset.Tables(0).Rows(0).Item("编号")
            UserName = dbset.Tables(0).Rows(0).Item("用户名称")
            UserType = dbset.Tables(0).Rows(0).Item("用户类型")
            UserPassWord = dbset.Tables(0).Rows(0).Item("密码")
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function GetInfoByName(ByVal tmpname As String) As DataSet
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from VUsers where 用户名称='" & tmpname & "'"
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            UserID = dbset.Tables(0).Rows(0).Item("编号")
            UserName = dbset.Tables(0).Rows(0).Item("用户名称")
            UserType = dbset.Tables(0).Rows(0).Item("用户类型")
            UserPassWord = dbset.Tables(0).Rows(0).Item("密码")
            Return dbset
        Else
            Initials()
            Return Nothing
        End If
    End Function
    Public Function Modify() As Boolean '修改用户
        Dim sqlstr As String
        sqlstr = "update Users set UserName='" & UserName & "',UserType='" & UserType _
                  & "',UserPassWord='" & UserPassWord & "' where UserID=" & Str(UserID)
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功更新用户", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Return False
        End If
    End Function
    Public Function Delete() As Boolean
        Dim sqlstr As String
        sqlstr = "delete from Users where UserID=" & Str(UserID)
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功删除用户", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "insert into Users(UserID,UserName,UserType,UserPassWord) values(" _
               & Str(UserID) & ",'" & UserName & "','" & UserType & "','" & UserPassWord & "')"
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功添加用户", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Return False
        End If
    End Function
    Public Function IsInDB(ByVal tmpname As String) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Users where UserName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function GetNewID() As Integer
        Dim i As Integer
        i = 1
        Dim sqlstr As String
        Dim dset As DataSet
        Dim drow As DataRow
        sqlstr = "select * from Users  order by UserID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("UserID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
End Class