机房收费系统-报表打印

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

具体的代码实现
1.定义变量

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

2.这是具体显示报表的，

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

3.打印、打印预览

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

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