机房收费—日结报表

日结账单说之前先说一下与报表设计器连接的日结账单表中的数据是怎么来的。我是在结账中写的代码。 请看下边：

    Dim RemainCash As Double   '上期余额，就是昨天的金额总和。
    Dim RechargeCash As Double   '今天结账的充值金额。
    Dim ConsumeCash As Double    ' 今天结账的消费金额。
    Dim CancelCash As Double    '今天结账的退卡金额。
    Dim AllCash As Double       '今天结账的金额总和。


    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
     '先删除今天的结账的记录。
    txtSQL = "delete from CheckDay_Info where date='" & Date & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)


    '算出上期余额，是从日结表中昨天的金额总和得来的。
    Dim txtSQLCheckDay As String
    Dim mrcCheckDay As ADODB.Recordset

    txtSQLCheckDay = "select AllCash from CheckDay_Info where date='" & Date - 1 & "'"
    Set mrcCheckDay = ExecuteSQL(txtSQLCheckDay, MsgText)
    If mrcCheckDay.RecordCount = 0 Then
        RemainCash = 0
    Else

        If IsNull(mrcCheckDay.Fields(0)) Then
            RemainCash = 0
        Else
            RemainCash = mrcCheckDay.Fields(0)

        End If

    End If

    '充值金额，是从充值表中整出今天的充值金额。
    Dim txtSQLReCharg As String
    Dim mrcReCharg As ADODB.Recordset

    txtSQLReCharg = "select sum(addmoney) from ReCharge_Info where date='" & Date & "'and status='结账'"
    Set mrcReCharg = ExecuteSQL(txtSQLReCharg, MsgText)

    If mrcReCharg.RecordCount = 0 Then
        RechargeCash = 0
    Else

        If IsNull(mrcReCharg.Fields(0)) Then
            RechargeCash = 0
        Else
            RechargeCash = mrcReCharg.Fields(0)
        End If
    End If


    '消费金额，从Line表中今天消费金额的总和。
    Dim txtSQLLine As String
    Dim mrcLine As ADODB.Recordset

    txtSQLLine = "select sum(consume) from Line_Info where offdate='" & Date & "'"
    Set mrcLine = ExecuteSQL(txtSQLLine, MsgText)

    If mrcLine.RecordCount = 0 Then
        ConsumeCash = 0
    Else

        If IsNull(mrcLine.Fields(0)) Then
            ConsumeCash = 0
        Else
            ConsumeCash = mrcLine.Fields(0)
        End If
    End If


    '退卡金额，在退卡表中得今天退卡金额的总和
    Dim txtSQLCancel As String
    Dim mrcCancel As ADODB.Recordset

    txtSQLCancel = "select sum(CancelCash) from CancelCard_Info where Date='" & Date & "'and status='结账'"
    Set mrcCancel = ExecuteSQL(txtSQLCancel, MsgText)

    If mrcCancel.RecordCount = 0 Then
        CancelCash = 0
    Else

        If IsNull(mrcCancel.Fields(0)) Then
            CancelCash = 0
        Else
            CancelCash = mrcCancel.Fields(0)
        End If
    End If


    '金额总和，上期余额加充值金额减退卡金额。
    AllCash = RemainCash + RechargeCash - CancelCash





    Dim txtSQLCheck As String
    Dim mrcCheck As ADODB.Recordset

    txtSQLCheck = "select * from CheckDay_Info"
    Set mrcCheck = ExecuteSQL(txtSQLCheck, MsgText)
    '将对应的数据写入日结表中。
    mrcCheck.AddNew
    mrcCheck.Fields(0) = RemainCash
    mrcCheck.Fields(1) = RechargeCash
    mrcCheck.Fields(2) = ConsumeCash
    mrcCheck.Fields(3) = CancelCash
    mrcCheck.Fields(4) = AllCash
    mrcCheck.Fields(5) = Date
    mrcCheck.Update

这是日结表的数据是要显示在日结账单中的数据。 下边看怎么将数据库的表与报表设计器连接的： 首先新建一个，在文件—新建向导。再连接：

将列名与标题行一一对应好
下边这样的：

这是与数据库的链接。

下边是与vb的链接代码：

    Dim strSQL As String, strMsg As String
    strSQL = "select * from CheckDay_info"
    Set Report = New grproLibCtl.GridppReport                      '实例化模版

    Report.LoadFromFile (App.Path & "\报表.grf")               '加载模版
    Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
    Report.DetailGrid.Recordset.QuerySQL = strSQL                  '通过SELECT查询创建记录集
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start                          '开始打印

注意要提前声明一下。