机房收费系统问题集（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 ExplicitDim 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 String    Dim msgtext As String    txtsql = "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 = username    Report.ParameterByName("guanliyuan").Value = username '显示管理员编号    GRDisplayViewer1.Report = Report  '将数据赋给GRD的report    GRDisplayViewer1.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.RefreshMsgBox "账单刷新成功！", 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 String    Dim msgtext As String    Dim mrc1 As ADODB.Recordset    Dim mrc2 As ADODB.Recordset    If DTPicker1.Value > DTPicker2.Value Then       MsgBox "终止时间不能小于起始时间！", vbOKOnly + vbExclamation, "警告"       Exit Sub    End If    txtsql = "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.EOF       mrc2.Delete       mrc2.MoveNext    Loop    '更新到日结表中    Do While Not mrc1.EOF    With 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)       .Update       mrc1.MoveNext    End With    Loop    GRDisplayViewer1.Refresh    Report.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 = usernameEnd Sub</strong></span></span></strong>

    好了，日结周结账单完成了，有没有感觉很简单，多多经历，收获多多，小伙伴们，好好加油哈！！！