loginvb.ascx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 66 行

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Namespace Telerik.CallbackExamplesVB.Functionality.LoadingUserControls

    '/ <summary>
    '/		Summary description for Login.
    '/ </summary>

    Public Class Login
        Inherits System.Web.UI.UserControl
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label3 As System.Web.UI.WebControls.Label
        Protected Label4 As System.Web.UI.WebControls.Label
        Protected tbUserName As System.Web.UI.WebControls.TextBox
        Protected tbPassword As System.Web.UI.WebControls.TextBox
        Protected WithEvents btnLogin As System.Web.UI.WebControls.Button
        Protected lblStatus As System.Web.UI.WebControls.Label
        Protected Label5 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim page As MainPage = CType(Me.Page, MainPage)
            If page.Logged Then             
                lblStatus.Text = "Logged."
                btnLogin.Text = "Log out"
            Else                                
                lblStatus.Text = "Not logged yet."
                btnLogin.Text = "Log in"
            End If

        End Sub 'Page_Load

        Private Property Logged() As Boolean
            Get
                Return CType(Me.Page, MainPage).Logged
            End Get
            Set(ByVal Value As Boolean)
                CType(Me.Page, MainPage).Logged = Value
            End Set
        End Property


        Private Sub CallbackButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
            If Logged Then
                lblStatus.Text = "Not logged yet."
                btnLogin.Text = "Log in"
                Logged = False
            Else
                If tbUserName.Text.Equals("user") AndAlso tbPassword.Text.Equals("pass") Then
                    Dim mainPage As mainPage = CType(Me.Page, mainPage)
                    mainPage.Logged = True                    
                    mainPage.LoadUserControl("TasksVB.ascx") '                    
                Else
                    Label5.Text = "Invalid user name or password."
                End If
            End If

        End Sub 'CallbackButton1_Click
    End Class 'Login
End Namespace