機房收費系統——報表(日結賬)
阿新 • • 發佈:2019-02-05
雖然vb自帶了報表,但是,那個我還沒有研究,我和大多數同學一樣使用了grid++report設計器。它提供獨有的報表查詢展示功能,讓報表查詢展示、列印、列印預覽及資料匯出等整合一體化實現。輕鬆實現表格報表、動態報表、多層表頭、票據套打、交叉表、統計圖表、表中表及各種特殊報表等,是中式報表的最佳開發工具。
一、安裝後,開啟vb後,工程——部件。新增如圖顯示的兩項:Grid++Report Designer5.0 Type Library和Grid++Report Engine5.0 Type Library.
工具箱就會出現如下的三個圖示:
二、開啟grdesigner40.exe 生成報表。
1、檔案——新建——嚮導
2、點選下一步,出現:“定義主要資訊”——“建立資料庫連線串”
3、設定“資料庫連線屬性”
4、填寫完成以上資訊後,測試連結——確定,“定義主要資訊”變為如下圖所示:
5、完成後,出現以下報表:
三、設定報表:
1、修改標題行:雙擊即可修改,若不能修改可以按下圖所示修改:
2、新增系統變數:時間
點選“插入”——“綜合文字框”,畫在報表中適合位置。
點選文字框,開始修改文字框內容
點選 上圖中的 ... 按鈕
編輯內容,以及插入系統變數:CurrentDateTime
下圖是完善後的報表:
以上內容即是報表製作的詳細過程。
四、下面就是在vb中新增GRDisplayViewer1,實現vb呼叫報表。
程式碼如下:
Dim Report As grproLibCtl.GridppReport Dim strtxtSQL As String Private Sub Form_Load() '例項化報表 Set Report = New grproLibCtl.GridppReport '報表建立的位置 Report.LoadFromFile "D:\機房收費系統\checkday.grf" '和資料庫連線 Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;uid=sa;pwd=123456" '資料來源 '查詢資料庫中的表 strtxtSQL = "select * from CheckDay_Info" '查詢結果顯示在報表中 Report.DetailGrid.Recordset.QuerySQL = strtxtSQL '檢視報表 GRDisplayViewer1.Report = Report '顯示報表 GRDisplayViewer1.Start End Sub Private Sub CmdRefresh_Click() GRDisplayViewer1.Refresh '重新整理 End Sub Private Sub cmdView_Click() Report.PrintPreview (True) '列印預覽 End Sub Private Sub CmdPrint_Click() Report.[Print] (True) '列印 End Sub
實現後的效果:
預覽的效果: