edituser.aspx.vb

图书借阅系统！ASP.NET实现的

Imports System.Data.SqlClient
Public Class EditUser
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents BookList As System.Web.UI.WebControls.ListBox
    Protected WithEvents txtUserID As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtUserName As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpSex As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtUnit As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPhone As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtEmail As System.Web.UI.WebControls.TextBox
    Protected WithEvents DpRoleID As System.Web.UI.WebControls.DropDownList
    Protected WithEvents DpState As System.Web.UI.WebControls.DropDownList
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents UserList As System.Web.UI.WebControls.ListBox
    Protected WithEvents DeleteBtn As System.Web.UI.WebControls.LinkButton

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            initDropdownList()
            Dim UserID As String = Request.QueryString("UserID")
            Dim sqlstr As String = ""
            If UserID <> "" Then
                If Not Session("sqlstr") Is Nothing And Session("sqlstr") <> "" Then
                    sqlstr = CType(Session("sqlstr"), String)
                Else
                    sqlstr = "select * from UserInfo"
                End If
            End If
            If sqlstr = "" Then
                sqlstr = "select * from UserInfo"
            End If
            BindListBox(UserID, sqlstr)
            LoadUserInfo()
        End If

    End Sub
    Private Sub initDropdownList()
        Dim sqlstr As String = "select * from RoleInfo"
        Dim obj As DBController = New DBController
        obj.BindDrpDownList(sqlstr, DpRoleID)
    End Sub
    Private Sub BindListBox(ByVal UserID As String, ByVal sqlstr As String)
        Dim obj As DBController = New DBController
        obj.BindListBox(sqlstr, UserList)
        If UserID <> "" Then
            UserList.SelectedValue = UserID
        End If
    End Sub

    Private Sub LoadUserInfo()
        Dim UserID As String = UserList.SelectedValue.ToString.Trim
        Dim obj As DBController = New DBController
        Dim sqlstr As String = "select * from UserInfo where UserID='" + UserID + "'"
        Dim myreader As SqlDataReader = obj.ExecReaderSql(sqlstr)
        If myreader.Read Then
            'Response.Write(sqlstr)
            'Response.End()
            txtUserID.Text = myreader("UserID")
            txtUserName.Text = myreader("UserName")
            DpSex.SelectedValue = myreader("Sex")
            txtEmail.Text = myreader("Email")
            txtUnit.Text = myreader("Unit")
            txtPhone.Text = myreader("Phone")
            DpState.SelectedValue = Convert.ToString(myreader("State"))
            DpRoleID.SelectedValue = Convert.ToString(myreader("RoleID"))

        End If

    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        Dim sqlstr As String = "Update UserInfo set "
        sqlstr += " UserName='" + txtUserName.Text.ToString.Trim + "' "
        sqlstr += " ,Sex='" + DpSex.SelectedValue + "' "
        sqlstr += " , Email='" + txtEmail.Text.ToString.Trim + "' "
        sqlstr += " , Unit='" + txtUnit.Text.ToString.Trim + "' "
        sqlstr += " , Phone='" + txtPhone.Text.ToString.Trim + "'"
        sqlstr += ", State=" + DpState.SelectedValue
        sqlstr += " , RoleID=" + DpRoleID.SelectedValue
        sqlstr += " where UserID='" + txtUserID.Text.ToString.Trim + "'"
        Dim obj As DBController = New DBController
        obj.ExecNonSql(sqlstr)
    End Sub

    Private Sub DeleteBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBtn.Click
        If txtUserID.Text.ToString <> "" Then
            Dim sqlstr As String = "delete  from UserInfo where UserID='" + txtUserID.Text.ToString + "'"
            Dim obj As DBController = New DBController
            obj.ExecNonSql(sqlstr)
            BindListBox("", "select * from UserInfo")
        End If

    End Sub

    Private Sub UserList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles UserList.SelectedIndexChanged
        LoadUserInfo()
    End Sub
End Class