机房收费-报表之日结账单

    机房收费做到报表这一块儿，日结账单和周结账单是很让我犯愁的一件事。拖了好长时间才完成，在这里分享一下我的完成过程，希望大家指点一下。

    日结账单的完成包括以下几个部分。

       一、安装报表设计器

       二、vb中添加相关控件

       三、建表并与数据库连接

       四、vb与报表的交互

        然后按步骤操作就可以了。

一、下载一个报表设计器并安装，我用的是Grid++Report5.0

二、在vb中添加报表相关控件

三、插入表

1、插入文件-->新建向导

2、定义主要信息：主标题、副标题

3、测试连接数据库

4、根据提示定义字段和标题，具体过程不再赘述表内容如下

四、代码部分：在窗体中添加报表设计器控件，然后代码如下

<pre name="code" class="vb"><pre name="code" class="vb"><pre name="code" class="vb">Dim WithEvents report as grproLibCt1.Gridppreport
private sub Form_Load()
dim txtSQL as string
dim MsgText  as string
dim objRs as ADODB.Recordset
txtSQL="select * from checkday_Info where date='" & Format(now,"yyyy-mm-dd") & "'"
Set Report=New grproLibCt1.GridppReport          '创建表对象
'载入报表模板文件
Report.LoadFormFile (App.Path & "\checkday.grf")
Report.DetailGrid.Recordset.ConnectionString=connetString  '数据源链接 数据库直接调用写好的模块内容
Report.DetailGrid.Reportset.QuerySQL=txtSQL
'用来使gridWeekliyBill报表查询器空间显示报表中的内容
grdDayliyBill.Report=Report
grdDayliyBill.Start
Report.ParameterByName("time").Value=Format(now,"yyyy-mm-dd")
End sub
Private Sub cmdFresh_Click()
grdDayliyBill.Refresh   '刷新账单
End sub
Private Sub cmdPrePrint_Click()
'打印预览
Report.PrintPreview (True)
End Sub
Private Sub cmdPrint_Click()
'打印
Report.[Print] (True)
End Sub