csubjects.vb

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

Public Class CSubjects
    Public SubjectID As Integer '课程编号
    Public SubjectName As String '课程名称

    Public Sub Initials()  '初始化课程
        SubjectID = 0
        SubjectName = ""
    End Sub
    Public Function HaveKnowleg(ByVal tmpid As Integer) As Boolean '课程是否存在知识点
        Dim sqlstr As String
        sqlstr = "select * from Knowlegs where ChapterID in ( select * from Chapters where SubjectID=" & Str(SubjectID) & ")"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Function HaveChapter(ByVal tmpid As Integer) As Boolean '课程是否存在章节
        Dim sqlstr As String
        sqlstr = "select * from Chapters where SubjectID=" & Str(SubjectID)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Sub GetInfo(ByVal tmpname As String) '获取课程信息
        Dim sqlstr As String
        sqlstr = "select * from Subjects where SubjectName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
            SubjectName = dbset.Tables(0).Rows(0).Item("SubjectName")
        Else
            Initials()
        End If
    End Sub

    Public Function IsInDB(ByVal tmpname As String) As Boolean  '查询课程名称是否存在
        Dim sqlstr As String
        sqlstr = "select * from Subjects where SubjectName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            SubjectID = dbset.Tables(0).Rows(0).Item("SubjectID")
            SubjectName = dbset.Tables(0).Rows(0).Item("SubjectName")
            Return True
        Else
            Return False
        End If
    End Function
    Public Function Modify() As Boolean  '修改课程名称
        Dim sqlstr As String
        sqlstr = "update Subjects set SubjectName='" _
                & SubjectName & "' where SubjectID = " & Str(SubjectID)
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("成功更新", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Return False
        End If
    End Function

    Public Function Delete() As Boolean  '删除课程
        Dim sqlstr As String
        sqlstr = "delete from Subjects where SubjectID=" & Str(SubjectID)
        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 Subjects(SubjectID,SubjectName) values(" & Str(SubjectID) & ",'" _
         & SubjectName & "')"
        If UpdateDataBase(sqlstr) Then
            MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function LoadSubDetail(ByVal tmpcomb As ComboBox)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Subjects "
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Dim drow As DataRow
            tmpcomb.Items.Clear()
            For Each drow In dbset.Tables(0).Rows
                tmpcomb.Items.Add(drow.Item("SubjectName"))
            Next
        End If
    End Function
    Public Function LoadSubjects(ByVal tmptv As TreeView)
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select * from Subjects "
        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("SubjectName"))
                tnode.ImageIndex = 0
                tnode.SelectedImageIndex = 0
            Next
        End If
    End Function

    Public Sub Equal(ByVal tmpsubj As CSubjects)
        SubjectID = tmpsubj.SubjectID
        SubjectName = tmpsubj.SubjectName
    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 Subjects order by SubjectID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("SubjectID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function


End Class