机房收费系统——报表(2)
发布时间:2020-12-17 07:52:47 所属栏目:百科 来源:网络整理
导读:二、代码部分 跟之前写的 excel 相比,我觉得报表还是有点相同的。大体思路是这样的: 先定义。 (报表: Dim Withevents 对象变量 As 类名 这种用法是加载该类的事件,Withevents之后就能在代码编辑窗看到该类的事件了(如果有的话)。 因为类不像控件,双
二、代码部分 跟之前写的excel相比,我觉得报表还是有点相同的。大体思路是这样的:
下面看一下代码: <span style="white-space:pre"> <span style="color:#006600;"> </span></span><span style="color:#006600;">'定义</span> <pre name="code" class="plain" style="font-size: 19px;"> Dim WithEvents report As grproLibCtl.GridppReport<span style="font-family: 华文楷体; font-size: 14pt;"> </span><span style="font-family: 华文楷体; font-size: 14pt;"> </span> <span style="color:#006600;"> <span style="white-space:pre"> </span>'加载一个新报表</span> Set report = New grproLibCtl.GridppReport <span style="color:#006600;">'载入报表模版文件</span> report.LoadFromFile (App.Path & "日报表.grf") '设置数据连接串 <span style="color:#006600;"> 'report.DetailGrid.Recordset.ConnectionString = ConnectString '链接数据源,由于在报表里面已经连接了。</span> txtsql = "select * from checkday_Info where date ='" & Date & "'" report.DetailGrid.Recordset.QuerySQL = txtsql '执行 <span style="color:#006600;">'显示报表中的内容</span> grddayBill.report = report grddayBill.Start <span style="color:#006600;">'报表模板上的4个日期或时间赋值</span> report.ParameterByName("Date1").Value = Format(Date,"yyyy-MM-dd") report.ParameterByName("Datetime").Value = Now report.ParameterByName("username").Value = UserName
三、总结 所以很多新的东西只要理清好原理 和思路,也没什么太难的。 还是特别感谢杨琛师哥的这两篇博客,巨详细。 机房收费系统之结账与报表(三)VB与报表代码《一学就会傻瓜版》 机房收费系统之结账与报表(二)周报表制作《一学就会傻瓜版》 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |