在上一篇中已经介绍了报表模板的制作了,当然我们不能还要介绍报表和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.Start
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
Wend
到这我的日结账和周结账就编写完了,当然这是我的理解,如果有不同的想法或者是我的有错误,请读者们留言指正。
下一篇将总结 学生信息管理系统和机房收费系统中的组合查询的对比。