機房收費系統 報表（2）

二、**部分

跟之前寫的

excel

相比，我覺得報表還是有點相同的。大體思路是這樣的：

先定義。

（報表：

dim withevents 物件變數 as 類名

這種用法是載入該類的事件，withevents之後就能在**編輯窗看到該類的事件了（如果有的話）。

因為類不像控制項，雙擊控制項就可以進入事件編輯。

使用withevents 變數時，應該注意下面這些限制條件：   

withevents變數不能是派生物件變數。也就是說，不能把它宣告為as  

object

—當宣告該變數時必須指定類名。    

不能把 withevents 變數宣告為

asnew

。必須明確地建立事件源物件，並將它賦給

withevents

變數。）

例項化報表，開啟報表位置。

鏈結資料來源。（由於報表裡面已經連線了資料來源，所以這句話我注釋後程式依然可以正常的執行。在

excel

是寫位址）

查詢表並把表裡面的內容顯示出來

下面看一下**：

'定義dim withevents report as grprolibctl.gri***report 

'載入乙個新報表

set report = new grprolibctl.gri***report
'載入報表模版檔案
'設定資料連線串
'report.detailgrid.recordset.connectionstring = connectstring
'鏈結資料來源，由於在報表裡面已經連線了。
txtsql = "select * from checkday_info where date ='" & date & "'"
report.detailgrid.recordset.querysql = txtsql '執行
'顯示報表中的內容
grddaybill.report = report
grddaybill.start
'報表模板上的4個日期或時間賦值
report.parameterbyname("date1").value = format(date, "yyyy-mm-dd")
report.parameterbyname("datetime").value = now
report.parameterbyname("username").value = username

三、總結

所以很多新的東西只要理清好原理

和思路，也沒什麼太難的。

還是特別感謝楊琛

師哥的這兩篇部落格，巨詳細。

機房收費系統之結賬與報表（三）vb與報表**《一學就會傻瓜版》

機房收費系統之結賬與報表（二）周報表製作《一學就會傻瓜版》

機房收費系統 報表（2）

二 部分 跟之前寫的 excel 相比，我覺得報表還是有點相同的。大體思路是這樣的 先定義。報表 dim withevents 物件變數 as 類名 這種用法是載入該類的事件，withevents之後就能在 編輯窗看到該類的事件了 如果有的話 因為類不像控制項，雙擊控制項就可以進入事件編輯。使用wi...

機房收費系統 結賬（2）

dim txtsql as string dim msgtext as string dim mrcst as adodb.recordset 連線student info表 dim mrcca as adodb.recordset 連線cancelcard info表 dim mrcli as a...

機房收費系統2 vb與報表的互動

dim withevents report as grprolibctl.gri report private sub form load dim txtsql as string dim msgtext as string txtsql select from checkday info wher...