Fórum Dúvida - Reconhecer Usuário #367776
18/01/2009
0
Olá amigos,
Estou tentando aprender Delphi... e para exercictar criei um programinha com tela de Login com Banco de Dados Access, fiz a ligação ADOConnection +ADOQuery+DataSource. Até aqui tudo bem!!
Criei um form dentro do programa onde vou adicionar novos usuários...Fiz a ligação com ADOConnection +ADOQuery+DataSource e um DBNavigator.
Consigo adicionar porém quando tento entrar com um nome de um usuário que criei diz que login ou senha incorretos...já abrir o banco Access e os nomes estão lá certinho....
O que fazer amigos?
O código que usei no meu Form Login é este:
Lembrando que sou iniciante...
Obrigado a todos!
Estou tentando aprender Delphi... e para exercictar criei um programinha com tela de Login com Banco de Dados Access, fiz a ligação ADOConnection +ADOQuery+DataSource. Até aqui tudo bem!!
Criei um form dentro do programa onde vou adicionar novos usuários...Fiz a ligação com ADOConnection +ADOQuery+DataSource e um DBNavigator.
Consigo adicionar porém quando tento entrar com um nome de um usuário que criei diz que login ou senha incorretos...já abrir o banco Access e os nomes estão lá certinho....
O que fazer amigos?
O código que usei no meu Form Login é este:
begin
if (EdtSenha.text<>´´) and (EdtNome.text<>´´) then begin
if (EdtSenha.text=ADOQuery1.FieldByName(´senha´).AsString) and (edtNome.text=ADOQuery1.FieldByName(´nome´).AsString) then begin
FrmLogin.Close;
login:=true;
end else begin
messageBox(handle,´Usuário ou Senha Inválida´,´ATENÇÃO!´,MB_ICONERROR+mb_OK);
EdtSenha.Text:=´´;
EdtNome.text:=´´;
EdtNome.SetFocus;
end;
end else
messageBox(handle,´Você deve preencher o nome de usuário e senha´,´ATENÇÃO!´,MB_ICONERROR+mb_OK);
end;
Em public pus a declaração: login: boolean
Lembrando que sou iniciante...
Obrigado a todos!
Jore
Curtir tópico
+ 0
Responder
Posts
19/01/2009
Facc
amigo pelo que eu entendi, vc não está realizando uma pesquisa pra verificar se existe ou não o cliente, ele está ´olhando´ apenas o primeiro registro.
Acredito que um locate funcione perfeitamente como vc precisa.
Não estou com Delphi aki, portanto pode ser que o código esteja incorreto.
Mas a idéia é essa.
Acredito que um locate funcione perfeitamente como vc precisa.
if AdoQuery1.Locate(EdtSenha.text, ´Senha´) and AdoQuery1.Locate(EdtNome.text, ´Nome´) then /faz algo end
Não estou com Delphi aki, portanto pode ser que o código esteja incorreto.
Mas a idéia é essa.
Responder
Gostei + 0
19/01/2009
Jore
Facc,
Poxa muito obrigado por sua ajuda...mais como eu disse sou iniciante, será que você pode me ensinar a melho usar o Locate.
Obrigado por me ajudar!
Poxa muito obrigado por sua ajuda...mais como eu disse sou iniciante, será que você pode me ensinar a melho usar o Locate.
Obrigado por me ajudar!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)