maintainclass.aspx.vb

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


Partial Class Administrator_MaintainClass
    Inherits System.Web.UI.Page

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        txtNumber.Text = ""
        txtTutor.Text = ""
    End Sub

    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
        Dim banji As New Classes
        banji.ClassNo = txtNumber.Text
        banji.ClassTutor = txtTutor.Text
        Select Case ddlOperate.Text
            Case "添加班级"
                banji.AddClass()
            Case "删除班级"
                banji.DeleteClass()
            Case "班主任变更"
                banji.ChangeTutor(banji.ClassTutor)
        End Select
    End Sub

    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
End Class