如何控制关键字段的重复输入及报错(100分)

在一个有索引的表中，如何在新增数据时，在输入关键字段时，首先检查输入的
字段是否已在库中，是，发出提示，光标自动复原，重新输入，否则进行其他字
段输入。



E—MAIL：XXC99@163.NET

g:xxc
onExit or BeforePost
use:
try

except

end;

const
eKeyViol=9729
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;

多人接受答案了。