Criando uma Pagina de Autenticação com Banco de Dados Access

Esta coluna ira ensinar conceitos basicos de orientação a objeto, é bem simples, efeturaremos login em bando de dados acess, e guardaremos os valores em objetos da Classe Usuario tambem vermos como utilizar propertys no VN.NET, em fim.

Por | @oficinadanet Programação
Nesta coluna aprenderemos como guardar valores em objetos, criaremos a classe usuário onde armazenaremos dados do banco neste objeto usuário. Primeiro criaremos um banco de dados no Access com a tabela tUsuarios com o campos abaixo como mostra figura:

Criando uma Pagina de Autenticação com Banco de Dados Access

Feito isso abriremos o Visual Studio e criaremos um novo website como na imagem abaixo também, seguindo a mesma estrutura:

Criando uma Pagina de Autenticação com Banco de Dados Access

Imports Microsoft.VisualBasic
Imports System.Data.OleDb

Public Class Usuario

    '*** Atributos
    Private vNome As String
    Private vEmail As String
    Private vStatus As String

    Public Sub New(ByVal User As String, ByVal Pass As String)
        CarregaUsuario(User, Pass)
    End Sub

    '*** Propriedades
    Public ReadOnly Property setaNome()
        Get
            Return Me.vNome.ToString
        End Get
    End Property

    Public ReadOnly Property setaEmail()
        Get
            Return Me.vEmail.ToString
        End Get
    End Property

    Public ReadOnly Property setaStatus()
        Get
            Return Me.vStatus.ToString
        End Get
    End Property

    '*** Metodos
    Private Sub CarregaUsuario(ByVal vUsuario As String, ByVal vSenha As String)
        Dim Query As String = "SELECT UsuCod, UsuNom, UsuEma, UsuStu FROM tUsuarios WHERE UsuLog='" & vUsuario.ToString & "' AND UsuSen='" & vSenha.ToString & "'"
        Dim Conexao As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:WebSitesAutenticacaoApp_DataDataBase.mdb;")
        Dim Comando As New OleDbCommand(Query, Conexao)
        Dim DtReader As OleDbDataReader
        '*** Executa o Camando na Base
        Conexao.Open()
        DtReader = Comando.ExecuteReader()
        If DtReader.Read() Then
            Me.vNome = DtReader("UsuNom").ToString
            Me.vEmail = DtReader("UsuEma").ToString
            Me.vStatus = DtReader("UsuStu").ToString
        Else
            Me.vNome = ""
            Me.vEmail = ""
            Me.vStatus = ""
        End If
        Conexao.Close()
    End Sub

End Class


Após isso implementaremos a pagina de Autenticação no nosso caso ela chamara “Autenticacao.aspx”  com o código HTML a baixo:

<%@ Page Language="VB" Debug="true" AutoEventWireup="false" CodeFile="Autenticacao.aspx.vb" Inherits="Autenticacao" %>


    Autenticação


    

    Usuario: rodrigo

    Senha: tele

    Status: Ativo
    


    Usuario: renato

    Senha: carro

    Status: Ativo
    


    Usuario: rosilene

    Senha: metal

    Status: Inativo
    


    Usuario: reinaldo

    Senha: faca

    Status: Inativo
    


    

       LOGIN
      
            
                
                
            
            
                
                
            
            
                
                
            
        

                  
                

                                    
                

                  
                

                  
                

                

                  
                

    

    

    

       USUÁRIO
        
            
                
                
            
            
                
                
            
            
                
                
            
        

                  
                

                                    
                

                  
                

                  
                

                
                

                      
                

    
    

    




Criaremos então os eventos da pagina de dos botões mais precisamente a lógica (funcionalidade da pagina de Autenticação) segue a baixo: “Autenticacao.vb”

Partial Class Autenticacao
    Inherits System.Web.UI.Page

    Protected Sub BntLogar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BntLogar.Click
        '*** Pega os Valores das Caixas de Texto
        Dim Usuario As String = Trim(txtUsuario.Text)
        Dim Senha As String = Trim(txtSenha.Text)

        '*** Cria a Estancia do Objeto Usuario
        Dim objUsuario As New Usuario(Usuario, Senha)
        Select Case objUsuario.setaStatus
            Case "I"
                txtNomeUser.Text = objUsuario.setaNome
                txtNomeUser.Style.Add("background-color", "#CCCCCC")
                txtEmailUser.Text = objUsuario.setaEmail
                txtEmailUser.Style.Add("background-color", "#CCCCCC")
                lblStatus.Text = "Inativo"
            Case "A"
                txtNomeUser.Text = objUsuario.setaNome
                txtNomeUser.Style.Add("background-color", "#FFFFFF")
                txtEmailUser.Text = objUsuario.setaEmail
                txtEmailUser.Style.Add("background-color", "#FFFFFF")
                lblStatus.Text = "Ativo"
            Case ""
                txtNomeUser.Text = objUsuario.setaNome
                txtNomeUser.Style.Add("background-color", "#FFFFFF")
                txtEmailUser.Text = objUsuario.setaEmail
                txtEmailUser.Style.Add("background-color", "#FFFFFF")
                lblStatus.Text = "Não Existe"
        End Select
    End Sub

    Protected Sub BntLipar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BntLipar.Click
        '*** Limpa Caixas de Texto
        txtUsuario.Text = String.Empty
        txtSenha.Text = String.Empty
        txtNomeUser.Text = String.Empty
        txtEmailUser.Text = String.Empty
        lblStatus.Text = String.Empty
    End Sub

End Class


Nesta pagina temos o Evento do Botão Logar que é o “Protected Sub BntLogar_Click”  onde nele temos criado uma estância da classe Usuário passando os parâmetros para a verificar se o usuário existe ou não no banco. E também temos o evento “Protected Sub BntLipar_Click” que é encarregado de limpar os TextBox da pagina. Temos então:

Criando uma Pagina de Autenticação com Banco de Dados Access
Qualquer dúvida email para contato rodrigo_arf@hotmail.com

Recomendado
Comentários
Carregar comentários
Destaquesver tudo