begin
with ADOQuery1 do
begin
close;
SQL.clear;
SQL.Add('select 单位名称 from 客户基本资料表 where 客户名称=:name');
ParamByName('name').AsString:=Trim(Edit1.Text);
end;
open;
if(findlast()) then
begin
showmassage('存在');
else
SQL.Clear;
SQL.('select 'name' from 税控导入资料表);
if(findlast()) then
showmassage('存在');
else
SQL.add(insert into 税控导入资料表 values(name));
end;
end;
我没有测试,因为我这里没有那个表,你参考一下吧!我也是初学者,呵呵。。还是学生呢!