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;
关键字词:
