cobjectknowdetails.vb

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

Public Class CObjectKnowDetails
    Public KnowlegID As Integer  '知识点编号
    Public ObjectID As Integer  '试题编号

    Public Sub Initials()
        KnowlegID = 0
        ObjectID = 0
    End Sub
    Public Function InsertDB()
        Dim sqlstr As String
        sqlstr = "insert into ObjectKnowDetails(KnowlegID,ObjectID)" _
                & "values(" & Str(KnowlegID) & "," & ObjectID & ")"
        If UpdateDataBase(sqlstr) Then
            'MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function DeleteByKnow(ByVal tmpknowid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from ObjectKnowDetails where KnowlegID=" & Str(tmpknowid)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetByObj(ByVal tmpobjid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select ObjectKnowDetails.KnowlegID,Knowlegs.KnowlegName from ObjectKnowDetails,Knowlegs where ObjectKnowDetails.KnowlegID=Knowlegs.KnowlegID and ObjectID=" & Str(tmpobjid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function DeleteByObj(ByVal tmpobjid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from ObjectKnowDetails where ObjectID=" & Str(tmpobjid)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class