maintainanswerteam.aspx.vb

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


Partial Class Administrator_MaintainAnswerTeam
    Inherits System.Web.UI.Page

    Protected Sub ddlOperate_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlOperate.SelectedIndexChanged
        If ddlOperate.Text = "维护成员信息" Then
            ddlMember.Visible = True
            lblNo.Text = "教师编号:"
            lblName.Text = "教师姓名:"
        Else
            ddlMember.Visible = False
            lblNo.Text = "组长编号:"
            lblName.Text = "组长姓名:"
        End If
    End Sub

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

    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click
        Dim answerteam As New AnswerTeam
        answerteam.AnswerTeamNO = txtTeamNo.Text
        answerteam.TeamLeader = txtName.Text
        answerteam.TeacherNo = txtNumber.Text
        Select Case ddlOperate.Text
            Case "添加答辩小组"
                answerteam.AddTeam()
            Case "删除答辩小组"
                answerteam.DeleteTeam()
            Case "修改小组组长"
                answerteam.ChangeLeader()
            Case "维护成员信息"
                member()
        End Select
    End Sub
    Protected Sub member() '添加或删除小组中的成员
        Dim answerteammember As New AnswerTeamMember
        answerteammember.AnswerTeamNo = txtTeamNo.Text
        answerteammember.TeacherName = txtName.Text
        answerteammember.TeacherNo = txtNumber.Text
        Select Case ddlMember.Text
            Case "添加成员"
                answerteammember.AddMember()
            Case "删除成员"
                answerteammember.DeleteMember()
        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