Pessoal eu tenho um formulário de login para se logar no meu sistema e funcionou blelezinha, mas eu sem querer descobri uma grande falha, eu digito minha senha de traz para frente e ele aceita numa boa! rs que coisa ñ!
O Código do form de login é este logo abaixo.
Alguem tem um exemplo bom ai de validação de login?
Private Sub Form_Load()
Dim StrSql As String
Set conn = CreateObject("ADODB.Connection")
Set Rs_Login = CreateObject("ADODB.Recordset")
conn.ConnectionString = "DSN=CRRJandaia"
conn.Open ConnectionString
StrSql = "SELECT * FROM tbl_usuario"
Rs_Login.Open StrSql, conn, adOpenKeyset, adLockOptimistic
End Sub
---------------------------------------------
Private Sub txt_senha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'variaveis de verificação
Dim cont_string As Integer
Dim cont As Integer
Dim tot_string As Integer
Dim tot_reg As Integer
'conta os registros da tabela tbl_usuario
tot_reg = Rs_Login.RecordCount
'conta as letras do login da textbox login
tot_string = Len(Trim(txt_login.Text))
'move o ponteiro para o primeiro registro da tabela tbl_usuario
Rs_Login.MoveMin
'inicia o laço de verificação dos registros na tabela
For cont = 1 To tot_reg
'coparação de string de login
If tot_string = Len(Rs_Login!login) Then
'comparação de string de senha
If Len(txt_senha.Text) = Len(Rs_Login!senha) Then
UsuarioTemp = Rs_Login!usuario
'abre o mdi caso o login e a senha estejam corretos
mdi.Show
frm_msg.Show
'fecha a tela de login quando abrir o mdi
Unload Me
Exit Sub
Else
'mensagem de erro de login e senha
msg = MsgBox("O Login e/ou Senha Não Conferem! Verifique o Login e a Senha e Tente Novamente. ", vbCritical, "Erro ao acessar CRRJandaia")
txt_login.Text = ""
txt_senha.Text = ""
txt_login.SetFocus
Exit Sub
End If
End If
'move o cursor para o proximo registro da tabela
Rs_Login.MoveNext
Next
End If
End Sub
