机房收费系统——日结周结账单
一、报表
1、报表的定义
报表就是用表格、图表等格式来动态显示数据。可以用公式表示为：“报表 = 多样的格式 + 动态的数据”。
计算机上的报表的主要特点是数据动态化，格式多样化，并且实现报表数据和报表格式的完全分离，用户可以只修改数据，或者只修改格式。
我使用的是”Grid++Report 报表设计器”,
2、报表分类
列表式:报表内容
按照表头顺序平铺式展示，便于查看详细信息。
摘要式:使用
摘要式报表
频率最高的一种报表形式，多用于数据汇总统计。
矩阵式:主要
矩阵式报表
用于多条件数据统计。
钻取式:是改变
钻取式报表，维的层次，变换分析的粒度。
二、机房收费系统中的报表使用:
1、 了解报表的作用：
管理员用来了解每天或每周的金额情况，其中就包括了上期余额、充值金额、消费金额、退卡金 额、本期余额等信息，可以打印和预览，使管理员能够更方便快捷的获得自己的运营情况。
2、 表的制作：
根据自己对业务的了解和自己需求的分析，设计报表的表头。
（详细的制作过程见下一篇博客（机房收费系统——报表的制作）。）
3、 机房收费系统的报表（日结账单）
OptionExplicit
'实例化报表
DimWithEvents Report As grproLibCtl.GridppReport
（详细介绍“WithEvents”）
该关键字用于Dim语句中：
语法：
Dim [WithEvents]varname[([subscripts])] [As [New] type][, [WithEvents] varname[([subscripts])] [As [New] type]]. . .
Dim 语句的语法包含下面部分：
属于关键字，用来响应ActiveX 对象触发的事件的对象变量，只有在类模块中才是合法的，另外注意不能 使用该关键字创建数组。New和WithEvents不能一起使用。
(New)可选的。可隐式地创建对象的关键字。如果使用 New 来声明对象变量，则在第一次引用该变量时将 新建该对象的实例，因此不必使用 Set 语句来给该对象引用赋值。New 关键字不能声明任何内部数据类 型的变量，以及从属对象的实例，也不能与 WithEvents 一起使用。
窗体加载过程：
DimstrSQL As String
DimstrMsg As String
strSQL = "select * from checkday_Info wheredate='" & Format(Date, "yyyy/mm/dd") & "'"
SetReport = New grproLibCtl.GridppReport '实例化模版
Report.LoadFromFile (App.Path & "\日结总汇表.grf") '加载模版
Report.DetailGrid.Recordset.ConnectionString = Connectstring() '连接数据源
Report.DetailGrid.Recordset.QuerySQL =strSQL '通过SELECT查询创建记录集
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start
'账单刷新
GRDisplayViewer1.Refresh
'账单打印
Report.[Print] (True)
'打印预览
Report.PrintPreview (True)
日结账单的过程就这样，系统的关键是如何汇总日结账的数据表。
详见下一篇博客（机房收费系统——结账）。
4、 机房收费系统的报表（周结账单）
报表的表头：
实例化报表同上，这里不介绍了。
‘定义控件属性
DTPicker1.Value= Date
DTPicker2.Value = Date
Dim strSQL As String
Dim strMsg As String
strSQL= "select * from checkweek_Info where date>= '" &DTPicker1.Value & "'" & " and date<='" &DTPicker2.Value & "'"
Set Report = NewgrproLibCtl.GridppReport '实例化模板
Report.LoadFromFile(App.Path & "\周结总汇表.grf")
Report.DetailGrid.Recordset.ConnectionString= "FileDSN=charge.dsn;UID=sa;PWD=123456" 创建连接
Report.DetailGrid.Recordset.QuerySQL= strSQL 利用StrSQL语句查询
GRDisplayViewer1.Report= Report
GRDisplayViewer1.Start
Report.ParameterByName("BeginDate").Value= Format(DTPicker1.Value, "yyyy/MM/dd") '显示开始时 间
Report.ParameterByName("EndDate").Value= Format(DTPicker2.Value, "yyyy/mm/dd") '显示结束时间
账单刷新：
Dim strSQL As String
Dim strMsg As String
Dim objRsWeekliyBill AsADODB.Recordset
Dim objRsDaliyBill AsADODB.Recordset
Dim strSQL1 As String
Dim objrst1 AsADODB.Recordset
Dim msgtext1 As String
Dim recash0 As Currency
DTPicker1.Value = Date
DTPicker2.Value = Date
strSQL1 = "select * fromcheckday_Info where date>= '" & DTPicker1.Value & "'"& " and date<='" & DTPicker2.Value & "'"
Set objrst1 =ExecuteSQL(strSQL1, msgtext1)
If objrst1.RecordCount = 0Then
MsgBox "没有结账信息，请先结账！", vbOKOnly +vbExclamation, "提示"
Exit Sub
Else
Text1.Text= Int(objrst1.Fields(0))
recash0= 0
DoWhile (objrst1.EOF)
recash0 = recash0 + objrst1.Fields(0)
objrst1.MoveNext
Text1.Text= recash0
Loop
End If
If DTPicker1.Value >DTPicker2.Value Then '条件限制
MsgBox "终止日期不能小于起始日期！", vbOKOnly +vbExclamation, "警告"
Exit Sub
End If
'日期的选定
strSQL = "select * from checkday_Infowhere date>= '" & DTPicker1.Value & "'" & "and date<='" & DTPicker2.Value & "'"
Set objRsDaliyBill = ExecuteSQL(strSQL,strMsg)
strSQL = "select * fromcheckweek_Info"
Set objRsWeekliyBill = ExecuteSQL(strSQL,strMsg)
Do While objRsWeekliyBill.EOF = False
objRsWeekliyBill.Delete
objRsWeekliyBill.MoveNext
Loop
'更新到周结表中
Do While objRsDaliyBill.EOF = False '判断是否有数据
WithobjRsWeekliyBill
.AddNew 添加数据
.Fields(0) =objRsDaliyBill.Fields(0)
.Fields(1) =objRsDaliyBill.Fields(1)
.Fields(2) =objRsDaliyBill.Fields(2)
.Fields(3) = objRsDaliyBill.Fields(3)
.Fields(4) =objRsDaliyBill.Fields(4)
.Fields(5) =objRsDaliyBill.Fields(5)
.Update
objRsDaliyBill.MoveNext
End With
Loop
GRDisplayViewer1.Refresh '刷新
Report.ParameterByName("BeginDate").Value= DTPicker1.Value
Report.ParameterByName("EndDate").Value= DTPicker2.Value
'打印
Report.[Print](True)
'打印预览
Report.PrintPreview(True)
周结账单中主要是将满足哪一周的日结账单中的数据添加到周结表中。然后进行打印和预览等功能。
日结和周结账单是系统的一个难点，只要设计好自己的数据库，结账能够顺利进行，周结和日结的账单就没问题。