DBNavigator - Agregando Fun��es aos Bot�es...

Question

Bom Pessoal... preciso fazer o seguinte...Quando eu clicar no bot�o �Post� do DBNavigator... ele tem que testar se o DBEdit1 est� vazio ou n�o... se estiver vazio ele tem que dar uma mensagem �Digite ...

Aroldo Zanela · Answer

Colega,Voc� at� pode fazer isso nos manipuladores de evento do dbNavigator, mas o mais apropriado seria no evento OnValidate do objeto TField ou no BeforePost do DataSet. Desta forma, independe do controle que est� sendo utilizado para disparar o m�todo Post....

Adelor Silva · Answer

No BeforePost, eu tentei da seguinte forma mas n�o obtive resultado...

begin
if (edit1.text = null) then
begin
showmessage (�Digite o Cliente�)
end;
end.

(a escrita pode n�o estar correta, � que n�o estou no micro que tem delphi)... mas peguei de um outro projeto que estava funcionando...

aguardo retorno... Obrigado...

Aroldo Zanela · Answer

Colega,Qual � o banco de dados e o mecanismo de acesso (BDE, IBX, DBX, ADO, Zeus, etc)?...

Paullsoftware · Answer

coloque esse c�digo no evento OnClick do DbNavigator, veja se � isso que vc quer?

case Button of
 nbFirst:
  begin

  end;
 nbPrior:
  begin

  end;
 nbNext:
  begin

  end;
 nbLast:
  begin

  end;
 nbLast:
  begin

  end;
 nbInsert:
  begin

  end;
 nbDelete:
  begin

  end;
 nbEdit:
  begin

  end;
 nbPost:
  begin

  end;
 nbCancel:
  begin

  end;
 nbCancel:
  begin

  end;
 nbRefresh:
  begin

  end;
end;

espero ter ajudado :wink:

Marco Salles · Answer

[quote:ef16ffd56b]No BeforePost, eu tentei da seguinte forma mas n�o obtive resultado... [/quote:ef16ffd56b][code:1:ef16ffd56b]beginif (edit1.text = null) then begin showmessage (�Digite o Cliente�) end;  end.[/code:1:ef16ffd56b]esta instru��o edit1.text = null nen deve compilar , porque ser nil � diferente de Vazio. Na verdade nada a ver.Mas mesmo que voce fa�� o teste no BeforePost Do Seu DataSet , [b:ef16ffd56b]uma mensagem somente n�o [/b:ef16ffd56b]impede que o registro seje gravado.[b:ef16ffd56b]Voce deve lan�ar m�o de uma exce��o[/b:ef16ffd56b][code:1:ef16ffd56b]if (edit1.text = ��) then raise exception.Create(�Codigo n�o pode ser Vazio);[/code:1:ef16ffd56b][quote:ef16ffd56b]Por�m , o mais indicado para isto � o evento OnValidade do Campo ou criar Constraints no DataSets [/quote:ef16ffd56b]...

Adelor Silva · Answer

a noite vou testar as dicas... mas pra todos os casos... eu utilizo MySQL e para conectar o Banco Zeus......

Adelor Silva · Answer

No BeforePost coloquei o c�digo que voc� me passou...

if (FrmCadMaquina.DBEdit2.Text = ��) then
begin
raise Exception.Create(�Digite a Descri��o da Nova M�quina�);
FrmCadMaquina.DBEdit2.SetFocus;
end;

Agora ficou perfeito... Muito obrigado...

F�rum DBNavigator - Agregando Fun��es aos Bot�es... #326231