机房收费系统将要接近尾声,心里面既激动又兴奋(嘿嘿,其实就是一个意思),它点点滴滴的成长离不开我的辛苦付出,夸奖一下自己吧!
今天介绍一下怎样使用报表以及怎样实现报表与vb的交互,其实这方面的文章一大堆,自己的跟他们的比起来也许很差劲,不过自己总结总结,总比不总结的强,至少见证一下自己的成长嘛!
首先下载一个Grid++ Report报表设计器然后安装
打开后是这个界面:
然后插入页眉,页脚,报表头,报表尾,明细网格,静态框,综合文字框。
先介绍一下明细网格:
点击下图的“根据数据设置自动生成字段”和“根据字段自动生成列”
再修改明细网格的标题行:
再介绍一下“综合文字框”,这个是与vb连接用到的东东... ...
首先,插入——>参数
输入自己的定义的参数名称,选择它的格式以及数据类型。然后如图:
最终的报表成品图:
好了报表的模板做好了,保存一下,接着进入vb的天地... ...
首先插入部件:
选择GRDisplayViewer,在窗体中画出来,调整合适的大小和位置
先定义:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Option Explicit
Dim WithEvents Report As grproLibCtl.GridppReport '实例化报表</strong></span></span></strong>
然后在form_load中添加代码
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub Form_Load()
Dim txtsql As String
Dim msgtext As String
txtsql = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport '实例化模板
Report.LoadFromFile (App.Path & "\机房日结账单.grf") '加载模板
Report.DetailGrid.Recordset.ConnectionString = connectstring() '连接数据源
Report.DetailGrid.Recordset.QuerySQL = txtsql '通过select查询创建记录集
'Report.ParameterByName("guanliyuan").AsString = username
Report.ParameterByName("guanliyuan").Value = username '显示管理员编号
GRDisplayViewer1.Report = Report '将数据赋给GRD的report
GRDisplayViewer1.Start '在报表中显示
End Sub
</strong></span></span></strong>
打印:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong> Report.[Print] (True) '打印,报表对象的print方法名与vb中的内部定义方法有冲突,所以使用中括号</strong></span></span></strong>
打印预览:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Report.PrintPreview (True)</strong></span></span></strong>
账单刷新:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>GRDisplayViewer1.Refresh
MsgBox "账单刷新成功!", vbOKOnly + vbExclamation, "警告"</strong></span></span></strong>
日结账单就这样华丽丽的完成了,接下来是周结账单......
模板和日结账单一样,测试一下周结账单的数据源,添加一个日期,进行时间段内的查询就OK啦
其中的"制表时间"用的是系统变量——>当前日期时间
在参数中注意选择日期时间的格式:
然后在vb中添加代码,与日结账单的代码相似,多了个获取始终日期:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>'获取始终时间
Report.ParameterByName("startdate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
Report.ParameterByName("enddate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")</strong></span></span></strong>
在”刷新账单“中的代码:
<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong>Private Sub cmdshuaxin_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc1 As ADODB.Recordset
Dim mrc2 As ADODB.Recordset
If DTPicker1.Value > DTPicker2.Value Then
MsgBox "终止时间不能小于起始时间!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
txtsql = "select * from CheckDay_Info where date between'" & Format$(DTPicker1.Value, "yyyy-mm-dd") & "'" & "and'" & Format$(DTPicker2.Value, "yyyy-mm-dd") & "'"
Set mrc1 = executesql(txtsql, msgtext)
txtsql = "select * from checkWeek_Info "
Set mrc2 = executesql(txtsql, msgtext)
Do While Not mrc2.EOF
mrc2.Delete
mrc2.MoveNext
Loop
'更新到日结表中
Do While Not mrc1.EOF
With mrc2
.AddNew
.Fields(0) = mrc1.Fields(0)
.Fields(1) = mrc1.Fields(1)
.Fields(2) = mrc1.Fields(2)
.Fields(3) = mrc1.Fields(3)
.Fields(4) = mrc1.Fields(4)
.Fields(5) = mrc1.Fields(5)
.Update
mrc1.MoveNext
End With
Loop
GRDisplayViewer1.Refresh
Report.DetailGrid.Recordset.QuerySQL = "select * from checkWeek_Info where date between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"
'获取始终时间
Report.ParameterByName("startdate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
Report.ParameterByName("enddate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")
'显示管理员编号
Report.ParameterByName("guanliyuan").Value = username
End Sub</strong></span></span></strong>
好了,日结周结账单完成了,有没有感觉很简单,多多经历,收获多多,小伙伴们,好好加油哈!!!