如何实现同样的记录只添加一次？

Question

   用的是ADOTable添加的数据，在添加按钮上写的代码如下：
   with adotable1 do
   begin
   open;
   insert;
   fieldbyname('name').astring:=trim(edit1.text);
   post;
   end;
   点击添加后，已经能向数据库中添加记录了，但是再点添加还会向数据库中加入同样的记录，如何实现再点后提示不能添加，要重新输入数据后才能添加，是不是要做个循环，每次添加后，将edit1.text清空，然后就可以重新输入记录后？
   

Answer 1

什么数据库啊.如果是SQLSERVER,ORACLE这些就用SQL语句块提交,在SQL语句块里检查是否数据存在了.当然,主键肯定是要的了.

Answer 2

先查询
  select name from 表
if adotable1.recordcount >0 then
  message('记录存在')
else
  再添加

Answer 3

设置数据主键,然后在语句中,加入,最后这类的数据都用事务的控制
try
  with adoquery do
  begin
    close;
    sql.text := '';
    excesql;
  end;
except
  Messagebox(handle,'数据插入出错,请检查是否重复?','提示',mb_iconerror);
end;

Answer 4

在數據庫中對這個表創建約束 unique