cobjectdetails.vb

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

Public Class CObjectDetails
    Public ObjectID As Integer      '试题编号
    Public ObjectName As String     '试题名称
    Public ObjectOpPePo As String   '更新用户
    Public ObjectOpTime As Date     '更新时间
    Public ObjectIdx As Integer     '难易系数
    Public ChapterID As Integer      '章节编号
    Public ObjectTypeID As Integer  '试题类型编号
    Public ObjectContext As String  '试题内容
    Public ObjectResult As String   '试题答案
    Public Function queryob(ByVal tmpstr As String) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from ObjectDetails as OBJ where OBJ.ObjectContext='" & MakeStr(tmpstr) & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return False
        Else
            Return True
        End If

    End Function
    Public Sub Initials()
        ObjectID = 0
        ObjectName = Str(1000)
        ObjectOpPePo = ""
        ObjectOpTime = Now()
        ObjectIdx = 2
        ChapterID = 0
        ObjectTypeID = 0
        ObjectContext = ""
        ObjectResult = ""
    End Sub
    Public Function Modify() As Boolean
        Dim sqlstr As String
        sqlstr = "update ObjectDetails set ObjectOpPePo='" _
                & ObjectOpPePo & "',ObjectOpTime='" & ObjectOpTime.ToString _
                & "',ObjectIdx=" & ObjectIdx & ",ChapterID=" & ChapterID _
                & ",ObjectTypeID=" & ObjectTypeID & ",ObjectContext='" _
                & ObjectContext & "',ObjectResult='" & ObjectResult _
                & "' where ObjectID = " & Str(ObjectID)
        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 ObjectDetails where ObjectID=" & Str(ObjectID)
        If UpdateDataBase(sqlstr) = True Then
            MsgBox("[ " & ObjectName & " ]成功删除", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub Equal(ByVal tmpobj As CObjectDetails)
        ObjectID = tmpobj.ObjectID
        ObjectName = tmpobj.ObjectName
        ObjectOpPePo = tmpobj.ObjectOpPePo
        ObjectOpTime = tmpobj.ObjectOpTime
        ObjectIdx = tmpobj.ObjectIdx
        ChapterID = tmpobj.ChapterID
        ObjectTypeID = tmpobj.ObjectTypeID
        ObjectContext = tmpobj.ObjectContext
        ObjectResult = tmpobj.ObjectResult
    End Sub
    Public Function DeleteObjByChp(ByVal tmpchpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "delete from ObjectDetails where ChapterID=" & Str(tmpchpid)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetObjDetailByChp(ByVal tmpchpid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from ObjectDetails where ChapterID=" & Str(tmpchpid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return Nothing
        Else
            Return dbset
        End If
    End Function
    Public Sub GetInfo(ByVal tmpname As String)
        Dim sqlstr As String
        sqlstr = "select * from ObjectDetails where ObjectName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ObjectID = dbset.Tables(0).Rows(0).Item("ObjectID")
            ObjectName = dbset.Tables(0).Rows(0).Item("ObjectName")
            ObjectOpPePo = dbset.Tables(0).Rows(0).Item("ObjectOpPePo")
            ObjectOpTime = dbset.Tables(0).Rows(0).Item("ObjectOpTime")
            ObjectIdx = dbset.Tables(0).Rows(0).Item("ObjectIdx")
            ChapterID = dbset.Tables(0).Rows(0).Item("ChapterID")
            ObjectTypeID = dbset.Tables(0).Rows(0).Item("ObjectTypeID")
            If dbset.Tables(0).Rows(0).Item("ObjectContext").ToString <> "" Then
                ObjectContext = dbset.Tables(0).Rows(0).Item("ObjectContext").ToString
            Else
                ObjectContext = ""
            End If
            If dbset.Tables(0).Rows(0).Item("ObjectResult").ToString <> "" Then
                ObjectResult = dbset.Tables(0).Rows(0).Item("ObjectResult").ToString
            Else
                ObjectResult = ""
            End If
        Else
            Initials()
        End If
    End Sub
    Public Function GetObjDetailsByAll(ByVal tmpsubjid As Integer, ByVal tmpobjtypeid As Integer, ByVal tmpidx As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select VOBJ.试题名称,Chp.ChapterName as 章节名称," _
                & "Objty.ObjectTypeName as 题型,VOBJ.更新用户,VOBJ.更新时间," _
                & "VOBJ.难易系数 from VObjectDetails as VOBJ,Chapters as chp," _
                & "ObjectTypes as Objty  where Chp.SubjectID=" _
                & Str(tmpsubjid) & " and VOBJ.ObjectTypeID=" & Str(tmpobjtypeid) _
                & " and VOBJ.难易系数=" & tmpidx.ToString & " and chp.ChapterID=VOBJ.ChapterID and VOBJ.ObjectTypeID=Objty.ObjectTypeID"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return Nothing
        Else
            Return dbset
        End If
    End Function
    Public Function GetObjDetailsBysSub(ByVal tmpsubjid As Integer, ByVal tmpobjtypeid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select VOBJ.试题名称,Chp.ChapterName as 章节名称," _
                & "Objty.ObjectTypeName as 题型,VOBJ.更新用户,VOBJ.更新时间," _
                & "VOBJ.难易系数 from VObjectDetails as VOBJ,Chapters as chp," _
                & "ObjectTypes as Objty  where Chp.SubjectID=" _
                & Str(tmpsubjid) & " and VOBJ.ObjectTypeID=" & Str(tmpobjtypeid) _
                & " and chp.ChapterID=VOBJ.ChapterID and VOBJ.ObjectTypeID=Objty.ObjectTypeID"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return Nothing
        Else
            Return dbset
        End If
    End Function
    Public Function QueryObj(ByVal tmpchpid As Integer, ByVal tmpobjtypeid As Integer, _
                             ByVal tmpresidx As Integer, ByVal tmpname As String, _
                             ByVal tmpoprater As String, ByVal tmpoptime As Date) As DataSet
        Dim sqlstr As String
        sqlstr = "select VOBJ.试题名称,Chp.ChapterName as 章节名称," _
                & "Objty.ObjectTypeName as 题型,VOBJ.更新用户,VOBJ.更新时间," _
                & "VOBJ.难易系数 from VObjectDetails as VOBJ,Chapters as chp," _
                & "ObjectTypes as Objty  where VOBJ.ChapterID=" _
                & Str(tmpchpid) & " and VOBJ.ObjectTypeID=" & Str(tmpobjtypeid) _
                & " and VOBJ.难易系数=" & tmpresidx.ToString & " and ( VOBJ.更新用户" _
                & " like '%" & tmpname & "%' or VOBJ.更新时间" & tmpoprater & "'" & tmpoptime _
                & "' )and chp.ChapterID=VOBJ.ChapterID and VOBJ.ObjectTypeID=Objty.ObjectTypeID order by VOBJ.试题名称"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return Nothing
        Else
            Return dbset
        End If
    End Function
    Public Function GetObjDetails(ByVal tmpchpid As Integer, ByVal tmpobjtypeid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select VOBJ.试题名称,Chp.ChapterName as 章节名称," _
                & "Objty.ObjectTypeName as 题型,VOBJ.更新用户,VOBJ.更新时间," _
                & "VOBJ.难易系数 from VObjectDetails as VOBJ,Chapters as chp," _
                & "ObjectTypes as Objty  where VOBJ.ChapterID=" _
                & Str(tmpchpid) & " and VOBJ.ObjectTypeID=" & Str(tmpobjtypeid) _
                & " and chp.ChapterID=VOBJ.ChapterID and VOBJ.ObjectTypeID=Objty.ObjectTypeID"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If dbset Is Nothing Then
            Return Nothing
        Else
            Return dbset
        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 ObjectDetails order by ObjectID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("ObjectID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function GetObjNewName() As String
        Dim sqlstr As String
        Dim maxname As String
        sqlstr = "select max(ObjectName) as NewName  from ObjectDetails"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Dim myname As String
            Dim i As Integer
            If dbset.Tables(0).Rows(0).Item("NewName").ToString = "" Then
                maxname = "1000"
            Else
                maxname = dbset.Tables(0).Rows(0).Item("NewName")
            End If
            i = Int(maxname)
            i = i + 1
            myname = Str(i)
            Return myname
        Else
            Return 1001
        End If
    End Function
    Public Function InsertDB() As Boolean '添加
        Dim sqlstr As String
        sqlstr = "insert into ObjectDetails(ObjectID,ObjectName,ObjectOpPePo," _
                & "ObjectOpTime,ObjectIdx,ChapterID,ObjectTypeID,ObjectContext," _
                & "ObjectResult) values(" & Str(ObjectID) & ",'" & ObjectName & "','" & ObjectOpPePo _
                & "','" & ObjectOpTime.ToString & "'," & Str(ObjectIdx) & "," & ChapterID & "," _
                & ObjectTypeID & ",'" & ObjectContext & "','" & ObjectResult & "')"
        If UpdateDataBase(sqlstr) Then
            MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
End Class