机房收费系统系列五：报表

r囧r小猫 2022-08-11 05:30 209阅读 0赞

**       在机房收费系统中还有两个地方用到了报表：日报表和周报表，在我看来日报表和周报表其实是一样的，日报表是统计一天的收入，支出，对每天金额做个统计，周报表就是记录从某个时间段到另一个时间段的净收入情况，周报表，不要被它的字面意思迷惑了，它不光可以查找这一周的收入情况，还可以查找任意时间段的时间，可能两天，可能二十天。如果你是个网吧的老板，这个工作就是必须做的，在原来的时候可能要在纸上写上在今天的什么时候某个人充值了多少钱，某个人销卡的时候退给了他多少钱，然后再用计算器算算今天一共的净收入是多少钱，密密麻麻的记载着一天的消费收入和支出，当然现在又很多卖衣服的都还是采用这种方式来记载着一天的净收入情况，这种形式在很多时候都是给自己看的，而且修改起来也不是很方便，报表就应运而生了……**

**        报表的基本意思是向上级报告情况的表格，“报表＝多样的格式＋动态的数据” 人们利用计算机处理数据和界面设计的功能来生成、展示报表。报表要做的事情就是帮你自动处理好数据，然后在界面上显示你需要的数据。这样不仅节省了时间，而且用户可以只修改数据，或者只修改格式，还能保证数据的准确性。所以这么好的东西，我们为什么不用呢？下面就来简单的介绍一下报表在vb中的使用。**

**1、报表设计器的安装**

**         Grid++Report 报表设计器，下载地址：[http://download.csdn.net/detail/Netenjoy/2675096][http_download.csdn.net_detail_Netenjoy_2675096]**

**2、在vb中添加控件**

**部件—>可插入对象**

**![SouthEast][]**

**这是就会出现下图的三个图标**

![SouthEast 1][]

**3、打开报表设计器，建立报表和数据库之间的联系**

**（1）文件——>新建向导**

**![SouthEast 2][]**

**（2）出现定义主要内容的窗体，填写主标题和副标题，点击下一步**

**![SouthEast 3][]**

**（3）建立和数据库的连接串，并填写查询SQL的语句，点击测试，检验是否和数据库建立联系**

**![SouthEast 4][]**

**![SouthEast 5][]**

**当出现数据库连接串与查询SQL语句测试通过时，点击确定，点击下一步**

**（4）定义字段，点击下一步**

**![SouthEast 6][]**

**（5）按照步骤一步步走就可以了，这样就能出现大致的图**

**![SouthEast 7][]**

**（6）这是还需要在报表上添加文字时，需要用到静态框和参数**

**![SouthEast 8][]**

**        添加静态文本框比较简单，直接点击添加——>文本框，然后往里面添加内容就可以了，添加参数，例如添加制表时间now 时，首先需要添加参数，并对参数进行设置**

**![SouthEast 9][]**

**然后在添加静态文本框，设置数据的参数**

**![SouthEast 10][]**

**这样就可以了，按照这样的方法对需要添加的进行设置即可。**

**4、建立报表和vb的联系**

**在窗体中添加控件GRDesigner**

**![SouthEast 11][]**

**加载报表**

Private Sub Form_Load()
        Dim strSQL As String
        Dim strMsg As String
        strSQL = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'"
        Set Report = New grproLibCtl.GridppReport
        Report.LoadFromFile (App.Path & "\checkday.grf")   '加载模版
        Report.DetailGrid.Recordset.ConnectionString = connectstring   '数据源
            Report.ParameterByName("Date").AsString = Date '通过SELECT查询创建记录集
    
        Report.ParameterByName("Now").AsString = Now '通过SELECT查询创建记录集
             Report.DetailGrid.Recordset.QuerySQL = strSQL
         
        Dim Reportheader As IGRReportHeader
        Dim StaticBox As IGRStaticBox
          
        Set Reportheader = Report.InsertReportHeader
        GRDisplayViewer1.Report = Report
        GRDisplayViewer1.Start
    End Sub

**刷新页面代码**

Private Sub CmdRefresh_Click()
        GRDisplayViewer1.Refresh     '刷新
    End Sub

打印预览

Private Sub cmdView_Click()
        Report.PrintPreview (True)     '打印预览
    End Sub

打印

Private Sub CmdPrint_Click()
        Report.[Print] (True)        '打印
    End Sub

报表这个控件听起来挺高大上的，把它分析开了不就是先下载个控件，然后从部件那里添加一下，用报表设计器设计一下，在vb中写一些代码而已……

[http_download.csdn.net_detail_Netenjoy_2675096]: http://download.csdn.net/detail/Netenjoy/2675096
[SouthEast]: /images/20220810/3c501f9ccf0e4ed1a48a4fdb3a925cfc.png
[SouthEast 1]: /images/20220810/662dd30b4bd042dbaceb971cf5b7778c.png
[SouthEast 2]: /images/20220810/7d39c564f5ce48088d1bb5a6f7328b97.png
[SouthEast 3]: /images/20220810/93fbc2566c8540b9921888ff1e11794c.png
[SouthEast 4]: /images/20220810/d9eb49f469864896a141edfd945c1dbb.png
[SouthEast 5]: /images/20220810/b8b0ee997a14423daecee9106c245d53.png
[SouthEast 6]: /images/20220810/9346113c64024eec9705fcdea8b44ee8.png
[SouthEast 7]: /images/20220810/eabdfb086c7c4401a3bd3b7dfe74b28d.png
[SouthEast 8]: /images/20220810/84effdbe9cbc40cdae9a9f0a6b28ca56.png
[SouthEast 9]: /images/20220810/3805d53075714275965b13193251d73b.png
[SouthEast 10]: /images/20220810/8c47e92bd12a41c5a3289905a2d8268e.png
[SouthEast 11]: /images/20220810/4179d40a7276467ca5fc5e2b84b7bb77.png