数据检索？(30分)

在DBGRID中如何控制某字段（是计算字段）录入的数据是否在数据库中有，如果没有就提示，如果有就直接查出数据来（不会提示）；我在ONSETTEXT中做了相关判断语句，但结果还是达不到我的要求，不知那里错了~~~代码如下：
procedure TForm1.ADOQuery1SPBMSetText(Sender: TField; const Text: String);
begin
try
dy.Active:=false;
dy.SQL.Clear;
dy.SQL.Add('select spbm from c_spzl where spbm='''+Text+'''');
dy.Open;
if dy.RecordCount<1 then
begin
showmessage('0101');
exit;
end
else
begin
adoquery1.FieldByName('spbm').Value:=Text;
end;
finally
free;
end;
end;

问题说的不明确呀。说的明确些，具体问题是什么？

也就是我想在DBGRID中做数据录入，示例如下：
货号 品名。。。。。数量。。。
AAS 000001。。。。。。。。
。。。。。。。。。。。。。
当我在货号字段中录入AAS的时候，后面的品名等等就自动出来（这可以用计算字段解决），我的问题是：----》》当不是录入AAS的时候，数据库无记录时就会提示你“输入错误，数据库中无此数据”~~~~这里怎么来处理这一事件~~~我想看具体代码~~

还是自己顶一下吧