机房之报表（日、周结账单）

    机房收费系统将要接近尾声啦，心里是灰常的激动的！在这期间遇到了许多

从未遇到过的问题，今天就来说说报表咯！！！

    恩…………说什么好呢？好吧，说说报表与vb的交互吧！

    我这几天看了好多博客，关于这个方面的真是一大堆的哈，本来不想写了，

但是想想还是自己写一下，会留下很深的印象的，于是就有了下边的少些文字和图

片还有一大堆文代码：

    我看他们的博客大多数都是先写的如何制作报表，我看有点儿麻烦，也就没

有自己制作，用的发下来的材料里边的现成的(怪我懒咯)。但用现成的也不容易

啊，无论如何怎么都不行，于是我就从网上搜了一下，原来如此！

就拿日结账来说吧：

    1、首先打开报表文件然后点击下图中红框中的（sql）字样小按钮：

    2、进来后是这样的，然后点击（创建数据库连接串）小按钮：

    3、然后点击如下：

    4、点击后自动跳转到链接选项卡，然后：

图中（1）点击选择本机号（也可以是别人的机号）或者直接输入符号点（.）；

图中（2）如果图中（1）选择的是本机号或者输入点（.），（2）选择哪个

都无所谓，选择“使用 Windows NT 集成安全设置”则直接选择图中（3）；如

果选择“使用指定的用户名称和密码”则需输入你电脑的数据库的用户名和密码到

下边的“用户名称”和“密码”然后到如中（3）；若图中（1）选择的是别人的机

图中（3）就可以直接选择自己机房收费系统中所需要的数据库了。

    5、然后点击“测试连接”按钮，弹出提示框“测试连接成功”即可。

    这样初步配置报表文件算告一段落了，接下来就是进入VB敲写代码了

(这里画控件就不细说了，看图)：

日结账单：

代码：

1、先定义：

    Option Explicit '强制显式声明所有变量
     Dim WithEvents Report As grproLibCtl.GridppReport  '实例化报表

2、然后在form_load中添加代码：

 Private Sub Form_Load() '窗体级声明 过程 Form_Load()
   Dim Txtsql As String '局部声明 Txtsql 为 字符型
   Dim msgtext As String '局部声明 msgtext 为 字符型
   Txtsql = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'" 'Txtsql = "select * from CheckDay_Info where date='"连接 格式化文本(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 '结束 过程

3、打印中：

 Report.[Print] (True)           '打印，报表对象的print方法名与VB中的内部定义方法有冲突，所以使用中括号

4、打印预览中：

   Report.PrintPreview (True)          '打印预览

5、日结账单刷新：

     GRDisplayViewer1.Refresh 'GRDisplayViewer1.刷新
       MsgBox "账单刷新成功！", vbOKOnly + vbExclamation, "警告" '弹出消息框 "账单刷新成功！", 只有 确定 按钮(缺省)(值=0) + vbExclamation, "警告"

日结账单就这样的完成了，然后是周结账单：

代码：

    与日结账单的代码基本上一样，只是多了个获取始终日期。

'获取始终时间  
    Report.ParameterByName("startdate").Value=Format$(DTPicker1.Value, "yyyy-mm-dd")  
    Report.ParameterByName("enddate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")

刷新账单的代码”

   Dim Txtsql As String '局部声明 Txtsql 为 字符型
   Dim msgtext As String '局部声明 msgtext 为 字符型
   Dim mrc1 As ADODB.Recordset '局部声明 mrc1 为 ADODB.Recordset
   Dim mrc2 As ADODB.Recordset '局部声明 mrc2 为 ADODB.Recordset
   If endtime.Value < starttime.Value Then '如果 endtime.Value < starttime.Value 则
     MsgBox "终止时间不能小于起始时间！", vbOKOnly + vbExclamation, "警告" '弹出消息框 "终止时间不能小于起始时间！", 只有 确定 按钮(缺省)(值=0) + vbExclamation, "警告"
     Exit Sub '退出 过程
   End If '结束 如果
   Txtsql = "select * from CheckDay_Info where date between'" & Format$(starttime.Value, "yyyy-mm-dd") & "'" & "and'" & Format$(endtime.Value, "yyyy-mm-dd") & "'"
   Set mrc1 = ExecuteSQl(Txtsql, msgtext) '设置 mrc1 = ExecuteSQl(Txtsql, msgtext)
   Txtsql = "select * from checkWeek_Info " 'Txtsql = "select * from checkWeek_Info "
   Set mrc2 = ExecuteSQl(Txtsql, msgtext) '设置 mrc2 = ExecuteSQl(Txtsql, msgtext)
   Do While Not mrc2.EOF '循环 当 否定 mrc2.是否到达结尾
     mrc2.delete 
     mrc2.MoveNext 
   Loop '结束循环
   '更新到日结表中
   Do While Not mrc1.EOF '循环 当 否定 mrc1.是否到达结尾
     With mrc2 '相同对象 mrc2
       .AddNew '.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 '.Update
       mrc1.MoveNext 'mrc1.MoveNext
     End With '结束 相同对象
   Loop '结束循环
   GRDisplayViewer1.Refresh 'GRDisplayViewer1.刷新
   MsgBox "账单刷新成功！", vbOKOnly + vbExclamation, "警告" '弹出消息框 "账单刷新成功！"
 End Sub '结束 

    这样，日周结账单就完成了，嘿嘿！！！