欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

机房收费系统---表格

更新时间: 2014-01-05 03:07:40 责任编辑: Author_N1

 

机房收费系统---报表

 

       报表---报表是企业管理的基本措施和途径,是企业的基本业务要求,也是实施 BI 战略的基础。报表可以帮助企业访问、格式化数据,并把数据信息以可靠和安全的方式呈现给使用者。深入洞察企业运营状况,是企业发展的强大驱动力。事物,于是百度上查了查什么是报表,总得需要了解一下她的功能

系统中不可少的要用到报表,所以我必须去学习,

在VB中利用报表,首先要先添加相应的部件

 

       这样才会出现我们需要的关于报表的一些工具,报表编辑器,报表显示器等

 

 

      在编辑报表时,VB自带的编辑器就不是很好用,需要下载一个报表编辑器Grid++Report 报表设计器 安装后根据说明,就能制作成一个简单的报表。

 

      制作报表完成我们需要让报表与数据库相连接,同时报表也要和VB相连接 这样才能实现需要完成的信息

 1. 报表与数据库相互连接

 

     在点击插入----插入明细网格后选择SQL,根据步骤一次向下进行,就可以完成与数据库的连接

 

 

2.报表与VB的连接

 

  我们已经添加好了控件,此刻只要添加控件就可以了,在此需要注意的是添加的控件所能实现的功能是什么,

这里我们需要添加显示报表的控件既GRDisplayViewer1,添加好控件剩下的就需要用代码来解决了,

在此之前需要实例化报表的变量,

 

Dim Report As grproLibCtl.GridppReport '实例化变量

 

然后在加载窗体中才能正确的显示报表

Private Sub Form_Load()

Dim txtSQL As String

'实例化报表Report

        Set Report = New grproLibCtl.GridppReport

 

        '报表建立的位置

        Report.LoadFromFile App.Path & "\日结账单.grf"

        Report.DetailGrid.Recordset.ConnectionString = connectString   '数据源连接数据库直接调用写好的模块内容

 

        txtSQL = "select * from CheckDay_Info"

        Report.DetailGrid.Recordset.QuerySQL = txtSQL

        '查看报表

        GRDisplayViewer1.Report = Report

        '显示报表

        GRDisplayViewer1.Start

End Sub


这样就能在窗体内显示报表,同时也可以显示你需要的数据库中的信息了! 

 

   机房收费系统内需要两个账单:周结账单、日结账单 显示的方法也都大体相同 另外报表的打印以及打印预览等方法一句代码就可以完成

 

'报表的打印

 Report.[Print] (True)

 

'报表打印预览

 Report.PrintPreview (True)

 

在周结账单中有一个功能是需要将所选择的日期在窗体上显示这就需要在设计报表时添加参数

 

报表的参数问题

 

   插入---参数 然后修改参数的名字即可 剩下的就是在VB中给该参数赋值的过程,相信赋值应该都会把

例如我的代码中设置了两个参数BEgindate  和 enddate   我需要将DTPIcker中的时间赋值给这两个参数  

 实现代码如下:

 

    '报表参数赋值

    Report.ParameterByName("BeginDate").AsString = dtpBeginDate.Value

    Report.ParameterByName("EndDate").AsString = dtpEndDate.Value

 

 

 以上就是我在报表中遇到的一些小问题,具体的一些细节我没有写出来,报表的帮助内就可以很好的帮你解决你的疑问 

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:07:40
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18677/
本文WWW.DOC100.NET DOC100.NET版权所有。