如何检测修改SQL的重复记录值!好长时间不能解决,还请大家指点啊(0分)

我的SQL数据库有个USERID字段,如何检测例如输入编号为1之后,
再输入就弹出提示不能输入重复值提示出来,不是弹出SQL系统报错信息出来,
我的程序如下,但总是只执行开始IF的那几条语句,没有执行GLSE后面的语句,请教如何修改
procedure TForm1.Button2Click(Sender: TObject);
begin
if ad.RecordCount >0 then
begin
beep;
showmessage('已经有这个记录或者编号了,请重新输入');
ad.Cancel;
end
else //这里开始就不能执行了
begin
try
ad.Insert;
ad.FieldByName('user_ids').AsString :=edit1.Text;
ad.Post;
except
beep;
showmessage('no');
end;
end;
end;

Edit的onChange事件

ad.RecordCount <>-1 then
或ad.RecordCount <0

首先谢谢楼上两位的回答,但是我试过了,还是不行啊,请教还有其它方法吗,或者
其它的语句吗,请指教!可惜我已经无分了,日后有分定必相送.感激不尽了

procedure TForm1.Table1ACCT_NBRSetText(Sender: TField; const Text: String);
begin
temp.close;
temp.sql.text:='select * from datatable where USERID='''+Text+'''';
temp.open;
if temp.isempty then
begin
end
else
begin
end;
end;

哪用这样劳神！用自动增加字段不就解决了吗？这个USEID也不用输入了，只要显示就行了。