| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 数据库专区 斑竹:liumazi,waterstone | |||||
| 作者： |
|
2017/5/23 19:42:52 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 一个ERP软件，ACCESS数据库，其入库单查询如下图，请教如何实现按入库单号分页显示？
Delphi老菜鸟~ |
|||||
| 作者： |
|
2017/5/23 21:03:59 | ||||
| 1楼： | 使用记录过滤就可以做到分页 // 变量 private PageRowCount : Integer; // 每页行数 PageNo := Integer; // 设当前页号 // DataSet 事件 OnFilterRecord procedure TxxxForm::DataSetFilterRecord(DataSet : TDataSet; var Accept : Boolean); begin Accept := (DataSet.RecNo > (PageNo-1) * PageRowCount) and (DataSet.RecNo <= PageNo * PageRowCount); end; =====开始使用========== PageRowCount := 9; 设每页行数 PageNo := 2; 设当前页 DataSet.Filtered := True; =====看到结果了没========== ---------------------------------------------- 我84砖家 |
|||||
| 作者： |
|
2017/5/23 21:37:43 | ||||
| 2楼： | 很好奇，access也能拖erp么？ 还有就是，楼上的代码，既然数据都到前台来了，还这样分页有什么意义呢。。。 ---------------------------------------------- -- |
|||||
| 作者： |
|
2017/5/23 22:47:46 | ||||
| 3楼： | @sczhyq (旺财) 感谢你的回答，我在试。 ---------------------------------------------- Delphi老菜鸟~ |
|||||
| 作者： |
|
2017/5/24 6:42:15 | ||||
| 4楼： | access也能做erp? 难道该公司就一个人既做仓库都入库也做采购部门的订单， 还做销售部门的订单，还做财务部门的资金链。 还是大家轮流排队来做？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/5/24 10:34:35 | ||||
| 5楼： | 分页可以用 sql 语句的 OFFSET ---------------------------------------------- delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？ |
|||||
| 信息 |
| 登陆以后才能回复 |
