在VB6.0中實(shí)現(xiàn)動(dòng)態(tài)統(tǒng)計(jì)報(bào)表

2019-11-18 17:46:39

字體：大中小

供稿：網(wǎng)友

在利用VB開(kāi)發(fā)MIS系統(tǒng)的過(guò)程中,經(jīng)常需要制作動(dòng)態(tài)統(tǒng)計(jì)報(bào)表。本文就如何實(shí)現(xiàn)動(dòng)態(tài)數(shù)據(jù)源下的分組交叉統(tǒng)計(jì)報(bào)表進(jìn)行闡述，并結(jié)合實(shí)例給出編程指導(dǎo)。

　　在VB6.0的數(shù)據(jù)環(huán)境設(shè)計(jì)器中,我們可以利用“添加命令”一項(xiàng)來(lái)連接報(bào)表所需的數(shù)據(jù)源,同時(shí)利用“添加命令”屬性中的分組與合計(jì)功能設(shè)計(jì)分組交叉統(tǒng)計(jì)報(bào)表的數(shù)據(jù)源,至此我們可以設(shè)計(jì)簡(jiǎn)單的數(shù)據(jù)存在于單一表靜態(tài)數(shù)據(jù)源下分組交叉報(bào)表,對(duì)于數(shù)據(jù)存在多表的復(fù)雜的動(dòng)態(tài)數(shù)據(jù)源下的分組交叉報(bào)表來(lái)說(shuō),仍實(shí)現(xiàn)不了,實(shí)現(xiàn)該功能的關(guān)鍵在于構(gòu)造一個(gè)符合動(dòng)態(tài)數(shù)據(jù)源要求的中間表。下面以一管理系統(tǒng)中工程成本統(tǒng)計(jì)報(bào)表的實(shí)例來(lái)說(shuō)明如何實(shí)現(xiàn)動(dòng)態(tài)數(shù)據(jù)源下的分組交叉統(tǒng)計(jì)報(bào)表。

一、報(bào)表要求與分析
　　該報(bào)表要求列出在指定的時(shí)間段內(nèi)實(shí)施的各項(xiàng)工程所耗器材明細(xì)、數(shù)量、費(fèi)用，并且計(jì)算各項(xiàng)工程的成本，最終計(jì)算所有工程的累計(jì)成本。

　　需求分析后可知該報(bào)表是個(gè)典型的動(dòng)態(tài)數(shù)據(jù)源下分組統(tǒng)計(jì)報(bào)表，分組項(xiàng)為工程名稱(chēng)，要求對(duì)每個(gè)分組進(jìn)行子匯總和對(duì)所有分組進(jìn)行總匯總。由于在該系統(tǒng)中的出庫(kù)單和出庫(kù)單明細(xì)分別存放在不同的表中，因此必須根據(jù)報(bào)表的要求預(yù)先構(gòu)造一個(gè)成本統(tǒng)計(jì)中間表，命名為EquipMentCost。相關(guān)表結(jié)構(gòu)如圖1。

　　通過(guò)對(duì)表OutBill和OutBillDetail的分析,發(fā)現(xiàn)兩者通過(guò)關(guān)鍵字OutBill相聯(lián),下面通過(guò)SQL語(yǔ)句生成中間表EquipmentCost,語(yǔ)句如下:

　　InsertintoEquipmentCost

　　(
　　wherea.OutDate>=date1anda.OutDate<=date2

　　date1和date2變量用來(lái)指定時(shí)間，注意插入前要先清空該中間表的所有數(shù)據(jù)。

二、利用數(shù)據(jù)環(huán)境設(shè)計(jì)器生成工程成本報(bào)表的初始模板
　　打開(kāi)一個(gè)數(shù)據(jù)環(huán)境設(shè)計(jì)器，在其屬性表單中設(shè)置其名稱(chēng)屬性為EnvCatv,并添加一個(gè)數(shù)據(jù)庫(kù)連接到當(dāng)前庫(kù)Catv，連接名稱(chēng)為CatvConn。在當(dāng)前庫(kù)連接下單擊右鍵,選擇“添加命令”選項(xiàng),創(chuàng)建一個(gè)命令,命名為CmdCost，在該命令的屬性頁(yè)的“通用”選項(xiàng)頁(yè)上設(shè)置SQL語(yǔ)句如下：

　　SelectfromEquipmentCost

　　單擊“應(yīng)用”按鈕察看效果。

　　隨后對(duì)該命令進(jìn)行分組，右鍵單擊該命令，選擇“屬性”選項(xiàng),在屬性頁(yè)的“分組”選項(xiàng)頁(yè)中，將Project（工程名稱(chēng)）字段設(shè)置為分組字段，分組名稱(chēng)為GroupCost,單擊“應(yīng)用”按鈕觀看效果。

　　接著對(duì)該命令進(jìn)行子匯總，右鍵單擊該命令，選擇“屬性”頁(yè)的“匯總”選項(xiàng)頁(yè)，將Num(器材數(shù)量)、Cost(器材成本)設(shè)置為子匯總字段，分別命名為“合計(jì)1”、“合計(jì)2”，匯總名稱(chēng)為GrantTotal,該名稱(chēng)為總匯總所共用。在程序中顯示報(bào)表前,必須對(duì)該名稱(chēng)對(duì)應(yīng)的記錄集RsGrantTotal進(jìn)行刷新,否則數(shù)據(jù)報(bào)表不能反映統(tǒng)計(jì)中間表的最新內(nèi)容。單擊“應(yīng)用”按鈕觀看效果。

　　最后對(duì)該命令進(jìn)行總匯總，右鍵單擊該命令，選擇“屬性”頁(yè)的“匯總”選項(xiàng)頁(yè)，將“合計(jì)1”、“合計(jì)2”設(shè)置為總匯總字段，分別命名為“總計(jì)1”、“總計(jì)2”，單擊“應(yīng)用”按鈕觀看效果。

　　按照上面的步驟，我們?cè)诋?dāng)前連接CatvConn下建立了一個(gè)包含匯總的分組命令，接著建立一個(gè)數(shù)據(jù)報(bào)表設(shè)計(jì)器命名為RptCost，將該分組子命令拖到數(shù)據(jù)報(bào)表的“細(xì)節(jié)”段內(nèi)，釋放后，調(diào)節(jié)各個(gè)字段的大小和位置，其中，子匯總字段和總匯總字段還應(yīng)該分別另建分組節(jié)，總匯總字段所處的節(jié)應(yīng)位于最上層。

三、在程序中填充統(tǒng)計(jì)中間表，更新數(shù)據(jù)報(bào)表并顯示
　　設(shè)計(jì)一個(gè)打印模塊如下：

　　PublicSubPrint_EquipMentCost(ByvalDate1asDate,ByvalDate2asDate)

　　'清空虛擬表

　　DimSSQLasstring　　

　　DimCmdAsNewADODB.Command

　　SSql="DeleteFromEquipmentCost"

　　Cmd.ActiveConnection=gConn　　

　　'數(shù)據(jù)庫(kù)連接變量,讀者可以建立自己的數(shù)據(jù)庫(kù)連接變量

　　Cmd.CommandType=adCmdText

　　Cmd.CommandText=SSql

　　Cmd.Execute

　　'將統(tǒng)計(jì)明細(xì)添加到虛擬表中

　　ssql="InsertintoEquipmentCost"&&"(Project,Name,Standard,Type,Num,Cost)"&&"selecta.projectas'Project',b.nameas'Name',"&&"b.standardas'Standard',b.typeas'Type',"&&"b.numas'Num',b.num*b.priceas'Cost'"&&"fromOutbillaleftjoinOutbillDetailbon(a.outbill=b.outbill)"&&"wherea.OutDate>="&&Date1&&"anda.OutDate<="&&Date2

　　Cmd.ActiveConnection=gConn

　　Cmd.CommandType=adCmdText

　　Cmd.CommandText=SSql

　　Cmd.Execute

　　'刷新數(shù)據(jù)報(bào)表，使其顯示最新查詢(xún)記錄

　　SetRptCost.DataSource=EnvCatv

　　'數(shù)據(jù)環(huán)境名稱(chēng)

　　EnvCatv.rsGrandTotal.Requery　　'rsGrantTotal為分組子命令記錄集名稱(chēng)

　　'顯示數(shù)據(jù)報(bào)表

　　RptCost.Show

　　EndSub

　　本程序在VB6.0、MS-SQLServer下運(yùn)行成功。

出庫(kù)單表名為OutBill,結(jié)構(gòu)如下：字段名
字段含義
類(lèi)型
長(zhǎng)度

OutBill
出庫(kù)單號(hào)
Varchar
10

OutDate
出庫(kù)日期
SmallDate

LLMan
領(lǐng)料人
Varchar
12

DepartMent
部門(mén)
Varchar
12

Operator
經(jīng)手人
VarChar
12

Project
對(duì)應(yīng)工程
VarChar
50

出庫(kù)單明細(xì)表名為OutBillDetail,結(jié)構(gòu)如下：字段名
字段含義
類(lèi)型
長(zhǎng)度

OutBill
出庫(kù)單號(hào)
Varchar
10

EmName
器材名稱(chēng)
Varchar
12

EmStandard
器材規(guī)格
Varchar
12

EmType
器材型號(hào)
Varchar
12

Amount
數(shù)量
Int

Price
單價(jià)
smallmoney

成本統(tǒng)計(jì)中間表名為EquipMentCost,結(jié)構(gòu)如下：字段名
字段含義
類(lèi)型
長(zhǎng)度

Project
工程名稱(chēng)
Varchar
50

Name
器材名稱(chēng)
Varchar
12

Standard
器材規(guī)格
Varchar
12

Type
器材型號(hào)
Varchar
12

Num
器材用量
Int　

Cost
器材成本
smallmoney