metacheck.vb

毕业设计+图书管理系统+源码 需要的人下载。

Imports Microsoft.VisualBasic

Public Class MetaCheck
#Region "属性"
    Dim MetaCheckNoValue, SubjectNoValue, StudentNoValue, TeacherNoValue, TeacherCommentValue As String
    Dim CheckDateValue As Date
    Public Property MetaCheckNo() '中期检查编号
        Get
            Return MetaCheckNoValue
        End Get
        Set(ByVal value)
            MetaCheckNoValue = value
        End Set
    End Property
    Public Property SubjectNo() '课题编号
        Get
            Return SubjectNoValue
        End Get
        Set(ByVal value)
            SubjectNoValue = value
        End Set
    End Property
    Public Property StudentNo() '学生编号
        Get
            Return StudentNoValue
        End Get
        Set(ByVal value)
            StudentNoValue = value
        End Set
    End Property
    Public Property TeacherNo() '教师编号
        Get
            Return TeacherNoValue
        End Get
        Set(ByVal value)
            TeacherNoValue = value
        End Set
    End Property
    Public Property TeacherComment() '教师评语
        Get
            Return TeacherCommentValue
        End Get
        Set(ByVal value)
            TeacherCommentValue = value
        End Set
    End Property
    Public Property CheckDate() '检查时间
        Get
            Return CheckDateValue
        End Get
        Set(ByVal value)
            CheckDateValue = value
        End Set
    End Property
#End Region
#Region "方法" '中期检查
    Dim db As New DBObject

    Public Function MetaCheck(ByVal MetaCheckNo As String, ByVal SubjectNo As String, ByVal StudentNo As String, ByVal TeacherNo As String, ByVal TeacherComment As String, ByVal CheckDate As Date) As Boolean
        db.cmdText = "insert into MetaCheck (MetaCheckNo, SubjectNo, StudentNo, TeacherNo, TeacherComment,CheckDate)" _
        + "values ('" + MetaCheckNo + "','" + SubjectNo + "','" + StudentNo + "','" + TeacherNo + "','" + TeacherComment + "','" + CheckDate + "')"

        Try
            db.SQL()
            MetaCheck = True
        Catch ex As Exception
            MetaCheck = False
        End Try
    End Function

#End Region
End Class