groupinfor.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class groupinfor
    Inherits System.Web.UI.Page

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

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

    End Sub

    '注意: 以下占位符声明是 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
  
    Dim conn As SqlConnection
    Dim connectionstring As String
    Dim sql As String
    Dim mycmd As SqlCommand
    Dim getdata As SqlDataReader



    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_group order by group_id"
        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 groupid As String
            groupid = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text

            Response.Write("<script>alert('您确定要删除吗！！！');</script>")
            sql = "delete  from sci_group where group_id=" + groupid + ""
            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 groupid As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
        Dim sqlstr As String
        Dim name As TextBox = e.Item.Cells(1).Controls(0)
        'Dim depid As TextBox = e.Item.Cells(2).Controls(0)
        Dim principal As TextBox = e.Item.Cells(3).Controls(0)

        sqlstr = "update sci_group set group_name= '" + name.Text.ToString.Trim + "', principal= '" + principal.Text.ToString.Trim + "' where group_id='" + groupid + " ' "
        mycmd = New SqlCommand(sqlstr, conn)
        mycmd.ExecuteNonQuery()
        'BindGrid()
        conn.Close()
        Response.Write("<script>alert('更新成功！！！');</script>")
        conn.Open()
        MyDataGrid.EditItemIndex = -1
        BindGrid()
    End Sub

End Class