ctesttypedatails.vb

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

Public Class CTestTypeDetails
    Public TestTypeDeTID As Integer         '试卷题型编号
    Public TestID As Integer                '试卷编号
    Public ObjectTypeID As Integer          '试题类别编号
    Public TestNum As Integer               '试卷中该类型试题数目
    Public Sub Initials()
        TestTypeDeTID = 0
        TestID = 0
        ObjectTypeID = 0
        TestNum = 0
    End Sub
    Public Sub GetInfoByName(ByVal tmptestid As Integer, ByVal tmpobjtypeid As Integer)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from TestTypeDetails where TestID=" & Str(tmptestid) _
                 & ", and ObjectTypeID=" & Str(tmpobjtypeid)
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            TestTypeDeTID = dbset.Tables("TestTypeDetails").Rows(0).Item("TestTypeDeTID")
            TestID = dbset.Tables("TestTypeDetails").Rows(0).Item("TestID")
            ObjectTypeID = dbset.Tables("TestTypeDetails").Rows(0).Item("ObjectTypeID")
            TestNum = dbset.Tables("TestTypeDetails").Rows(0).Item("TestNum")
        Else
            Initials()
        End If
    End Sub
    Public Function Modify() As Boolean '修改用户
        Dim sqlstr As String
        sqlstr = "update TestTypeDetails set TestNum=" _
                   & Str(TestNum) & " where TestTypeDeTID = " & Str(TestTypeDeTID)
        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 TestTypeDetails where TestTypeDeTID=" & Str(TestTypeDeTID)
        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 TestTypeDetails(TestTypeDeTID,TestID,ObjectTypeID,TestNum) values(" _
               & Str(TestTypeDeTID) & "," & TestID & "," & ObjectTypeID & "," & TestNum & ")"
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            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 TestTypeDetails  order by TestTypeDeTID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("TestTypeDeTID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
End Class