comment.aspx.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 55 行


Partial Class Teacher_comment
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role") = "教师" Then
        Else
            Response.Redirect("~/Default.aspx")
        End If
        Label1.Visible = False
    End Sub
    Protected Sub zhidaocom_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles zhidaocom.Click
        Panel2.Visible = False
        Panel1.Visible = True
    End Sub
    Protected Sub 提交评论_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 提交评论.Click
        Dim subject1 As New Subject
        subject1.SubjectNo = subNO.Text
        subject1.DirectorComment = 指导教师评论.Text
        subject1.DirectorCommentDate = System.DateTime.Today
        subject1.DirectorScore = value.Text
        If (subject1.DirecteTeacherComment(subject1.SubjectNo) = True) Then
            Label1.Visible = True
            Label1.Text = "评阅成功"
        End If
    End Sub
    Protected Sub rollback_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rollback.Click
        指导教师评论.Text = ""
        subNO.Text = ""
    End Sub

    Protected Sub dudaocom_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles dudaocom.Click
        Panel1.Visible = False
        Panel2.Visible = True
    End Sub

    Protected Sub 提交评论2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 提交评论2.Click

        Dim subject1 As New Subject
        subject1.SubjectNo = subNO.Text
        subject1.InspectorComment = 督导教师评论.Text
        subject1.InspectorCommentDate = System.DateTime.Today
        subject1.InspectorScore = value.Text
        If (subject1.DirecteTeacherComment(subject1.SubjectNo) = True) Then
            Label1.Visible = True
            Label1.Text = "评阅成功"
        End If
    End Sub

    Protected Sub rollback2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles rollback2.Click
        督导教师评论.Text = ""
        subno2.Text = ""
    End Sub

End Class