drawing.vb

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

'
'    Copyright(C)2006,济南大学材料科学与工程学院
'    All right reserved.
'
'    文件名称:
'    文件标识:
'    摘    要:
'
'    当前版本:2.0.0
'    作    者:梁  海
'    完成日期:2006-12-7
'
'    取代版本:
'    原作者  :
'    完成日期:
'
'    修改历史:
'
Imports System.Text

Public Class Drawing
    Inherits Questions

    Dim _XmlFile As String          'xml文件名
    Dim _XmlData As String          'xml文件数据

    Public Sub New()

        MyBase.New()

    End Sub

    Public Sub New(ByVal ID As Integer)

        MyBase.New(ID)

    End Sub

    'xml文件名
    Public Property XmlFile() As String
        Get
            Return _XmlFile
        End Get
        Set(ByVal Value As String)
            _XmlFile = Value
        End Set
    End Property

    'xml文件数据
    Public Property XmlData() As String
        Get
            Return _XmlData
        End Get
        Set(ByVal Value As String)
            _XmlData = Value
        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 Drawing(CID,Question,XmlFile,XmlData,Publish,State,Difficulty,Point)")
        sbSql.Append(" Values(")
        sbSql.Append(Me.CID)
        sbSql.Append(",'")
        sbSql.Append(Me.Question)
        sbSql.Append("','")
        sbSql.Append(_XmlFile)
        sbSql.Append("','")
        sbSql.Append(_XmlData)
        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("',XmlFile='")
        sbSql.Append(_XmlFile)
        sbSql.Append("'XmlData='")
        sbSql.Append(_XmlData)
        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