delphi如何用locate实现模糊查询(满意加分)

来源:百度知道 编辑:UC知道 时间:2024/06/04 14:47:17
使用控件adoquery 还有一个edit1.
用locate模糊查询,使光标指向查到的第一个结果,点击继续查询按钮查找下一个符合的结果。

分三步:
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'];

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

完全符合你的要求。

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