cknowlegs.vb

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

Public Class CKnowlegs
    Public KnowlegID As Integer      '知识点编号 
    Public KnowlegName As String     '知识点名称 长度为50 在版本V1.0中默然为全部
    Public ChapterID As Integer      '章节编号

    Public Sub Initials()
        KnowlegID = 0
        KnowlegName = ""
        ChapterID = 0
    End Sub

    Public Sub Equal(ByVal tmpknow As CKnowlegs)
        KnowlegID = tmpknow.KnowlegID
        KnowlegName = tmpknow.KnowlegName
        ChapterID = tmpknow.ChapterID
    End Sub

    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "insert into Knowlegs(KnowlegID,KnowlegName,ChapterID)" _
                & "values(" & Str(KnowlegID) & ",'" _
                  & KnowlegName & "'," & ChapterID & ")"
        If UpdateDataBase(sqlstr) Then
            MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function IsInDB(ByVal tmpname As String, ByVal tmpchpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Knowlegs where KnowlegName='" & tmpname & "' and " _
                & "ChapterID=" & tmpchpid
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            KnowlegID = dbset.Tables(0).Rows(0).Item("KnowlegID")
            KnowlegName = dbset.Tables(0).Rows(0).Item("KnowlegName")
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetKnowleg(ByVal tmpchpid As Integer) As DataSet
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Knowlegs where ChapterID=" & Str(tmpchpid)
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function DeleteKnow() As Boolean
        Dim sqlstr As String
        sqlstr = "delete from Knowlegs where KnowlegID=" & Str(KnowlegID)
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function DeleteByChpID(ByVal tmpchpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from Knowlegs where ChapterId=" & Str(tmpchpid)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Sub GetInfo(ByVal tmpname As String, ByVal tmpchpid As Integer)
        Dim sqlstr As String
        sqlstr = "select * from Knowlegs where KnowlegName='" & tmpname & "' and ChapterID=" & Str(tmpchpid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            KnowlegID = dbset.Tables(0).Rows(0).Item("KnowlegID")
            KnowlegName = dbset.Tables(0).Rows(0).Item("KnowlegName")
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
        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 Knowlegs order by KnowlegID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("KnowlegID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function LoadItemsByChp(ByVal tmpclb As CheckedListBox, ByVal tmpchpid As Integer)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Knowlegs where ChapterID= " & Str(tmpchpid)
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Dim drow As DataRow
            tmpclb.Items.Clear()
            For Each drow In dbset.Tables(0).Rows
                tmpclb.Items.Add(drow.Item("KnowlegName"), False)
            Next
        End If
    End Function
    Public Function LoadNodesByChp(ByVal tmptv As TreeView, ByVal tmpchpid As Integer)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Knowlegs where ChapterID= " & Str(tmpchpid)
        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
                tnode = tmptv.Nodes.Add(drow.Item("KnowlegName"))
                tnode.ImageIndex = 2
                tnode.SelectedImageIndex = 2
            Next
        End If
    End Function
    Public Function HaveChild(ByVal tmpknowid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from ObjectKnowDetails where KnowlegID=" & Str(tmpknowid)
        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 Knowlegs set KnowlegName='" & KnowlegName & "'" _
                  & " where ChapterID=" & ChapterID & " and KnowlegID=" & KnowlegID
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class