Salvar Dados Em Tabelas Paradox5 Com Delphi 5

[Guest Jackson cunha]

Gostaria de saber como salvar os dados de inseridos em tabelas paradox5 com delphi 5, pois os comandos que uso (POST, APPEND) não surtem efeito se o programa for fechado de forma incorreta(os dados não são gravados de maneira definitiva)

[Arlon]

Como assim se o programa for fechado de forma incorreta??

Não sei se vai te ajudar, mas desabilita o botão fechar da borda do form e o ALT F4, obrigando o usuário a cancelar o cadastro ou registrá-lo.

procedure TFrmFornecedor.FormCreate(Sender: TObject);//evento OnCreate
var  hSysMenu: HMENU;

begin
   hSysMenu := GetSystemMenu(Self.Handle, False);
   if hSysMenu <> 0 then begin
      EnableMenuItem(hSysMenu, SC_CLOSE,
      MF_BYCOMMAND Or MF_GRAYED);
      DrawMenuBar(Self.Handle);
   end;
   KeyPreview := True;
end;

procedure TFrmFornecedor.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);//Evento OnKeyDown
begin
   if (Key = VK_F4) and (ssAlt in Shift) then
      Key := 0;

end;

Se não for isso que você quer, posta de novo ae...

[DELPHI-Man32]

uma forma simples de não perder dados e a seguinte:

declare a unit: DBIProcs

no evento AfterPost da tabela coloque:

DBISaveChanges(Table1.Handle);