duvida

Delphi

29/05/2003

if edit1.text = ´henrique´ then
dm.nf.open;
BitBtnVTabela.visible:=false;
BitBtnFTabela.visible:=true;

O que estaria errado nesse codigo.
Estou colocando um botao para que quando clicando abra uma janela onde usuario deva colocar uma senha(henrique) e depois clicar em OK para acessar a DBgrid com os dados. Só que na sequencia do comando quero que o botao VTabela fique visible:=false e FTabela:=true e está dando erro:

[Error] Senha.pas(35): Undeclared identifier: ´BitBtnVTabela´
[Error] Senha.pas(35): Missing operator or semicolon


Luc2403

Luc2403

Curtidas 0

Respostas

Edineidaniel

Edineidaniel

29/05/2003

Acho que o erro é que vc esqueceu de: Ex:Begin e End;


if edit1.text = ´henrique´ then
Begin
(nome do form).dm.nf.open;
(nome do form).BitBtnVTabela.visible:=false;
(nome do form).BitBtnFTabela.visible:=true;
End;

E se os Buttons estão no form que vc vai chamar ou abrir. antes colocar o nome do form;

tem isso;

Edinei


GOSTEI 0
Luc2403

Luc2403

29/05/2003

if editsenha.text= ´henrique´ then
dm.nf.open ;
formprincipal.BitBtnVTabela.visible:=false;
formprincipal.BitBtnFTabela.visible:=true ;
else
showmessage(´Senha incorreta´);
formsenha.show;

O que está errado no codigo acima?

Me ajude nessa.
Se a senha for correta, eu quero que:
A tabela abra
Vtabela:=false
Ftabela:=visible
Se a senha for incorreta, eu quero que:
Apareça a mensagem
E o form onde deve se colocar a senha volte para o usuario repetir


GOSTEI 0
Sandra

Sandra

29/05/2003

if editsenha.text= ´henrique´ then dm.nf.open ; formprincipal.BitBtnVTabela.visible:=false; formprincipal.BitBtnFTabela.visible:=true ; else showmessage(´Senha incorreta´); formsenha.show;


luc,

Acho que o Edinei está certo, faltou ´begin´ e ´end´.

if editsenha.text= ´henrique´ then
  begin  // se for verdadadeiro
    dm.nf.open  ;
    formprincipal.BitBtnVTabela.visible:=false;
    formprincipal.BitBtnFTabela.visible:=true  ;
  end  // fim 
else
  begin  // se for falso
    showmessage(´Senha incorreta´);
    formsenha.show;
  end;  // fim


É para funcionar...

:lol:


GOSTEI 0
Luc2403

Luc2403

29/05/2003

Realmente Sandra. Faltava o begin e o end.
Sou iniciante de Delphi e ainda estou apanhando e aprendendo muita coisa ao mesmo tempo.

[quote:189b6a3248=´luc2403´]if editsenha.text= ´henrique´ then dm.nf.open ; formprincipal.BitBtnVTabela.visible:=false; formprincipal.BitBtnFTabela.visible:=true ; else showmessage(´Senha incorreta´); formsenha.show;


luc,

Acho que o Edinei está certo, faltou ´begin´ e ´end´.

if editsenha.text= ´henrique´ then
  begin  // se for verdadadeiro
    dm.nf.open  ;
    formprincipal.BitBtnVTabela.visible:=false;
    formprincipal.BitBtnFTabela.visible:=true  ;
  end  // fim 
else
  begin  // se for falso
    showmessage(´Senha incorreta´);
    formsenha.show;
  end;  // fim


É para funcionar...

:lol:[/quote:189b6a3248]


GOSTEI 0
POSTAR