personbase.aspx.vb

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

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

Public Class personbase
    Inherits System.Web.UI.Page

    Dim SQLstr As String
    Dim person_Condition As String   '定义查询条件
    Dim person_RangeString As String '定义查询表达式
    Dim competence As Boolean        '判断用户的权限是否为超级用户

#Region " Web 窗体设计器生成的代码 "

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

    End Sub
    Protected WithEvents mydatagrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents conditiondropdownlist As System.Web.UI.WebControls.DropDownList
    Protected WithEvents rangetextbox As System.Web.UI.WebControls.TextBox
    Protected WithEvents query_Button As System.Web.UI.WebControls.Button
    Protected WithEvents MyButton As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents CustomValidator1 As System.Web.UI.WebControls.CustomValidator
    Protected WithEvents btnRemove As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents Condition As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents RangeString As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents SelectAllButton As System.Web.UI.WebControls.Button
    Protected WithEvents info As System.Web.UI.WebControls.Label
    Protected WithEvents VerdictDeleteButton As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents tempUpdataResult As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents selectAll As System.Web.UI.WebControls.LinkButton
    Protected WithEvents notSelectAll As System.Web.UI.WebControls.LinkButton

    '注意: 以下占位符声明是 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
        '在此处放置初始化页的用户代码
        Dim person_tag As String = Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'")
        If person_tag = "00" Then
            Me.competence = True
        Else
            Me.competence = False
        End If

        If Not IsPostBack Then

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

            '<-------------------------------判断是否是管理人员（person_tag=0*)---------------------------->
            If person_tag >= "00" And person_tag <= "09" Then
            Else
                Response.Redirect("false.aspx")
            End If

            If (Me.competence) Then
                MyButton.Visible = True
            Else
                MyButton.Visible = False
            End If
            Me.Condition.Value = ""
            Me.RangeString.Value = ""

            Dim conditionString() As String = New String(2) {"按用户名", "按单位", "按登陆名"}
            conditiondropdownlist.DataSource = conditionString
            conditiondropdownlist.DataBind()
            Me.conditiondropdownlist.SelectedIndex = -1

            '<------------------------------按用户单位显示数据表------------------------------>
            SQLstr = getQueryString(Me.competence)
            mydatagrid.DataSource = Global.CreateDataView(SQLstr)
            mydatagrid.DataBind()
        ElseIf Me.VerdictDeleteButton.Value = "updata" Then
            refresh()
        End If
    End Sub

    Function getQueryString(ByVal competence As Boolean) As String
        If (competence) Then
            If Me.Condition.Value <> "" Then
                Return "Select * From person where " & Me.Condition.Value & " like'%" & Me.RangeString.Value & "%'"
            Else
                Return "Select * From person"
            End If
        Else
            Dim person_unit As String = Global.ReturnSingleInfo("SELECT 单位 FROM person WHERE 登陆名='" & Session("login_name") & "'")
            If Me.Condition.Value <> "" Then
                Return "Select * From person where " & Me.Condition.Value & " like'%" & Me.RangeString.Value & "%' and 单位='" & person_unit & "' "
            Else
                Return "Select * From person where 单位='" & person_unit & "' "
            End If
        End If
    End Function

    Public Sub SelectThisPage(ByVal sender As System.Object, ByVal E As System.EventArgs) Handles selectAll.Click
        info.Text = ""
        Dim oDataGridItem As DataGridItem
        Dim check_card As System.Web.UI.WebControls.CheckBox '声明ChecBox控件
        For Each oDataGridItem In mydatagrid.Items '遍利数据库中的所有行
            check_card = oDataGridItem.FindControl("check_card") '将每列前面的CheckBox值赋予 check_card
            check_card.Checked = True '将其设置为“真” （打勾）
        Next
    End Sub

    '<------------------------------点击可全选所有行------------------------------------>
    Public Sub NotSelectThisPage(ByVal sender As System.Object, ByVal E As System.EventArgs) Handles notSelectAll.Click
        info.Text = ""
        Dim oDataGridItem As DataGridItem
        Dim check_card As System.Web.UI.WebControls.CheckBox        '　同上
        For Each oDataGridItem In mydatagrid.Items
            check_card = oDataGridItem.FindControl("check_card")
            check_card.Checked = False
        Next
    End Sub

    '<-------------当用户翻页时处理------------------->
    Sub ChangePage(ByVal Sender As Object, ByVal e As DataGridPageChangedEventArgs) Handles mydatagrid.PageIndexChanged
        info.Text = ""
        mydatagrid.SelectedIndex = -1
        mydatagrid.CurrentPageIndex = e.NewPageIndex
        SQLstr = getQueryString(Me.competence)
        mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
    End Sub

    '<----------------------------点击查询产生的事件----------------------------------->
    Sub querybuttton_click(ByVal sender As Object, ByVal e As EventArgs) Handles query_Button.Click
        info.Text = ""
        Dim person_ConditionString As String
        person_ConditionString = Trim(conditiondropdownlist.SelectedItem.Text) '查询条件下拉列表框值取出
        person_RangeString = Trim(rangetextbox.Text) '查询范围文本框值取出
        Select Case person_ConditionString '判断的查询条件下拉列表框的值
            Case "按用户名"
                person_Condition = "用户名"
            Case "按单位"
                person_Condition = "单位"
            Case "按登陆名"
                person_Condition = "登陆名"
        End Select
        Me.Condition.Value = Me.person_Condition
        Me.RangeString.Value = Me.person_RangeString

        SQLstr = getQueryString(Me.competence)
        mydatagrid.SelectedIndex = -1
        mydatagrid.CurrentPageIndex = 0
        mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
    End Sub

    Private Sub SelectAllButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectAllButton.Click
        info.Text = ""
        Me.Condition.Value = ""
        Me.RangeString.Value = ""
        SQLstr = getQueryString(Me.competence)
        mydatagrid.SelectedIndex = -1
        mydatagrid.CurrentPageIndex = 0
        mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
        Me.conditiondropdownlist.SelectedIndex = -1
        Me.rangetextbox.Text = ""
    End Sub

    Protected Sub singleDelete(ByVal Sender As Object, ByVal e As CommandEventArgs)
        Dim MyConnection As SqlConnection = Global.GetConnection("equipment")
        Dim DeleteCmd As String = "DELETE from person where person_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()
            info.Text = "记录已经成功删除"
            info.Style.Add("color", "#5a8ede")
            MyConnection.Close()
        Catch Exc As SqlException
            info.Text = "ERROR: Could not delete record"
            info.Style.Add("color", "red")
        Finally
            MyCommand.Connection.Close()
        End Try

        SQLstr = getQueryString(Me.competence)
        mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
    End Sub

    Sub refresh()
        SQLstr = Me.getQueryString(Me.competence)
        Me.mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
        Me.info.Text = Me.tempUpdataResult.Value
        If info.Text = "修改记录成功！" Then
            info.Style.Add("color", "green")
        Else
            info.Style.Add("color", "red")
        End If
        Me.tempUpdataResult.Value = ""
        Me.VerdictDeleteButton.Value = ""
    End Sub

    '<-----------------------------点击删除数据库中打勾的行------------------------------->
    Private Sub btnRemove_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemove.ServerClick

    End Sub

    Private Sub MyButton_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButton.ServerClick
        SQLstr = Me.getQueryString(Me.competence)
        Me.mydatagrid.DataSource = Global.CreateDataView(SQLstr)
        mydatagrid.DataBind()
        Me.info.Text = Me.tempUpdataResult.Value
        If info.Text = "添加记录成功！" Then
            info.Style.Add("color", "green")
        Else
            info.Style.Add("color", "red")
        End If
        Me.tempUpdataResult.Value = ""
        Me.VerdictDeleteButton.Value = ""
    End Sub

End Class