Olá pessoal, meu nome é Maurício Júnior e estou mais uma vez aqui para mostrar o próximo passo em fazer um sistema de login utilizando ASP com três camadas. Espero poder estar ajudando a todos.

 

Para quem não acompanhou o desenvolvimento das outras partes, segue um link de cada uma (8.1).

 

Parte I Parte II Parte III Parte IV Parte V Parte VI Parte VII

Referência: 8.1

 

No passo anterior, falei e mostrei com figuras como adicionar o arquivo Global.bas e como criar uma classe dentro do seu projeto utilizando o Visual Basic 6.0. Mostrei também como criar um projeto que na hora da compilação, o mesmo irá gerar uma dll onde pode ser registrada no COM PLUS.

 

Especificamente na “parte II”, mostrei e expliquei o banco de dados de usuários e criação da STORED PROCEDURE para validação de usuários para logar no sistema. Qualquer dúvida, favor acessar e verificar.

 

 

Continuarei com o Visual Basic 6.0 para criar uma “function” responsável em verificar ou validar o usuário e senha junto ao banco de dados utilizando a STORED PROCEDURE do nome “ASPSP001_VALIDARUSUARIO” cujo recebe dois parâmetros necessários. Dentro da mesma “function” irei verificar o perfil do usuário e também retorna-lo à página que chamou.

 

Referência: 8.2

 

Mostro na referência 8.2 apenas que a classe de segurança está junto com o Global.bas dentro de um mesmo projeto.

 

 

Function Validar Usuario

 

 

Public Function ValidarUsuario(ByVal USU_CO_USUARIO As String, _                                ByVal USU_CO_SENHA As String) As Variant                                  Static sSql As String Static sCoSenha As String Static vRetorno(1) As Variant Static vRetUsuario As Variant Static vRetPerfil As Variant   On Error GoTo error   If AbreConexao("open") Then          sCoSenha = Encryptografar(USU_CO_SENHA)         sSql = "ASPSP001_VALIDARUSUARIO '" & USU_CO_USUARIO & "', '" & sCoSenha & "'"     vRetUsuario = ExecutaSQLArray(sSql)         If IsArray(vRetUsuario) Then         sSql = "ASPSP002_CONSULTARPERFILUSUARIO '" & USU_CO_USUARIO & "'"         vRetPerfil = ExecutaSQLArray(sSql)     End If                                                     vRetorno(0) = vRetUsuario     vRetorno(1) = vRetPerfil                                                 error:         If Err.Number <> 0 Then             GerarLog "ValidarUsuario", DescricaoErro(1)         End If                 ValidarUsuario = vRetorno       AbreConexao "close" End If

Referência: 8.3

 

O código (8.3) é uma function responsável para validação de usuário junto ao sistema. Esse código é ainda dentro do Visual Basic 6.0.

 

A referência (8.4) mostro a imagem como deve ficar a “function” dentro do Visual Basic 6.0 e na classe “clsSeguranca” todo o tipo de verificação do usuário que irá logar no sistema.

 

 

 

Explicação:

Como topo passo começo analisando a assinatura da “function”, esse não será diferente. (8.5)

 

Public Function ValidarUsuario(ByVal USU_CO_USUARIO As String, _                                ByVal USU_CO_SENHA As String) As Variant

Referência: 8.5

 

Note que a function ValidarUsuario é pública e possui dois parâmetros de entrada do tipo string e retorna um array do tipo Variant. Esse tipo geralmente é usado para retornar array e muito usado dentro do Visual Basic 6.0

Em seguida, declarei as variáveis a serem usadas dentro da function. (Referência 8.6)

 

 

Static sSql As String Static sCoSenha As String Static vRetorno(1) As Variant Static vRetUsuario As Variant Static vRetPerfil As Variant

Referência: 8.6

 

 

On Error GoTo error   If AbreConexao("open") Then

Referência: 8.7

 

