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

发布时间：2020-12-17 08:05:10 所属栏目：百科来源：网络整理

导读：上面说到了制作报表，相信大家都能制作了吧！下面就说几句报表和vb的交互。其实就是几句话的事情。 Dim WithEvents Report As grproLibCtl.GridppReportPrivate Sub Form_Load() Dim txtSQL As String Dim msgtext As String txtSQL = "select * from CheckD

上面说到了制作报表，相信大家都能制作了吧！下面就说几句报表和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里的代码比较简单，大家试试看。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!