query.aspx.vb

来自「用VB.NET在VS.NET 2003下开发的完整的设备管理系统,后台数据库为S」· VB 代码 · 共 105 行

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

Public Class query
    Inherits System.Web.UI.Page

    Dim myDataView As DataView
    Dim SQLstr As String
    Dim Condition As String   '定义查询条件
    Dim RangeString As String '定义查询表达式

#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

    '注意: 以下占位符声明是 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
        '在此处放置初始化页的用户代码
        '<----------------------------------开始模糊查询--------------------------------------->
        If Not IsPostBack Then

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

            Dim conditionString(2) As String
            conditionString(0) = "按设备名称"
            conditionString(1) = "按生产厂家"
            conditionString(2) = "按设备编号"
            conditiondropdownlist.DataSource = conditionString
            conditiondropdownlist.DataBind()

            '<------------------------------按用户单位显示数据表------------------------------>
            Dim person_tag As String = Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'")
            If person_tag = "00" Then '如果是超级用户就可以查看所有的库
                SQLstr = "Select * From card "
                myDataView = Global.CreateDataView(SQLstr)
            Else  '不是超级用户就按单位情况查询
                Dim person_unit As String = Global.ReturnSingleInfo("SELECT 单位 FROM person WHERE 登陆名='" & Session("login_name") & "'")
                SQLstr = "Select * From card where 使用单位='" & person_unit & "' "
                myDataView = Global.CreateDataView(SQLstr)
            End If
            mydatagrid.DataSource = myDataView
            mydatagrid.DataBind()
        End If
    End Sub

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


    '<----------------------------点击查询产生的事件----------------------------------->
    Sub querybuttton_click(ByVal sender As Object, ByVal e As EventArgs) Handles query_Button.Click
        Dim ConditionString As String
        ConditionString = Trim(conditiondropdownlist.SelectedItem.Text)
        RangeString = Trim(rangetextbox.Text)
        Select Case ConditionString
            Case "按设备名称"
                Condition = "设备名称"
            Case "按生产厂家"
                Condition = "生产厂家"
            Case "按设备编号"
                Condition = "设备编号"
        End Select
        Dim person_tag As String = Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'")
        If person_tag = "00" Then
            SQLstr = "Select * From card where " & Condition & " like'%" & RangeString & "%'"
        Else
            Dim person_unit As String = Global.ReturnSingleInfo("SELECT 单位 FROM person WHERE 登陆名='" & Session("login_name") & "'")
            SQLstr = "Select * From card where " & Condition & " like'%" & RangeString & "%' and 使用单位='" & person_unit & "' "
        End If
        mydatagrid.CurrentPageIndex = 0
        myDataView = Global.CreateDataView(SQLstr)
        mydatagrid.DataSource = myDataView
        mydatagrid.DataBind()
    End Sub

End Class