[原创]锐浪报表动态加入列和最后加入合计列+进度条显示

[原创]锐浪报表动态加入列和最后加入合计列+进度条显示

有网友向我询问锐浪报表动态生成列的有关代码,反正也是学来的,就开源一下,顺便还有进度条显示的哦!

动态生成的截图[attachment=58733]

代码如下:

.版本 2

.支持库 gregn40

主报表.从文件加载报表 (取运行目录 () ＋ “\Reports\销售统计报表.grf”)

主报表.挂接事件 (报表事件1)

查询显示器1.设置关联报表 (主报表)

主报表.获取明细网格 ().获取数据集 ().忽略数据绑定 ＝ 假

' 查询显示器1.启动 ()

.子程序 _按钮1_被单击

进度条1.可视 ＝ 真

查询显示器1.刷新 ()

按钮1.禁止 ＝ 真

.子程序 _打印按钮_被单击

主报表.打印预览 (真)

.子程序 _报表事件1_请求记录数据

.参数 pEof, 逻辑型, 参考

.局部变量 调拨句柄, 整数型, , "0"

.局部变量 M, 整数型

.局部变量 调拨数量, 文本型, , "0"

.局部变量 调拨金额, 文本型

.局部变量 N, 整数型

.局部变量 库存记录, 整数型, , , 从库存表中获取数据数

.局部变量 货号, 文本型

.局部变量 p, 整数型

.局部变量 库存句柄, 整数型

.局部变量 库存数, 整数型

进度条1.位置 ＝ 1

外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\data\xshk.mdb”, , feng, , )

外部数据库2.打开MDB数据库 (取运行目录 () ＋ “\data\xshk.mdb”, , feng, , )

.判断开始 (组合框3.取项目文本 (组合框3.现行选中项) ＝ “全部规格”)

库存记录 ＝ 外部数据库1.查询 (“select 货品编号,规格,货品名称,单位 from 当前库存表 order by 货品编号 asc”)

库存句柄 ＝ 外部数据库2.查询 (“select count (*) from 货品表”)

库存数 ＝ 外部数据库2.读 (库存句柄, 1)

进度条1.最大位置 ＝ 库存数

.默认

库存记录 ＝ 外部数据库1.查询 (“select 货品编号,规格,货品名称,单位 from 当前库存表 where 规格='” ＋ 组合框3.取项目文本 (组合框3.现行选中项) ＋ “'order by 货品编号 asc”)

库存句柄 ＝ 外部数据库2.查询 (“select count (*) from 货品表 where 规格='” ＋ 组合框3.内容 ＋ “'”)

库存数 ＝ 外部数据库2.读 (库存句柄, 1)

进度条1.最大位置 ＝ 库存数

.判断结束

重定义数组 (调拨句柄, 假, 客户数)

重定义数组 (调拨数量, 假, 客户数)

外部数据库1.到首记录 (库存记录)

.判断循环首 (外部数据库1.尾记录后 (库存记录) ＝ 假)

主报表.获取明细网格 ().获取数据集 ().追加 ()

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (1).字符值 ＝ 外部数据库1.读 (库存记录, 1)

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (2).字符值 ＝ 外部数据库1.读 (库存记录, 2)

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (3).字符值 ＝ 外部数据库1.读 (库存记录, 3)

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (4).字符值 ＝ 外部数据库1.读 (库存记录, 4)

货号 ＝ 外部数据库1.读 (库存记录, 1)

.计次循环首 (客户数, M)

调拨句柄 [M] ＝ 外部数据库2.查询 (“select sum(数量)as ersl from 出货表 where 类型='” ＋ 组合框4.取项目文本 (组合框4.现行选中项) ＋ “'and 年度='” ＋ 组合框1.内容 ＋ “'and 月份='” ＋ 组合框2.内容 ＋ “'and 货品编号='” ＋ 货号 ＋ “'and 单位名称='” ＋ 单位名 [M] ＋ “'”)

调拨数量 [M] ＝ 到文本 (外部数据库2.读 (调拨句柄 [M], “ersl”))

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (4 ＋ M).字符值 ＝ 数值到格式文本 (到数值 (调拨数量 [M]), 数量精度, 假)

.如果真 (到数值 (主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (4 ＋ M).字符值) ＝ 0)

主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().获取项目 (4 ＋ M).字符值 ＝ “”

.如果真结束

外部数据库2.关闭记录集 ()

.计次循环尾 ()

主报表.获取明细网格 ().获取数据集 ().提交 ()

外部数据库1.到后一记录 (库存记录)

进度条1.位置 ＝ 进度条1.位置 ＋ 1

.判断循环尾 ()

外部数据库1.关闭记录集 (库存记录)

外部数据库1.关闭记录集 ()

外部数据库2.关闭记录集 ()

进度条1.位置 ＝ 进度条1.最大位置

进度条1.可视 ＝ 假

.子程序 _调拨汇总_尺寸被改变

查询显示器1.移动 (10, 50, 调拨汇总.宽度 － 28, 调拨汇总.高度 － 90)

