本文主要是介绍机房收费系统 之 报表,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
机房收费的重要功能就是可以结账结账。日结账,周结账这里都用到了报表。 一、要使用报表首先要在VB中引用和添加相关的控件
二、要自己制作一个报表。
这要使用到Grid++Report报表设计器这个软件。这制作报表的过程也不像想象的那么难。这里学到了报表设计器和VB的交互。做好的报表最终是要是VB的窗体中显示出来的。
<
Dim WithEvents Report As grproLibCtl.GridppReport
‘WithEvents 是为了加载grproLibCtl.GridppReport类拥有的事件过程,在编写的时候就可以看到这个了类所拥有的事件(因为类不能像控件一样双击就可以进行事件编辑)
Set Report = New grproLibCtl.GridppReport ‘实例化
Report.LoadFromFile App.Path & "\dayaccount.grf" ‘相对路径的情况下加载做好的报表
<Report.DetailGrid.Recordset.ConnectionString = connectstring ’连到数据库获得数据源
strSQL = "select * from dayaccount_Info"
Report.DetailGrid.Recordset.QuerySQL = strSQL ‘打开数据库中相应的表
Report.ParameterByName("madename").AsString = username
’这句代码就是VB和报表的交互,“madename”是自己定义的要在报表中显示的参数名,username是VB中的一个变量
GRDisplayViewer1.Report = Report ’显示报表
GRDisplayViewer1.Start
VB与报表交互报表的设置如下:
一、插入——参数 然后改变参数名称 (例:改为username)
二、在需要显示的位置 插入——综合文本框。将综合文本框的“文本”设置为参数
(1)
(2)
在VB中写入如下代码:
Report.ParameterByName("madename").AsString = username
’这句代码就是VB和报表的交互,“madename”是自己定义的要在报表中显示的参数名,username是VB中的一个变量
这样VB中的先关数据就可以在报表中显示了。
这篇关于机房收费系统 之 报表的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!