ActiveReports 6.0产品使用指南 (3)轻松创建年度报表

年度报表示例
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
用户可以在ActiveReports6.0的Sample中找到Annual Report，大家可以通过运行此用例，配合以下文字介绍，学习到如何使用子报表， 区域属性， 以及图表控件来快速的建立一个年度报表。以下按照Solution Explorer窗口里的文件逐个介绍。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1. 年度报表（主报表）
以下介绍的是主报表的建立， 此年度报表分为三页， 缩影如下图。


a) 报表页眉区域（第一，二页）
在这次介绍的示例中， 我们的报表页眉区域分为两页。 这里通过使用PageBreak控件将ReportHeader分成两页， 并且将ReportHeader区域的NewPage属性设置为After. 另外， 这个报表会告诉用户可以使用Label的BackColor和ForeColor属性建立需要区域视觉分辨性强的报表。

这个报表的ReportHeader区域安插了SubReport控件， 在ReportStart事件里， 使用程序编译连接至ProductSalesByCategory报表。

建议在ReportStart事件中初始化报表， 而并非是在每个区域的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区域右半部分黄色背景的， 使用的是Shape控件， 通过BackColor属性设置颜色。 左半边则使用了Picture控件。



b) Detail Section 明细区域(第三页)
明细区域包含两个SubReport控件，分别连接为Top10Customers和Top10Products报表。通常，在很多报表中，明细区域会运行很多次；但在此报表中，明细区域只有Label，而并无绑定的数据，因此只会运行一次。这样的话，两个子报表就可以在ReportStart事件中被初始化。



注意：请将ReportFooter区域的是Height属性设置为0. 这是因为，除了明细区域，页眉页脚区域在一页中是同时出现的，如果不想使用页脚，则需要将其高度设置为0，而并不能够单独删除页脚。

c) GetDBPath 获取数据源
对于数据库的连接，在论坛上知识库与精华区“ActiveReports 6.0产品使用指南 (2)快速绑定数据源 ”中有详细的介绍。这里的示例使用的数据库依然为NorthWind。

2. ProductSalesByCategory 报表
这可以是一个单独的ActiveReport，但在这个年度报表示例中被使用为SubReport，其放置的区域为ReportHeader区域（第二页报表的左下角）。
?

• 这里需要注意的是，如果建立的报表是为了使用为子报表，则这个子报表如无特别需要则不用建立页眉页脚区域，可将其ReportHeader/Footer和PageHeader/Footer拿掉。这样会缩短报表运行的过程。
• PrintWidth属性只有2.677英寸；这个宽度正好与主报表中SubReport控件匹配。
• 这个报表在GroupHeader区域使用Labels来呈现数据名称，在明细区域逐条打印数据。
• 在报表周围的灰色区域， 右击选择ViewCode，可以查看编译的程序，包括数据库的绑定， 各背景色彩的设定。

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 = &quotrovider=Microsoft.Jet.OLEDB.4.0ersist 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 = &quotrovider=Microsoft.Jet.OLEDB.4.0ersist 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属性设置为Fill，表格在运行时便会自动调整大小。 用户可以右击选择ViewCode来查看程序。

4. Top10Customers 报表和 Top10Products 报表
Top10Customers和Top10Products两个报表都各自只有两个区域， 即GroupHeader和Detail。 请将两个报表的PrintWidth属性设置为3.135 inches, 这样两个报表的大小正好合适于主报表。

这两个子报表的GroupHeader区域都被Chart控件填充着。 大家可以点击图表，查看一下这个图表属性的设置。 在属性窗口的下方， 点击蓝色的Data Source， 图表绑定的数据源窗口会弹出， 在Query框中， 可以查看到如何选择前10位的SQL语句。 （对于如何在ActiveReports中建立图表，我们会在下一个主题中详细介绍）。






在每个子报表的明细区域，设置两个TextBoxes和一个Label控件， 可以右击，选择ViewCode来查看如何设置数据源， 传递数据到图表上， 以及交替设置明细部分的背景色， 以及如何设置Label的Text属性。
~~~END~~~