Dicas - Evitando Perdas de Dados

Evitando Perdas de Dados

Um dos problemas dos programadores Delphi é salvar as informações fisicamente no disco rígido. Quando estamos trabalhando com o programa as informações ficam retidas no buffer, o que, em caso de queda de energia ou até mesmo se o usuário fechar o Windows com a aplicação aberta resulta na perda dos dados, que foram processados na execução atual do sistema.

Para resolver o problema, basta acrescentar no evento AfterPost de cada componente Table as linhas de código que estão abaixo.

Na lista de Uses acrescente a unit DBIProcs.

Dessa forma, você não precisa temer perder os seus dados por uma falha elétrica ou pela quebra do sistema (como um erro GPF, por exemplo), após atualizar o banco de dados.

  implementation
 
  uses DBIProcs;
 
  {$R *.DFM}
  procedure TForm1.Table1AfterPost(DataSet: Dataset);
  begin
  DBISaveChanges(Table1.Handle);
  end;
  end.