delphi数据库实现从最后一条记录向上查询至首记录

本文整理自网络，侵删。

 delphi数据库实现从最后一条记录向上查询至首记录



procedure TForm1.Button1Click(Sender: TObject); 
var i : integer; 
begin 
with query1 do 
begin 
close; 
sql.Clear; 
sql.Add('select * from op where op like ''W1060000%'''); 
open; 
DataSource1.DataSet.Last;//将指针指向最后一条记录 
for i := 0 to recordcount - 1 do 
begin 
memo1.Lines.Add(query1.fieldbyname('op').AsString); 
datasource1.DataSet.Prior;//移到前一条记录 
end; 
end; 
end; 

 

相关阅读 >>

Delphi 编译发布安卓的app名字问题

Delphi rtf文件转txt函数

Delphi webbrowser1 execwb 复制 新建 打开

关于Delphi下的三元运算符（三目运算）

Delphi检查getelementbyid返回值的有效性

Delphi 如何获取窗口的图标

Delphi字符串隐藏

Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题

Delphi 字符串加密解密单元

Delphi中使用临界区来让线程同步

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi数据库实现从最后一条记录向上查询至首记录