數據環(huán)境設計器（Data Environment designer）與數據報表設計器（Data Report designer）均是Visual Basic 6.0的新增功能，它們的出現大大增強了Visual Basic處理數據的能力。在以往的Visual Basic版本中，制作報表都是通過(guò)第三方產(chǎn)品來(lái)完成并通過(guò)ActiveX控件輸出的。這兩種設計器的出現，使得Visual Basic程序員再也不用考慮選擇一個(gè)什么樣的第三方工具設計報表了，所有的設計全部在Visual Basic內部完成，再加上Visual Basic 6.0新增的開(kāi)發(fā)IIS應用程序和開(kāi)發(fā)DHTML應用程序功能，使得Visual Basic 6.0是一個(gè)名副其實(shí)的裝備齊全的集成開(kāi)發(fā)環(huán)境了。下面我們以一個(gè)比較簡(jiǎn)單的報表為例，詳細闡述如何使用數據環(huán)境設計器和數據報表設計器來(lái)設計一個(gè)數據報表。
一、數據環(huán)境設計器與數據報表設計器
數據環(huán)境設計器提供了一個(gè)交互式的設計環(huán)境。通過(guò)設置Connection對象和Command對象的屬性，可以快速完成到一個(gè)數據源的連接。對于設置好的數據環(huán)境設計器，可以將它的對象拖放到表單上或是報表上，它會(huì )自動(dòng)創(chuàng )建并完成數據綁定控件的設置。
數據報表設計器是一個(gè)極為靈活的設計報表的工具。它以數據環(huán)境設計器作為數據源，能創(chuàng )建有層次的、匯總若干個(gè)關(guān)系型數據表數據的復雜報表。除了像傳統的報表設計工具那樣能將報表通過(guò)打印機輸出以外，數據報表設計器還能以HTML或文本文件的格式輸出報表。
二、數據環(huán)境對象
數據環(huán)境設計器包含以下幾個(gè)對象：
1. 數據連接（Connection）對象：連接對象表示到一個(gè)作為數據源的遠端數據庫或本地數據庫的連接。在數據環(huán)境中必須至少包含一個(gè)連接對象，要使用數據環(huán)境存取數據，必須首先創(chuàng )建連接對象。
2. 數據命令（Command）對象：命令對象定義了從數據庫連接中將取回什么數據的詳細信息。命令對象可基于任何一個(gè)數據庫對象（表、視圖、存儲過(guò)程或同義字）或是一個(gè)SQL查詢(xún)。
三、數據報表對象
數據報表設計器包括以下幾個(gè)對象：
1. 數據報表（Data Report）對象：類(lèi)似于Visual Basic表單，它包含一個(gè)可視化設計器和一個(gè)代碼模塊。設計器用來(lái)創(chuàng )建報表的布局，也可以往設計器的代碼模塊里添加代碼，用程序對包含在設計器里的控件或區域進(jìn)行控制。
2. 區域（Section）對象：數據報表設計器的每一個(gè)區域均由一個(gè)區域集對象中的一個(gè)區域對象來(lái)表示。在設計階段，每一個(gè)區域都有一個(gè)標題，若要選擇區域，只需用鼠標選擇標題即可，并且在區域內可布置控件。在報表建立之前，使用區域對象及其屬性調整報表。使用過(guò)報表的人都知道，報表可分為報頭、報腳、頁(yè)頭、頁(yè)腳、組頭、組腳和細節等部分，在區域內也是一樣的。
3. 數據報表控件：這些控件只能與Data Report designer（數據報表設計器）一起使用（注意：在數據報表設計器內不能使用Visual Basic的標準控件或者任何其他的ActiveX控件）。這些控件位于Visual Basic工具箱上的“DataReport”標簽內。由于這些控件外觀(guān)及功能與Visual Basic某些標準控件很類(lèi)似，所以不再單獨講述。
四、一個(gè)實(shí)例
我們使用Data Environment designer（數據環(huán)境設計器）作為數據報表的數據源，由Visual Basic自帶的NWind.mdb數據庫提供數據，設計一個(gè)簡(jiǎn)單的報表。設計好的報表如圖1所示。
1. 創(chuàng )建數據環(huán)境設計器
（1）創(chuàng )建一個(gè)新的標準EXE工程文件。
（2）在工程菜單上，選擇添加數據環(huán)境。如果在工程菜單中沒(méi)有列出這一項，那么選擇組件—設計器標簽—選中數據環(huán)境，選擇確定。
（3）在數據連接屬性對話(huà)框中，選擇Microsoft Jet 3.51 OLE DB Provider。
（4）選擇“下一步”按鈕，這樣就進(jìn)入了Connection標簽。
（5）選擇第一個(gè)文本框旁的“...”按鈕。
（6）在存取數據庫對話(huà)框中瀏覽并選擇數據庫文件Nwind.mdb。
（7）選擇“確定”關(guān)閉該對話(huà)框。
（8）用鼠標右擊Connection1圖標，然后選擇Rename，將名字改為Northwind。
（9）用鼠標右擊Northwind圖標，然后選擇Add Command，再用鼠標右擊Command1，選擇“屬性”命令，彈出屬性對話(huà)框，在對話(huà)框中，按下表所示設置屬性值。
Command Name
Customers
Connection
Northwind
DataBase Object
Table
Object Name
Customers
（10）選擇“確定”關(guān)閉該對話(huà)框。
（11）用鼠標右擊Customers命令，選擇Add Child Command，再用鼠標右擊Command1，選擇“屬性”命令，彈出屬性對話(huà)框，在對話(huà)框中，按下表所示設置屬性值。
Command Name
Orders
Connection
Northwind
DataBase Object
Table
Object Name
Orders
（12）選擇Relation標簽，選中Relate to a Parent Command Object檢查框。在Parent下拉框中選中Customers；Parent域和Child域中均已包含了CustomerID。
（13）選擇添加，按“確定”關(guān)閉對話(huà)框。
（14）在屬性窗口中按下表設置工程文件和設計器的屬性值，然后保存工程文件。
Project Name
prjNwind
DataEnvironment Name
deNwind
Form Name
frmShowReport
2. 創(chuàng )建數據報表
一旦創(chuàng )建了數據環(huán)境設計器，就可以創(chuàng )建一個(gè)數據報表了。由于不是所有在數據環(huán)境設計器內的字段都會(huì )用于設計報表，因此下面的過(guò)程只創(chuàng )建了一個(gè)顯示幾個(gè)字段的報表。
創(chuàng )建一個(gè)新報表的步驟如下：
（1）在工程菜單上，選擇Add Data Report命令，Visual Basic會(huì )在工程中添加一個(gè)新的數據報表。
（2）在屬性窗口中按下表設置數據報表的屬性。
Name
rptNwind
Caption
Northwind Data Report
（3）在屬性窗口中，將DataSource設置為deNwind，DataMember設置為Customers。
（4）用鼠標右擊數據報表設計器，選擇Retrieve Structure。
（5）用鼠標將數據環(huán)境設計器的CompanyName字段（在Customers命令下）拖放到組標題為Customers_Header的區域。
（6）刪除標簽控件Label1。
（7）用鼠標將數據環(huán)境設計器的OrderDate字段（在Orders命令下）拖放到Orders_Detail區域，并刪除標簽控件。
（8）調整數據報表設計器的各個(gè)區域，如圖2所示。
（9）保存工程文件。
3. 用Show方法預覽數據報表
現在數據環(huán)境和數據報表對象都已建立，可以準備運行程序了。我們要做的最后一件事情就是編寫(xiě)代碼以顯示數據報表。
（1）在工程瀏覽器窗口中，用鼠標雙擊frmShowReport以顯示表單設計器。
（2）在工具箱上，點(diǎn)擊General標簽。
（3）點(diǎn)擊CommandButton圖標，然后在表單上畫(huà)一個(gè)命令按鈕。
（4）在屬性窗口中按下表設置命令按鈕控件的屬性。
Name
cmdShow
Caption
Show Report
（5）在按鈕事件中，鍵入以下代碼：
Private Sub cmdShow_Click()
rptNwind.Show
End Sub
（6）保存并運行工程文件。
點(diǎn)擊Show Report以打印預覽模式顯示報表。
本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請
點(diǎn)擊舉報。
