firedac分页查询

firedac分页查询

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

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

?

1 2 3 4 5 6 7

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