在Delphi中向数据库添加重复的关键字是异常处理的一部分。具体的解决方法是使你的程序能够对异常响应。

　 我们举一个简单的例子来说明。为了方便我们就使用Delphi自带的数据库DBDEMOS，它是Paradox型的数据库，其中表employee.db具有关键字EmpNo。

　 Table1的DataBaseName是DBDEMOS ，TableName是employee.db，Active设为True。DataSource1的DataSet是Table1。DBNavigator1和DBGrid1的DataSource是DataSource1。

　 下面我们就要写Table的OnPostError事件：当出现重复的关键字时，首先要提示用户，然后取消此次操作。这个事件是在修改或向数据库插入记录时产生异常时才响应的。具体代码如下：

procedure TForm1.Table1PostError
(DataSet: TDataSet; E: EDatabaseError;
 var Action: TDataAction);
 begin
 if (E is EDBEngineError) then
if (E as EDBEngineError).Errors
[0].Errorcode = eKeyViol then
 begin
 MessageDlg(出现重复记录！,
 mtWarning, [mbOK], 0);
 Table1.Cancel;
 Abort;
 end;
end;

　 1. 通过EDBEngineError异常可以获得描述数据库驱动错误的详细信息。当EDBEngineError异常产生时，就会生成一个EDBEngineError对象，这个EDBEngineError对象包含有异常的错误信息，可以用程序进行分析，从而决定要完成的操作。

　 2. 上面程序的Errorcode是BDE的错误代码，是一个word类型的变量，我们还需要定义它，定义如下：

 const
 eKeyViol = 9729;