機房收費系統問題集錦（四）——報表問題

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);">       </span><span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255); font-size: 18px;">   其實，剛做到報表這一塊的時候，我是感到非常的頭疼的：不知道該從何處入手，總感覺Grid++ Report 報表設計器的使用非常的麻煩，就這樣項目在我的拖延下兩天的時間就過去了，“沒辦法啊，你不做，別人的勞動成果也不會是你的”，還是得硬着頭皮做下去啊！</span>

首先呢，先上網上下載一個 Grid++ Report 報表設計器 ，按照它的要求一步步的安裝好。

再者，打開Grid++ Report 報表設計器，對設計器進行編輯

           

        在這裏我先說一下對於日結賬單的設計：

        點擊上圖所示的“插入”→“頁眉”，“插入”→“頁腳”，“插入”→“報表頭”，“插入”→“報表尾”，“插入”→“明細網絡”，當然了還有靜態文本框和綜合文本框，所謂的靜態框，就是一個普通的文字輸入框，而綜合文字框，則是需要自己進行設置的。

       先說一下綜合文本框的設置：它是用來與VB中的內容相連接的

       首先在報表的空白區域右擊→“插入”→“參數”，在報表的右側對插入的參數進行設置

     然後在報表內的綜合文字框內雙擊，對綜合文字框進行如下圖所示的操作

      接下來再說一下對於明細網絡部分的操作

      單擊打開下圖中方框中的圖標，設置語句連接數據庫 

      然後按照下圖所示一一操作

     顯示“測試成功”後

單擊下圖中兩個方框內的內容，就可生成明細網絡

      然後在雙擊標題行內的各個網格對標題進行修改。最終結果如下圖所示：

     最後對你做的報表進行保存（保存到你的工程所在的文件夾下）

      好了，對於報表的設置就算完成了，下面是對於vb中窗體部分的編輯內容

      首先“Ctrl+T”，打開“添加部件”的窗體

把Grid++ Report 報表畫出來

Option Explicit
Dim WithEvents Report As grproLibCtl.GridppReport '實例化報表
Dim txtSQL As String
Dim msgText As String

Private Sub cmdPrint_Click()
'因爲報表對象的Print方法名與VB內部定義有衝突，所以要用中括號括起來
    Report.[Print] (True)
End Sub

Private Sub cmdUpdate_Click() '日結賬單刷新
     GRDisplayViewer1.Refresh
     MsgBox "賬單刷新成功！", , "提示"
    txtSQL = "select * from CheckDay_Info"
    Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
    Report.DetailGrid.Recordset.QuerySQL = txtSQL
    GRDisplayViewer1.Refresh
End Sub

Private Sub Command2_Click() '打印
    Report.PrintPreview (True)
End Sub

Private Sub Form_Load()
    frmDate.Height = 8475
    frmDate.Width = 12390
    
    txtSQL = "select * from CheckDay_Info"
    Set Report = New grproLibCtl.GridppReport '實例化模板
    Report.LoadFromFile (App.Path & "\日結賬單.grf") '加載模板
    Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
    Report.DetailGrid.Recordset.QuerySQL = txtSQL '通過select查詢創建記錄集
    Report.ParameterByName("guanliyuan").Value = UserName '顯示管理員編號
    Report.ParameterByName("date").Value = Format(Date, "yyyy-mm-dd")
    GRDisplayViewer1.Report = Report  '將數據賦給GRD的report
    GRDisplayViewer1.Start '在報表中顯示
    GRDisplayViewer1.Refresh
End Sub

Private Sub Form_Resize() '規定報表的大小
    GRDisplayViewer1.Left = 0
    GRDisplayViewer1.Width = Me.Width - 500
End Sub

好了，日結賬單窗體就弄好了，是不是非常簡單呢！

當然了，周結賬單與日結賬單大同小異，就留給聰明的你們自己去研究了！！！