Delphi7怎么在代码里判断插入的值是主键，然后提示重新输入啊？

Question

RT：  表名是：TVer    主键的字段是：V_Verson，怎么在edit中插入值的时候提示重复插入啊？新手诚请高手指教，小弟在此拜谢

Answer 1

先去select这个主键，如果存在则提示

Answer 2

如果edit中插入值是主键的值，也就是说edit的值最后要写入V_Verson字段中的话。
var
strsql:string;
begin
strsql:='select V_Verson from TVer where V_Verson:=V_Verson';
adoquery1.close;
adoquery1.sql.add(strsql);
adoquery1.parameters.parambyname('V_Verson').value:=edit1.text;
adoquery1.open;
if adoquery1.recordcount>0 then
  Showmessage('重复输入');
else
  //插入数据
end;