VB打印报表与报表中设定显示时间

阳光穿透心脏的1/2处 2022-05-29 06:27 279阅读 0赞

在做机房收费系统中学习到使用报表，首先得问题是报表是什么？报表有什么作用？

报表：是企业管理的基本措施和途径，是企业的基本业务要求，报表可以帮助企业访问、格式化数据，并把数据信息以可靠和安全的方式呈现给使用者。深入洞察企业运营状况，是企业发展的强大驱动力。

报表在未来的公司中发挥着越来越重要的作用，做机房收费系统首次接触到报表的制作，里面包含了报表的基本原理与内容，自己下载下来报表生成器之后先先试一番，感觉它虽然制作简单但是功能很强大、很好玩。在vb、报表、数据库三者相连的学习中重要知识点如下：

**报表在vb中的声明**

在vb中需要声明（周结账单为例）：

Option Explicit Private WithEvents objWeekliyBill As grproLibCtl.GridppReport '声明objWeekliyBill对象

Withevents是什么意思呢？什么声明呢？

如下：Dim Withevents 对象变量 As 类名

这种用法是加载该类的事件，Withevents 之后就能在代码编辑窗看到该类的事件了（如果有的话）。  
因为类不像控件，双击控件就可以进入事件编辑。

使用 WithEvents 变量时，应该注意下面这些限制条件：     
1.WithEvents变量不能是派生对象变量。也就是说，不能把它声明为As  Object—当声明该变量时必须指定类名。      
2.不能把 WithEvents 变量声明为As  New。必须明确地创建事件源对象，并将它赋给WithEvents变量。

如：

Private Sub Form_Load() dtpBeginDate.Value = Date dtpEndDate.Value = Date Set objWeekliyBill = New grproLibCtl.GridppReport '创建事件源事件

3.不能在标准模块中声明 WithEvents 变量。只能在类模块、窗体模块以及其它定义类的模块中声明。  
不能创建WithEvents 变量数组。

**      显示选定时间**

在机房收费系统中有个周结账单中需要显示选定时间，如何实现的呢？

在报表主对象插入参数，右击--插入-参数，如有下方图：

，![1347192426_4054.png][]

在模板中插入综合文字框如图：

![1347192011_7187.png][]

需要在vb中写入的程序：

Private Sub Form_Load() dtpBeginDate.Value = Date dtpEndDate.Value = Date Set objWeekliyBill = New grproLibCtl.GridppReport '创建事件源事件 objWeekliyBill.LoadFromFile (App.Path & "\weekliybill.grf") objWeekliyBill.DetailGrid.Recordset.ConnectionString = "FileDSN=room_charge_new.dsn;uid=sa;pwd=123456" grdWeekliyBill.Report = objWeekliyBill grdWeekliyBill.Start objWeekliyBill.ParameterByName("BeginDate").Value = Format(dtpBeginDate.Value, "yyyy-mm-dd") '显示开始时间 objWeekliyBill.ParameterByName("EndDate").Value = Format(dtpEndDate.Value, "yyyy-mm-dd") '显示结束时间 End Sub

最终显示的结果

![1347192848_1558.png][]

**               报表刷新**

'报表的刷新 Private Sub cmdRefresh_Click() Dim strSQL As String Dim strMsg As String Dim objRsWeekliyBill As ADODB.Recordset Dim objRsDaliyBill As ADODB.Recordset If dtpBeginDate.Value > dtpEndDate.Value Then '条件限制 MsgBox "终止日期不能小于起始日期！", vbOKOnly + vbExclamation, "警告" Exit Sub End If '日期的选定 strSQL = "select * from CheckDay_Info where checkdate>='" & dtpBeginDate.Value & "'" & " and checkdate<='" & dtpEndDate.Value & "'" Set objRsDaliyBill = ExecuteSQL(strSQL, strMsg) strSQL = "select * from CheckWeek_Info" Set objRsWeekliyBill = ExecuteSQL(strSQL, strMsg) Do While objRsWeekliyBill.EOF = False objRsWeekliyBill.Delete objRsWeekliyBill.MoveNext Loop '更新到日结表中 Do While objRsDaliyBill.EOF = False '判断是否有数据 With objRsWeekliyBill .AddNew .Fields(0) = objRsDaliyBill.Fields(0) .Fields(1) = objRsDaliyBill.Fields(1) .Fields(2) = objRsDaliyBill.Fields(2) .Fields(3) = objRsDaliyBill.Fields(3) .Fields(4) = objRsDaliyBill.Fields(4) .Fields(5) = objRsDaliyBill.Fields(5) .Update objRsDaliyBill.MoveNext End With Loop grdWeekliyBill.Refresh '刷新 objWeekliyBill.ParameterByName("BeginDate").Value = dtpBeginDate.Value objWeekliyBill.ParameterByName("EndDate").Value = dtpEndDate.Value End Sub

**打印报表**

Private Sub cmdPrint_Click() objWeekliyBill.[Print] (True) End Sub

**打印预览**

Private Sub cmdPreView_Click() objWeekliyBill.PrintPreview (True) End Sub

**  学习是个不断重复、积累、发掘的过程，这个过程可能短时间看不到明显的效果，但当我们暮然回首时会发现自己成长很多、收获很多，加油！**

[1347192426_4054.png]: https://img-my.csdn.net/uploads/201209/09/1347192426_4054.png
[1347192011_7187.png]: https://img-my.csdn.net/uploads/201209/09/1347192011_7187.png
[1347192848_1558.png]: https://img-my.csdn.net/uploads/201209/09/1347192848_1558.png