求救：定位记录的问题？

[cathy_zhang131]

我想实现：
１.点“查询”按钮，根据Edit1内的内容查找记录，用DBEdit显示记录中的数据。
２.如果符合条件的记录不止一条，则“查询”按钮变为“查找下一处”，点击则指针定位在下一条符合条件的记录上。
现在使用的是Locate('DT_DESCRIPTION',Edit1.Text,[lopartialkey])，可以实现１的功能，可是使用Locate只能定位在第一条符合条件的记录上，不知道怎样才能查找下一条记录，还有判断语句（判断符合条件的记录是否不只一条）也不知道如何写，请各位大虾帮帮忙：）

[ghy412]

对于问题2再写一个查询呀

[cathy_zhang131]

用Query实现？

[Easysim]

楼上兄台的方法是不是dbgrid只显示符合条件的数据啊?

[Easysim]

用table应该容易实现,可是用ADO的组件就不好办了

[cathy_zhang131]

谢谢Quickeer，可是我希望DBGrid显示所有数据，不仅仅是符合条件的数据

[wdcang]

Adoquery1.FindField('ddd').AsString:= 'Value';
if Adoquery1.FindNext then
查到
else
未查到

[quickeer]

//用TADOQuery,当然用TQuery也一样.
//先把DBEdit关联的表与字段对应ADOQuery1中.
//查询Button1的点击处理:

if (Button1->Caption == "查询") {
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from 表名 where DT_DESCRIPTION='"+Edit1->Text+"'");
ADOQuery1->Open();
if (ADOQuery->RecordCount>1)
Button1->Caption = "查询下一条";
} else {
ADOQuery1->Next();
if (ADOQuery1->Eof) {
ShowMessage("没有更多记录");
Button1->Caption = "查询";
}
}
ADOQuery1->Close();

//--------------------------------------------------------------------------

[Easysim]

我想楼主的意思是:
在一个dbgrid里有N(比如100条)记录里,用方法去只把指针(黑箭头)移动到符合查询条件的数据那里,其它的不要改变(显示的数据还是100条),不过我试过了上面两位的方法后,好像都不行,还请详细说说,谢谢了!


我是来学习的,有说错的地方不要见怪!!!!

[cathy_zhang131]

同意Easysim的话，我确实是想显示所有数据，所以用Filter还是不行啊

[阿星sir]

adotable1.filter:='姓名='''+edit1.text+'''';
adotable1.filted:=true;
if adotable1.recordcount>0 then
....

[quickeer]

如果还要显示所有记录,则用两个ADOQuery,或者一个ADOQuery一个ADOTable.一个显示所有记录列表,一个查询.查询就是如上我写的,查询后取出主键或关键词再定位到列表记录就行了.

[rcyboom]

遍历表，然后刷新dbgrid，把符合的数据用别的颜色显示出来，当你要定位到下一条的时候，遍历dbgird通过颜色或者自定义数据辨别后使用goto定位到下一条。
只是一个思路，没有试验过，不行的话还望。。。。