commonuserinfo.aspx.vb

来自「网上售书系统v-1 SQL数据库 ASP.NET开发环境」· VB 代码 · 共 78 行

Imports System.Data.SqlClient
Public Class CommonUserInfo
    Inherits System.Web.UI.Page
    Protected WithEvents UpdateBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents AllUserInfoDBGrd As System.Web.UI.WebControls.DataGrid

    Private connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
    Private myconn As SqlConnection = New SqlConnection(connstr)

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

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

    End Sub

    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
            BindData()
        End If
    End Sub
    Private Sub BindData()
        myconn.Open()
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from UserInfo"
        Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
        ds = New DataSet()
        myAdapter.Fill(ds)
        AllUserInfoDBGrd.DataSource = ds.Tables(0).DefaultView
        AllUserInfoDBGrd.DataBind()
        myconn.Close()
    End Sub

    Private Sub UpdateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateBtn.Click
        Dim i As Integer = 0
        Dim UserID As String
        Dim j As Integer
        Dim ChBox As CheckBox
        Dim sqlstr As String = ""
        For i = 0 To AllUserInfoDBGrd.Items.Count - 1
            UserID = AllUserInfoDBGrd.Items(i).Cells(7).Text.ToString
            '获取该行的复选框是否被选中
            ChBox = CType(AllUserInfoDBGrd.Items(i).Cells(6).FindControl("ChState"), CheckBox)
            If ChBox.Checked = True Then
                sqlstr += "  update UserInfo set State=1 where UserID=" + UserID
            Else
                sqlstr += "  update UserInfo set State=0 where UserID=" + UserID
            End If
        Next
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
        BindData()
    End Sub

    Private Sub AllUserInfoDBGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles AllUserInfoDBGrd.PageIndexChanged
        AllUserInfoDBGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub
End Class