VB机房收费系统09——日结账单和周结账单

最新推荐文章于 2019-02-28 21:40:09 发布

原创

最新推荐文章于 2019-02-28 21:40:09 发布 · 848 阅读

1 ·

CC 4.0 BY-SA版权

本文介绍了VB机房收费系统中日结账单和周结账单的制作过程，包括报表的绘制、代码调试以及使用的VB报表控件，分享了作者在解决这一难点时的经验和收获。

前言

这是我整个机房项目中最后一个难点，这两个账单我卡了3天，敲完了后，我把收获分享在这里，希望对大家有所帮助。

正文

这窗体不是敲出来，是调用和显示出来的！

这里我们就用到了报表，报表下个生成器然后自己画也可以，直接选择给的机房素材也可以。

以我亲身经历来说，画报表没有调试报表代码难，调试报表代码没有找到报表控件难！

画报表

画报表参考博客：http://blog.youkuaiyun.com/zhoukun1008/article/details/38518297

调试报表代码

报表代码有点类似机房中用到的“导出EXECEL”代码，是万能的。

日结账单全代码：

Option Explicit
  '定义报表对象
   Dim Report As grproLibCtl.GridppReport
  
 Private Sub Form_Load()
      Dim StrSQL As String
      Dim strMsg As String
       
     '创建报表对象
      StrSQL = "select * from CheckDay_Info where date= '" & Date & "'  "
        
      '实例化报表
      Set Report = New grproLibCtl.GridppReport
       
      '载入报表模板文件
      Report.LoadFromFile (App.Path & "\daycheck.grf")
       
      '数据源连接
      Report.DetailGrid.Recordset.ConnectionString = connectstring
       
      '通过SELECT查询创建记录集
      Report.DetailGrid.Recordset.QuerySQL = StrSQL
           
      '显示报表中的内容
      GRDisplayViewer1.Report = Report
      GRDisplayViewer1.Start
       
 End Sub

Private Sub cmddaylist_Click()
'日结账单刷新
     
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtsql = "select * from checkday_Info "
    Set mrc = ExecuteSQL(txtsql, msgtext)
         
    '刷新
    Report.Detail

最低0.47元/天解锁文章