submitstudent.aspx.vb

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


Partial Class Teacher_SubmitStudent
    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 btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        txtSubjectNo.Text = ""
        txtStudentNo.Text = ""
    End Sub

    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
        Dim assignment As New Assignment
        Dim subject As New Subject

        subject.SubjectNo = txtSubjectNo.Text
        subject.StudentNo = txtStudentNo.Text
        subject.SubmitStudent()

        assignment.StudentNo = txtStudentNo.Text
        assignment.DeleteAssignment()

        '刷新显示数据

        GridView1.DataBind()
        GridView2.DataBind()

    End Sub
End Class