metacheck.aspx.vb

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


Partial Class Teacher_MetaCheck
    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
    End Sub

    Protected Sub StuNo_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles StuNo.TextChanged

    End Sub

    Protected Sub OK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim mc As New MetaCheck
        mc.MetaCheckNo = MetaNo.Text
        mc.SubjectNo = SubNo.Text
        mc.StudentNo = StuNo.Text
        mc.TeacherNo = TeaNo.Text
        mc.TeacherComment = TeaComment.Text
        mc.CheckDate = System.DateTime.Today.Date
        xianshi.Visible = False
        If (mc.MetaCheck(MetaNo.Text, mc.SubjectNo, mc.StudentNo, mc.TeacherNo, mc.TeacherComment, mc.CheckDate) = True) Then
            xianshi.Visible = True
            xianshi.Text = "提交检查结果成功"
        Else
            xianshi.Visible = True
            xianshi.Text = "提交检查结果失败"
        End If
    End Sub

   
End Class