系统中报表的使用
来源:互联网 发布:2017淘宝实时交易数据 编辑:程序博客网 时间:2024/06/05 10:21
报表这块,由于比较生疏,都是自己从网上下载控件,然后看下载后的小例子,现学现卖的。
下面是应用中的一个小模块:
Dim WithEvents Report As grproLibCtl.GridppReport ’‘声明report具有报表控件的事件
Private Sub cmdPrint_Click() '打印报表
'因为报表对象的 Print 方法名与 VB 内部定义有冲突,所以要用中括号括起来
Report.[Print] (True)
End Sub
Private Sub cmdPrintPreview_Click() '打印预览
Report.PrintPreview (True)
End Sub
Private Sub Form_Load()
Set Report = New grproLibCtl.GridppReport '实例化一个报表
'载入报表模板文件
Report.LoadFromFile (App.Path & "\Checkweek.grf")
‘设置数据连接串
Report.DetailGrid.Recordset.ConnectionString = "Provider=SQLOLEDB;Data Source=192.168.24.58;Initial CataLog=charge_my;UID=sa;PWD=123456"
GRDisplayViewer1.Report = Report '查看报表
GRDisplayViewer1.Start '显示报表
End Sub
'初始化,将DTPicker取得的时间转化成报表事件中字符串
'DTPicker是显示日期的控件
Private Sub Report_Initialize()
Report.ParameterByName("BeginDate").AsString = Format(DTPicker1.Value, "yyyy-mm-dd")
Report.ParameterByName("EndDate").AsString = Format(DTPicker2.Value, "yyyy-mm-dd")
End Sub
如果不用DTPicker控件的话,方法也可以
Dim withEvents Report As grproLibCtl.GridppReport ‘声明report具有报表控件的事件
Dim starttime As Date
Dim endtime As Date
Private Sub cmdpreview_Click()
Report.PrintPreview (True) ‘报表预览
End Sub
Private Sub cmdprint_Click()
Report.[Print] (True) ‘打印报表
End Sub
Private Sub cmdrefresh_Click()
Dataview.Stop ‘刷新报表
Set Report = New grproLibCtl.GridppReport ‘实例化一个报表
Report.LoadFromFile (App.Path & "\Checkweek.grf")‘加载报表文件
Report.DetailGrid.Recordset.connectionstring = "filedsn=andy.dsn;UID=sa;pwd=123456"
‘建立连接,也可以在创建报表的时候
Report.DetailGrid.Recordset.QuerySQL = "select * from daily_account where daily_time between '" & starttime & "' and '" & endtime & "'" ‘报表查看的内容
Dataview.Report = Report ‘查看报表
Dataview.Start ‘开始显示
End Sub
以上两种方法,其实相似的很,主要以掌握其实用为目的。
对于“dim withevents xx as adodb.recordset<br />”的理解:
其实这个声明,也没有什么难的。WithEvents 关键字,指定变量xx将用于处理对象的事件。可以通过提供类名来指定对象类型,该类是创建这个xx对象的类。<br />说明 xx 是一个用来响应由 ActiveX 对象触发的事件的对象变量。只有在类模块中才是合法的。使用 WithEvents,可以声明任意个所需的单变量,但不能使用 WithEvents 创建数组。New 和 WithEvents 不能一起使用。
- 系统中报表的使用
- SAP系统中常用的FI报表
- 机房收费系统报表的使用
- VS2010 使用RDLC报表 布置在XP系统中 汉字全成了乱码 的解决方法
- 报表设计中参数、脚本的使用以及生成系统时间
- 报表应用系统中如何正确使用图表功能
- 报表应用系统中如何正确使用图表功能
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- vs2003中水晶报表的使用:
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- ASP.NET中水晶报表的使用
- ABAP 屏幕参数
- 一起来学信息安全知识(2)——对称密码和非对称密码
- Building Coder(Revit 二次开发) - 内置参数名称和LabelUtils类
- 错误处理(Error-Handling):为何、何时、如何(rev#2)
- 在GEF中实现悬空的连线
- 系统中报表的使用
- IoC(控制反转)与依赖注入是什么个概念
- 深入讲解SQL Union和Union All的使用方法
- linux解压缩命令
- 求多边形重心
- lighttpd+PHP上传文件
- Flex中修改Loading页面
- Android学习笔记--资源访问
- Silverlight.XNA(C#)跨平台3D游戏研发手记:(一)差集运算在SLG战斗范围设定中的应用