關於報表的學習請看上一篇部落格：

日賬單：

Private Sub Form_Load()
      Dim txtsql As String
      Dim noda As String
      noda = Now
      
      
      txtsql = "select * from checkday_info where date='" & Format(Date, "yyyy-mm-dd") & "'"
      Set report = New grproLibCtl.GridppReport '例項化模板
      
      '載入模板
      report.LoadFromFile (App.Path & "\日報表.grf")
      '連線資料來源
      report.DetailGrid.Recordset.ConnectionString = ConnectString()
      '通過select查詢建立記錄集,只查詢
      report.DetailGrid.Recordset.QuerySQL = txtsql
      
      '顯示當前的日期
      report.ParameterByName("Parameter12").AsString = noda

      '顯示編號
      report.ParameterByName("Parameter9").AsString = Username
      
      GRDisplayViewer1.report = report     '將資料賦給GRD的report
      GRDisplayViewer1.Start   '在報表中顯示
      
End Sub
 

日賬單重新整理：

Private Sub cmdRefur_Click()
      '賬單重新整理
      GRDisplayViewer1.Refresh
      
End Sub

 賬單列印：

Private Sub cmdReport_Click()

'列印，因為報表物件的print方法名與vb的內部定義有衝突所以要用中括號
       report.[Print] (True)
End Sub

賬單瀏覽

Private Sub cmdLook_Click()
      report.PrintPreview (True)      '列印預覽

End Sub