report++报表的相关操作

做完机房收费系统了，师哥说报表是很重要的。在以后的学习中还会经常遇到，所以，我也要认真总结一下报表的相关知识。

报表的制作步骤，我参考了前辈们的做法，他们做的都很详细，我总结了一下其中重要的部分。

一、添加明细网络（右击报表主对象——插入报表节——明细网络）

1、图一

  

2、点击图中按钮‘数据库连接串与查询SQL’

3、

4、在下面选择要连接的机器名，和要连接的数据库名，点击测试连接，连接成功后确定即可

5、在下图中输入查询SQL表的语句，该表是指要为哪张SQL表制作报表

图五

（

6.将明细网络显示出来（编辑菜单——根据查询生成字段——根据查询生成列）

7.效果如下：右边记录集下已经有我们在SQL表中创建的列的名称了！看看是不是一样啊！

左边是生成的表格，第一行可以自定义，双击改成自己想要显示的格式和内容

第二行，为变量行（#代表变量字段），为将来要显示所计算结果的地方

图七

我们要明白‘明细网络’的作用：它其实就是让你的报表中显示的内容与你进行汇总或在报表中显示SQL表中的内容格式保持一致。这说明制作的报表在程序运行中是不起作用的。它只是将我们在SQL表中计算的结果显示出来而已！这一点是我们刚刚接触到报表时经常容易混淆的！

二、再者就是显示时间的问题

每次打印报表或者汇总时，我们通常要显示结账或打印的当前时间

1.这时我们要用‘综合文字框’来实现我们的目标了。按图一所示插入‘报表头’（这里报表尾也是可以的，报表中很多部件的显示都需要在报表头或报表尾上来显示）——部件框——综合文字框

如下图中‘生成时间’ 为手动输入然后定位光标，插入域即可

这样，报表的前期工作基本上就大功告成了！剩下的工作就是代码的事儿了！

三、接下来就是如何将报表嵌入到主程序中（VB）

Private Sub Form_Load()
    Me.Width = 11775
    Me.Height = 10860
    
    Dim txtSQL As String
    Dim msgText As String
    
    txtSQL = "select * from daysettle_info where date='" & Format(Date, "yyyy-mm-dd") & "'"
    Set Report = New grproLibCtl.GridppReport '实例化模板
    
    '加载模板
    Report.LoadFromFile (App.Path & "\日结账单.grf") '文件路径 
    Report.DetailGrid.Recordset.connectionString = connectionString() '此处可省，连接字符串为上图五中输入的字符串
    Report.DetailGrid.Recordset.QuerySQL = txtSQL
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start
    
    '时间设置，传地址形式，这里的‘date’就是上图七中的变量#date#，举一反三，如果是时间段的话，变量可以自己定义
    Report.ParameterByName("date").AsString = Date
    
End Sub

小结：至此，报表的相关操作大部分已完成，当然还有很多细节部分不再赘述，在帮助文档中已经介绍的很清楚了！