mail.aspx.vb

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

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

Public Class mail
    Inherits System.Web.UI.Page
    Dim myDataView As DataView
    Dim SQLstr As String

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

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

    End Sub
    Protected WithEvents mydatagrid As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 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 Session("login_name") = "" Then
            Response.Redirect("login.aspx")
        End If
        '<------------------------------按用户单位显示数据表------------------------------>
        If Global.ReturnSingleInfo("SELECT 权限 FROM person WHERE 登陆名='" & Session("login_name") & "'") = "00" Then '如果是超级用户就可以查看所有的库
            SQLstr = "Select * From card "
            myDataView = Global.CreateDataView(SQLstr)
            mydatagrid.DataSource = myDataView
            mydatagrid.DataBind()
        Else  '不是超级用户就按单位情况查询
            SQLstr = "Select * From card where 使用单位='" & Global.ReturnSingleInfo("SELECT 单位 FROM person WHERE 登陆名='" & Session("login_name") & "'") & "' "
            myDataView = Global.CreateDataView(SQLstr)
            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

End Class