André
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2008 10:58 hs
Olá pessoal,
Alguém pode me ajudar a resolver esse seguinte problema.É o seguinte:
Estou tentando fazer uma tela de login para meu programa.De primeira vista parece estar tudo certo.Tenha uma tabela onde eu cadastro os usuários com nome de login e a senha.Só que os nomes não estao vinculados as senhas
Explo
Tenho o user andre senha 123456
tenho o use maria senha 654321
se eu digito o user andre com a senha da maria e vice- versaconsigo entrar no
programa.O erro esta na minha logica mesmo,porque nela eu peço para procura um nome de user valido no banco e uma senha tambem se for encontrado se loga normalmente.O que eu quero é vincular o nome de user só com a senha dele.
segue ai o codigo que fiz ate agora.Se algume puderr dar uma dica...Abraço
Private Sub CmdEntrar_Click()
If TextNomeUser.Text = Empty Then
MsgBox " PREENCHA OS CAMPOS PARA LOGAR NO SISTEMA!", vbExclamation, "LOGON DE SISTEMA"
TextNomeUser.SetFocus
Exit Sub
End If
If TextSenha.Text = Empty Then
MsgBox " PREENCHA OS CAMPOS PARA LOGAR NO SISTEMA!", vbExclamation, "LOGON DE SISTEMA"
TextSenha.SetFocus
Exit Sub
End If
tbuser.Index = "IndLogin"
tbuser.Seek "=", TextNomeUser.Text
If tbuser.NoMatch = False Then
TextSenha.SetFocus
Else
MsgBox " USUÁRIO NÃO ENCONTRADO!", vbExclamation, "LOGON DE SESTEMA"
TextNomeUser.Text = ""
TextSenha.Text = ""
TextNomeUser.SetFocus
Exit Sub
End If
tbuser.Index = "IndSenha"
tbuser.Seek "=", TextSenha.Text
If tbuser.NoMatch = False Then
CmdEntrar.SetFocus
Else
MsgBox " SENHA INVÁLIDA!", vbExclamation, "LOGON DE SISTEMA"
TextSenha.Text = ""
TextNomeUser.Text = ""
TextNomeUser.SetFocus
Exit Sub
End If
Unload Me
FormCadastro.Show
End Sub
|
|
|
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2008 11:44 hs
cara este assunto é extenso vá em www.macoratti.net e procure por implementando segurança a nivel de usuário. depois se surgir dificuldade na implementação post que continuamos aqui pra ajudar. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2008 11:47 hs
colega seu código está confuso e não vai funcionar, pois você faz uma busca pelo n ome e depois faz uma outra busca pela senha então vai acontecr isto mesmo você vai sempre entrar com a senha de um usuario com login de outro. o que você deve fazer é localizar o registro pelo nome e compara a senha deste registro com a que está digitada no campo txtsenha ai sim validar você pode fazer utilizando o like poste aqui a forma como você está conectando o banco de dados vai ficar mais fácil |
|
|
|
|
|
Postada em 15/05/2008 11:51 hs
andre, no sql eu faço assim select * from tabela where codigo=txtCodigo.text and usuario=txtUsuario.text assim so traz o usuario com a senha que ele digitou por causa do AND, tem que ser um E o outro ok.. agora nao conheço essa sintaxe que vc esta usando, mas ficaria algo como. tbuser.Index = "IndUser"
tbuser.Seek "=", TextUser.Text & " and " & TextSenha.Text
If tbuser.NoMatch = False Then
nao achou else achou end if
|
|
|
|
|
|
Postada em 15/05/2008 11:54 hs
Postar o código?
O programa esta se conectado ao banco por um objeto Data apontando pra tabela com os dados de usuários!
|
|
|
|
IceEyes
|
BRASIL
MS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2008 15:29 hs
se está usando o objeto data pode usar
with data1.recordset
findMin "campo_nome=' " & txtnomeuser & " ' "
if not .nomatch then 'se achar o nome que vc digitou no seu db
if textsenha=!campo_senha then
msgbox "Registro Localizado e senha confere!"
else
msgbox "Usuario e senha não conferem!"
end if
end if
end with
tenta com isso ... se está usando um objeto data é facil rápido e sem erros
|
|
|
|
