Erro na query

Delphi

02/02/2003

if qrysenha.RecordCount > 0 then
begin
frmagenda.Show;
frmagenda.SetFocus;
end
else
begin
Application.messagebox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end

Eu queria saber pq está executando as duas condições ?????
ele da foco ao frmagenda e ao edtlogin, mesmo eu já tendo tentado fechar o form atual mas não dá pois o projeto fecha inteiro e sai da execução !!!!!!!!!!


Invisible

Invisible

Curtidas 0

Respostas

Anonymous

Anonymous

02/02/2003

Já experimentou usar ´Try...Except...End´ ? Assim:
try
if qrysenha.RecordCount > 0 then
begin
frmagenda.Show;
frmagenda.SetFocus;
end;
except
MessageBox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end;


Ou, ainda:

if qrysenha.RecordCount = 0 then
begin
messagebox(´Login ou senha inválidos!´,´Erro´,mb_Ok+mb_IconError);
edtlogin.Clear;
edtsenha.Clear;
edtlogin.SetFocus;
end
else
if qrysenha.RecordCount > 0 then
begin
frmagenda.Show;
end;


GOSTEI 0
Navoid

Navoid

02/02/2003

o código que vc digitou não pode executar as duas condições, se está acontecendo isso é pq a máquina tá ficando maluca, e nesse caso é melhor reiniciar (qdo vc está depurando no delphi isto realmente pode acontecer).

só que o seu problema não ficou muito claro para mim.

tente explicar o que a rotina faz desde o começo passo a passo.
quem sabe posso lhe ajudar

até


GOSTEI 0
POSTAR