機房收費系統——報表的使用

   
在機房收費系統的日結賬和周結賬部分我們用到了報表，我們先來瞭解一下什麼是報表。

         報表就是用表格、圖表等格式來動態顯示資料。可以用公式表示為：“報表= 多樣的格式 + 動態資料”。 在沒有電腦以前，也有報表，都是人工根據需要做的一些表格和簡單的圖表來記錄一些賬目和資料。然後定期進行匯總。當電腦出現之後，人們利用電腦處理資料和介面設計的功能來產生、展示報表。電腦上的報表的主要特點是資料動態化，格式多樣化，並且實現報表資料和報表格式的完全分離，使用者可以只修改資料，或者只修改格式。

 

   
我使用的是“Grid++Report報表設計師2009”，下面以設計周報表來介紹一下報表的使用。

一：選擇檔案——建立嚮導——設計主標題和副標題。

二：串連資料庫，跟建立資料來源很像，這裡就不在重複，注意就是記得測試連接。

三：出現定義主要資訊對話方塊中，資料庫連接串會自動出現我們剛才設定的資訊的代碼（注意：有時候資料庫密碼需要我們手動添加），然後查詢SQL中輸入我們建表需要的資料庫表。點擊測試，是否串連成功。

四：定義欄位類型和欄位標題。這個實際操作的時候就會明白。

最後就會顯示我們製作的表的。

在這裡提醒一下，要學會使用插入裡面的各種功能，尤其是各種文字框與參數的結合，可是實現很多功能，比如顯示我們查詢的時間段。

最後就是與VB的串連，首先在VB中加入報表控制項。工程——組件選擇一下兩項。

下面是介面和代碼：

Dim Report As grproLibCtl.GridppReportPrivate Sub cmdCheckDay_Click()Dim txtSQL As String  Dim msgText As String  Dim objRs As ADODB.Recordset   txtSQL = "select * from checkday_info where checkdate between '" & Trim(StartTime.Value) & "'and'" & Trim(EndTime.Value) & "'"                  '報表的參數設定,顯示時間段            Report.ParameterByName("startdate").AsString = Str(StartTime.Value)            Report.ParameterByName("enddate").AsString = EndTime.Value                  Report.DetailGrid.Recordset.QuerySQL = txtSQL                   '查看報表          GRDisplayViewer1.Refresh          GRDisplayViewer1.Start     End Sub'列印報表Private Sub cmdStamp_Click()Report.[Print] (True)End Sub'預覽列印Private Sub cmdStampView_Click()Report.PrintPreview (True)End Sub