groupinfor.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class groupinfor1
    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, uid, sqlstr As String
    Dim mycmd As SqlCommand
    Dim getdata As SqlDataReader
    Dim da As SqlDataAdapter


    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 Session("user_id") = "" Then
            Response.Redirect("login.aspx")
        Else
            uid = Session("user_id")
        End If

        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
        If Session("user_id") = "" Then
            Response.Redirect("login.aspx")
        Else

            uid = Session("user_id")
        End If
        sqlstr = "select sci_group.dep_id from sci_user,sci_group where (sci_user.group_id=sci_group.group_id and sci_user.user_id='" + uid + "')"
        da = New SqlDataAdapter(sqlstr, conn)
        Dim ds As DataSet = New DataSet
        conn.Open()
        da.Fill(ds)

        If Not IsPostBack Then
            BindGrid()
            Label2.Text = "您是 " + ds.Tables(0).Rows(0)(0).ToString.Trim() + "  院的管理员"

        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"
        sql = "select * from sci_group where dep_id in (select sci_group.dep_id from sci_user,sci_group where (sci_user.group_id=sci_group.group_id and sci_user.user_id='" + Session("user_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