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 webbroker 上传文件

Delphi 关于rs485总线通信协议开发注意事项

Delphi 安卓app的http访问权限

Delphi 关于字符串, 之前没这样用过

Delphi文件复制函数

Delphi stream对象

Delphi 中showmodal与show的区别

Delphi winapi: messagebeep - 播放一个系统声音

Delphi 双击tmemo选择光标所在行

Delphi application.messagebox 详解

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...