用戶可以在ActiveReports的Sample中找到Annual Report，大家可以通過運(yùn)行此用例，配合以下文字介紹，學(xué)習(xí)到如何使用子報(bào)表，區(qū)域?qū)傩裕约皥D表控件來快速的建立一個年度報(bào)表。以下按照Solution Explorer窗口里的文件逐個介紹。

1. 年度報(bào)表（主報(bào)表）

以下介紹的是主報(bào)表的建立， 此年度報(bào)表分為三頁， 縮影如下圖。

a) 報(bào)表頁眉區(qū)域（第一，二頁）

在這次介紹的示例中， 我們的報(bào)表頁眉區(qū)域分為兩頁。 這里通過使用PageBreak控件將ReportHeader分成兩頁， 并且將ReportHeader區(qū)域的NewPage屬性設(shè)置為After. 另外， 這個報(bào)表會告訴用戶可以使用Label的BackColor和ForeColor屬性建立需要區(qū)域視覺分辨性強(qiáng)的報(bào)表。

這個報(bào)表的ReportHeader區(qū)域安插了SubReport控件， 在ReportStart事件里， 使用程序編譯連接至ProductSalesByCategory報(bào)表。

建議在ReportStart事件中初始化報(bào)表， 而并非是在每個區(qū)域的Format事件。

CSharp：
private void AnnualReport_ReportStart(object sender, System.EventArgs eArgs)
{
//Set subreport control's Report property to a new report instance
this.srptTop10.Report = new Top10();
this.srptProductSales.Report = new ProductSalesByCategory();
}

VB:
Private Sub AnnualReport_ReportStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.ReportStart
'Set subreport control's Report property to a new report instance
Me.srptTop10.Report = New Top10()
Me.srptProductSales.Report = New ProductSalesByCategory()
End Sub

ReportHeader區(qū)域右半部分黃色背景的， 使用的是Shape控件， 通過BackColor屬性設(shè)置顏色。 左半邊則使用了Picture控件。

b) Detail Section 明細(xì)區(qū)域(第三頁)

明細(xì)區(qū)域包含兩個SubReport控件，分別連接為Top10Customers和Top10Products報(bào)表。通常，在很多報(bào)表中，明細(xì)區(qū)域會運(yùn)行很多次；但在此報(bào)表中，明細(xì)區(qū)域只有Label，而并無綁定的數(shù)據(jù)，因此只會運(yùn)行一次。這樣的話，兩個子報(bào)表就可以在ReportStart事件中被初始化。

注意：請將ReportFooter區(qū)域的是Height屬性設(shè)置為0. 這是因?yàn)椋嗣骷?xì)區(qū)域，頁眉頁腳區(qū)域在一頁中是同時出現(xiàn)的，如果不想使用頁腳，則需要將其高度設(shè)置為0，而并不能夠單獨(dú)刪除頁腳。

c) GetDBPath 獲取數(shù)據(jù)源

對于數(shù)據(jù)庫的連接，在論壇上知識庫與精華區(qū)“ActiveReports 6.0產(chǎn)品使用指南 (2)快速綁定數(shù)據(jù)源 ”中有詳細(xì)的介紹。這里的示例使用的數(shù)據(jù)庫依然為NorthWind。

2. ProductSalesByCategory報(bào)表

這可以是一個單獨(dú)的ActiveReport，但在這個年度報(bào)表示例中被使用為SubReport，其放置的區(qū)域?yàn)镽eportHeader區(qū)域（第二頁報(bào)表的左下角）。

• 這里需要注意的是，如果建立的報(bào)表是為了使用為子報(bào)表，則這個子報(bào)表如無特別需要則不用建立頁眉頁腳區(qū)域，可將其ReportHeader/Footer和PageHeader/Footer拿掉。這樣會縮短報(bào)表運(yùn)行的過程。

• PrintWidth屬性只有2.677英寸；這個寬度正好與主報(bào)表中SubReport控件匹配。
• 這個報(bào)表在GroupHeader區(qū)域使用Labels來呈現(xiàn)數(shù)據(jù)名稱，在明細(xì)區(qū)域逐條打印數(shù)據(jù)。
• 在報(bào)表周圍的灰色區(qū)域， 右擊選擇ViewCode，可以查看編譯的程序，包括數(shù)據(jù)庫的綁定， 各背景色彩的設(shè)定。

