firedac分页查询

firedac分页查询

FireDAC 原生支持分页查询。设置FetchOptions.Recskip (跳过的行数)和 RecsMax(分页大小)。

当 Prepared 后,更改 RecsSkip 和 RecsMax属性值不起作用。

procedure PageQuery(Query: TFDQuery; PageSize, PageIndex: Integer);
begin
  Query.Disconnect;
  Query.FetchOptions.RecsSkip := PageSize * PageIndex;
  Query.FetchOptions.RecsMax := PageSize;
  Query.Open;
end;

  

posted @ 2020-10-14 11:30  delphi中间件  阅读(643)  评论(0编辑  收藏  举报