报表是用表格、图表等格式来动态显示数据的一种向上级等个人和组织报告情况的表格。报表因此强大的功能和直观的表现形式被广泛的使用。
今天我像大家介绍的是一种叫Grid++Repot的报表控件的使用
首先是报表部分:
1、下载并安装Grid++控件
2、打开报表软件进行报表模板的设计
设计报表包括报表头和报表尾以及行和字段的设计,这里就不再介绍,我们只针对思路进行简单说明
报表设计完成之后就是vb代码的联接,就是说将报表应用到我们的系统程序中
strSql = "select * from CheckWeek_Info where date between '" & Format$(DTPStart.Value, "yyyy-mm-dd") & "'and '" & Format$(DTPEnd.Value, "yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '实例化报表
'加载模板
Report.LoadFromFile (App.Path & "\周结账报表.grf ") 'App.Path就是路径是在app下的路径,这里的路径一定要确保正确,否则会提示with语句块错误。
'数据源连接
'Report.DetailGrid.Recordset.ConnectionString = "Provider=SQLOLEDB.1;Data Source=DANGHUICHAO-PC;Initial CataLog=charge_sys;UID=sa;PWD=123456"
Report.DetailGrid.Recordset.ConnectionString = "Driver={SQL Server};Server=DANGHUICHAO-PC;Database=charge_sys;userID=admin;PWD=admin"
'创建记录集
Report.DetailGrid.Recordset.QuerySQL = strSql
'报表的参数设置
Report.ParameterByName("MakeTime").AsString = Now
Report.ParameterByName("BeginDate").AsString = Format$(DTPStart.Value, "yyyy-mm-dd") 'Format$格式转换函数
Report.ParameterByName("EndDate").AsString = Format$(DTPEnd.Value, "yyyy-mm-dd")
'查看报表
GRDisplayViewer1.Report = Report
'显示报表
GRDisplayViewer1.Start
End Sub
Private Sub cmdDayin_Click()
Report.[Print] (True) '打印
End Sub
Private Sub cmdDayinyulan_Click()
Report.PrintPreview (True) '打印预览
End Sub
这样我们的我们就能在我们自己的系统中使用报表了。