账单之报表的使用
这次咱们来聊聊账单,当我们听到这个“名词”的时候,有没有些想法之类的,尤其是当我们要做这个窗体的时候;不能说完全懵逼吧,但是肯定不会直接就开始添加控件或引用,随后布局窗体,最终敲代码的;(适用于大众群体)
当然本篇博客也是我做完(窗体+了解报表)后才开始写的,里面也涉及到了我的一些思考;
为什么需要需要通过报表来显示数据呢?直接显示到窗体控件里面岂不是更加方面,还得引用之类的;这里我们需要了解为什么需要制作报表,然后再聊聊如何来引用它;报表=样式+数据(动态),大体就是设计好模板后来显示动态的数据,方便直观清晰地了解最近某些方面的数据;
当然适用范围就比较广泛了,比如指定计划、考核绩效、分析数据等等都有很大的帮助;所以说本次机房收费项目账单模块=报表.grf(grid++report报表设计器)+VB引用控件(连接);
因为咱们毕竟没有接触过报表设计器,所以说咱们先实现功能后再聊聊如何设计报表!
VB中引用报表地方----分为5.0和6.0,依照你所使用的设计器来选择(高版本兼容低版本)然后就是在代码里面引用已经设计好的.grf的文件了;代码如下:
Private Sub Form_Load()
txtSql = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'"
Set Report = New grproLibCtl.GridppReport
Report.LoadFromFile (App.Path & "\daycheck.grf") '加载模版
Report.DetailGrid.Recordset.ConnectionString = ConnectString '数据库连接数据源
Report.DetailGrid.Recordset.QuerySQL = txtSql
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start
End Sub
当然还有包括打印、刷新、打印预览之类的;
Private Sub cmdDayFresh_Click()
GRDisplayViewer1.Refresh '刷新
End Sub
Private Sub cmdPrePrint_Click()
Report.PrintPreview (True) '打印预览
End Sub
Private Sub cmdPrint_Click()
Report.[Print] (True) '这里的print与VB中的print相冲突,所以加括号
End Sub
以上就是通过代码实现的过程,当然这里理解代码就好,没有必要记住,会使用就行;后面就聊聊如何使用报表设计器这个东东来新建报表;这个过程才是最有意思的。(附带报表设计器 帮助文档)
1:VB里面直接引用控件,以下直接配图+解释;
2:新建向导后,一直到这个界面后,其它的操作咱们都知道和了解;
3:这里可以直接修改标题或者后面显示界面后也可以修改,根据自己意愿来;
4:这里就是咱们用到的某些东西,具体如何使用,希望读者可以自己动手操作+百度;
5:操作完后才直接保存为报表文件就可以了,和资料里面提供的一模一样;当然涉及VB里面参数的引用了,这里表示一下代码。
' Report.ParameterByName("Date").AsString = Date '赋予报表中参数值
' Report.ParameterByName("Now").AsString = Now '赋予报表中参数值