机房收费系统小结之如何添加报表?

来源:互联网 发布:linux vi 跳转到最后 编辑:程序博客网 时间:2024/05/22 05:02

  在做到机房收费系统的时候,看到了这样一个界面  

  

  这是怎么出来的呢,其实这是一个报表,大家可以尝试用这个报表制作软件来试试---Grid++Report



为了在 VB 程序项目中使用 Grid++Report,首先必须在 VB 程序中加入对 Grid++Report 的引用。具体过程如下:


★在“工具箱”面板中加入 Grid++Report 对应构件:。 
1、打开部件窗口
2、点击右边的“浏览”按钮,打开文件“gregn50.dll”(默认安装在“C:\Grid++Report 5.0”目录)。 保持列表中勾选“Grid++Report Engine5.8 Type Library”。
3、再次点击右边的“浏览”按钮,打开文件“grdes50.dll”(默认安装在“C:\Grid++Report 5.0”目录)。 保持列表中勾选“Grid++Report Designer5.8 Type Library”。


一起来看一下代码

Option ExplicitDim WithEvents Report As grproLibCtl.GridppReportPrivate Sub Command1_Click()    '因为报表对象的 Print 方法名与 VB 内部定义有冲突,所以要用中括号括起来    Report.[Print] (True)End SubPrivate Sub Command2_Click()    Report.PrintPreview (True)End SubPrivate Sub Form_Load()    '创建报表对象    Set Report = New grproLibCtl.GridppReport    '载入报表模板文件,必须保证 Grid++Report 的安装目录在‘C:\Grid++Report 4.5’下,    '关于动态设置报表路径与数据绑定参数请参考其它例子程序    Report.LoadFromFile ("C:\Users\Administrator\Desktop\jin.grf")     Report.DetailGrid.Recordset.ConnectionString = "filedsn=shoufei.dsn;uid=sa;pwd=123456;"    '设置报表查询显示器控件的关联报表对象    GRDisplayViewer1.Report = Report    '启动报表运行    GRDisplayViewer1.StartEnd Sub



0 0