maintaindepartment.aspx.vb

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


Partial Class Administrator_MaintainDepartment
    Inherits System.Web.UI.Page

  

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


    Protected Sub btnSure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSure.Click

        Dim department As New Department
        department.DepartmentNo = txtDeptNo.Text
        department.DepartmentName = txtDeptName.Text
        department.DepartmentLeader = txtLeader.Text
        department.DepartmentType = ddlType.Text
        Select Case ddlOperate.Text
            Case "添加部门"
                If department.AddDepartment() = 0 Then
                    lblshow.Text = "部门已经存在"
                Else
                    lblshow.Text = "添加成功"
                End If
            Case "修改信息"
                If department.ModifyDepartment(department.DepartmentNo, department.DepartmentLeader) = 1 Then
                    lblshow.Text = "修改成功"
                Else
                    lblshow.Text = "修改失败"
                End If
            Case "删除"
                If department.DelectDepartment(department.DepartmentNo) = 0 Then
                    lblshow.Text = "删除成功"
                Else
                    lblshow.Text = "删除失败"
                End If
        End Select
        lblshow.Visible = True
    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