Question

delphi如何用locate实现模糊查询（满意加分）

使用控件adoquery 还有一个edit1.
用locate模糊查询，使光标指向查到的第一个结果，点击继续查询按钮查找下一个符合的结果。

Answer 1

以前我也碰过这个问题，但使用Locate没有找到答案

后来找了一个变通的方法，稍微麻烦一些，但也能达到要求

先认识一下TDataset的RecNo属性
DataSet.RecNo
RecNO其实就是行号，标识了某一行数据，如DataSet.RecNo ：= 1
这个操作可以使指针指向第一行，所以：如果你能将符合你要求的数据行号保存下来，意味着你能做到如你所想的一个个查询。

你所需要做的:
1.定义一个行号列表
RecNoList: TStringList;

2.对DataSet进行循环得到标识列表
RecNoList.Clear;
DataSet.First;
DataSet.DisableControls; //加这个语句可以明显提高循环效率，原因请自己查
While Not DataSet.Eof do
begin
if DataSet.FieldByName('tName').AsString = EdtName.Text then
//我这里查的是同名的人，你可以根据自己的要求修改这里实现你需要的模糊查询
begin
RecNoList.Add(IntToStr(DataSet.RecNo));
end;
DataSet.Next;
end;
DataSet.EnableControls;

3.有了列表，就可以方便的指向你的查询结果。这里面的控制你就自己考虑下吧（需要一个标签保存你当前所指向的RecNoList.Index，以便再次点击按钮可以指向下一个）。

4.如果你有Locate的解决方法，请帖出来。

Answer 2

分三步：
1，确定使用那个表
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from your_table';
ADOQuery1.Open;
2,确定locate那个字段列表
ADOQuery1.Locate('your_cloumns', 'your_data', []);
Edit1.Text := ADOQuery1.FieldValues['your_cloumns'];
3,点击继续
两种方法
A，直接NEXT
ADOQuery1.Next;
Edit1.Text := ADOQuery1.FieldValues['your_cloumns'];
B，RecNo+1
ADOQuery1.RecNo := ADOQuery1.RecNo + 1;
Edit1.Text := ADOQuery1.FieldValues['your_cloumns'];

上边三个步骤，顺序不能错。

完全符合你的要求。

Answer 3

思路应该是这样的，将qry里存你模糊查询后的数据集，然后遍历qry在edit上显示,而不是先locate，明白？