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 从字符串中提取单词的函数

Delphi 获取本地ip地址源码

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

Delphi tanimate组件

Delphi 如何解析网址？

Delphi 实现无标题栏但有边框的窗口

Delphi 设置文本框中光标的位置在最后

Delphi 获取cpu使用单元文件

Delphi 清除字符串两边空格或指定字符

Delphi jpeg图片压缩

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

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