viewuserinfo.aspx.vb

图书借阅系统：建立一个图书管理系统

Imports System.Data.SqlClient
Public Class ViewUserInfo
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents lbUserID As System.Web.UI.WebControls.Label
    Protected WithEvents lbUserName As System.Web.UI.WebControls.Label
    Protected WithEvents lbSex As System.Web.UI.WebControls.Label
    Protected WithEvents lbEMail As System.Web.UI.WebControls.Label
    Protected WithEvents lbState As System.Web.UI.WebControls.Label
    Protected WithEvents lbStyle As System.Web.UI.WebControls.Label
    Protected WithEvents lbBookNum As System.Web.UI.WebControls.Label
    Protected WithEvents lbBookDate As System.Web.UI.WebControls.Label
    Protected WithEvents lbReLend As System.Web.UI.WebControls.Label
    Protected WithEvents lbIsBookManager As System.Web.UI.WebControls.Label
    Protected WithEvents lbIsSysManager As System.Web.UI.WebControls.Label
    Protected WithEvents lbUnit As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 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("UserID") = "" Then
            Response.Redirect("Login.aspx")
        Else
            LoadUserInfo(Session("UserID"))
        End If

    End Sub
    Public Sub LoadUserInfo(ByVal UserID As String)
        Dim sqlstr As String = "select * from UserInfo,RoleInfo where UserInfo.RoleID=RoleInfo.RoleID and UserID='" + UserID + "'"
        Dim obj As DBController = New DBController
        Dim myreader As SqlDataReader = obj.ExecReaderSql(sqlstr)
        If myreader.Read Then
            lbUserID.Text = myreader("UserID")
            lbUserName.Text = myreader("UserName")
            lbSex.Text = myreader("Sex")
            lbUnit.Text = myreader("Unit")
            lbEMail.Text = myreader("EMail")
            If myreader("State") = "1" Then
                lbState.Text = "激活"
            Else
                lbState.Text = "挂起"
            End If
            lbStyle.Text = myreader("RoleStyle")
            lbBookDate.Text = myreader("BookDate")
            lbBookNum.Text = myreader("BookNum")
            If myreader("ReLend") = "1" Then
                lbReLend.Text = "是"
            Else
                lbReLend.Text = "否"
            End If
            If myreader("IsBookManager") = "1" Then
                lbIsBookManager.Text = "是"
            Else
                lbIsBookManager.Text = "否"
            End If
            If myreader("IsSysManager") = "1" Then
                lbIsSysManager.Text = "是"
            Else
                lbIsSysManager.Text = "否"
            End If
            obj.Close()
        End If

    End Sub
End Class