subject.vb

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

Imports Microsoft.VisualBasic

Public Class Subject
#Region "属性"
    Dim SubjectNoValue, SubjectTitleValue, SubjectTypeValue, StudentNoValue, SupervisorTeacherNoValue As String
    Dim DirectorTeacherNoValue, DirectorCommentValue, DirectorScoreValue As String
    Dim InspectorTeacherNoValue, InspectorCommentValue, InspectorScoreValue As String
    Dim AnswerTeamNoValue, AnswerCommentValue, AnswerScoreValue As String
    Dim DirectorCommentDateValue, InspectorCommentDateValue, AnswerDateValue As Date
    Dim YearValue As String
    Dim Keyword1Value, Keyword2Value, Keyword3Value As String
    Public Property SubjectNo() '课题编号
        Get
            Return SubjectNoValue
        End Get
        Set(ByVal value)
            SubjectNoValue = value
        End Set
    End Property
    Public Property SubjectTitle() '课题名称
        Get
            Return SubjectTitleValue
        End Get
        Set(ByVal value)
            SubjectTitleValue = value
        End Set
    End Property
    Public Property SubjectType() '课题类型
        Get
            Return SubjectTypeValue
        End Get
        Set(ByVal value)
            SubjectTypeValue = value
        End Set
    End Property
    Public Property StudentNo() '学生号
        Get
            Return StudentNoValue
        End Get
        Set(ByVal value)
            StudentNoValue = value
        End Set
    End Property
    Public Property SupervisorTeacherNo() '督导老师编号
        Get
            Return SupervisorTeacherNoValue
        End Get
        Set(ByVal value)
            SupervisorTeacherNoValue = value
        End Set
    End Property
    Public Property Year() '毕业论文年份
        Get
            Return YearValue
        End Get
        Set(ByVal value)
            YearValue = value
        End Set
    End Property
    Public Property DirectorTeacherNo() '指导老师编号
        Get
            Return DirectorTeacherNoValue
        End Get
        Set(ByVal value)
            DirectorTeacherNoValue = value
        End Set
    End Property
    Public Property DirectorComment() '指导老师评语
        Get
            Return DirectorCommentValue
        End Get
        Set(ByVal value)
            DirectorCommentValue = value
        End Set
    End Property
    Public Property DirectorScore() '指导老师评分
        Get
            Return DirectorScoreValue
        End Get
        Set(ByVal value)
            DirectorScoreValue = value
        End Set
    End Property
    Public Property DirectorCommentDate() '指导老师评论日期
        Get
            Return DirectorCommentDateValue
        End Get
        Set(ByVal value)
            DirectorCommentDateValue = value
        End Set
    End Property
    Public Property InspectorTeacherNo() '督导老师编号
        Get
            Return InspectorTeacherNoValue
        End Get
        Set(ByVal value)
            InspectorTeacherNoValue = value
        End Set
    End Property
    Public Property InspectorComment() '评阅老师评语
        Get
            Return InspectorCommentValue
        End Get
        Set(ByVal value)
            InspectorCommentValue = value
        End Set
    End Property
    Public Property InspectorScore() '评阅老师评分
        Get
            Return InspectorScoreValue
        End Get
        Set(ByVal value)
            InspectorScoreValue = value
        End Set
    End Property
    Public Property InspectorCommentDate() '评阅日期
        Get
            Return InspectorCommentDateValue
        End Get
        Set(ByVal value)
            InspectorCommentValue = value
        End Set
    End Property
    Public Property AnswerTeamNo() '答辩小组号
        Get
            Return AnswerTeamNoValue
        End Get
        Set(ByVal value)
            AnswerTeamNoValue = value
        End Set
    End Property
    Public Property AnswerComment() '答辩评论
        Get
            Return AnswerCommentValue
        End Get
        Set(ByVal value)
            AnswerCommentValue = value
        End Set
    End Property
    Public Property AnswerScore() '答辩分数
        Get
            Return AnswerScoreValue
        End Get
        Set(ByVal value)
            AnswerScoreValue = value
        End Set
    End Property
    Public Property AnswerDate() '答辩日期
        Get
            Return AnswerDateValue
        End Get
        Set(ByVal value)
            AnswerDateValue = value
        End Set
    End Property
    Public Property Keyword1() '关键字1
        Get
            Return Keyword1Value
        End Get
        Set(ByVal value)
            Keyword1Value = value
        End Set
    End Property
    Public Property keyword2() '关键字2
        Get
            Return Keyword2Value
        End Get
        Set(ByVal value)
            Keyword2Value = value
        End Set
    End Property
    Public Property Keyword3() '关键字3
        Get
            Return Keyword3Value
        End Get
        Set(ByVal value)
            Keyword3Value = value
        End Set
    End Property
