原文: ActiveReports 報(bào)表應(yīng)用教程 (6)---分組報(bào)表

在 ActiveReports 中可以設(shè)置單級(jí)分組、嵌套分組，同時(shí)，還可以使用表格、列表以及矩陣等數(shù)據(jù)區(qū)域控件對(duì)數(shù)據(jù)源進(jìn)行分組操作。分組報(bào)表在商業(yè)報(bào)表系統(tǒng)中應(yīng)用不勝枚舉，客戶信息歸類統(tǒng)計(jì)表、商品分類統(tǒng)計(jì)表、銷售記錄年度、閱讀統(tǒng)計(jì)等等。本文將介紹如何在 ActiveReports 中實(shí)現(xiàn)分組報(bào)表。

1、創(chuàng)建報(bào)表文件

在應(yīng)用程序中添加一個(gè) ActiveReports 報(bào)表文件，使用的項(xiàng)目模板類型為 ActiveReports 頁(yè)面報(bào)表。添加完成之后從 VS 報(bào)表菜單中選擇報(bào)表屬性菜單項(xiàng)，并在外觀選項(xiàng)卡中設(shè)置報(bào)表頁(yè)邊距為 1cm

2、打開報(bào)表資源管理器，并按照以下信息創(chuàng)建報(bào)表數(shù)據(jù)源

名稱：
NWind_CHS

類型：
Micorsoft OleDb Provider

OLE DB 提供程序：
Microsoft.Jet.OLEDB.4.0

服務(wù)器或文件名稱：
Data\NWind_CHS.mdb

3、 添加數(shù)據(jù)集

在新建的 NWind_CHS 數(shù)據(jù)源上鼠標(biāo)右鍵并選擇添加數(shù)據(jù)集菜單項(xiàng)，數(shù)據(jù)集信息如下：

常規(guī)-名稱：Products

查詢-查詢：

      
        
          SELECT
        
         產(chǎn)品.*,類別.類別名稱,類別.說(shuō)明 
        
          AS
        
         類別說(shuō)明,類別.圖片 
        
          AS
        
         類別圖片, 供應(yīng)商.公司名稱 
        
          AS
        
         供應(yīng)商,供應(yīng)商.聯(lián)系人姓名,供應(yīng)商.城市,供應(yīng)商.地址


      
      
        
          FROM
        
         (供應(yīng)商 
        
          INNER
        
        
          JOIN
        
         產(chǎn)品 
        
          ON
        
         供應(yīng)商.供應(yīng)商ID = 產(chǎn)品.供應(yīng)商ID) 
        
          INNER
        
        
          JOIN
        
         類別 
        
          ON
        
         產(chǎn)品.類別ID = 類別.類別ID


      
      
        
          ORDER
        
        
          BY
        
         產(chǎn)品.類別ID;
      
    

4、設(shè)計(jì)報(bào)表界面

選中報(bào)表的第一頁(yè) Page1，點(diǎn)擊屬性窗口命令區(qū)域中【屬性對(duì)話框】命令鏈接，在出現(xiàn)的設(shè)置對(duì)話框中設(shè)置以下信息：

常規(guī)-數(shù)據(jù)集名稱：
Products

分組-表達(dá)式：
=[類別名稱]

4.1、從 VS 工具箱中將 Table 控件添加到報(bào)表設(shè)計(jì)界面，設(shè)置 Table1 的 FixedSize 為 19cm * 25cm，并按照以下信息各個(gè)數(shù)據(jù)單元格的屬性：

單元格行列索引
控件
屬性

Cells[1,1]
TextBox
Value=First(Fields!類別名稱.Value) & "? (" & First(Fields!類別說(shuō)明.Value) & ")"

Cells[3,1]
TextBox
Value=Fields!產(chǎn)品名稱.Value

Cells[3,2]
TextBox
Value=Fields!單位數(shù)量.Value

Cells[3,3]
TextBox
Value=Fields!單價(jià).Value

Cells[3,4]
TextBox
Value=Fields!訂購(gòu)量.Value

Cells[3,5]
TextBox
Value=Fields!再訂購(gòu)量.Value

Cells[3,6]
TextBox
Value=Fields!單價(jià).Value *? Fields!訂購(gòu)量.Value

Cells[3,7]
Image
Value=IconSet("Symbols2",Fields!中止.Value = 0,False,Fields!中止.Value * -1,False,False)

Cells[4,5]
TextBox
Value=Sum(Fields!訂購(gòu)量.Value, "Table1")

Cells[5,5]
TextBox
Value=Sum(Fields!庫(kù)存量.Value, "Table1")

Cells[6,5]
TextBox
Value=Sum(Fields!單價(jià).Value * Fields!訂購(gòu)量.Value, "Table1")

最終得到的設(shè)計(jì)界面如下圖所示：

5、運(yùn)行程序

通過(guò) F5 鍵運(yùn)行程序，得到以下運(yùn)行結(jié)果：

在線演示及源碼下載地址：

http://www.gcpowertools.com.cn/products/activereports_demo.htm

ActiveReports 報(bào)表應(yīng)用教程 (6)---分組報(bào)表