infruit.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class infruit1
    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
        Dim adapter As SqlDataAdapter = New SqlDataAdapter("Select * from sci_fruit where f_in='Y'", 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 fid As String
            fid = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text

            Response.Write("<script>alert('您确定要删除吗！！！');</script>")
            sql = "delete  from sci_fruit where f_id=" + fid + ""
            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 f_id As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
        Dim sqlstr As String
        Dim f_name As TextBox = e.Item.Cells(1).Controls(0)
        Dim f_research_area As TextBox = e.Item.Cells(2).Controls(0)
        Dim f_keyword As TextBox = e.Item.Cells(3).Controls(0)
        Dim f_counts As TextBox = e.Item.Cells(4).Controls(0)
        Dim fruit_type As TextBox = e.Item.Cells(5).Controls(0)
        Dim research_kind As TextBox = e.Item.Cells(6).Controls(0)
        Dim f_kind As TextBox = e.Item.Cells(7).Controls(0)
        Dim f_language As TextBox = e.Item.Cells(8).Controls(0)

        Dim f_finish_date As TextBox = e.Item.Cells(9).Controls(0)
        Dim f_pub_com As TextBox = e.Item.Cells(10).Controls(0)

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

        Dim f_memo As TextBox = e.Item.Cells(13).Controls(0)
        Dim f_in As TextBox = e.Item.Cells(14).Controls(0)

        sqlstr = "update sci_fruit set f_name= '" + f_name.Text.ToString.Trim + "',f_research_area= '" + f_research_area.Text.ToString.Trim + "',f_keyword= '" + f_keyword.Text.ToString.Trim + "',f_counts= '" + f_counts.Text.ToString.Trim + "' ,fruit_type= '" + fruit_type.Text.ToString.Trim + "',research_kind= '" + research_kind.Text.ToString.Trim + "',f_kind= '" + f_kind.Text.ToString.Trim + "',f_language= '" + f_language.Text.ToString.Trim + "',f_finish_date= '" + f_finish_date.Text.ToString.Trim + "',f_pub_com= '" + f_pub_com.Text.ToString.Trim + "',f_abstract= '" + f_abstract.Text.ToString.Trim + "', f_memo= '" + f_memo.Text.ToString.Trim + "', f_in= '" + f_in.Text.ToString.Trim + "' where f_id = '" + f_id + "'"
        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