在上一篇中已經介紹了報表模板的製作了，當然我們不能還要介紹報表和vb的互動，當我們建好模板以後就要在vb中引用此報表，下面就結合日結賬和周結賬來介紹報表的使用。

    首先我們應該在窗體載入事件中進行以下程式碼的編寫；最後兩行的意思是進行引數的傳遞，它的作用是用來顯示時間段，在這裡需要說明以下就是給我們的系統中，報表上的時間段不會改變。

  我們應該首先 在通用 裡面對報表進行例項化

    Dim report As grproLibCtl.GridppReport    '例項化報表

<span style="font-family: Arial, Helvetica, sans-serif;">          </span><pre name="code" class="html">Private Sub Form_Load()
    Dim strsql As String
    Dim strmsg As String
                                                 '建立報表物件
    Set report = New grproLibCtl.GridppReport
                                                 '載入報表模版檔案
    report.LoadFromFile (App.Path & "\日結報表.grf")
                                                     '設定資料連線串
    
    report.DetailGrid.Recordset.ConnectionString = ConnectString
                                    '用來使grdWeekliyBill報表查詢器控制元件顯示報表中的內容
    
    grddayliybill.report = report
    grddayliybill.Start
  
 

Private Sub cmdrefresh_Click()
                            '賬單重新整理
  
          Dim strsql As String
         Dim strmsg As String
         Dim mrc As ADODB.Recordset
         Dim mrcc As ADODB.Recordset
  
                 '日期的選定
    
   
         strsql = "select * from checkday_Info where date ='" & Date & "'"
   

<span style="font-family: Arial, Helvetica, sans-serif;">
</span>

<span style="font-family: Arial, Helvetica, sans-serif;"><span style="font-size:24px;">Private Sub cmdpreview_Click()              '列印預覽</span>
 

    report.PrintPreview (True)
End Sub

Private Sub cmdprint_Click()             '列印
    report.[Print] (True)
End Sub</span>

  在插入程式碼之前我們應該在工程——部件中選擇

  下面簡單介紹一下報表中引數的插入：

修改完名稱以後，下面進行引數的匯入：

  下面介紹我在編寫日結賬和周結賬的思路：

   我認為日結沒有很大的問題只要我們在結賬窗體中，把資料匯入日結賬表中即可，也就說我們每結一次賬，在資料庫中的表中就會有一條記錄，當我們 檢視日結賬的時候就會清楚的看到今天的結賬明細賬單。下面是我的程式碼：

  首先在我們重新整理時間之前，刪除表中的所有記錄（之前說過這是一張空表）

     txtsql = "delete * from checkweek_info"

      set mrc = executesql (txtsql,msgtext)

在清空表之後，在日結表中區每一天的彙總數：

While (DateValue(enddateview.Value) - DateValue(startdateview.Value) >= 0)
            Text1.Text = DateValue(enddateview.Value) - DateValue(startdateview.Value)
        
            txtSQL = "select * from checkday_info where date = '" & startdateview.Value & "'"
             Set mrcc = ExecuteSQL(txtSQL, MsgText)
                If mrcc.EOF = True Then             '判斷是否有記錄
                    startdateview.Value = startdateview.Value
                Else
                    While (mrcc.EOF = False)
                        RechargeCash = RechargeCash + mrcc.Fields(1)
                        consumecash = consumecash + mrcc.Fields(2)
                        cancelCash = cancelCash + mrcc.Fields(3)
                        allcash = allcash + mrcc.Fields(4)
                        mrcc.MoveNext
                    Wend
                mrcc.Close
                                                    '獲得上期餘額
            
                txtSQL = "select * from checkday_info where date='" & Trim(startdateview.Value - 1) & "'"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                    If mrcc.EOF = True Then
                        remaincash = 0
                    Else
                    While (mrcc.EOF = False)
                            remaincash = remaincash + mrcc.Fields(0)
                            mrcc.MoveNext
                        Wend
                    End If
                    

           txtSQL = "select * from checkweek_info"
                Set mrccc = ExecuteSQL(txtSQL, MsgText)
                
                mrccc.AddNew
                
                mrccc.Fields(0) = remaincash
                mrccc.Fields(1) = RechargeCash
                mrccc.Fields(2) = consumecash
                mrccc.Fields(3) = cancelCash
                mrccc.Fields(4) = cancelCash
                mrccc.Fields(5) = startdateview.Value
                mrccc.update
            End If
                 startdateview.Value = startdateview.Value + 1
            
            
        Wend

下一篇將總結 學生資訊管理系統和機房收費系統中的組合查詢的對比。