Problema com tabela!

[ZueRa 0]

Pessoal, estou com o seguinte código:

 

procedure TFrelat.zuera;

begin

case Tb.State of

Dsinsert: begin

Btnovo.Enabled:= false;

Bteditar.Enabed:= false;

Bcancel.Enabled:= true;

Btsalvar.Enabled:= true;

Btexcluir.Enabled:= false;

end;

end;

obs.: a procedure zuera já foi declarada.

 

aparentemente está tudo certo, porém, ao compilar aparece o seguinte erro:

 

[Error] Urelat.pas(130): Undeclared identifier: 'Enabed'

[Error] Urelat.pas(137): Statement expected but 'PROCEDURE' found

[Fatal Error] Pprincipal.dpr(6): Could not compile used unit 'Urelat.pas'

 

alguém poderia me dizer o que fiz de errado ?

Grato.

[Hugo Slepicka 0]

[Error] Urelat.pas(130): Undeclared identifier: 'Enabed'

Você escreveu Enabled Errado na linha de nº 130...

 

corrigindo esse já acerta o seguinte...

 

 

Beleza?

 

 

Falow aew... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

 

PS.: Quer fazer algo mais legal???

 

 

Coloca assim:

 

No Create do Form faça:

 

Tb.OnStateChange := Zuera;

Testa aew!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[ZueRa 0]

Uhm, interessante Hugo, vou testar aqui e posto o resultado =DMuito obrigado!

[ZueRa 0]

Mas Hugo, veja, os outros erros são atribuídos ao outro código:

 

procedure TFrelat.zuera;

begin

case Tb.State of

Dsinsert: begin

Btnovo.Enabled := false;

Bteditar.Enabled := false;

Bcancel.Enabled := true;

Btsalvar.Enabled := true;

Btexcluir.Enabled := false;

end;

end;

 

procedure TFrelat.BtnovoClick(Sender: TObject); ** AQUI

begin

Tb.Open;

Tb.Append;

Dbbebidas.SetFocus;

Dbdata.Text := FormatDateTime('dd"/"mm"/"yyyy', now);

end;

erro: "[Error] Urelat.pas(137): Statement expected but 'PROCEDURE' found"

 

porque será ? o.O

[Hugo Slepicka 0]

procedure TFrelat.zuera;

begin

case Tb.State of

Dsinsert:

begin

Btnovo.Enabled := false;

Bteditar.Enabled := false;

Bcancel.Enabled := true;

Btsalvar.Enabled := true;

Btexcluir.Enabled := false;

end;

end;

End;

Faltou um End Aew!!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[ZueRa 0]

Pelo amor de Deus...daonde saiu esse outro end ?Bom, vamos contar...um para o 1º BEGINo outro para o 2º BEGINe o último ? o.O

[Hugo Slepicka 0]

1º - Begin da Procedure...

 

2º - Begin do State...

 

 

3º - Begin do CASE???? http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

Hehe!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[ZueRa 0]

Ahhmmm...tinha me esquecido do begin da procedure...OAIEHaehoioae...obrigado man, até a próxima!

[Hugo Slepicka 0]

Ok!!!

 

Acontece...

 

 

Abraço e até a próxima!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[ZueRa 0]

Hugo, aproveitando...como eu poderia fazer o seguinte:habilitar o(s) botão(ões) X somente após quando todos os campos do tipo TDBEdit ($) fossem preenchidos ?

[Hugo Slepicka 0]

Bom, a única forma que sei é a manual mesmo...

If .... ThenBegin   Application.messagebox(...);   Edt?????.SetFocus;   Abort;End;

[ZueRa 0]

Uhm, entendi.Mais uma vez, obrigado! ;)

[ZueRa 0]

Como posso gerar um gráfico a partir de dados de um BD ?E qual componente poderei usar ?Grato desde já.