資料庫SQL-Server 新增時如鍵值重複，出現的訊息如何讓它不出現，而出現自己所要顯示的訊息。 非得一定在資料庫上改嗎??

Hi:    

procedure TForm1.Button2Click(Sender: TObject);
begin
    TRY
        Table1.Post;
    EXCEPT
    END;
end;    procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
    ShowMessage('Your Error Message');
end;
 

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    Sorry !! 漏了一句

procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
//    ShowMessage(E.Message);  -- > 系統的 Message
    ShowMessage('Your Erro Message !!');
    Action := daAbort;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

這樣子原來系統的錯誤訊息還是會出現。 (無法在物件上插入重複的索引鍵)。

您好：

    DM.BuConnection.BeginTrans;
    try
      DM.factory.Post;
      DM.BuConnection.CommitTrans;
    except
    on E:Exception do
    begin
      DM.BuConnection.RollbackTrans;
      if Pos('Attempt to insert duplicate key row',E.Message)>0 then //假設當資料重複時資料庫回傳的錯誤訊有以上字串....
        raise Exception.Create('新增的資料已經存在')
      else
        raise Exception.Create('資料儲存失敗,錯誤訊息如下:'#13 E.message);
      end;

Hi:    你所指的原先的錯誤訊息還事會出現 Tools->Decugger Options 中，將 Integrated debugging 勾選掉即可，即使不勾掉，在執行 exe 檔時，也不會有錯誤訊息 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

hi： 謝謝二位的熱情解答 二種方法都是可行的，我原本的用法是類似terrychen的方法 原來有daabort可用...呵呵!!! 那另有一問 像儲存的時候會發生的情況實在太多了，所以就直接讓它show系統訊息而不寫自己所要呈現的訊息嗎? 可訴使用者不懂還是一直打電話來問...

Hi:    你可以整理一下常見的錯誤，用你自己的訊息予以替代，其它的直接顯示系統產生的錯誤訊息    有人曾說過，百分之九十的程式碼是用來防呆的，講的真是一多都沒錯 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman