VB6中用DataReport做報(bào)表

2019-11-18 17:52:03

字體：大中小

供稿：網(wǎng)友

我不是VB熟練工，最近剛剛用VB做完一個(gè)程序，其中控制部分沒(méi)費(fèi)太大周折，倒是報(bào)表部分頗讓我費(fèi)了一翻腦筋。在網(wǎng)上找了半天，也沒(méi)找到關(guān)于VB6的DataReport的詳細(xì)介紹，于是想借鑒"前輩"們的經(jīng)驗(yàn)，用CrystalReport或Excel，感覺(jué)也不省勁，于是決定回頭再去"啃"DataReport，別說(shuō)，還真讓有所收獲，下面就簡(jiǎn)單的介紹一下我的體會(huì)，希望對(duì)大家能有所幫助。

　　首先介紹一下DataReport對(duì)象的幾個(gè)常用屬性。一是DataSource，用于設(shè)置一個(gè)數(shù)據(jù)源，通過(guò)該數(shù)據(jù)源，數(shù)據(jù)使用者被綁定到一個(gè)數(shù)據(jù)庫(kù)；二是DataMember，從DataSource提供的幾個(gè)數(shù)據(jù)成員中設(shè)置一個(gè)特定的數(shù)據(jù)成員；三是LeftMargin、RightMargin、TopMargin、BottomMargin等，用于指定報(bào)表的左右上下的頁(yè)邊距；四是Sections，即DataReport的報(bào)表標(biāo)頭、頁(yè)標(biāo)頭、細(xì)節(jié)、頁(yè)腳注、報(bào)表腳注5個(gè)區(qū)域，如果加上分組(可以有多層分組)，則增加一對(duì)區(qū)域，即分組標(biāo)頭、分組腳注。其中DataSource一般是一個(gè)數(shù)據(jù)環(huán)境或是ADODB.Connection類型的變量，而DataMember則對(duì)應(yīng)數(shù)據(jù)環(huán)境中的Command或是ADODB.RecordSet類型的變量，推薦使用數(shù)據(jù)環(huán)境及Command，頁(yè)邊界大家肯定都很清楚，下面我主要介紹以下Sections，這也是DataReport的精髓所在。

　　Sections是一個(gè)集合，您可以為每一個(gè)Section指定名稱，也可以用其缺省的索引，從上到下依次為1、2…。每個(gè)Section均有Height和Visible屬性，您可以在一定條件下使一個(gè)Section不可見(jiàn)。在Section中可以放置各種報(bào)表控件，其中RptLabel、RptImage、RptShape和RptLine可以放在任意的Section中，用于輸出各種文字、圖形及表格線；RptTextBox只能放在細(xì)節(jié)中，一般用于綁定輸出DataMemeber提供的數(shù)據(jù)字段；RptFunction只能被放置在分組注腳中,用于輸出使用各種內(nèi)置函數(shù)計(jì)算出的合計(jì)、最大值、最小值、平均值、記數(shù)等等。上述報(bào)表控件中常用公共屬性有用于控制位置及高度寬度的Top、Left、Height、Width和控制可見(jiàn)性的Visible；其中RptTextBox還有DataField、DataMember、DataFormat及Font屬性；其他屬性不再多說(shuō)。

　　然后介紹一下我的使用經(jīng)驗(yàn)。一是對(duì)想控制的報(bào)表控件按類型有規(guī)律的命名；二是用RptShape的矩形框做表格線框，比用RptLine畫(huà)框省事多了，只有斜線才使用RptLine；三是報(bào)表標(biāo)題及報(bào)表中的表頭文字、日期及頁(yè)碼用RptLabel，其中Caption屬性支持轉(zhuǎn)義字符，D為長(zhǎng)格式日期，d為短格式日期，P為總頁(yè)數(shù)，p為當(dāng)前頁(yè)碼；四是對(duì)固定報(bào)表在設(shè)計(jì)窗口直接將報(bào)表控件擺放到位，對(duì)于活報(bào)表，應(yīng)首先考慮報(bào)表最大的情形，將足夠的控件分別放置在不同區(qū)域，位置大小可以不必深究，然后在報(bào)表輸出前用VBA代碼對(duì)所有控件的屬性進(jìn)行調(diào)整，包括位置、高度、寬度、字體、對(duì)齊方式、顯示格式、可見(jiàn)性等等，相應(yīng)的對(duì)Section也應(yīng)根據(jù)情況調(diào)整其高度和可見(jiàn)性。
　　最后用一個(gè)實(shí)例　…
　調(diào)整完畢后
　.Show或.PRintReport
EndWith
->
　　這樣做的優(yōu)點(diǎn)是報(bào)表設(shè)計(jì)時(shí)簡(jiǎn)單，調(diào)整方便、隨意，只需更改一點(diǎn)代碼，而不必為了一點(diǎn)點(diǎn)的修改而費(fèi)神的在設(shè)計(jì)窗口調(diào)整半天。->

上一篇：關(guān)于VisualBasic6.0類開(kāi)發(fā)(上)

下一篇：使用Data控件訪問(wèn)數(shù)據(jù)庫(kù)