choose.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 Choose
    Inherits Questions

    Dim _OptionA As String          '选项A
    Dim _OptionB As String          '选项B
    Dim _OptionC As String          '选项C
    Dim _OptionD As String          '选项D
    Dim _OptionE As String          '选项E
    Dim _OptionF As String          '选项F
    Dim _Answer As String           '选择题答案

    Public Sub New()

        MyBase.New()
        _OptionA = ""
        _OptionB = ""
        _OptionC = ""
        _OptionD = ""
        _OptionE = ""
        _OptionF = ""

    End Sub

    Public Sub New(ByVal ID As Integer)

        MyBase.New(ID)

    End Sub

    '选项A
    Public Property OptionA() As String
        Get
            Return _OptionA
        End Get
        Set(ByVal Value As String)
            _OptionA = Value
        End Set
    End Property

    '选项B
    Public Property OptionB() As String
        Get
            Return _OptionB
        End Get
        Set(ByVal Value As String)
            _OptionB = Value
        End Set
    End Property

    '选项C
    Public Property OptionC() As String
        Get
            Return _OptionC
        End Get
        Set(ByVal Value As String)
            _OptionC = Value
        End Set
    End Property

    '选项D
    Public Property OptionD() As String
        Get
            Return _OptionD
        End Get
        Set(ByVal Value As String)
            _OptionD = Value
        End Set
    End Property

    '选项E
    Public Property OptionE() As String
        Get
            Return _OptionE
        End Get
        Set(ByVal Value As String)
            _OptionE = Value
        End Set
    End Property

    '选项F
    Public Property OptionF() As String
        Get
            Return _OptionF
        End Get
        Set(ByVal Value As String)
            _OptionF = Value
        End Set
    End Property

    '选择题答案
    Public Overrides Property Answer() As String
        Get
            Return _Answer
        End Get
        Set(ByVal Value As String)
            If Value.Length <> 1 Then
                _Answer = "A"
            Else
                _Answer = Value
            End If
        End Set
    End Property

    '    函数名称: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 Choose(CID,Question,OptionA,OptionB,OptionC,")
        sbSql.Append("OptionD,OptionE, OptionF,Answer,Publish,State,Difficulty,Point)")
        sbSql.Append(" Values(")
        sbSql.Append(Me.CID)
        sbSql.Append(",'")
        sbSql.Append(Me.Question)
        sbSql.Append("','")
        sbSql.Append(_OptionA)
        sbSql.Append("',")
        '选择题最少一个选项
        '判断选项B是否存在
        If _OptionB = "" Then
            sbSql.Append("Null")
        Else
            sbSql.Append("'")
            sbSql.Append(_OptionB)
            sbSql.Append("'")
        End If
        sbSql.Append(",")
        '判断选项C是否存在
        If _OptionC = "" Then
            sbSql.Append("Null")
        Else
            sbSql.Append("'")
            sbSql.Append(_OptionC)
            sbSql.Append("'")
        End If
        sbSql.Append(",")
        '判断选项D是否存在
        If _OptionD = "" Then
            sbSql.Append("Null")
        Else
            sbSql.Append("'")
            sbSql.Append(_OptionD)
            sbSql.Append("'")
        End If
        sbSql.Append(",")
        '判断选项E是否存在
        If _OptionE = "" Then
            sbSql.Append("Null")
        Else
            sbSql.Append("'")
            sbSql.Append(_OptionE)
            sbSql.Append("'")
        End If
        sbSql.Append(",")
        '判断选项F是否存在
        If _OptionF = "" Then
            sbSql.Append("Null")
        Else
            sbSql.Append("'")
            sbSql.Append(_OptionF)
            sbSql.Append("'")
        End If
        sbSql.Append(",'")
        sbSql.Append(_Answer)
        sbSql.Append("',")
        sbSql.Append(Me.Publish.ToString)
        sbSql.Append(",")
        sbSql.Append(Me.State.ToString)
        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("',OptionA='")
        sbSql.Append(Me.OptionA)
        sbSql.Append("'")
        '选择题最少一个选项
        '判断选项B是否存在
        If Me.OptionB = "" Then
            sbSql.Append(",OptionB=Null")
        Else
            sbSql.Append(",OptionB='")
            sbSql.Append(Me.OptionB)
            sbSql.Append("'")
        End If
        '判断选项C是否存在
        If Me.OptionC = "" Then
            sbSql.Append(",OptionC=Null")
        Else
            sbSql.Append(",OptionC='")
            sbSql.Append(Me.OptionC)
            sbSql.Append("'")
        End If
        '判断选项D是否存在
        If Me.OptionD = "" Then
            sbSql.Append(",OptionD=Null")
        Else
            sbSql.Append(",OptionD='")
            sbSql.Append(Me.OptionD)
            sbSql.Append("'")
        End If
        '判断选项E是否存在
        If Me.OptionE = "" Then
            sbSql.Append(",OptionE=Null")
        Else
            sbSql.Append(",OptionE='")
            sbSql.Append(Me.OptionE)
            sbSql.Append("'")
        End If
        '判断选项F是否存在
        If Me.OptionF = "" Then
            sbSql.Append(",OptionF=Null")
        Else
            sbSql.Append(",OptionF='")
            sbSql.Append(Me.OptionF)
            sbSql.Append("'")
        End If
        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