当前位置:Gxlcms > mysql > 机房收费系统报表(2)

机房收费系统报表(2)

时间:2021-07-01 10:21:17 帮助过:19人阅读

二、代码部分 跟之前写的excel相比,我觉得报表还是有点相同的。大体思路是这样的: 先定义。 (报表:Dim Withevents 对象变量 As 类名 这种用法是加载该类的事件,Withevents之后就能在代码编辑窗看到该类的事件了(如果有的话)。 因为类不像控件,双击控

二、代码部分
跟之前写的excel相比,我觉得报表还是有点相同的。大体思路是这样的:
先定义。
(报表:Dim Withevents 对象变量 As 类名

这种用法是加载该类的事件,Withevents之后就能在代码编辑窗看到该类的事件了(如果有的话)。

因为类不像控件,双击控件就可以进入事件编辑。

使用WithEvents 变量时,应该注意下面这些限制条件:

WithEvents变量不能是派生对象变量。也就是说,不能把它声明为As Object—当声明该变量时必须指定类名。
不能把 WithEvents 变量声明为As New。必须明确地创建事件源对象,并将它赋给WithEvents变量。)
实例化报表,打开报表位置。
链接数据源。(由于报表里面已经连接了数据源,所以这句话我注释后程序依然可以正常的运行。在excel是写地址)
查询表并把表里面的内容显示出来

下面看一下代码:

			'定义
    Dim WithEvents report As grproLibCtl.GridppReport                   				
 			'加载一个新报表
    Set report = New grproLibCtl.GridppReport
                        '载入报表模版文件
    report.LoadFromFile (App.Path & "\日报表.grf")
                        '设置数据连接串
    'report.DetailGrid.Recordset.ConnectionString = ConnectString
                        '链接数据源,由于在报表里面已经连接了。
    txtsql = "select * from checkday_Info where date ='" & Date & "'"
    report.DetailGrid.Recordset.QuerySQL = txtsql '执行
                        '显示报表中的内容
    grddayBill.report = report
    grddayBill.Start
  
                        '报表模板上的4个日期或时间赋值
    report.ParameterByName("Date1").Value = Format(Date, "yyyy-MM-dd")
    report.ParameterByName("Datetime").Value = Now
    report.ParameterByName("username").Value = UserName

三、总结

所以很多新的东西只要理清好原理和思路,也没什么太难的。

还是特别感谢杨琛师哥的这两篇博客,巨详细。

机房收费系统之结账与报表(三)VB与报表代码《一学就会傻瓜版》

机房收费系统之结账与报表(二)周报表制作《一学就会傻瓜版》

人气教程排行