CSharp：
private void ProductSalesByCategory_DataInitialize(object sender, System.EventArgs eArgs)
{
//Create dynamic datasource using sample database
DataDynamics.ActiveReports.DataSources.OleDBDataSource _ds = new DataDynamics.ActiveReports.DataSources.OleDBDataSource();
_ds.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + GetDBPath.GetPath() + @"\nwind.mdb";
_ds.SQL = "SELECT DISTINCTROW Categories.CategoryName, Sum([Order Details Extended].ExtendedPrice) AS ProductSales FROM Categories INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details Extended] ON Orders.OrderID = [Order Details Extended].OrderID) ON Products.ProductID = [Order Details Extended].ProductID) ON Categories.CategoryID = Products.CategoryID WHERE (((Orders.OrderDate) Between #1/1/95# And #12/31/95#)) GROUP BY Categories.CategoryName ORDER BY Categories.CategoryName";
this.DataSource = _ds;
}
private void Detail_Format(object sender, System.EventArgs eArgs)
{
// Check _iRow value to see if we need to highlight the row or not.
if(this._iRow%2 == 0)
this.Detail.BackColor = Color.LightYellow;
else
this.Detail.BackColor = Color.Transparent;
this._iRow++;
}

VB:
Private Sub ProductSalesByCategory_DataInitialize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.DataInitialize
'Create dynamic datasource using sample database
Dim _ds As New DataDynamics.ActiveReports.DataSources.OleDBDataSource()
_ds.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + GetDBPath.GetPath() + "\nwind.mdb"
_ds.SQL = "SELECT DISTINCTROW Categories.CategoryName, Sum([Order Details Extended].ExtendedPrice) AS ProductSales FROM Categories INNER JOIN (Products INNER JOIN (Orders INNER JOIN [Order Details Extended] ON Orders.OrderID = [Order Details Extended].OrderID) ON Products.ProductID = [Order Details Extended].ProductID) ON Categories.CategoryID = Products.CategoryID WHERE (((Orders.OrderDate) Between #1/1/95# And #12/31/95#)) GROUP BY Categories.CategoryName ORDER BY Categories.CategoryName"
Me.DataSource = _ds
End Sub

Private Sub Detail_Format(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail.Format
' Check _iRow value to see if we need to highlight the row or not.
If Me._iRow Mod 2 = 0 Then
Me.Detail.BackColor = Color.LightYellow
Else
Me.Detail.BackColor = Color.Transparent
End If
Me._iRow = Me._iRow + 1
End Sub

3. StartupForm 起始表格

這個表格使用了ActiveReports的Viewer控件。 將Viewer的Dock屬性設(shè)置為Fill，表格在運(yùn)行時便會自動調(diào)整大小。 用戶可以右擊選擇ViewCode來查看程序。

4. Top10Customers報(bào)表和Top10Products報(bào)表

Top10Customers和Top10Products兩個報(bào)表都各自只有兩個區(qū)域，即GroupHeader和Detail。請將兩個報(bào)表的PrintWidth屬性設(shè)置為3.135 inches, 這樣兩個報(bào)表的大小正好合適于主報(bào)表。

這兩個子報(bào)表的GroupHeader區(qū)域都被Chart控件填充著。大家可以點(diǎn)擊圖表，查看一下這個圖表屬性的設(shè)置。在屬性窗口的下方，點(diǎn)擊藍(lán)色的Data Source，圖表綁定的數(shù)據(jù)源窗口會彈出，在Query框中，可以查看到如何選擇前10位的SQL語句。對于如何在ActiveReports中建立圖表，我們會在下一個主題中詳細(xì)介紹）。

在每個子報(bào)表的明細(xì)區(qū)域，設(shè)置兩個TextBoxes和一個Label控件， 可以右擊，選擇ViewCode來查看如何設(shè)置數(shù)據(jù)源， 傳遞數(shù)據(jù)到圖表上， 以及交替設(shè)置明細(xì)部分的背景色， 以及如何設(shè)置Label的Text屬性。