机房收费系统问题集（5）——报表（日结，周结账单）

本文主要是介绍机房收费系统问题集（5）——报表（日结，周结账单），希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

机房收费系统将要接近尾声，心里面既激动又兴奋（嘿嘿，其实就是一个意思），它点点滴滴的成长离不开我的辛苦付出，夸奖一下自己吧！

今天介绍一下怎样使用报表以及怎样实现报表与vb的交互，其实这方面的文章一大堆，自己的跟他们的比起来也许很差劲，不过自己总结总结，总比不总结的强，至少见证一下自己的成长嘛！

首先下载一个Grid++ Report报表设计器然后安装

打开后是这个界面：

然后插入页眉，页脚，报表头，报表尾，明细网格，静态框，综合文字框。

先介绍一下明细网格：

点击下图的“根据数据设置自动生成字段”和“根据字段自动生成列”

再修改明细网格的标题行：

再介绍一下“综合文字框”，这个是与vb连接用到的东东... ...

首先,插入——>参数

输入自己的定义的参数名称，选择它的格式以及数据类型。然后如图：

最终的报表成品图：

好了报表的模板做好了，保存一下，接着进入vb的天地... ...

首先插入部件:

选择GRDisplayViewer,在窗体中画出来，调整合适的大小和位置

先定义：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Option Explicit
Dim WithEvents Report As grproLibCtl.GridppReport '实例化报表</strong></span></span></strong>

然后在form_load中添加代码

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub Form_Load()Dim txtsql As StringDim msgtext As Stringtxtsql = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'"Set Report = New grproLibCtl.GridppReport '实例化模板Report.LoadFromFile (App.Path & "\机房日结账单.grf") '加载模板Report.DetailGrid.Recordset.ConnectionString = connectstring() '连接数据源Report.DetailGrid.Recordset.QuerySQL = txtsql '通过select查询创建记录集'Report.ParameterByName("guanliyuan").AsString = usernameReport.ParameterByName("guanliyuan").Value = username '显示管理员编号GRDisplayViewer1.Report = Report  '将数据赋给GRD的reportGRDisplayViewer1.Start '在报表中显示
End Sub
</strong></span></span></strong>

打印：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong> Report.[Print] (True) '打印，报表对象的print方法名与vb中的内部定义方法有冲突，所以使用中括号</strong></span></span></strong>

打印预览：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Report.PrintPreview (True)</strong></span></span></strong>

账单刷新：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>GRDisplayViewer1.Refresh
MsgBox "账单刷新成功！", vbOKOnly + vbExclamation, "警告"</strong></span></span></strong>

日结账单就这样华丽丽的完成了，接下来是周结账单......

模板和日结账单一样，测试一下周结账单的数据源，添加一个日期，进行时间段内的查询就OK啦

其中的"制表时间"用的是系统变量——>当前日期时间

在参数中注意选择日期时间的格式：

然后在vb中添加代码，与日结账单的代码相似，多了个获取始终日期：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>'获取始终时间Report.ParameterByName("startdate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")Report.ParameterByName("enddate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")</strong></span></span></strong>

在”刷新账单“中的代码：

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub cmdshuaxin_Click()Dim txtsql As StringDim msgtext As StringDim mrc1 As ADODB.RecordsetDim mrc2 As ADODB.RecordsetIf DTPicker1.Value > DTPicker2.Value ThenMsgBox "终止时间不能小于起始时间！", vbOKOnly + vbExclamation, "警告"Exit SubEnd Iftxtsql = "select * from CheckDay_Info where date between'" & Format$(DTPicker1.Value, "yyyy-mm-dd") & "'" & "and'" & Format$(DTPicker2.Value, "yyyy-mm-dd") & "'"Set mrc1 = executesql(txtsql, msgtext)txtsql = "select * from checkWeek_Info "Set mrc2 = executesql(txtsql, msgtext)Do While Not mrc2.EOFmrc2.Deletemrc2.MoveNextLoop'更新到日结表中Do While Not mrc1.EOFWith mrc2.AddNew.Fields(0) = mrc1.Fields(0).Fields(1) = mrc1.Fields(1).Fields(2) = mrc1.Fields(2).Fields(3) = mrc1.Fields(3).Fields(4) = mrc1.Fields(4).Fields(5) = mrc1.Fields(5).Updatemrc1.MoveNextEnd WithLoopGRDisplayViewer1.RefreshReport.DetailGrid.Recordset.QuerySQL = "select * from checkWeek_Info where date between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"'获取始终时间Report.ParameterByName("startdate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")Report.ParameterByName("enddate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")'显示管理员编号Report.ParameterByName("guanliyuan").Value = username
End Sub</strong></span></span></strong>