cchapters.vb

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

Public Class CChapters
    Public ChapterID As Integer      '章节编号 
    Public ChapterName As String     '章节名称 长度20
    Public SubjectID As Integer      '课程编号

    Public Sub Initials()
        ChapterID = 0
        ChapterName = ""
        SubjectID = 0
    End Sub
    Public Sub Equal(ByVal tmpchp As CChapters)
        ChapterID = tmpchp.ChapterID
        ChapterName = tmpchp.ChapterName
        SubjectID = tmpchp.SubjectID
    End Sub
    Public Sub GetInfoByID(ByVal tmpid As Integer)
        Dim sqlstr As String
        sqlstr = "select * from Chapters where ChapterID=" & tmpid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
            ChapterName = dbset.Tables(0).Rows(0).Item("ChapterName")
            SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
        Else
            Initials()
        End If

    End Sub
    Public Sub GetInfo(ByVal tmpname As String, ByVal tmpsubid As Integer)
        Dim sqlstr As String
        sqlstr = "select * from Chapters where ChapterName='" & Trim(tmpname) _
                & "' and SubjectID=" & Str(tmpsubid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
            ChapterName = dbset.Tables(0).Rows(0).Item("ChapterName")
            SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
        Else
            Initials()
        End If

    End Sub
    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "insert into Chapters(ChapterID,ChapterName,SubjectID)" _
                & "values(" & Str(ChapterID) & ",'" _
                  & ChapterName & "'," & SubjectID & ")"
        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 tmpsubid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Chapters where ChapterName='" & tmpname & "' and SubjectID=" & Str(tmpsubid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
            ChapterName = dbset.Tables(0).Rows(0).Item("ChapterName")
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
            Return True
        Else
            Return False
        End If
    End Function
    Public Function LoadNodesBySubject(ByVal tmptv As TreeView, ByVal tmpsubid As Integer)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Chapters where SubjectID= " & Str(tmpsubid)
        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("ChapterName"))
                tnode.ImageIndex = 1
                tnode.SelectedImageIndex = 1
            Next
        End If
    End Function

    Public Function Delete() As Boolean
        Dim sqlstr As String
        sqlstr = "delete from Chapters where ChapterID=" & Str(ChapterID)
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function

    Public Function DeleteChpBySub(ByVal tmpsubid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete  from Chapters where ChapterID=" & Str(tmpsubid)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetChapterBySub(ByVal tmpsubid As Integer) As DataSet
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Chapters where SubjectID=" & Str(tmpsubid)
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        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 Chapters order by ChapterID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("ChapterID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function HaveKnowChild(ByVal tmpchpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Knowlegs where ChapterID= " & Str(tmpchpid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function HaveObjectChild(ByVal tmpchpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from ObjectDetails where ChapterID=" & Str(tmpchpid)
        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 Chapters set ChapterName='" & ChapterName & "'" _
                  & " where ChapterID=" & ChapterID & " and SubjectID=" & SubjectID
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
End Class