fruitinfor.aspx.vb

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

Imports System.Data
Imports System.Data.SqlClient
Partial Class fruitinfor
    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_fruit where group_id in(select group_id 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= '" + uid + " '))"
        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 f_id As String = MyDataGrid.Items(e.Item.ItemIndex).Cells(0).Text
        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)
     
        sql = "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 + "' where f_id = '" + f_id + "'"
        mycmd = New SqlCommand(sql, conn)
        mycmd.ExecuteNonQuery()
        Response.Write("<script>alert('更新成功！！！');</script>")

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

End Class