Problema com Senha?

Delphi

27/05/2003

Eu fiz um sisteminha no Delphi, bem simples...
Ele verifica o nome do usuário e da senha antes de entrar...

o nome do usuário e da senha estão guardados em uma tabela...

até aí legal, só que se eu tenho dois ou mais usuários, ele só aceita o primeiro da tabela...

aí me falarão de uma função chamada FindNearest, usei, só que agora ele só pega o último da tabela...

como faço para ele verificar qq usuário e senha que estejam cadastrados na tabela?


Wagnerg

Wagnerg

Curtidas 0

Respostas

Luciano Pimenta®

Luciano Pimenta®

27/05/2003

Use a função Locate. Utilize no acesso de usuário e sempre deu certo.


GOSTEI 0
Frampton

Frampton

27/05/2003

Eu fiz um sisteminha no Delphi, bem simples... Ele verifica o nome do usuário e da senha antes de entrar... o nome do usuário e da senha estão guardados em uma tabela... até aí legal, só que se eu tenho dois ou mais usuários, ele só aceita o primeiro da tabela... aí me falarão de uma função chamada FindNearest, usei, só que agora ele só pega o último da tabela... como faço para ele verificar qq usuário e senha que estejam cadastrados na tabela?


Meu ! é o seguinte :

crie um indice na tabela de usuarios, utilize o campo onde ficara o nome do usuario.

primeiro localiza o usuario, se vc estiver utilizando um edit ou maskedit :


table1.open; //abre a tabela
table1.indexname := ´ind_usuario´; //indexar a tabela pelo campo usuario

if no table1.findkey([maskedit1.text]) then //se nao encontrar o usuario
begin
showmessage(´usuário não cadastrado´);
end
else
if maskedit2.text <> table1SENHA.asstring then //se a senha for diferente
begin
showmessage(´senha inválida !´);
end
else
begin //se encontrar o usuario e a senha estiver correta ...
showmessage(´Usuario : ´+table1USUARIO.asstring+´ Senha : ´+table1SENHA.asstring);
end;

table1.close; //fecha a tabela

Acho que isso resolve seu problema ....

:-)

T+++


GOSTEI 0
POSTAR