VB打印报表与报表中设定显示时间 阳光穿透心脏的1/2处 2022-05-29 06:27 222阅读 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
还没有评论，来说两句吧...