distributanswerteam.aspx.vb

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


Partial Class Administrator_DistributAnswerTeam
    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 btnUndo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUndo.Click
        txtNumber.Text = ""
        txtAnswerTeam.Text = ""
        txtInspector.Text = ""
    End Sub

    Protected Sub btnDo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDo.Click
        Dim subject As New Subject
        subject.SubjectNo = txtNumber.Text
        subject.AnswerTeamNo = txtAnswerTeam.Text
        subject.InspectorTeacherNo = txtInspector.Text
        subject.SubmitAnswerTeam()
        subject.SubmitInspector()
    End Sub
End Class