记账软件版1楼: 我这样做的查询，大家帮我看看为什么出错：
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Locate(＇＇Name＇＇,Edit1.Text,[loCaseInsensitive, loPartialKey]);
ADOTable1.Filtered := false
ADOTable1.Filter := ＇＇Name=＇＇+Edit1.Text;
ADOTable1.Filtered := true;
if ADOTable1.IsEmpty then
showmessage(＇＇查找失败＇＇);
end;

end.

2楼: locate与filter能同时使用么？而且也不需要吧 如进销存表格

3楼: ADOTable1.Filter := ＇＇Name=＇＇＇＇＇＇+Edit1.Text + ＇＇＇＇＇＇＇＇;

4楼: 可能使我没有说清楚，具体情况是这样的：
我用ADOTable1、DataSource1连接数据库，结果显示在DBGrid1中，窗体上放了一个Edit1和Button1来查询数据库，在Button1的单击事件中写入ADOTable1.Locate(＇＇Name＇＇,Edit1.Text,[loCaseInsensitive, loPartialKey]);来查询数据库记录，这个能够正常查询，现在我想在查找后让DBGrid1只显示查找出来的记录而不显示其他数据，如果查找结果为空，怎样才能提示“查找失败？”并且如果再次点击则继续向下查询而不是重新查询。具体该怎么做呢？谢谢各位了！！！~~~~~~~~~~~~~~

5楼: if not ADOTable1.Locate(＇＇Name＇＇,Edit1.Text,[loCaseInsensitive, loPartialKey]) then
showmessage(＇＇查找失败＇＇);

6楼: 这样的问题是：DBGrid1并不是只显示符合结果的记录阿，这可怎么办？[？]

记账软件版7楼: 谢谢各位~~~