一、什么是报表?
官方解释:报表就是用表格、图表等格式来动态显示数据,可以用公式表示为:“报表 = 多样的格式 + 动态的数据”。
简单来说,报表就是把营业中的一些有用的信息统计下来,从而看一下收支情况、以及其他业务信息
二、如何制作报表
1.下载报表构件并安装(我用的是Grid++Report4.0cn,安装后如下图所示)
2.打开Grid++Report报表设计器(上图第一个图标)后,点击 插入——明细网格、报表头、报表尾
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
总结:
关于报表首先明白它的用途,就是一些数据的展现,通过这些数据进行分析。
其次就是报表的服务者,当我们明白报表是做给谁看的时候,要做什么就比较清楚了。
最后就是如何制作报表,这个涉及到对新知识的学习,熟练的应用前人制作好的工具我们可以制作出很好的报表。
在这个报表学习过程中,再次学习了如何对新鲜事物的学习掌握,了解(用途、来历、目标人群)+应用,学习需要反复,但学习经验可以多次使用并不断丰富。
原文链接:https://www.f2er.com/vb/257330.html