ctestdetails.vb

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

Public Class CTestDetails
    Public TestContextID As Integer '试卷内容编号
    Public ObjectID As Integer  '试题编号
    Public TestID As Integer  '试卷编号
    Public ObjectScore As Single  '试题分数
    Public Sub Initials()
        TestContextID = 0
        ObjectID = 0
        TestID = 0
        ObjectScore = 0
    End Sub
    Public Sub Equal(ByVal tmptestdeta As CTestDetails)
        TestContextID = tmptestdeta.TestContextID
        ObjectID = tmptestdeta.ObjectID
        TestID = tmptestdeta.TestID
        ObjectScore = tmptestdeta.ObjectScore
    End Sub
    Public Function GetTestDetas(ByVal tmptestid As Integer, ByVal tmpobjid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select TestDetails.*,ObjectDetails.ObjectName from TestDetails,ObjectDetails" _
                   & " where TestDetails.ObjectID=ObjectDetails.ObjectID" _
                   & " and TestDetails.TestID=" & tmptestid.ToString _
                   & " and ObjectDetails.ObjectTypeID=" & tmpobjid.ToString & " order by ObjectDetails.ObjectName"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
  
    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "insert into TestDetails(TestContextID,ObjectID,TestID,ObjectScore)" _
                 & " values(" & TestContextID.ToString & "," & ObjectID.ToString & "," _
                 & TestID.ToString & "," & ObjectScore.ToString & ")"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function DeleteByTestID(ByVal tmptestid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from TestDetails where TestID= " & tmptestid.ToString
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function Delete() As Boolean
        Dim sqlstr As String
        sqlstr = "delete from TestDetails where TestContextID= " & TestContextID.ToString
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function IsInDB(ByVal tmpobjid As Integer, ByVal tmptestid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from TestDetails where TestID=" & tmptestid.ToString _
                 & " and ObjectID=" & tmpobjid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function Modify() As Boolean
        Dim sqlstr As String
        sqlstr = "update TestDetails set ObjectScore=" & ObjectScore.ToString _
                & " where TestContextID= " & TestContextID.ToString
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub GetInfo(ByVal tmpobjid As Integer, ByVal tmptestid As Integer)
        Dim sqlstr As String
        sqlstr = "select * from TestDetails where TestID=" & tmptestid.ToString _
                 & " and ObjectID=" & tmpobjid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            TestContextID = dbset.Tables(0).Rows(0).Item("TestContextID")
            ObjectID = dbset.Tables(0).Rows(0).Item("ObjectID")
            TestID = dbset.Tables(0).Rows(0).Item("TestID")
            ObjectScore = dbset.Tables(0).Rows(0).Item("ObjectScore")
        Else
            Initials()
        End If
    End Sub
    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 TestDetails order by TestContextID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("TestContextID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
End Class