ctests.vb

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

Public Class CTests
    Public TestID As Integer  '试卷编号
    Public TestTitle As String '试卷标题
    Public TestOpName As String '出卷人
    Public TestOpTime As Date  '出卷时间
    Public TestType As String   '试卷类别 如A卷，B卷等
    Public TestMoth As String  '考试方式 如闭卷考试，开卷考试等
    Public TestScore As Single  '试卷总分
    Public SubjectID As Integer
    '  Public TestContext As String
    ' Public TestResult As String
    Public Function Modify() As Boolean  '修改 
        Dim sqlstr As String
        sqlstr = "update Tests set TestTitle='" _
             & TestTitle & "',TestOpName='" & TestOpName _
              & "',TestOpTime='" & TestOpTime.ToString & "',TestType='" & TestType _
              & "',TestMoth='" & TestMoth & "',TestScore=" & TestScore.ToString _
              & " where TestID = " & TestID.ToString
        'sqlstr = "update Tests set TestResult='" & TestResult & "' where TestID = " & TestID.ToString
        ' Debug.Write(sqlstr)
        If UpdateDataBase(sqlstr) = True Then
            ' MsgBox("成功更新", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub Initials()
        TestID = 0
        TestTitle = ""
        TestOpName = ""
        TestOpTime = Now()
        TestType = "A卷"
        TestMoth = "闭卷"
        TestScore = 100
        'TestContext = ""
        'TestResult = ""
        SubjectID = 0
    End Sub

    Public Function GetTests(ByVal tmpsubid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from Tests where SubjectID= " & tmpsubid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Sub GetInfo(ByVal tmpid As Integer)
        Dim sqlstr As String
        sqlstr = "select * from Tests where TestID=" & tmpid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            TestID = dbset.Tables(0).Rows(0).Item("TestID")
            TestTitle = dbset.Tables(0).Rows(0).Item("TestTitle")
            TestOpName = dbset.Tables(0).Rows(0).Item("TestOpName")
            TestOpTime = dbset.Tables(0).Rows(0).Item("TestOpTime")
            TestType = dbset.Tables(0).Rows(0).Item("TestType")
            TestMoth = dbset.Tables(0).Rows(0).Item("TestMoth")
            TestScore = dbset.Tables(0).Rows(0).Item("TestScore")
            'If dbset.Tables(0).Rows(0).Item("TestContext").ToString <> "" Then
            'TestContext = dbset.Tables(0).Rows(0).Item("TestContext")
            'Else
            ' TestContext = ""
            'End If
            'If dbset.Tables(0).Rows(0).Item("TestResult").ToString <> "" Then
            'TestResult = dbset.Tables(0).Rows(0).Item("TestResult")
            'Else
            'TestResult = ""
            'End If
        SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
        Else
        Initials()
        End If
    End Sub
    Public Sub Equal(ByVal tmptest As CTests)
        TestID = tmptest.TestID
        TestTitle = tmptest.TestTitle
        TestOpName = tmptest.TestOpName
        TestOpTime = tmptest.TestOpTime
        TestType = tmptest.TestType
        TestMoth = tmptest.TestMoth
        TestScore = tmptest.TestScore
        'TestContext = tmptest.TestContext
        'TestResult = tmptest.TestResult
        SubjectID = tmptest.SubjectID
    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 Tests  order by TestID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("TestID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function Delete() As Boolean  '删除 
        Dim sqlstr As String
        sqlstr = "delete from Tests where TestID=" & Str(TestID)
        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 Tests(TestID,TestTitle,TestOpName,TestOpTime,TestType," _
                 & "TestMoth,TestScore,SubjectID) values(" & Str(TestID) & ",'" _
                 & TestTitle & "','" & TestOpName & "','" & TestOpTime & "','" _
                 & TestType & "','" & TestMoth & "'," & TestScore.ToString & "," & SubjectID.ToString & ")"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function

End Class