機房收費系統 之 報表
阿新 • • 發佈：2019-02-09
機房收費的重要功能就是可以結賬結賬。日結賬，周結賬這裡都用到了報表。
一、要使用報表首先要在VB中引用和新增相關的控制元件
二、要自己製作一個報表。 這要使用到Grid++Report報表設計器這個軟體。這製作報表的過程也不像想象的那麼難。這裡學到了報表設計器和VB的互動。做好的報表最終是要是VB的窗體中顯示出來的。
二、在需要顯示的位置 插入——綜合文字框。將綜合文字框的“文字”設定為引數
（1）
（2）
在VB中寫入如下程式碼：
這樣VB中的先關資料就可以在報表中顯示了。
二、要自己製作一個報表。 這要使用到Grid++Report報表設計器這個軟體。這製作報表的過程也不像想象的那麼難。這裡學到了報表設計器和VB的互動。做好的報表最終是要是VB的窗體中顯示出來的。
<Dim WithEvents Report As grproLibCtl.GridppReport‘WithEvents 是為了載入grproLibCtl.GridppReport類擁有的事件過程，在編寫的時候就可以看到這個了類所擁有的事件（因為類不能像控制元件一樣雙擊就可以進行事件編輯）
Set Report = New grproLibCtl.GridppReport ‘例項化 Report.LoadFromFile App.Path & "\dayaccount.grf" ‘相對路徑的情況下載入做好的報表<Report.DetailGrid.Recordset.ConnectionString = connectstring ’連到資料庫獲得資料來源strSQL = "select * from dayaccount_Info" Report.DetailGrid.Recordset.QuerySQL = strSQL ‘開啟資料庫中相應的表Report.ParameterByName("madename").AsString = username
’這句程式碼就是VB和報表的互動，“madename”是自己定義的要在報表中顯示的引數名，username是VB中的一個變數 GRDisplayViewer1.Report = Report ’顯示報表GRDisplayViewer1.Start（2）
在VB中寫入如下程式碼：
Report.ParameterByName("madename").AsString = username’這句程式碼就是VB和報表的互動，“madename”是自己定義的要在報表中顯示的引數名，username是VB中的一個變數
這樣VB中的先關資料就可以在報表中顯示了。