机房收费系统之日、周账单

     账单之报表的使用

     这次咱们来聊聊账单，当我们听到这个“名词”的时候，有没有些想法之类的，尤其是当我们要做这个窗体的时候；不能说完全懵逼吧，但是肯定不会直接就开始添加控件或引用，随后布局窗体，最终敲代码的；（适用于大众群体）

当然本篇博客也是我做完（窗体+了解报表）后才开始写的，里面也涉及到了我的一些思考；

     为什么需要需要通过报表来显示数据呢？直接显示到窗体控件里面岂不是更加方面，还得引用之类的；这里我们需要了解为什么需要制作报表，然后再聊聊如何来引用它；报表=样式+数据（动态），大体就是设计好模板后来显示动态的数据，方便直观清晰地了解最近某些方面的数据；

     当然适用范围就比较广泛了，比如指定计划、考核绩效、分析数据等等都有很大的帮助；所以说本次机房收费项目账单模块=报表.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 '赋予报表中参数值

     整个报表的设计过程就做完了，如果百思不得其解后请联系小编一起探讨，你们的问候就是我进步的阶梯，欢迎评论；咱们下期机房收费系统总结见！