ctestcontexts.vb

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

Public Class CTestContexts
    Public TestConID As Integer
    Public TestID As Integer
    Public TestContext As String
    Public Sub Initials()
        TestConID = 0
        TestID = 0
        TestContext = ""
    End Sub
    Public Function GetTestContext(ByVal tmptestid As Integer) As String
        Dim sqlstr As String
        Dim tmpstr As String
        Dim dbset As DataSet
        sqlstr = "select * from TestContexts where TestID=" & tmptestid.ToString
        dbset = GetDataFromDB(sqlstr)
        tmpstr = ""
        If Not dbset Is Nothing Then
            Dim drow As DataRow
            For Each drow In dbset.Tables(0).Rows
                If drow.Item("TestContext").ToString <> "" Then
                    tmpstr = tmpstr & drow.Item("TestContext")
                Else
                    tmpstr = tmpstr & ""
                End If
            Next
            Return tmpstr
        Else
            Return ""
        End If
    End Function
    Public Function IsInDB(ByVal tmptestid As Integer) As Boolean
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from TestContexts where TestID=" & tmptestid.ToString
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function SaveTestResult(ByVal tmptestid As Integer, ByVal tmptestres As String) As Boolean
        If IsInDB(tmptestid) Then
            DeleteByTestID(tmptestid)
        End If
        Dim StrLenG As Integer
        Dim StrItemLenG As Integer
        StrLenG = Len(tmptestres)
        StrItemLenG = Int(StrLenG / 10)
        Dim tmpstr As String
        Dim tmpcon As String
        Dim i As Integer
        tmpcon = ""
        tmpstr = tmptestres
        Do While Len(tmpstr) > 0
            tmpcon = Microsoft.VisualBasic.Left(tmpstr, StrItemLenG)
            If Len(tmpstr) - StrItemLenG > 0 Then
                tmpstr = Microsoft.VisualBasic.Right(tmpstr, Len(tmpstr) - StrItemLenG)
            Else
                tmpstr = ""
            End If
            Dim tmptestresid As Integer
            tmptestresid = GetNewID()
            If Not InsertDB(tmptestresid, tmptestid, tmpcon) Then
                Return False
            End If
        Loop
        Return True
    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 TestContexts order by TestConID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("TestConID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function DeleteByTestID(ByVal tmptestid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from TestContexts where TestID=" & tmptestid.ToString
        If UpdateDataBase(sqlstr) = True Then
            'MsgBox("成功删除", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function InsertDB(ByVal TTestResID As Integer, ByVal TTestID As Integer, ByVal TTestResult As String) As Boolean
        Dim sqlstr As String
        sqlstr = "insert into TestContexts(TestConID,TestID,TestContext) values(" _
               & TTestResID.ToString & "," & TTestID.ToString & ",'" & TTestResult & "')"
        If UpdateDataBase(sqlstr) = True Then
            ' MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Return False
        End If
    End Function
End Class