VB6中实现动态统计报表.docxVIP

在利用VB开发MIS系统的过程中，经常需要制作动态统计报表。本文就如何实现动态数据源下的分组交叉 统计报表进行阐述，并结合实例给出编程指导。 在VB6.0的数据环境设计器中，我们可以利用添加命令”一项来连接报表所需的数据源，同时利用添加 命令”属性中的分组与合计功能设计分组交叉统计报表的数据源 ，至此我们可以设计简单的数据存在于单一 表静态数据源下分组交叉报表，对于数据存在多表的复杂的动态数据源下的分组交叉报表来说 ，仍实现不了， 实现该功能的关键在于构造一个符合动态数据源要求的中间表。下面以一管理系统中工程成本统计报表的 实例来说明如何实现动态数据源下的分组交叉统计报表。 一、报表要求与分析 该报表要求列出在指定的时间段内实施的各项工程所耗器材明细、数量、费用，并且计算各项工程的 成本，最终计算所有工程的累计成本。 需求分析后可知该报表是个典型的动态数据源下分组统计报表，分组项为工程名称，要求对每个分组 进行子汇总和对所有分组进行总汇总。由于在该系统中的出库单和出库单明细分别存放在不同的表中，因 此必须根据报表的要求预先构造一个成本统计中间表，命名为 EquipMentCost。相关表结构如图1。 通过对表OutBill和OutBillDetail的分析，发现两者通过关键字 OutBill相联，下面通过SQL语句生成中 间表EquipmentCost,语句如下： Insert i