Este documento mostrará como é criado um formulário, por meio do VsScritpterVsScripter, para coleta de dados após a inclusão de um registro no banco de dados.
...
O código abaixo deve ser inserido logo após as “units” declaradas em “uses”.
Code Block |
---|
var Cds : TClientDataSerTClientDataSet; |
Alterar para a aba uPrinc, onde será criado o formulário “form”, o qual receberá todos os elementos de “frmColetaDados”.
...
Code Block |
---|
if (FFormPadraoRHTOMADOR.Incluindo) then Begin //iniciar o ciclo do formulário “form” que será destruído ao final try // cria o formulário form form := TfrmColetaDados.Create(nil); try // se a resposta que vier do formulário for a “mrok”, significa que o usuário // executou a gravação dos dados coletados. if (form.Showmodal = mrok) then showMessage('Coleta de dados finalizada'); finally // finalizando o ciclo de vida do formulário “form” form.free; end; end; |
...