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;