Fórum Urgente!!!! #163466
29/05/2003
0
if editsenha.text<>´henrique´ then
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
O que está errado nesse codigo?
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
O que está errado nesse codigo?
Luc2403
Curtir tópico
+ 0
Responder
Posts
29/05/2003
Carnette
if editsenha.text<>´henrique´ then
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
O que está errado nesse codigo?
o que faltou está em negrito
if editsenha.text<>´henrique´ then [b:eea73b87b2]begin[/b:eea73b87b2]
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
[b:eea73b87b2]end [/b:eea73b87b2] else [b:eea73b87b2]begin[/b:eea73b87b2]
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
[b:eea73b87b2]end;[/b:eea73b87b2]
Responder
Gostei + 0
29/05/2003
4_olho
Falta um begin ... end
if editsenha.text<>´henrique´ then
BEGIN
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
END
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
Do seu modo, se a senha está incoprreta, exibe a mensagem e executa a próxima linha - a do ...=false e aí acha else e aí dá erro.
if editsenha.text<>´henrique´ then
BEGIN
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
END
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
Do seu modo, se a senha está incoprreta, exibe a mensagem e executa a próxima linha - a do ...=false e aí acha else e aí dá erro.
Responder
Gostei + 0
29/05/2003
Luc2403
[quote:fbc053caa4=´luc2403´]if editsenha.text<>´henrique´ then
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
else
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
O que está errado nesse codigo?
o que faltou está em negrito
if editsenha.text<>´henrique´ then [b:fbc053caa4]begin[/b:fbc053caa4]
showmessage(´Senha incorreta´) ;
principalf.BitBtnFTabela.visible:=false ;
[b:fbc053caa4]end [/b:fbc053caa4] else [b:fbc053caa4]begin[/b:fbc053caa4]
dm.nf.open;
principalf.BitBtnVTabela.visible:=false;
principalf.BitBtnFTabela.visible:=true ;
[b:fbc053caa4]end;[/b:fbc053caa4][/quote:fbc053caa4]
Sou iniciante de Delphi e estou apanhando muito ainda!
Valeu amigo. Funcionou. Obrigado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)