机房收费系统问题集（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 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.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 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 = username
End Sub</strong></span></span></strong>

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