表操作－检测是否有重复输入

Question

我的是delphi和access，有表1字段，姓名，当我用delphi的edit1向表1添加用户的时候：ADOTablebase.FieldByName('姓名').AsString:=edit1.text希望能自动扫描一下表中的姓名，如果与edit1输入的信息发生重复，那么就showmessage（），可以吗？

Answer 1

在插入前循环一下数据库
如果有这条记录就showmessage

Answer 2

if not ADOTable1.Locate('姓名',edit1.text,[loCaseInsensitive ]) then
   begin
     //添加代码
   end else showmessage('数据已存在');