loaduser.ascx.vb

来自「主要模块有用户身份模块」· VB 代码 · 共 85 行

Imports System.Data.SqlClient
Public Class LoadUser
    Inherits System.Web.UI.UserControl

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

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

    End Sub
    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 lbUnit 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 lbAllowBooking 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
        '在此处放置初始化页的用户代码
    End Sub
    Public Function LoadUserInfo(ByVal UserID As String) As Boolean
        Dim sqlstr As String = "select * from UserInfo,RoleInfo where UserInfo.RoleID=RoleInfo.RoleID and State = 1  and UserID='" + UserID + "'"
        Dim obj As DBController = New DBController
        Dim myreader As SqlDataReader = obj.ExecReaderSql(sqlstr)
        If myreader.Read Then
            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("AllowBooking") = "1" Then
                lbAllowBooking.Text = "是"
            Else
                lbAllowBooking.Text = "否"
            End If

            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()
            Return True
        End If
        Return False

    End Function
End Class