机房收费系统-报表打印

机房收费系统也进行了有一段时间了，现在也接近了机房项目末尾的时间。在这一段时间自己学到了好多。像之前跟大家分享有关登录、上下机、跟MDI窗体的一些问题跟解决，
今天来跟大家分享下机房收费系统里面日结账单报表打印。 那既然咱们说到了报表打印的问题，到底啥是报表呢？简单的说:报表就是用表格、图表等格式来动态显示数据，可以用公式表示为:"报表 = 多样的格式 + 动态的数据"。
我这里使用的是Grid++Report 5.0，大家可以直接百度下载，安装使用很简单
一：选择文件——新建向导——设计主标题和副标题。
二：连接数据库，跟创建数据源很像，这里就不在重复，注意就是记得测试连接。
三：出现定义主要信息对话框中，数据库连接串会自动出现我们刚才设置的信息的代码（注意：有时候数据库密码需要我们手动添加），然后查询SQL中输入我们建表需要的数据库表。点击测试，是否连接成功。
工具安装测试成功，接下来就是程序里面功能的实现了。下面是界面图

Dim Report As grproLibCtl.GridppReport   '定义报表变量

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 & "\daycheck.grf")    '加载模板
Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
Report.DetailGrid.Recordset.QuerySQL = txtSQL     '通过select查询创建记录集
Report.ParameterByName("xx").AsString = UserName
Report.ParameterByName("xx").Value = UserName '显示管理员
GRDisplayViewer1.Report = Report       '将数据赋给GRD的Report
GRDisplayViewer1.Start            '显示报表
End Sub

这里写代码片Private Sub cmdPrint_Click()
Report.[Print] (True)
End Sub

Private Sub cmdPrintPreview_Click() '打印预览
Report.PrintPreview (True)
End Sub