cobjecttypes.vb

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

Public Class CObjectTypes
    Public ObjectTypeID As Integer '试题类型编号
    Public ObjectTypeName As String '试题类型名称
    Public Sub Initials()
        ObjectTypeID = 0
        ObjectTypeName = ""
    End Sub
    Public Function Modify() As Boolean
        Dim sqlstr As String
        sqlstr = "update ObjectTypes set ObjectTypeName='" _
                & ObjectTypeName & "' where ObjectTypeID=" & Str(ObjectTypeID)
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Sub GetinfoByID(ByVal tmpID As Integer)
        Dim sqlstr As String
        sqlstr = "select * from ObjectTypes where ObjectTypeID=" & tmpID.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ObjectTypeID = dbset.Tables(0).Rows(0).Item("ObjectTypeID")
            ObjectTypeName = dbset.Tables(0).Rows(0).Item("ObjectTypeName")
        Else
            Initials()
        End If
    End Sub
    Public Sub GetInfo(ByVal tmpname As String) '获取 
        Dim sqlstr As String
        sqlstr = "select * from ObjectTypes where ObjectTypeName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ObjectTypeID = dbset.Tables(0).Rows(0).Item("ObjectTypeID")
            ObjectTypeName = dbset.Tables(0).Rows(0).Item("ObjectTypeName")
        Else
            Initials()
        End If
    End Sub

    Public Sub Equal(ByVal tmpobjtype As CObjectTypes)
        ObjectTypeID = tmpobjtype.ObjectTypeID
        ObjectTypeName = tmpobjtype.ObjectTypeName
    End Sub

    Public Function Delete() As Boolean  '删除课程
        Dim sqlstr As String
        sqlstr = "delete from ObjectTypes where ObjectTypeID=" & Str(ObjectTypeID)
        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 ObjectTypes(ObjectTypeID,ObjectTypeName) values(" & Str(ObjectTypeID) & ",'" _
         & ObjectTypeName & "')"
        If UpdateDataBase(sqlstr) Then
            MsgBox("成功添加", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Return True
        Else
            Initials()
            Return False
        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 ObjectTypes order by ObjectTypeID"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("ObjectTypeID") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
    Public Function LoadObjTypes() As DataSet
        Dim sqlstr As String
        Dim dbset As DataSet
        sqlstr = "select ObjectTypeID as 编号,ObjectTypeName as 题型名称 from ObjectTypes  "
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function HaveChild(ByVal tmpid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from ObjectDetails where ObjectTypeId=" & Str(tmpid)
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return True
        Else
            Return False
        End If
    End Function
    Public Function IsInDB(ByVal tmpname As String) As Boolean  '查询名称是否存在
        Dim sqlstr As String
        sqlstr = "select * from ObjectTypes where ObjectTypeName='" & tmpname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            ObjectTypeID = dbset.Tables(0).Rows(0).Item("ObjectTypeID")
            ObjectTypeName = dbset.Tables(0).Rows(0).Item("ObjectTypeName")
            Return True
        Else
            Return False
        End If
    End Function
End Class