UserList.aspx.vb

Imports MySql.Data.MySqlClient
Imports System.Data

Partial Class UserList
    Inherits System.Web.UI.Page

    Protected Sub gv_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles gv.PageIndexChanging
        Me.gv.PageIndex = e.NewPageIndex
    End Sub

    Protected Sub gv_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles gv.PreRender
        Using conn As MySqlConnection = New MySqlConnection(Dao.connstr)
            Using cmd As MySqlCommand = New MySqlCommand("select user_id, username, gender, mobile, doctor, guominshi, jiwangbingshi,liuxingbingxueshi from t_user order by user_id desc", conn)
                Using da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
                    Using dt As DataTable = New DataTable()
                        da.Fill(dt)
                        Me.gv.DataSource = dt
                        Me.gv.DataBind()
                    End Using
                End Using
            End Using
        End Using
    End Sub

    Protected Sub gv_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles gv.RowCancelingEdit
        Me.gv.EditIndex = -1
    End Sub

    Protected Sub gv_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gv.RowDeleting
        Using conn As MySqlConnection = New MySqlConnection(Dao.connstr)
            Using cmd As MySqlCommand = New MySqlCommand("delete from t_user where user_id = @user_id", conn)
                Dim user_id As String = Me.gv.Rows(e.RowIndex).Cells(0).Text
                cmd.Parameters.AddWithValue("user_id", user_id)
                conn.Open()
                Dim i As Integer = cmd.ExecuteNonQuery()
                Response.Write("删除编号为" & user_id & "的数据,共计删除了" & i & "条")
            End Using
        End Using
    End Sub

    Protected Sub gv_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gv.RowEditing
        Me.gv.EditIndex = e.NewEditIndex
    End Sub

    Protected Sub gv_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles gv.RowUpdating
        Using conn As MySqlConnection = New MySqlConnection(Dao.connstr)
            Using cmd As MySqlCommand = New MySqlCommand("update t_user set username = @username, gender = @gender, mobile = @mobile, doctor = @doctor, guominshi = @guominshi, jiwangbingshi = @jiwangbingshi, liuxingbingxueshi = @liuxingbingxueshi where user_id = @user_id", conn)
                Dim username As String = CType(Me.gv.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text
                Dim gender As String = CType(Me.gv.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text
                Dim mobile As String = CType(Me.gv.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text
                Dim doctor As String = CType(Me.gv.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text
                Dim guominshi As String = CType(Me.gv.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text
                Dim jiwangbingshi As String = CType(Me.gv.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text
                Dim liuxingbingxueshi As String = CType(Me.gv.Rows(e.RowIndex).Cells(7).Controls(0), TextBox).Text
                Dim user_id As String = Me.gv.Rows(e.RowIndex).Cells(0).Text
                cmd.Parameters.AddWithValue("username", username)
                cmd.Parameters.AddWithValue("gender", gender)
                cmd.Parameters.AddWithValue("mobile", Mobile)
                cmd.Parameters.AddWithValue("doctor", doctor)
                cmd.Parameters.AddWithValue("guominshi", guominshi)
                cmd.Parameters.AddWithValue("jiwangbingshi", jiwangbingshi)
                cmd.Parameters.AddWithValue("liuxingbingxueshi", liuxingbingxueshi)
                cmd.Parameters.AddWithValue("user_id", user_id)
                conn.Open()
                Dim i As Integer = cmd.ExecuteNonQuery()
                Response.Write("更新编号为" & user_id & "的数据，共计更新了" & i & "条")
            End Using
        End Using
        Me.gv.EditIndex = -1
    End Sub

    Protected Sub gv_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gv.SelectedIndexChanged
        Dim user_id As String = Me.gv.SelectedRow.Cells(0).Text
        Response.Write(user_id)
        Response.Redirect("~/UserDetail.aspx?user_id=" + user_id)
    End Sub
End Class