这个问题问了好多遍了，可是我始终没有弄清楚地。麻烦大家再帮帮忙看看哈，谢谢
写了这段程序后程序运行加入与数据库相同的ID号后，还是会出现错误：

我的主键是ID。错误提示是在adoquery1.execsql;

ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Text:='SELECT * FROM Card表';
ADOQUERY1.Open;
ADOQUERY1.First;
WHILE NOT ADOQUERY1.Eof DO BEGIN
IF ADOQUERY1.FieldByName('ID').AsString=EDITID_CQ.Text THEN SHOWMESSAGE('重复')
else BEGIN
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='insert into Card表(numcarku,ID,name,cph,ckh,ckqx,bkh,type) values('''+'智能控制车场'+''','''+editID_CQ.Text+''','''+editNAME_CQ.Text+''','''+editCPH_CQ.Text+''','''+editCKH_CQ.Text+''','''+editCKQX_CQ.Text+''','''+editBKH_CQ.Text+''','''+'长期停车车位'+''')';

try
adoquery1.ExecSQL; //错误提示处
except
showmessage('办卡失败，请重新启动应用程序');
Exit;
end;
showmessage('办卡成功');
ShowDataForCQ;
SetState(vShow);
END;
ADOQUERY1.Next;
END;

用adouqery1.open看看行不

ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Text:='SELECT * FROM Card表';
ADOQUERY1.Open;
ADOQUERY1.First;
WHILE NOT ADOQUERY1.Eof DO BEGIN
IF ADOQUERY1.FieldByName('ID').AsString=EDITID_CQ.Text THEN SHOWMESSAGE('重复')
else BEGIN
adoquery1.SQL.Clear;//你在while not adoquery1.eof do 里面还能对这个进行open,close,execsql的操作?
adoquery1.SQL.Text:='insert into Card表(numcarku,ID,name,cph,ckh,ckqx,bkh,type) values('''+'智能控制车场'+''','''+editID_CQ.Text+''','''+editNAME_CQ.Text+''','''+editCPH_CQ.Text+''','''+editCKH_CQ.Text+''','''+editCKQX_CQ.Text+'''
try
adoquery1.ExecSQL; //错误提示处;//你在while not adoquery1.eof do 里面还能对这个进行clear,open,close,execsql的操作?

except
showmessage('办卡失败，请重新启动应用程序');
Exit;
end;