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 “invalid floating point operation.”错误的解决方法

Delphi xe 与plc通讯（intcpserver 二进制）

Delphi bmp转换png

Delphi listbox1列表随机打乱

Delphi启动控制面板的方法列表

Delphi 文件路径相关的字符串操作

Delphi xe5 for android memo控件 无法读取txt文件

Delphi ifdef 另类用法

Delphi 三层架构简单例子(经测试成功)

Delphi tnethttpclient https忽略证书验证

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

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