本文整理自网络,侵删。
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 winapi: messagebeep - 播放一个系统声音
Delphi application.messagebox 详解
更多相关阅读请进入《Delphi》频道 >>