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 写dll注入器

Delphi fmx 安卓跳转到支付宝付款页面

Delphi 取控件下的图象

Delphi的对象注销方法destroy和free的区别

Delphi 把修改好的cookies重新赋值给webbrowser1 doc

Delphi 世界时间转换

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi 枚举类型和integer整型之间的互换

Delphi 实现生成手机号段

Delphi 基础计算两数之合

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

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