Eu Enchendo De Nvo.. (Resolvido)

[Arrasted]

Ola pessoal, sei que estou enchendo...ta funcionado tudo belezinha.

Mas após o s clientes terem inserido os Dados gostaria de enviar uma mensagem de qe os dados foram gravados, alguém ?

Desde já agradeço

[Progr'amador]

Olá,

no você pode implementar isso no proprio botão que você clica pra gravar, coloque a msg apos executar o comando de gravação, tipo:

procedure TForm1.Click(Sender: TObject);
begin
   ... bla ... 
   ... bla ...
   Table1.Post;
   ShowMessage('Cliente cadastrdo com Sucesso!');
end;

ou coloque essa msg no evento AfterPost da Query ou Table.

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
   ShowMessage('Cliente cadastrdo com Sucesso!');
end;

Abs. Progr'amador.

[Arrasted]

Valeu Cara

Abraço