VB6中用DataReport做報表

vb6中用datareport做報表

首先介紹一下datareport物件的幾個常用屬性。一是datasource，用於設定乙個資料來源，通過該資料來源，資料使用者被繫結到乙個資料庫；二是datamember，從datasource提供的幾個資料成員中設定乙個特定的資料成員；三是leftmargin、rightmargin、topmargin、bottommargin等，用於指定報表的左右上下的頁邊距；四是sections，即datareport的報表標頭、頁標頭、細節、頁腳注、報表腳注5個區域，如果加上分組(可以有多層分組)，則增加一對區域，即分組標頭、分組腳注。其中datasource一般是乙個資料環境或是adodb.connection型別的變數，而datamember則對應資料環境中的command或是adodb.recordset型別的變數，推薦使用資料環境及command，頁邊界大家肯定都很清楚，下面我主要介紹以下sections，這也是datareport的精髓所在。

sections是乙個集合，您可以為每乙個section指定名稱，也可以用其預設的索引，從上到下依次為1、2…。每個section均有height和visible屬性，您可以在一定條件下使乙個section不可見。在section中可以放置各種報表控制項，其中rptlabel、rptimage、rptshape和rptline可以放在任意的section中，用於輸出各種文字、圖形及**線；rpttextbox只能放在細節中，一般用於繫結輸出datamemeber提供的資料字段；rptfunction只能被放置在分組註腳中,用於輸出使用各種內建函式計算出的合計、最大值、最小值、平均值、記數等等。上述報表控制項中常用公共屬性有用於控制位置及高度寬度的top、left、height、width和控制可見性的visible；其中rpttextbox還有datafield、datamember、dataformat及font屬性；其他屬性不再多說。

然後介紹一下我的使用經驗。一是對想控制的報表控制項按型別有規律的命名；二是用rptshape的矩形框做**線框，比用rptline畫框省事多了，只有斜線才使用rptline；三是報表標題及報表中的表頭文字、日期及頁碼用rptlabel，其中caption屬性支援轉義字元，%d為長格式日期，%d為短格式日期，%p為總頁數，%p為當前頁碼；四是對固定報表在設計視窗直接將報表控制項擺放到位，對於活報表，應首先考慮報表最大的情形，將足夠的控制項分別放置在不同區域，位置大小可以不必深究，然後在報表輸出前用vba**對所有控制項的屬性進行調整，包括位置、高度、寬度、字型、對齊方式、顯示格式、可見性等等，相應的對section也應根據情況調整其高度和可見性。

最後用乙個例項模板來說明其使用方法。

連線資料庫

with 資料環境.rscommand名


if .state = adstateopen then .close
.source = sql語句 
.open 開啟想輸出的資料庫資料項以便輸出
end with
with 報表名
.datasource=資料環境
.datamember=command名 這兩行也可固定設好而不必每次設定
設定頁表頭部分(rpttlabel…為報表控制項名)
.sections(2).controls("rptlabelpage").caption = "共%p頁第%p頁"
.sections(2).controls("rptlabeldate").caption = "列印日期：%d"
.sections(3).controls("rptlabel1").left=…
…設定細節部分(rptshapex、rpttextboxx為報表控制項名)
.sections(3).controls("rptshape1").left=…
.sections(3).controls("rptshape1").top=…
.sections(3).controls("rptshape1").height=…
.sections(3).controls("rptshape1").width=…
.sections(3).controls("rpttextbox1").datamember=command名
.sections(3).controls("rpttextbox1").datafield=欄位1
.sections(3).controls("rpttextbox1").font.name=…
….sections(3).controls("rptshapen").visible=false
.sections(3).controls("rpttextboxn").visible=false
…. sections(3).height=計算出的或固定的細節高度
動態調整報表標題(rptlabeltitle為報表標籤控制項名)
.sections(2). controls("rptlabeltitle").left=…
….sections(2). controls("rptlabeltitle").alignment=…
…調整完畢後
.show 或 .printreport
end with

VB6中用DataReport做報表

VB6中用DataReport做報表

VB6中用DataReport做報表

VB6中用DataReport做報表

相關推薦