vacancy.vb

系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP Professional SP2 (English Version) 开发环境:Visual Studio .NET

'
'    Copyright(C)2006,济南大学材料科学与工程学院
'    All right reserved.
'
'    文件名称:Choose.vb
'    文件标识:
'    摘    要:填空题类,派生自考试题类
'
'    当前版本:2.0.0
'    作    者:梁  海
'    完成日期:2006-12-6
'
'    取代版本:
'    原作者  :
'    完成日期:
'
'    修改历史:
'

Imports System.Text

Public Class Vacancy
    Inherits Questions

    '    函数名称:SaveToDB() As Boolean
    '    摘    要:将考试题保存到数据库中
    '             返回保存成功,True成功 False失败
    Public Overrides Function SaveToDB() As Boolean

        Dim sbSql As StringBuilder
        Dim oSql As SqlDataAccess

        sbSql = New StringBuilder
        sbSql.Append("Insert Into Vacancy(CID,Question,Answer,Publish,State,Difficulty,Point)")
        sbSql.Append(" Values(")
        sbSql.Append(Me.CID)
        sbSql.Append(",'")
        sbSql.Append(Me.Question)
        sbSql.Append("','")
        sbSql.Append(Me.Answer)
        sbSql.Append("',")
        sbSql.Append(Me.Publish)
        sbSql.Append(",")
        sbSql.Append(Me.State)
        sbSql.Append(",")
        sbSql.Append(Me.Difficulty)
        sbSql.Append(",")
        sbSql.Append(Me.Point)
        sbSql.Append(")")

        oSql = New SqlDataAccess(sbSql.ToString())
        If oSql.ExecuteNonQuery() > 0 Then
            Return True
        Else
            Return False
        End If

    End Function

    '    函数名称:UpdateToDB() As Boolean
    '    摘    要:更新编号号ID为考试题
    '             返回更新是否成功,True成功 False失败
    Public Overrides Function UpdateToDB() As Boolean

        Dim sbSql As StringBuilder
        Dim oSql As SqlDataAccess

        sbSql = New StringBuilder
        sbSql.Append("Update Choose Set CID=")
        sbSql.Append(Me.CID)
        sbSql.Append(",Question='")
        sbSql.Append(Me.Question)
        sbSql.Append("',Answer='")
        sbSql.Append(Me.Answer)
        sbSql.Append("',Publish=")
        sbSql.Append(Me.Publish)
        sbSql.Append(",State=")
        sbSql.Append(Me.State)
        sbSql.Append(",Difficulty=")
        sbSql.Append(Me.Difficulty)
        sbSql.Append(",Point=")
        sbSql.Append(Me.Point)
        sbSql.Append(" Where ID=")
        sbSql.Append(ID.ToString)

        oSql = New SqlDataAccess(sbSql.ToString())
        If oSql.ExecuteNonQuery() > 0 Then
            Return True
        Else
            Return False
        End If

    End Function

End Class