adduser.aspx.vb

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


Partial Class Administrator_AddUser
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("role").ToString = "管理员" 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
        txtUserID.Text = ""
        txtUserName.Text = ""
        txtPassword.Text = ""
        txtEmail.Text = ""
        txtTelephone.Text = ""
        txtDept.Text = ""
        txtTitle.Text = ""
        lblError.Visible = False
    End Sub

  
  

    Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Select Case ddlRole.Text
            Case "教师"
                Dim newuser As New Teacher
                setnew(newuser)
                newuser.Department = txtDept.Text
                newuser.Title = txtTitle.Text
                If newuser.AddTeacher() = 0 Then
                    lblError.Visible = True
                Else
                    lblError.Visible = False
                End If
            Case "学生"
                Dim newuser As New Student
                newuser.ClassNo = txtDept.Text
                setnew(newuser)
                If newuser.AddStudent() = 0 Then
                    lblError.Visible = True
                Else
                    lblError.Visible = False
                End If
            Case "管理员"
                Dim newuser As New Administrator
                setnew(newuser)
                If newuser.AddAdministrator() = 0 Then
                    lblError.Visible = True
                Else
                    lblError.Visible = False
                End If
        End Select


    End Sub
    Public Sub setnew(ByVal user As User) '设置新用户属性
        user.UserID = txtUserID.Text
        user.UserName = txtUserName.Text
        user.Password = txtPassword.Text
        user.Email = txtEmail.Text
        user.Telephone = txtTelephone.Text
        user.Role = ddlRole.Text
    End Sub

    Protected Sub ddlRole_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlRole.TextChanged
        Select Case ddlRole.Text
            Case "教师"
                Label1.Text = "部门:"
                Label1.Visible = True
                Label2.Visible = True
                txtDept.Visible = True
                txtTitle.Visible = True
            Case "学生"
                Label1.Text = "班级:"
                Label1.Visible = True
                Label2.Visible = False
                txtDept.Visible = True
                txtTitle.Visible = False
            Case "管理员"
                Label1.Visible = False
                Label2.Visible = False
                txtDept.Visible = False
                txtTitle.Visible = False
        End Select
        lblError.Visible = False
    End Sub
End Class