强制保存数据到磁盘

可防止数据丢失

procedure TForm1.Table1AfterPost(DataSet: TDataSet);

begin

Table1.UpdateCursorPos;

DbiSaveChanges(Table1.handle);//或者table1.flushbuffer;

Table1.CursorPosChanged;

end;