在VB6.0中实现动态统计报表

)

　　''清空虚拟表

　　Dim SSQL as string　　

　　Dim Cmd As New ADODB.Command

　　SSql = "Delete From EquipmentCost"

　　Cmd.ActiveConnection = gConn　　

　　''数据库连接变量,读者可以建立自己的数据库连接变量

　　Cmd.CommandType = adCmdText

　　Cmd.CommandText = SSql

　　Cmd.Execute

　　''将统计明细添加到虚拟表中

　　ssql="Insert into EquipmentCost"&&" (Project,Name,Standard,Type,Num,Cost)"&&" select a.project as ''Project'',b.name as ''Name'',"&&"b.standard as ''Standard'', b.type as ''Type'',"&&"b.num as ''Num'',b.num*b.price as ''Cost''"&&"from Outbill a left join OutbillDetail b on(a.outbill=b.outbill)"&&" where a.OutDate>=" && Date1 && " and a.OutDate<=" && Date2

　　Cmd.ActiveConnection = gConn

　　Cmd.CommandType = adCmdText

　　Cmd.CommandText = SSql

　　Cmd.Execute

　　''刷新数据报表，使其显示最新查询记录

　　Set RptCost.DataSource = EnvCatv

　　''数据环境名称

　　EnvCatv.rsGrandTotal.Requery　　 ''rsGrantTotal 为分组子命令记录集名称

　　''显示数据报表

　　RptCost.Show

　　End Sub

　　本程序在VB6.0、MS-SQL Server下运行成功。

出库单表名为OutBill,结构如下： 字段名
字段含义
类型
长度

OutBill
出库单号
Varchar
10

OutDate
出库日期
SmallDate
　

LLMan
领料人
Varchar
12

DepartMent
部门
Varchar
12

Operator
经手人
VarChar
12

Project
对应工程
VarChar
50



出库单明细表名为OutBillDetail,结构如下： 字段名
字段含义
类型
长度

OutBill
出库单号
Varchar
10

EmName
器材名称
Varchar
12

EmStandard
器材规格
Varchar
12

EmType
器材型号
Varchar
12

Amount
数量
Int
　

Price
单价
smallmoney
　



成本统计中间表名为EquipMentCost,结构如下： 字段名
字段含义
类型
长度

Project
工程名称
Varchar
50

Name
器材名称
Varchar
12

Standard
器材规格
Varchar
12

Type
器材型号
Varchar
12

Num
器材用量
Int
　

Cost
器材成本
smallmoney