使用OnCloseQuery在终止前保存数据，能否防范断电或崩溃的数据丢失？

我编写了一个利用OnCloseQuery事件在Application.Terminate前保存数据的逻辑，想了解该方案在遭遇断电或电脑崩溃时是否足以防止数据丢失。

初始代码 #

type
    TForm1 = class(TForm)
        abs: TABSDatabase;
        ABSTable1: TABSTable;
        .... 
        ABSTable6: TABSTable;
    ....    
var
Form1: TForm1;
isBusy : Boolean;
....
procedure TForm1.CloseTables;
 var
    x : Integer;
    dummy : TABSTable;
begin
     for x:=0 to ComponentCount-1 do
     begin
         if Components[x] is TABSDataSet then
             begin
                 if Components[x] is TABSTable  then
                 begin
                     dummy := (Components[x] as TABSTable);
                     if ((dummy.Active = True) and ((dummy.state = dsEdit) or (dummy.State = dsInsert))) then
                         begin
                             dummy.Post;
                             dummy.Active := False;
                         end
                       else
                         if dummy. Active = True then dummy.Close;                               
                 end;
             end;
     end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
        if abs.Connected = True then isBusy := True else isBusy := False;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if isBusy = True then
        begin
            CanClose := False;
            CloseTables;
            abs.Connected := False;
            isBusy := False;
            Application.Terminate;
        end
        else CanClose := True;
end;

修改后的代码（根据建议调整） #

procedure TForm1.CloseTables;
 var
  x : Integer;
  dummy : TABSTable;
begin
   for x:=0 to ComponentCount-1 do
   begin
     if Components[x] is TABSDataSet then
       begin
         if Components[x] is TABSTable  then
          begin
            dummy := (Components[x] as TABSTable);
            if ((dummy.Active) and ((dummy.state = dsEdit) or (dummy.State = dsInsert))) then
              begin
                dummy.Post;
                dummy.Active := False;
              end
            else
              if dummy.Active then dummy.Close;
          end;
       end;
   end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if abs.Connected then
    begin
      CanClose := False;
      CloseTables;
      abs.Connected := False;
      Application.Terminate;
    end
  else CanClose := True;
end;

解答 #

你的方案完全无法应对断电或电脑崩溃的场景，原因很简单：OnCloseQuery事件只有在程序正常关闭时才会触发——比如用户点击窗口关闭按钮、调用Form.Close()或者Application.Terminate()时。而断电、系统崩溃属于异常终止，程序会瞬间停止运行，根本没有机会执行OnCloseQuery里的保存逻辑，此时所有未提交的修改都会丢失。

要真正防止异常情况下的数据丢失，你需要调整思路：

• 实时提交修改：不要等到程序关闭才批量处理，用户编辑完一条记录（比如离开当前编辑行、切换页面）就立即调用Post()提交到数据库，避免长时间保持dsEdit或dsInsert状态。
• 使用数据库事务：如果是批量操作，用事务包裹，确保一组操作要么全部成功提交，要么全部回滚，避免数据不一致。
• 定时自动保存：对于需要长时间编辑的场景，可以加个定时器，每隔一段时间自动提交当前未保存的修改，减少丢失的数据量。

另外，你修改后的FormCloseQuery逻辑有点冗余：设置CanClose := False后调用Application.Terminate()其实没必要，直接处理完保存和断开连接后，把CanClose设为True，程序会正常走完关闭流程。

内容的提问来源于stack exchange，提问作者Learning