雖然vb自帶了報表，但是，那個我還沒有研究，我和大多數同學一樣使用了grid++report設計器。它提供獨有的報表查詢展示功能，讓報表查詢展示、列印、列印預覽及資料匯出等整合一體化實現。輕鬆實現表格報表、動態報表、多層表頭、票據套打、交叉表、統計圖表、表中表及各種特殊報表等，是中式報表的最佳開發工具。

一、安裝後，開啟vb後，工程——部件。新增如圖顯示的兩項：Grid++Report Designer5.0 Type Library和Grid++Report Engine5.0 Type Library.

工具箱就會出現如下的三個圖示：

二、開啟grdesigner40.exe 生成報表。
 

1、檔案——新建——嚮導

2、點選下一步，出現：“定義主要資訊”——“建立資料庫連線串”

3、設定“資料庫連線屬性”

4、填寫完成以上資訊後，測試連結——確定，“定義主要資訊”變為如下圖所示：

5、完成後，出現以下報表：

三、設定報表：

1、修改標題行：雙擊即可修改，若不能修改可以按下圖所示修改：

2、新增系統變數：時間

點選“插入”——“綜合文字框”，畫在報表中適合位置。

點選文字框，開始修改文字框內容

點選 上圖中的  ...  按鈕

編輯內容，以及插入系統變數：CurrentDateTime

下圖是完善後的報表：

以上內容即是報表製作的詳細過程。

四、下面就是在vb中新增GRDisplayViewer1，實現vb呼叫報表。

程式碼如下：

Dim Report As grproLibCtl.GridppReport
Dim strtxtSQL As String

Private Sub Form_Load()
   
        '例項化報表
        Set Report = New grproLibCtl.GridppReport

        '報表建立的位置
        Report.LoadFromFile "D:\機房收費系統\checkday.grf"
        '和資料庫連線
        Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;uid=sa;pwd=123456"   '資料來源
        '查詢資料庫中的表
        strtxtSQL = "select * from CheckDay_Info"
        '查詢結果顯示在報表中
        Report.DetailGrid.Recordset.QuerySQL = strtxtSQL
       
        '檢視報表
        GRDisplayViewer1.Report = Report
        '顯示報表
        GRDisplayViewer1.Start

End Sub
Private Sub CmdRefresh_Click()
    GRDisplayViewer1.Refresh     '重新整理
End Sub

Private Sub cmdView_Click()
    Report.PrintPreview (True)     '列印預覽
End Sub

Private Sub CmdPrint_Click()
    Report.[Print] (True)        '列印
End Sub
 

實現後的效果：

預覽的效果：