Erro na query
02/02/2003
0
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 !!!!!!!!!!
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
Curtir tópico
+ 0
Responder
Posts
02/02/2003
Anonymous
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;
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;
Responder
02/02/2003
Navoid
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é
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é
Responder
Clique aqui para fazer login e interagir na Comunidade :)
