[code delphi]
try
ADOConn.BeginTrans;
Query_TMP..UpdateBatch(arAll);

Query_Check.SQL.Clear;
Query_Check.SQL.ADD('select xxx');
Query_Check.Open;

if Not Query_Check.isEmpty then
begin
showmessage('資料重複！');
Abort;
end;

ADOConn.CommitTrans;
except
ADOConn.RollbackTrans;
end;
[/code]

由於考慮效能問題，小弟會在Query內的資料回寫資料庫後，
利用SQL語法直接查詢資料是否符合條件，
今天突然發現一個奇怪的問題，
當執行第一次存檔後，檢查出資料有問題，程式abort後，
不作任何編輯，直接再按一次存檔，Query_Check存放的檢查條件卻變成通過，
反覆測試後發現，雖然Query_TMP內顯示的是被使用者修改後的資料，
但第二次執行存檔時，資料庫記錄的還是未修改前的資料(與DBGrid顯示不一致)，
導致Query_Check檢查無誤 ，而為可存檔狀態，

不知版友們是否有相關的經驗與解決方式可分享，謝謝！

你的程式怪怪的
abort 之後, 程式直接中斷, 不會去跑 except 那部分了
[code delphi]
try
ADOConn.BeginTrans;
if Not Query_Check.isEmpty then
raise Exception.Create("訊息");
end;
except
on e:Exception do begin
showmessage(e.Message);
ADOConn.RollbackTrans;
end;
end;
[/code]
===================引 用 deanma 文 章===================

[code delphi]
try
ADOConn.BeginTrans;
Query_TMP..UpdateBatch(arAll);

Query_Check.SQL.Clear;
Query_Check.SQL.ADD('select xxx');
Query_Check.Open;

if Not Query_Check.isEmpty then
begin
showmessage('資料重複！');
Abort;
end;

ADOConn.CommitTrans;
except
ADOConn.RollbackTrans;
end;
[/code]

由於考慮效能問題，小弟會在Query內的資料回寫資料庫後，
利用SQL語法直接查詢資料是否符合條件，
今天突然發現一個奇怪的問題，
當執行第一次存檔後，檢查出資料有問題，程式abort後，
不作任何編輯，直接再按一次存檔，Query_Check存放的檢查條件卻變成通過，
反覆測試後發現，雖然Query_TMP內顯示的是被使用者修改後的資料，
但第二次執行存檔時，資料庫記錄的還是未修改前的資料(與DBGrid顯示不一致)，
導致Query_Check檢查無誤 ，而為可存檔狀態，

不知版友們是否有相關的經驗與解決方式可分享，謝謝！

abort終止後,
會進到except無誤!