各位師兄: 小弟練習時, 試用OnPostError的調用方法, 但看了Dephi 6內的說明也不明白,請師兄點路!謝謝! 以下為小弟寫的: QuserList.OnPostError(QUserList.DataSource.DataSet,EDatabaseError.Create('Error'),daFail);

OnPostError 是 DataSet 當要新增或修改資料後要提交post 時, 若出現問題 (如 日期輸入 2003/2/29 等), 會自動呼叫該 Event type TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction) of object;    從其原型可窺知 Action 是由程式設計師, 決定後續之處理方式    type TDataAction = (daFail, daAbort, daRetry);    Example :

procedure TForm1.Query1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  E.Message := '錯誤 :'+ E.Message; // 可修改錯誤訊息
  Action := daAbort; // 指示放棄
end;

Mickey: 感謝你的指導, 根據你的例子我明白怎樣使用OnPostError, 但E.Message郤没有顯示出來, 如其中一個Field不能Null這樣, 會出現什麼訊息呢? 請再指導!多謝!

引言: 但E.Message郤没有顯示出來

E.Message没有顯示出來, 是因為範例中 Action := daAbort; // 指示放棄 若 Action := daFail; 就會繼續正常執行 Error Exception 的發布

引言: 如其中一個Field不能Null這樣, 會出現什麼訊息呢?

各種不同的資料庫會有不同的訊息喔.