#End Region
#Region "方法"
    Dim db As New DBObject
    '构造函数
    Public Sub New()

    End Sub
    '重载构造函数
    Public Sub New(ByVal SubjectNo As String)
        db.cmdText = "select * from where SubjectNo='" + SubjectNo + "'"

    End Sub
    '提交校内课题
    Public Function SubmitSubject() As Integer
        db.cmdText = "insert into subject( SubjectNo, SubjectTitle, SubjectType, DirectorTeacherNo,YearofDate)" _
        + "values( '" + SubjectNo + "','" + SubjectTitle + "','" + SubjectType + "','" + DirectorTeacherNo + "','" + Year + "')"

        SubmitSubject = db.SQL()

    End Function
    '确定选题学生
    Public Sub SubmitStudent()
        db.cmdText = "update subject set StudentNo='" + StudentNo + "' where SubjectNo='" + SubjectNo + "'"

        db.SQL()
    End Sub
    '提交校外课题
    Public Sub SubmitOutSubject()
        db.cmdText = "insert into subject(SubjectNo,SubjectTitle,SubjectType,DirectorTeacherNo,YearofDate,StudentNo,SupervisorTeacherNo)" _
        + "values('" + SubjectNo + "','" + SubjectTitle + "','" + SubjectType + "','" + DirectorTeacherNo + "'," + Year + ",'" + StudentNo + "','" + SupervisorTeacherNo + " ')"

        db.SQL()
    End Sub
    '提交论文
    Public Function SubmitSubjectDocument() As Integer
        db.cmdText = "update subject set Keyword1='" + Keyword1 + "',Keyword2='" + keyword2 + "',Keyword3='" + Keyword3 + "' where StudentNo='" + StudentNo + "'"


        SubmitSubjectDocument = db.SQL()
    End Function
    '确定答辩小组
    Public Function SubmitAnswerTeam() As Integer
        db.cmdText = "update subject set AnswerTeamNo='" + AnswerTeamNo + "' where SubjectNo='" + SubjectNo + "'"

        SubmitAnswerTeam = db.SQL()
    End Function
    '确定评阅教师
    Public Function SubmitInspector() As Integer
        db.cmdText = "update subject set InspectorTeacherNo='" + InspectorTeacherNo + "' where SubjectNo='" + SubjectNo + "'"

        SubmitInspector = db.SQL()
    End Function

    '查看论文
    Public Sub LookDocument()

    End Sub

    '指导老师评论
    Public Function DirecteTeacherComment(ByVal SubjectNo As String) As Boolean
        db.cmdText = "update subject set DirectorComment='" + DirectorComment + "',DirectorScore='" + DirectorScore + "',DirectorCommentDate='" + DirectorCommentDate + "' where SubjectNo='" + SubjectNo + "'"
        Try
            If (db.SQL() = 1) Then
                DirecteTeacherComment = True
            Else
                DirecteTeacherComment = False
            End If

        Catch ex As Exception
            DirecteTeacherComment = False
        End Try

    End Function

    '评阅老师评论
    Public Function InspecteTeacherComment(ByVal SubjectNo As String) As Boolean
        db.cmdText = "update subject set InspectorComment='" + InspectorComment + "',InspectorScore='" + InspectorScore + "',InspectorCommentDate='" + InspectorCommentDate + "'" + "'where SubjectNo='" + SubjectNo + "'"
        Try
            If (db.SQL() = 1) Then
                InspecteTeacherComment = True
            Else
                InspecteTeacherComment = False
            End If

        Catch ex As Exception
            InspecteTeacherComment = False
        End Try
    End Function
    '答辩
    Public Sub Answer()
        db.cmdText = "update subject set AnswerComment='" + AnswerComment + "',AnswerScore='" + AnswerScore + "',AnswerDate='" + AnswerDate + "' where SubjectNo='" + SubjectNo + "'"

        db.SQL()
    End Sub
    '重载答辩
    Public Function Answer(ByVal SubjectNo As String) As Boolean
        db.cmdText = "update subject set AnswerComment='" + AnswerComment + "',AnswerScore='" + AnswerScore + "',AnswerDate='" + AnswerDate + "'where SubjectNo='" + SubjectNo + "'"

        Try
            If (db.SQL() = 1) Then
                Answer = True
            Else
                Answer = False
            End If

        Catch ex As Exception
            Answer = False
        End Try
    End Function
#End Region
End Class