ctesttypedetails.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 Function LoadTestsObjt(ByVal tmptv As TreeView, ByVal tmptestid As Integer)
        Dim sqlstr As String
        Dim dbset As DataSet
        Dim tmpobjtype As New CObjectTypes
        sqlstr = "select * from TestTypeDetails where TestID= " & tmptestid.ToString
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Dim drow As DataRow
            tmptv.Nodes.Clear()
            Dim tnode As TreeNode
            For Each drow In dbset.Tables(0).Rows
                tmpobjtype.GetinfoByID(drow.Item("ObjectTypeID"))
                If tmpobjtype.ObjectTypeID > 0 Then
                    tnode = tmptv.Nodes.Add(Trim(tmpobjtype.ObjectTypeName))
                    tnode.ImageIndex = 0
                    tnode.SelectedImageIndex = 1
                    Dim tmpdrow As DataRow
                    Dim tmpdbset As DataSet
                    Dim tmptestdt As New CTestDetails
                    tmpdbset = tmptestdt.GetTestDetas(tmptestid, tmpobjtype.ObjectTypeID)
                    Dim i As Integer = 0
                    If Not tmpdbset Is Nothing Then
                        For Each tmpdrow In tmpdbset.Tables(0).Rows
                            Dim objtn As TreeNode
                            i = i + 1
                            objtn = tnode.Nodes.Add(Trim(Str(i)) & "----" & Trim(tmpdrow("ObjectName")))
                            objtn.ImageIndex = 2
                            objtn.SelectedImageIndex = 3
                        Next
                    End If
                End If
            Next
        End If
    End Function

    Public Function GetTestType(ByVal tmptestid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from TestTypeDetails where TestID=" & tmptestid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function

    Public Function IsInDB(ByVal tmptestid As Integer, ByVal tmpobjtypeid As Integer) As Boolean
        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
            Return True
        Else
            Return False
        End If
    End Function
    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(0).Rows(0).Item("TestTypeDeTID")
            TestID = dbset.Tables(0).Rows(0).Item("TestID")
            ObjectTypeID = dbset.Tables(0).Rows(0).Item("ObjectTypeID")
            TestNum = dbset.Tables(0).Rows(0).Item("TestNum")
        Else
            Initials()
        End If
    End Sub
    Public Function GetMaxID(ByVal tmptestid As Integer, ByVal tmpobjtypeid As Integer) As Integer
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select TestNum from TestTypeDetails where TestID=" & Str(tmptestid) _
                 & " and ObjectTypeID=" & Str(tmpobjtypeid)
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables("TestTypeDetails").Rows(0).Item("TestNum")
        Else
            Return 0
        End If
    End Function
    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 DeleteByTestID(ByVal tmptestid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from TestTypeDetails 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 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 Sub Equal(ByVal tmptesttype As CTestTypeDetails)
        TestTypeDeTID = tmptesttype.TestTypeDeTID
        TestID = tmptesttype.TestID
        ObjectTypeID = tmptesttype.ObjectTypeID
        TestNum = tmptesttype.TestNum
    End Sub
    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