欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

机房收费系统之表格总结2

更新时间: 2014-01-05 03:06:31 责任编辑: Author_N1

 

机房收费系统之报表总结2

 

在上一篇中已经说了如何构建报表模板,接下来就是用vb调用报表模板以此来实现报表的输出。下面是一些具体的过程:

 

’定义报表
Dim Report As grproLibCtl.GridppReport

Private Sub cmdPrint_Click()

‘打印报表

    Report.[Print] (True)

End Sub

 

Private Sub cmdPrintPreview_Click()

’打印预览

    Report.PrintPreview (True)

End Sub

Private Sub cmdRefresh_Click()

‘刷新报表

    txtSQL = "select * from daybill_Info where daydate='" & Format(Date, "yyyy-mm-dd") & "'"

    Report.DetailGrid.Recordset.QuerySQL = txtSQL

    GRDisplayViewer1.Refresh

End Sub

Private Sub Form_Load()

 '将日结账单以报表形式显示出来

    '建立查询语句

    txtSQL = "select * from daybill_Info where daydate='" & Format(Date, "yyyy-mm-dd") & "'"

    '创建报表对象

    Set Report = New grproLibCtl.GridppReport

    '载入报表模板文件

    Report.LoadFromFile (App.Path & "\报表\日结账单1.grf")

    '设置数据连接串

    Report.DetailGrid.Recordset.ConnectionString = ConnectionString()

    '载入查询语句

    Report.DetailGrid.Recordset.QuerySQL = txtSQL

    '显示报表中的内容

    GRDisplayViewer1.Report = Report

    GRDisplayViewer1.Start

End Sub

 

而在周结账单中只要引进参数即可:

'设置报表参数

    Report.ParameterByName("datestart").AsString = Str(startTime.Value)

    Report.ParameterByName("dateend").AsString = endTime.Value

 

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:06:31
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18331/
本文WWW.DOC100.NET DOC100.NET版权所有。