机房收费系统2——vb与报表的交互

上面说到了制作报表，相信大家都能制作了吧！下面就说几句报表和vb的交互。其实就是几句话的事情。

Dim WithEvents Report As grproLibCtl.GridppReport
Private Sub Form_Load()
    Dim txtSQL As String
    Dim msgtext As String
    txtSQL = "select * from CheckDay_Info where Date ='" & Format(Date, "yyyy-mm-dd") & "'"
    
    Set Report = New grproLibCtl.GridppReport                       '创建报表对象

    Report.LoadFromFile (App.Path & "\机房收入日汇总表.grf")         '路径，加载报表模板文件
    
    Report.DetailGrid.Recordset.ConnectionString = ConnectString()  '连接数据源
    Report.DetailGrid.Recordset.QuerySQL = txtSQL                   '通过select查询创建记录集
    
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start                                          '开始打印
End Sub

       主要部分搬上来了，剩下的就是细枝末节了。

       打印：

Private Sub cmdPrint_Click()    '打印
    Report.[Print] (True)       '方法名与vb的内部定义有冲突，所以要用中括号
End Sub

打印预览：

Private Sub cmdPreview_Click()  '打印预览
    Report.PrintPreview (True)
End Sub

刷新：

Private Sub cmdRefresh_Click()  '刷新
    GRDisplayViewer1.Refresh
End Sub

           欧了，就是这么简单的。因为在制作报表时，已经和数据库有关联了，所以在vb里的代码比较简单，大家试试看。