VB6中用DataReport做報表
2002-01-08· ·李文強 ··yesky
我不是VB熟練工，最近剛剛用VB做完一個程序，其中控制部分沒費太大週摺，倒是報表部分頗讓我費了一翻腦筋。在網上找了半天，也沒找到關於VB6的 DataReport的詳細介紹，於是想借鑑"前輩"們的經驗，用CrystalReport或EXCEL，感覺也不省勁，於是決定回頭再去"啃"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
|
這樣做的優點是報表設計時簡單，調整方便、隨意，只需更改一點代碼，而不必爲了一點點的修改而費神的在設計窗口調整半天。
