机房收费系统——报表的使用

在机房收费系统的日结账和周结账部分我们用到了报表，我们先来了解一下什么是报表。

报表就是用表格、图表等格式来动态显示数据。可以用公式表示为：“报表= 多样的格式 + 动态的数据”。 在没有计算机以前，也有报表，都是人工根据需要做的一些表格和简单的图表来记录一些账目和数据。然后定期进行汇总。当计算机出现之后，人们利用计算机处理数据和界面设计的功能来生成、展示报表。计算机上的报表的主要特点是数据动态化，格式多样化，并且实现报表数据和报表格式的完全分离，用户可以只修改数据，或者只修改格式。

我使用的是“Grid++Report报表设计器2009”，下面以设计周报表来介绍一下报表的使用。

一：选择文件——新建向导——设计主标题和副标题。

二：连接数据库，跟创建数据源很像，这里就不在重复，注意就是记得测试连接。

三：出现定义主要信息对话框中，数据库连接串会自动出现我们刚才设置的信息的代码（注意：有时候数据库密码需要我们手动添加），然后查询SQL中输入我们建表需要的数据库表。点击测试，是否连接成功。

四：定义字段类型和字段标题。这个实际操作的时候就会明白。

最后就会显示我们制作的表的。

在这里提醒一下，要学会使用插入里面的各种功能，尤其是各种文本框与参数的结合，可是实现很多功能，比如显示我们查询的时间段。

最后就是与VB的连接，首先在VB中加入报表控件。工程——部件选择一下两项。

下面是界面和代码：

Dim Report As grproLibCtl.GridppReport
Private Sub cmdCheckDay_Click()
Dim txtSQL As String
  Dim msgText As String
  Dim objRs As ADODB.Recordset
   txtSQL = "select * from checkday_info where checkdate between '" & Trim(StartTime.Value) & "'and'" & Trim(EndTime.Value) & "'"
         
         '报表的参数设置,显示时间段
            Report.ParameterByName("startdate").AsString = Str(StartTime.Value)
            Report.ParameterByName("enddate").AsString = EndTime.Value
         
         Report.DetailGrid.Recordset.QuerySQL = txtSQL
         
          '查看报表
          GRDisplayViewer1.Refresh
          GRDisplayViewer1.Start

     
End Sub
'打印报表
Private Sub cmdStamp_Click()
Report.[Print] (True)
End Sub
'打印预览
Private Sub cmdStampView_Click()
Report.PrintPreview (True)
End Sub