看一下DELPHI 那里有错误啊？不知道什么地方错了，麻烦高手指点

来源：百度知道 编辑：UC知道 时间：2024/06/07 22:26:04
这个是一个判断填入内容是否有重复的语句。。。
procedure TForm1.Button2Click(Sender: TObject);

begin

adoquery1.SQL.Add('select * from 客户资料 where 客户名称 = '''+edit1.text+'''');

if adoquery1.RecordCount >0
then
begin

Application.Title := '警告' ;
showmessage('客户名称重复')

end
else
begin

adoquery1.append;
adoquery1.FieldByName('客户名称').AsString:=Edit1.texT;
adoquery1.FieldByName('街道地址').AsString:=Edit2.texT;
adoquery1.FieldByName('门 牌 号').AsString:=Edit3.texT;
adoquery1.FieldByName('联系方式').AsString:=Edit4.texT;
adoquery1.FieldByName('联 系 人').AsString:=Edit5.texT;
adoquery1.FieldByName('备 注').AsString:=Edit6.texT;
adoquery1.Post;
adoquery1.Open;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
end;
end;

提示

在：adoquery1.SQL.Add('select * from 客户资料 where 客户名称 = '''+edit1.text+''''); 这句前面加入：
adoquery1.sql.clear;

adoquery1.SQL.Add('select * from 客户资料 where 客户名称 = '''+edit1.text+'''');

其后加入：
adoquery1.open;

//-----------------------------------------------------
根据要求，不显示记录于DBGRID中。动态创建一个adoquery类。在查询使用完后再将其释放掉：

procedure TForm1.Button2Click(Sender: TObject);
var
queryT : TADOQuery;
begin
queryT := TADOQuery.Create(self);
queryT.connection := adoquery1.connection;
try
with queryT do
begin
SQL.add('select * from 客户资料 where 客户名称 = '''+edit1.text+'''');
Open;
if RecordCount > 0 then
begin
Application.Title := '警告' ;
showmessage('客户名称重复')
end else
begin