进度条1.移动 (查询显示器1.左边, 查询显示器1.顶边 ＋ 查询显示器1.高度 － 进度条1.高度, 查询显示器1.宽度, )

.子程序 _打印_被单击

锐浪报表_风之打印 (_启动窗口, 主报表)

.子程序 _报表事件1_初始化事件

.局部变量 客户记录, 整数型

.局部变量 L, 整数型

.局部变量 N, 整数型

主报表.按名称取部件框 (“MemoBox1”).获取为综合文字框 ().文字 ＝ 组合框1.内容 ＋ “年” ＋ 组合框2.内容 ＋ “月”

主报表.按名称取部件框 (“MemoBox2”).获取为综合文字框 ().文字 ＝ “规格:” ＋ 组合框3.取项目文本 (组合框3.现行选中项)

外部数据库2.打开MDB数据库 (取运行目录 () ＋ “\data\xshk.mdb”, , feng, , )

主报表.获取明细网格 ().锁定列数 ＝ 4

客户记录 ＝ 外部数据库2.查询 (“select distinct(单位名称) from 出货表 where 年度='” ＋ 组合框1.内容 ＋ “'and 月份='” ＋ 组合框2.内容 ＋ “'and 类型='” ＋ 组合框4.取项目文本 (组合框4.现行选中项) ＋ “'”)

外部数据库2.到首记录 (客户记录)

列表框1.清空 ()

.判断循环首 (外部数据库2.尾记录后 (客户记录) ＝ 假)

列表框1.加入项目 (外部数据库2.读 (客户记录, 1), )

外部数据库2.到后一记录 (客户记录)

.判断循环尾 ()

客户数 ＝ 列表框1.取项目数 ()

' 输出调试文本 (客户数)

重定义数组 (单位名, 假, 客户数)

.计次循环首 (客户数, L)

主报表.获取明细网格 ().增加列 (“Column” ＋ 到文本 (4 ＋ L), 列表框1.取项目文本 (L － 1), 列表框1.取项目文本 (L － 1), 2)

主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (4 ＋ L).文字对齐方式 ＝ 33

主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (4 ＋ L).文字绕行 ＝ 真

主报表.获取明细网格 ().获取数据集 ().增加字段 (“Field” ＋ 到文本 (4 ＋ L), 1)

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (4 ＋ L).数据字段 ＝ “Field” ＋ 到文本 (4 ＋ L)

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (4 ＋ L).文字对齐方式 ＝ 36

单位名 [N] ＝ 主报表.获取明细网格 ().获取标题行 ().获取标题格集合 ().获取项目 (4 ＋ L).文字

.计次循环尾 ()

外部数据库2.关闭记录集 ()

' 输出调试文本 (“单位名称” ＋ 到文本 (N) ＋ 单位名 [N])

' 输出调试文本 (主报表.获取明细网格 ().获取列集合 ().获取项目 (4 ＋ L).名称)

' 输出调试文本 (主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (4 ＋ L).数据字段)

.子程序 _调拨汇总_将被销毁

外部数据库1.关闭记录集 ()

外部数据库2.关闭记录集 ()

外部数据库1.关闭 ()

外部数据库2.关闭 ()

.子程序 _查询显示器1_列排列发生改变事件

查询显示器1.保存当前列排列 ()

.子程序 _报表事件1_开始处理事件

.局部变量 报表格数, 整数型

.局部变量 字段, 整数型

.局部变量 n, 整数型

.局部变量 累加文本, 文本型

.局部变量 m, 整数型

字段 ＝ 主报表.获取明细网格 ().获取数据集 ().获取字段集合 ().数目

m ＝ 主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().数目 ＋ 1

报表格数 ＝ 主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().数目

主报表.获取明细网格 ().增加列 (“合计”, “合 计”, “合计”, 2)

主报表.获取明细网格 ().获取列集合 ().获取项目 (m).获取标题格 ().文字对齐方式 ＝ #文字对齐方式枚举.中中

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).自由格 ＝ 真

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().增加 (#部件框类型枚举.综合文字框)

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().获取项目 (1).获取为综合文字框 ().宽度 ＝ 2

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().获取项目 (1).获取为综合文字框 ().停靠 ＝ #停靠方式枚举.填充

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().获取项目 (1).获取为综合文字框 ().文字色 ＝ #红色

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().获取项目 (1).获取为综合文字框 ().文字对齐方式 ＝ #文字对齐方式枚举.右中

.变量循环首 (5, 字段, 1, n)

累加文本 ＝ 累加文本 ＋ “Field” ＋ 到文本 (n) ＋ “+”

.变量循环尾 ()

' 输出调试文本 (累加文本)

累加文本 ＝ 取文本左边 (累加文本, 取文本长度 (累加文本) － 1)

' 输出调试文本 (累加文本)

主报表.获取明细网格 ().获取内容行 ().获取内容格集合 ().获取项目 (m).获取部件框集合 ().获取项目 (1).获取为综合文字框 ().文字 ＝ “[#” ＋ 累加文本 ＋ “:0.00#]”

[此贴子已经被作者于2007-5-3 23:47:57编辑过]