adoquery1.prior;
while adoquery1<>eof do
begin
if adoquery1.fileds[1]='op[op;k;lko' then
begin
showmessage('找到了!');
break;
end;
adoquery1.next;
end;
while adoquery1<>eof do
begin
if adoquery1.fileds[1]='op[op;k;lko' then
begin
showmessage('找到了!');
break;
end;
adoquery1.next;
end;
解决方案 »
- 控件里可以用鼠标拉一个框,并且可以再随意移动或拉大或缩小,然后在框里面输入文字或图片,有这样的控件吗?
- 关于Application的设计问题,能否大家进来讨论下
- 我用delphi7和access做了一个小系统,在制作安装程序是出了点错,请各位高手帮忙!
- 如何正确提交网叶表单?
- 我是菜鸟,各位大哥帮忙解答二个问题?
- 请问各位一个我问过很多次,但没人完整回答的问题
- 请问以上工程能否实现?
- 怎么解决Delphi启动很慢的问题啊?
- 数据集中字段类型的区别
- 大家好,有谁用过 Microsoft Agent技术 的 请看过来......
- delphi用ADO开发的系统,在没安装SQL-SERVER的机器上运行良好,但装了SQL就会出错!
- 关于数据库的问题。为什么会出错???
showmessage('found')
else
showmessage('not found');
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM table WHERE text = "op[op;k;lko"');
Open;
if Recordset.RecordCount = 0 then Exit;
First;
ADOTable1.RecNo := Fields[0].AsInteger + 1;
end;
注:其中dbgrid与ADOTable1相连
Query1.SQL.Clear();
Query1.sql.add("select * from tablename order by id");
Query1.active:=true;
Query1.firsr();
Query1.movoby(3);