O código (8.7) declarei o On Error GoTo error para poder pegar qualquer tipo de erro que ocorrer dali em diante. A linha seguinte do código é uma condição para verificar se a conexão junto ao banco e dados está aberta. Essa function AbreConexao(“open”) está dentro do arquivo base que criei anteriormente chamado Global.bas. O mesmo foi explicado em passos anteriores.

 

 

sCoSenha = Encryptografar(USU_CO_SENHA)         sSql = "ASPSP001_VALIDARUSUARIO '" & USU_CO_USUARIO & "', '" &                  sCoSenha & "'"     vRetUsuario = ExecutaSQLArray(sSql)

Referência: 8.8

 

 

A variável declarada anteriormente, uso para criptografar a senha enviada do site em asp que por si manda para o componente desenvolvido em Visual Basic 6.0. Essa function “Encryptografar” está dentro do arquivo Global.bas, explicado e mostrado em passos anteriores.

 

Em seguida, depois de criptografar usando a function devidamente desenvolvida, monto o SQL utilizando uma STORED PROCEDURE do banco de dados passando os parâmetros necessários. A SP foi criada em passos anteriores, seguida da explicação. Não esqueça de colocar as aspas simples e duplas quando o parâmetro é do tipo “string” e apenas aspas duplas para o valor que for do tipo “numérico”.

 

A linha seguinte é atribuindo ao array declarado anteriormente e utilizo a function “ExecutaSQLArray” passando a string SQL montada anteriormente.  Essa function retorna um array de dados.

 

 

If IsArray(vRetUsuario) Then         sSql = "CPESP002_CONSULTARPERFILUSUARIO '" & USU_CO_USUARIO & "'"         vRetPerfil = ExecutaSQLArray(sSql)     End If

Referência: 8.9

 

 

A referência 8.9, verifico com a condição IsArray passando o array atribuído anteriormente, isto é, primeiro verifico se tem dados para executar uma outra STORED PROCEDURE que consulta o perfil do usuário. No próximo passo irei falar mais sobre essa SP. A linha abaixo, atribuo a outra variável de array a function ExecutaSQLArray passando o SQL montado, por final, termino a condição com o END IF.

 

 

vRetorno(0) = vRetUsuario     vRetorno(1) = vRetPerfil                                                  error:         If Err.Number <> 0 Then             GerarLog "ValidarUsuario", DescricaoErro(1)         End If                 ValidarUsuario = vRetorno       AbreConexao "close" End If

Referência: 8.10

 

 

Explicação:

 

Bom, as duas primeiras linhas pegam os vetores de usuário e perfil atribuindo ao vetor que será retornado junto ao sistema ou function que chamou. Na declaração falada, mostro que esse array poderia ter duas posições 0 e 1. (8.11)

 

Static vRetorno(1) As Variant

Referência: 8.11

A variável tendo duas posições, posso adicionar na posição zero valores e na posição um valores. (8.12)

 

 

vRetorno(0) = vRetUsuario     vRetorno(1) = vRetPerfil

Referência: 8.12

 

 

A referência 8.13, serve para, se ocorrer algum tipo de erro dentro do código da function o mesmo será redirecionado automaticamente para dentro da parte error do código.

 

error:         If Err.Number <> 0 Then             GerarLog "ValidarUsuario", DescricaoErro(1)         End If                 ValidarUsuario = vRetorno       AbreConexao "close"

Referência: 8.13

 

Ainda com a referência 8.13, verifico se o erro é diferente de zero. Se for diferente, gero o log de erro mandando a classe e a descrição do erro. No final retorno para a function que chamou a variável vRetorno (8.14) e fecho a conexão (8.15).

 

ValidarUsuario = vRetorno

Referência: 8.14

 

AbreConexao "close"

Referência: 8.15

 

 

Bom, fico por aqui. Espero ter ajudado de alguma forma.

O próximo passo, irei falar como registrar a dll no COM PLUS e chamada de uma página ASP 3.0.

 

Qualquer dúvida favor entrar em contato.

 

Livros publicados:

 

 

 

 

Mauricio Junior

mauricio@aspneti.com

www.ascompras.com

www.aspneti.com