【机房收费系统】 之 报表

一、什么是报表？

 官方解释：报表就是用表格、图表等格式来动态显示数据，可以用公式表示为：“报表 = 多样的格式 + 动态的数据”。

 简单来说，报表就是把营业中的一些有用的信息统计下来，从而看一下收支情况、以及其他业务信息

二、如何制作报表

1.下载报表构件并安装（我用的是Grid++Report4.0cn，安装后如下图所示）

2.打开Grid++Report报表设计器（上图第一个图标）后，点击 插入——明细网格、报表头、报表尾

3.点击 SQL小图标，进行设置数据库连接串与查询SQL

4.创建与数据库的连接

     

5.编辑——根据字段生成列（然后把标题行的英文改为自己熟悉的汉语）

6.点击 报表头——插入——综合文字框（然后可以输入需要的内容）

7.VB中代码实现

Dim WithEvents report As grproLibCtl.GridppReport

Private Sub Form_Load()
  GRDisplayViewer1.Stop
  Set report = New grproLibCtl.GridppReport
  report.LoadFromFile (App.Path + "\日报表.grf")
  report.DetailGrid.Recordset.ConnectionString = "provider=sqloledb;datasource=192.168.26.74;initial catalog=charge_sys;uid=sa;pwd=123456"
  report.DetailGrid.Recordset.QuerySQL = "select * from checkday_info "
  GRDisplayViewer1.report = report
  GRDisplayViewer1.Start
End Sub

Private Sub cmdPrint_Click()
    report.[Print] (True)
End Sub

Private Sub cmdPrintView_Click()
    report.PrintPreview (True)
End Sub

8.可以 插入——参数，并对参数命名，然后将程序中的数据传递过来（下面是我将周报表的两个日期传递过去）

Private Sub cmdRefresh_Click()
Dim txtSQL As String
Dim mrc As adodb.Recordset
Dim MsgText As String
     
GRDisplayViewer1.Stop
Set report = New grproLibCtl.GridppReport
report.LoadFromFile (App.Path + "\周报表.grf")
report.DetailGrid.Recordset.ConnectionString = "provider=sqloledb;datasource=192.168.26.74;initial catalog=charge_sys;uid=sa;pwd=123456"
report.DetailGrid.Recordset.QuerySQL = "select * from checkday_info where date between '" & cmbStartDate.Text & "' " & " and " & " '" & cmbEndDate.Text & "'"
GRDisplayViewer1.report = report
GRDisplayViewer1.Start

txtUser.Text = UserName

GRDisplayViewer1.Refresh
report.ParameterByName("datebegin").AsString = Format$(cmbStartDate.Text, "yyyy-mm-dd")
report.ParameterByName("dateend").AsString = Format$(cmbEndDate.Text, "yyyy-mm-dd")
report.ParameterByName("username").AsString = txtUser.Text
  
End Sub

总结：

       关于报表首先明白它的用途，就是一些数据的展现，通过这些数据进行分析。

       其次就是报表的服务者，当我们明白报表是做给谁看的时候，要做什么就比较清楚了。

       最后就是如何制作报表，这个涉及到对新知识的学习，熟练的应用前人制作好的工具我们可以制作出很好的报表。

       在这个报表学习过程中，再次学习了如何对新鲜事物的学习掌握，了解（用途、来历、目标人群）+应用，学习需要反复，但学习经验可以多次使用并不断丰富。