【机房收费系统——报表与vb交互之日结账和周结账】-阿里云开发者社区

【机房收费系统——报表与vb交互之日结账和周结账】

2022-11-25 188

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 【机房收费系统——报表与vb交互之日结账和周结账】

在上一篇中已经介绍了报表模板的制作了，当然我们不能还要介绍报表和vb的交互，当我们建好模板以后就要在vb中引用此报表，下面就结合日结账和周结账来介绍报表的使用。

首先我们应该在窗体加载事件中进行以下代码的编写；最后两行的意思是进行参数的传递，它的作用是用来显示时间段，在这里需要说明以下就是给我们的系统中，报表上的时间段不会改变。

我们应该首先在通用里面对报表进行实例化

Dim report As grproLibCtl.GridppReport '实例化报表

<span style="font-family: Arial, Helvetica, sans-serif;">          </span><pre name="code" class="html">Private Sub Form_Load()
    Dim strsql As String
    Dim strmsg As String
                                                 '创建报表对象
    Set report = New grproLibCtl.GridppReport
                                                 '载入报表模版文件
    report.LoadFromFile (App.Path & "\日结报表.grf")
                                                     '设置数据连接串
    report.DetailGrid.Recordset.ConnectionString = ConnectString
                                    '用来使grdWeekliyBill报表查询器控件显示报表中的内容
    grddayliybill.report = report
    grddayliybill.Star

Private Sub cmdrefresh_Click()
                             '账单刷新
           Dim strsql As String
          Dim strmsg As String
          Dim mrc As ADODB.Recordset
          Dim mrcc As ADODB.Recordset
                  '日期的选定
          strsql = "select * from checkday_Info where date ='" & Date & "'"
         Set mrc = ExecuteSQL(strsql, strmsg)
            report.DetailGrid.Recordset.QuerySQL = strsql
            grddayliybill.Refresh   '刷新
 End Sub

<span style="font-family: Arial, Helvetica, sans-serif;">
</span>

<span style="font-family: Arial, Helvetica, sans-serif;"><span style="font-size:24px;">Private Sub cmdpreview_Click()              '打印预览</span>

    report.PrintPreview (True)
End Sub
Private Sub cmdprint_Click()             '打印
    report.[Print] (True)
End Sub</span>

在插入代码之前我们应该在工程——部件中选择

下面简单介绍一下报表中参数的插入：

修改完名称以后，下面进行参数的导入：

下面介绍我在编写日结账和周结账的思路：

我认为日结没有很大的问题只要我们在结账窗体中，把数据导入日结账表中即可，也就说我们每结一次账，在数据库中的表中就会有一条记录，当我们查看日结账的时候就会清楚的看到今天的结账明细账单。下面是我的代码：

首先在我们刷新时间之前，删除表中的所有记录（之前说过这是一张空表）

txtsql = "delete * from checkweek_info"
      set mrc = executesql (txtsql,msgtext)

在清空表之后，在日结表中区每一天的汇总数：

While (DateValue(enddateview.Value) - DateValue(startdateview.Value) >= 0)
            Text1.Text = DateValue(enddateview.Value) - DateValue(startdateview.Value)
            txtSQL = "select * from checkday_info where date = '" & startdateview.Value & "'"
             Set mrcc = ExecuteSQL(txtSQL, MsgText)
                If mrcc.EOF = True Then             '判断是否有记录
                    startdateview.Value = startdateview.Value
                Else
                    While (mrcc.EOF = False)
                        RechargeCash = RechargeCash + mrcc.Fields(1)
                        consumecash = consumecash + mrcc.Fields(2)
                        cancelCash = cancelCash + mrcc.Fields(3)
                        allcash = allcash + mrcc.Fields(4)
                        mrcc.MoveNext
                    Wend
                mrcc.Close
                                                    '获得上期余额
                txtSQL = "select * from checkday_info where date='" & Trim(startdateview.Value - 1) & "'"
                Set mrcc = ExecuteSQL(txtSQL, MsgText)
                    If mrcc.EOF = True Then
                        remaincash = 0
                    Else
                    While (mrcc.EOF = False)
                            remaincash = remaincash + mrcc.Fields(0)
                            mrcc.MoveNext
                        Wend
                    End If

最后将数据写入周结账单中：

           txtSQL = "select * from checkweek_info"
                Set mrccc = ExecuteSQL(txtSQL, MsgText)
                mrccc.AddNew
                mrccc.Fields(0) = remaincash
                mrccc.Fields(1) = RechargeCash
                mrccc.Fields(2) = consumecash
                mrccc.Fields(3) = cancelCash
                mrccc.Fields(4) = cancelCash
                mrccc.Fields(5) = startdateview.Value
                mrccc.update
            End If
                 startdateview.Value = startdateview.Value + 1
        Wen