foundbase.aspx.vb

用VB.NET在VS.NET 2003下开发的完整的设备管理系统,后台数据库为SQL SERVER 2000,解压缩后请先阅读"说明"文件来部署此系统.

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class foundbase
    Inherits System.Web.UI.Page

    Dim MyConnection As SQLConnection
    Dim SQLstr As String
#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents mydatagrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents 设备名称 As System.Web.UI.WebControls.TextBox
    Protected WithEvents 存放地点 As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnAdd As System.Web.UI.WebControls.Button
    Protected WithEvents deleteLabel As System.Web.UI.WebControls.Label
    Protected WithEvents CustomValidator1 As System.Web.UI.WebControls.CustomValidator

    '注意: 以下占位符声明是 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

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        deleteLabel.Visible = False
        If Not IsPostBack Then

            If Session("login_name") = "" Then
                Response.Redirect("../login.aspx")
            End If

            '<-------------------------------判断是否是管理人员（person_tag=00)---------------------------->
            Dim person_tag As String = Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'")
            If Trim(person_tag) <> "00" Then
                Response.Redirect("false.aspx")
            End If
            SQLstr = "select * from found"
            mydatagrid.DataSource = Global.CreateDataView(SQLstr)
            mydatagrid.DataBind()
        End If
    End Sub

    '<-------------当用户翻页时处理------------------->
    Sub ChangePage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs) Handles mydatagrid.PageIndexChanged
        mydatagrid.CurrentPageIndex = e.NewPageIndex
        mydatagrid.EditItemIndex = -1
        '<------------在对当前页在进行一次查询然后再次与DataView控件绑定------------------->
        SQLstr = "Select * From found"
        mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
    End Sub

    '--------------------------增加数据 处理点击+的事件--------------------------------------
    Sub btnAdd_Click(ByVal Sender As Object, ByVal e As EventArgs) Handles btnAdd.Click
        '------------------------SQL命令 @后为数据源的列名---------------------------
        MyConnection = Global.GetConnection("equipment")
        Dim InsertCmd As String = "Insert found (设备名称,存放地点) Values (@设备名称,@存放地点)"
        Dim MyCommand As SqlCommand = New SqlCommand(InsertCmd, MyConnection)

        '------------------向MyCommand加入各种参数对象 ----------------------
        MyCommand.Parameters.Add(New SqlParameter("@设备名称", SqlDbType.Char, 20))
        MyCommand.Parameters("@设备名称").Value = 设备名称.Text
        MyCommand.Parameters.Add(New SqlParameter("@存放地点", SqlDbType.Char, 20))
        MyCommand.Parameters("@存放地点").Value = 存放地点.Text
        MyCommand.Connection.Open() '打开连接
        MyCommand.ExecuteNonQuery()
        MyCommand.Connection.Close() '关闭连接
        BindGrid()
    End Sub

    Sub BindGrid()
        mydatagrid.DataSource = Global.CreateDataView("select * from found")
        mydatagrid.DataBind()
    End Sub

    '<--------------------------删除数据-------------------------------->
    Protected Sub dataDelete(ByVal Sender As Object, ByVal e As CommandEventArgs)

        Dim MyConnection As SqlConnection = Global.GetConnection("equipment")
        Dim DeleteCmd As String = "DELETE from found where found_id = @Id"
        Dim MyCommand As SqlCommand = New SqlCommand(DeleteCmd, MyConnection)
        MyCommand.Parameters.Add(New SqlParameter("@Id", SqlDbType.Int, 4))
        MyCommand.Parameters("@Id").Value = CInt(e.CommandArgument) '取出点击的记录行

        MyCommand.Connection.Open()
        Try '删除数据的提示
            MyCommand.ExecuteNonQuery()
            deleteLabel.Visible = True
            deleteLabel.Text = "<b>记录已经成功删除</b>"
            deleteLabel.Style.Add("color", "#ffffff")
            MyConnection.Close()
        Catch Exc As SqlException
            deleteLabel.Text = "ERROR: Could not delete record"
            deleteLabel.Style.Add("color", "red")
        Finally
            MyCommand.Connection.Close()
        End Try
        mydatagrid.DataSource = Global.CreateDataView("select * from found")
        mydatagrid.DataBind()
    End Sub
End Class