各位大大: 我在使用資料更新中出現如下疑惑, 1.我已開啟ADO的BatchUpdate機制﹐將ADO資料集元件的CursorType屬性值設為ctKeySet﹔LockType屬性值設為ltBatchOptimisic; 2.Button使用ADOQuery1.UpdateBatch來更新數据. 但事實上有時候會直接關閉Form,并沒有按Button儲存! 有沒有什么辦法在關閉Form時判斷數据是否已經儲存,如果尚未儲存時就提示是否儲存入資料庫,再考慮關掉Form. 謝謝大家!

您好﹗    試試將以下的方法寫在Form的OnClose事件中﹕

begin
  ADOQuery1.Filtered := True;
  ADOQuery1.FilterGroup := fgPendingRecords;
  //fgPendingRecords參數可過濾出在記憶體區域被異動過但尚未更新回
  //后端資料庫的所有資料
  if Not ADOQuery1.IsEmpty then
    begin
      if MessageDlg('在記憶體區域有異動的資料未更新到后端資料庫, 您是否要更新﹖', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        ADOQuery1.UpdateBatch(arAll)
      else
        ADOQuery1.CancelBatch(arAll)
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

謝謝cashxin2002兄.    問題已經得到解決,只是有個小小的問題尚需要請教cashxin2002兄. 每次在系統提示我需不需要保存時,點YES肯定OK,但是點NO時就出現如下畫面! 發表人 - jerry_nie2008 於 2005/06/07 11:31:00

您好﹗    取消else部分試試﹕

begin
  ADOQuery1.Filtered := True;
  ADOQuery1.FilterGroup := fgPendingRecords;
  if Not ADOQuery1.IsEmpty then
    begin
      if MessageDlg('在記憶體區域有異動的資料未更新到后端資料庫, 您是否要更新﹖', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
        ADOQuery1.UpdateBatch(arAll);
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