userinfor.aspx.vb

基于.net科研管理信息系统 毕业设计参考代码

Imports System.Data
Imports System.Data.SqlClient

Partial Class WebForm21
    Inherits System.Web.UI.Page


    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Dim conn As SqlConnection
    Dim connectionstring As String
    Dim sql As String
    Dim mycmd As SqlCommand
    Dim getdata As SqlDataReader


#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <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: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New SqlConnection(connectionstring)
        conn.ConnectionString = "server=HP-PC;Database=SRM;uid=sa;pwd=sa;"

        If (MyDataGrid.CurrentPageIndex = 0) Then

            btnFirst.Enabled = False
            btnPrev.Enabled = False
        Else

            btnFirst.Enabled = True
            btnPrev.Enabled = True
        End If


        If (MyDataGrid.CurrentPageIndex = MyDataGrid.PageCount - 1) Then
            btnNext.Enabled = False
            btnLast.Enabled = False
        Else
            btnNext.Enabled = True
            btnLast.Enabled = True

        End If
       

        conn.Open()

        If Not IsPostBack Then
            BindGrid()
        End If

    End Sub


    Sub MyDataGrid_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        Dim startIndex As Integer
        startIndex = MyDataGrid.CurrentPageIndex * MyDataGrid.PageSize
        MyDataGrid.CurrentPageIndex = e.NewPageIndex
        BindGrid()
        ShowStats()
    End Sub

    Sub BindGrid()

        Dim ds As DataSet = New DataSet
        sql = "Select * from sci_user"
        Dim adapter As SqlDataAdapter = New SqlDataAdapter(sql, conn)
        adapter.Fill(ds)
        MyDataGrid.DataSource = ds.Tables(0).DefaultView
        MyDataGrid.DataBind()
        ShowStats()

    End Sub

    Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        'used by external paging UI
        Dim arg As String = sender.CommandArgument

        Select Case arg
            Case "next"
                If (MyDataGrid.CurrentPageIndex < (MyDataGrid.PageCount - 1)) Then
                    MyDataGrid.CurrentPageIndex += 1
                End If
            Case "prev"
                If (MyDataGrid.CurrentPageIndex > 0) Then
                    MyDataGrid.CurrentPageIndex -= 1
                End If
            Case "last"
                MyDataGrid.CurrentPageIndex = (MyDataGrid.PageCount - 1)
            Case Else
                'page number
                MyDataGrid.CurrentPageIndex = 0
        End Select
        BindGrid()
        ShowStats()
    End Sub

    Sub ShowStats()
        lblCurrentIndex.Text = "第 " + (MyDataGrid.CurrentPageIndex + 1).ToString() + " 页"
        lblPageCount.Text = "总共 " + MyDataGrid.PageCount.ToString() + " 页"
    End Sub




    Private Sub MyDataGrid_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyDataGrid.SelectedIndexChanged

    End Sub

    Private Sub MyDataGrid_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.EditCommand
        MyDataGrid.EditItemIndex = e.Item.ItemIndex
        BindGrid()
    End Sub


    Private Sub MyDataGrid_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.DeleteCommand
        If MyDataGrid.EditItemIndex = -1 Then
            Dim uid As String
            uid = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text

            Response.Write("<script>alert('您确定要删除吗！！！');</script>")
            sql = "delete  from sci_user where user_id=" + uid + ""
            mycmd = New SqlCommand(sql, conn)
            mycmd.ExecuteNonQuery()

            conn.Close()
            Response.Write("<script>alert('删除成功！！！');</script>")
            conn.Open()

            BindGrid()
        Else
            Response.Write("<script>alert('您现在不能不能删除记录！！！');</script>")

        End If
    End Sub

    Private Sub MyDataGrid_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.ItemCommand

    End Sub

    Private Sub MyDataGrid_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.CancelCommand
        MyDataGrid.EditItemIndex = -1
        BindGrid()
    End Sub

    Private Sub MyDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.UpdateCommand
        Dim uid As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
        Dim sqlstr As String
        Dim pwd As TextBox = e.Item.Cells(1).Controls(0)
        Dim name As TextBox = e.Item.Cells(2).Controls(0)
        Dim sex As TextBox = e.Item.Cells(3).Controls(0)
        Dim age As TextBox = e.Item.Cells(4).Controls(0)
        Dim lvl As TextBox = e.Item.Cells(5).Controls(0)
        'Dim groupid As TextBox = e.Item.Cells(6).Controls(0)
        Dim role As TextBox = e.Item.Cells(7).Controls(0)
        Dim email As TextBox = e.Item.Cells(8).Controls(0)

       

        sqlstr = "update sci_user set password= '" + pwd.Text.ToString.Trim + "',user_name= '" + name.Text.ToString.Trim + "',sex= '" + sex.Text.ToString.Trim + "',age= '" + age.Text.ToString.Trim + "',level= '" + lvl.Text.ToString.Trim + "',role= '" + role.Text.ToString.Trim + "',email= '" + email.Text.ToString.Trim + "' where user_id = '" + uid + "'"
            mycmd = New SqlCommand(sqlstr, conn)
            mycmd.ExecuteNonQuery()
            conn.Close()
            Response.Write("<script>alert('更新成功！！！');</script>")
            conn.Open()
            MyDataGrid.EditItemIndex = -1
        BindGrid()
    End Sub

End Class