怎样用Delphi来解决数据库(ADO)的主键重复问题？

Question

我在数据库定义了一个字段ID为主键
则我在Delphi应用程序中来添加此字段ID的值为（0002），如果我再添加一个（0002）的值，则会出现错误，此错误应怎样解决，来向用户提示此字段ID为主键不能重复？如果在BDE引擎数据库中可以采以下方法
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if (E is EDBEngineError) then
    if (E is EDBEngineError).Errors[0].errorcode=eKeyViol then
     begin
       showmessage('主键重复');
       abort;
     end;
end;请问各位大狭用ADO怎么做？

Answer 1

procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  if (E is EadoError) then
    if (E is EadoError).Errors[0].errorcode=eKeyViol then
     begin
       showmessage('主键重复');
       abort;
     end;
end;