asp.net(vb)

Partial Class index

    Inherits System.Web.UI.Page

    Private sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=master;User ID=sa;Password=dinglin", "select * from t_user order by u_id desc")

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging

        Me.GridView1.PageIndex = e.NewPageIndex

        Me.GridView1.EditIndex = -1

    End Sub

    Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender

        Me.GridView1.DataKeyNames = New String() {"u_id"}

        Me.GridView1.AllowPaging = True

        Me.GridView1.AutoGenerateDeleteButton = True

        Me.GridView1.AutoGenerateEditButton = True

        Me.GridView1.AutoGenerateSelectButton = True

        Me.GridView1.DataSource = sds

        Me.GridView1.DataBind()

    End Sub

    Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit

        Me.GridView1.EditIndex = -1

    End Sub

    Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting

        sds.DeleteCommand = "delete from t_user where u_id = @u_id"

        sds.DeleteParameters.Add("u_id", Me.GridView1.DataKeys(e.RowIndex).Value.ToString().Trim())

        sds.Delete()

        Me.GridView1.EditIndex = -1

    End Sub

    Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing

        Me.GridView1.EditIndex = e.NewEditIndex

    End Sub

    Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating

        sds.UpdateCommand = "update t_user set u_name = @u_name, u_sex = @u_sex, u_birth = @u_birth, u_address = @u_address, u_idnumber = @u_idnumber where u_id = @u_id"

        sds.UpdateParameters.Add("u_name", CType(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text.Trim())

        sds.UpdateParameters.Add("u_sex", CType(Me.GridView1.Rows(e.RowIndex).Cells(3).Controls(0), TextBox).Text.Trim())

        sds.UpdateParameters.Add("u_birth", CType(Me.GridView1.Rows(e.RowIndex).Cells(4).Controls(0), TextBox).Text.Trim())

        sds.UpdateParameters.Add("u_address", CType(Me.GridView1.Rows(e.RowIndex).Cells(5).Controls(0), TextBox).Text.Trim())

        sds.UpdateParameters.Add("u_idnumber", CType(Me.GridView1.Rows(e.RowIndex).Cells(6).Controls(0), TextBox).Text.Trim())

        sds.UpdateParameters.Add("u_id", Me.GridView1.DataKeys(e.RowIndex).Value.ToString().Trim())

        sds.Update()

        Me.GridView1.EditIndex = -1

    End Sub

End Class