query.aspx.vb

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

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