lackissue.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class notinissue
    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_issue where s_in='N'"
        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_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 sid As String
            sid = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text

            Response.Write("<script>alert('您确定要删除吗！！！');</script>")
            sql = "delete  from sci_issue where s_id=" + sid + ""
            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
        If (e.CommandName = "approve") Then

            If MyDataGrid.EditItemIndex = -1 Then
                Dim s_id As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
                Dim sqlstr As String

                Response.Write("<script>alert('您确定要审批此课题吗！！！');</script>")
                sqlstr = "update sci_issue set s_in= 'Y' where s_id = '" + s_id + "'"
                mycmd = New SqlCommand(sqlstr, conn)
                mycmd.ExecuteNonQuery()
                Response.Write("<script>alert('审批成功！！！');</script>")
                BindGrid()
                conn.Close()
            Else
                Response.Write("<script>alert('您现在不能审批此课题！！！');</script>")
            End If
        End If
    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 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)
        Dim s_in As TextBox = e.Item.Cells(14).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 + "', s_in= '" + s_in.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

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

    End Sub
End Class