issueinfor.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class issueinfor
    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 (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='" + Session("user_id") + "')"
        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_issue where s_in='Y'"
        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()
        conn.Close()
    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()
        conn.Close()
    End Sub

    Private Sub MyDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MyDataGrid.UpdateCommand
        Dim s_id As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
        Dim sqlstr As String
        Dim s_name As TextBox = e.Item.Cells(1).Controls(0)
        Dim s_research_area As TextBox = e.Item.Cells(2).Controls(0)
        Dim s_keyword As TextBox = e.Item.Cells(3).Controls(0)
        Dim s_type As TextBox = e.Item.Cells(4).Controls(0)
        Dim fruit_type As TextBox = e.Item.Cells(5).Controls(0)
        Dim s_research_form As TextBox = e.Item.Cells(6).Controls(0)
        Dim s_money_src As TextBox = e.Item.Cells(7).Controls(0)
        Dim s_approve_unit As TextBox = e.Item.Cells(8).Controls(0)

        Dim s_approve_date As TextBox = e.Item.Cells(9).Controls(0)
        Dim s_plan_comp As TextBox = e.Item.Cells(10).Controls(0)

        Dim s_abstract As TextBox = e.Item.Cells(12).Controls(0)

        Dim s_memo As TextBox = e.Item.Cells(13).Controls(0)
       
        sqlstr = "update sci_issue set s_name= '" + s_name.Text.ToString.Trim + "',s_research_area= '" + s_research_area.Text.ToString.Trim + "',s_keyword= '" + s_keyword.Text.ToString.Trim + "',s_type= '" + s_type.Text.ToString.Trim + "' ,fruit_type= '" + fruit_type.Text.ToString.Trim + "',s_research_form= '" + s_research_form.Text.ToString.Trim + "',s_money_src= '" + s_money_src.Text.ToString.Trim + "',s_approve_unit= '" + s_approve_unit.Text.ToString.Trim + "',s_approve_date= '" + s_approve_date.Text.ToString.Trim + "',s_plan_comp= '" + s_plan_comp.Text.ToString.Trim + "',s_abstract= '" + s_abstract.Text.ToString.Trim + "', s_memo= '" + s_memo.Text.ToString.Trim + "' where s_id = '" + s_id + "'"
        mycmd = New SqlCommand(sqlstr, conn)
        mycmd.ExecuteNonQuery()

        Response.Write("<script>alert('更新成功！！！');</script>")

        MyDataGrid.EditItemIndex = -1
        BindGrid()
        conn.Close()
    End Sub

End Class