【机房收费系统】 之 报表

前端之家收集整理的这篇文章主要介绍了【机房收费系统】 之 报表前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。


一、什么是报表?


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

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



二、如何制作报表


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



总结:

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

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

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

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

猜你在找的VB相关文章