.版本 2
.支持库 iext
.程序集 窗口程序集2
.程序集变量 每表页数, 整数型
.程序集变量 总数, 整数型
.程序集变量 当前记录, 整数型
.程序集变量 条件分页, 逻辑型
.子程序 __历史数据中心_创建完毕
.局部变量 t, 整数型
打开 (取运行目录 () + “\GBPUSD1.edb”, , , , , , )
每表页数 = 100
总数 = 取记录数 ()
总标签.标题 = “总:” + 到文本 (取整 (总数 ÷ 每表页数))
_首页按钮_被单击 ()
.子程序 _首页按钮_被单击
.局部变量 t, 整数型
连续赋值 (假, 首页按钮.禁止, 上一页按钮.禁止, 下一页按钮.禁止, 尾页按钮.禁止)
跳到 (1)
当标签.标题 = “当前:第1页”
超级列表框1.全部删除 ()
.计次循环首 (每表页数, )
t = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (t, 0, 到文本 (读 (1)))
超级列表框1.置标题 (t, 1, 到文本 (读 (2)))
超级列表框1.置标题 (t, 2, 到文本 (读 (3)))
超级列表框1.置标题 (t, 3, 到文本 (读 (4)))
超级列表框1.置标题 (t, 4, 到文本 (读 (5)))
超级列表框1.置标题 (t, 5, 到文本 (读 (6)))
超级列表框1.置标题 (t, 6, 到文本 (读 (7)))
跳过 ()
.计次循环尾 ()
当前记录 = 取记录号 ()
连续赋值 (真, 首页按钮.禁止, 上一页按钮.禁止)
.如果真 (总数 < 每表页数)
连续赋值 (真, 首页按钮.禁止, 上一页按钮.禁止, 下一页按钮.禁止, 尾页按钮.禁止) |