questions.vb

来自「系统概要: 本系统采用VB.NET开发. 开发平台:Windows XP P」· VB 代码 · 共 161 行

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

    Dim _ID As Integer              '编号
    Dim _CID As Integer             '所属章节编辑
    Dim _Question As String         '题干
    Dim _Answer As String           '参考答案
    Dim _Publish As Boolean         '是否公开
    Dim _State As Boolean           '是否设为考试
    Dim _Difficulty As Integer      '难度
    Dim _Point As Integer           '分值

    Public Sub New()

        _ID = 0
        _Question = ""
        _CID = 1
        _Answer = ""
        _Publish = True
        _State = True
        _Difficulty = 1
        _Point = 1

    End Sub

    Public Sub New(ByVal ID As Integer)

        Me.New()
        Me._ID = ID

    End Sub

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


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


    '编号
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal Value As Integer)
            _ID = Value
        End Set
    End Property

    '所属章节编辑
    Public Property CID() As Integer
        Get
            Return _CID
        End Get
        Set(ByVal Value As Integer)
            _CID = Value
        End Set
    End Property

    '题干
    Public Property Question() As String
        Get
            Return _Question
        End Get
        Set(ByVal Value As String)
            _Question = Value
        End Set
    End Property

    '参考答案
    Public Overridable Property Answer() As String
        Get
            Return _Answer
        End Get
        Set(ByVal Value As String)
            _Answer = Value
        End Set
    End Property

    '是否公开
    Public Property Publish() As Integer
        Get
            If _Publish = False Then
                Return 0
            Else
                Return 1
            End If
            Publish = CInt(_Publish)
        End Get
        Set(ByVal Value As Integer)
            If Value = 0 Then
                _Publish = False
            Else
                _Publish = True
            End If
        End Set
    End Property

    '是否设为考试
    Public Property State() As Integer
        Get
            If _State = False Then
                Return 0
            Else
                Return 1
            End If
        End Get
        Set(ByVal Value As Integer)
            If Value = 0 Then
                _State = False
            Else
                _State = True
            End If
        End Set
    End Property

    '难度
    Public Property Difficulty() As Integer
        Get
            Return _Difficulty
        End Get
        Set(ByVal Value As Integer)
            _Difficulty = Value
        End Set
    End Property

    '分值
    Public Property Point() As Integer
        Get
            Return _Point
        End Get
        Set(ByVal Value As Integer)
            _Point = Value
        End Set
    End Property

End Class