求助 关于处理重复信息的

[q139593]

帮忙看下这段代码哪错了 不处理重复信息
begin
if edit9.Text='' then
APPLICATION.MessageBox ('供应商名不能为空','提示')
else
begin
with adoquery1 do
begin
close;
sql.Clear;
parameters.Clear;
sql.add('select 供应商名 from supinfo where 供应商名='+''''+edit9.Text+'''');
showmessage(adoquery1.sql.text);
execsql;
open;

if adoquery1.RecordCount >0 then
begin
application.MessageBox( '数据重复,请检查后重新保存. ', '系统提示',mb_ok);
exit;
end
else
begin
sql.Add('exec supinfo_up :a,:b, :c, :d, :e, :f,:g');
parameters.ParamByName('a').Value:=edit8.Text;
parameters.ParamByName('b').Value:=edit9.Text;
parameters.ParamByName('c').Value:=edit6.Text;
parameters.ParamByName('d').Value:=edit10.Text;
parameters.ParamByName('e').Value:=edit1.Text;
parameters.ParamByName('f').Value:=edit3.Text;
parameters.ParamByName('g').Value:=edit4.Text;
execsql;
APPLICATION.MessageBox ('修改成功','提示');
Close;
SQL.Clear;
SQL.Add('select * from supinfo');
Open;
end

end
end

[bdmh]

调试啊

[q139593]

。。。可以了 原来我把代码放错地方了。。。。

[hongss]

这里不少都是自问自答的，呵呵

[浩南_哥]

代码没看出什么。。。。。

[浩南_哥]

。。。。。。自行解决了。。。。。。

[ADSLAN]

发完帖子后 冷静下来 自己动动手 解决了
自己也这么了几次

[Mit1208]

这些问题，经常会出现。：）断点一下就行了

[cntigercat]

[Quote=引用 3 楼 hongss 的回复:]
这里不少都是自问自答的，呵呵
[/Quote]