VB与报表的交互

 

   还接着上次说。在上个博客中已经说到建立好表的步骤了，接下来就是怎么使表与vb连接。

 

   先看一下代码。

Option Explicit


   Dim WithEvents Report As grproLibCtl.GridppReport  '实例化报表

   Dim txtsql As String   '定义连接字符串

Private Sub cmdprint_Click()
    Report.[Print] (True)                  '打印操作，由于print属性与vb中的属性有重复，因此需要用中括号括起来

End Sub

Private Sub cmdshowprint_Click()
     Report.PrintPreview (True)
End Sub

Private Sub Form_Load()
   
   Dim checkday As Date
   checkday = Date


'创建报表对象
    Set Report = New grproLibCtl.GridppReport
    '载入报表模版文件
    Report.LoadFromFile (App.Path & "\checkday.grf")
   
    
    Report.DetailGrid.Recordset.ConnectionString = "provider=SQLOLEDB;server=192.168.24.116;database=student_charge;integrated security =SSPI"
              '这是连接字符串，需要连接数据库的字符串
 
  
    Report.ParameterByName("maketime").AsString = Date                        '这是我们 传入的参数，制作时间
    Report.ParameterByName("endtime").AsString = Date
    
     Report.DetailGrid.Recordset.QuerySQL = "select * from checkday where date='" & checkday & "'"
                                '定义的查询语言
    GRDisplayViewer1.Report = Report             '创建报表对象
    GRDisplayViewer1.Start                     '报表显示

    
End Sub

  大致浏览后，可能能够看清楚一共有三个事件，分别是Load、Print和printpreview事件。其实最麻烦的部分就是Load事件了。其余两个就是报表的两个属性罢了。

 

           Load事件大致也就这几步

                    1.实例化报表对象

                    2.加载我们设计好的报表

                    3.定义我们需要连接的数据库字符串

                    4.设置我们需要的参数，比如标题显示制表时间等

                    5.定义查询的语句

                    6.创建报表对象

                    7.显示报表

   其余的两个事件就仅仅调用了报表对象的两个属性，没有什么实质性的东西。

   综上所述，报表就建立好了。当然报表里面还有好多功能，在以后的学习过程中，还的继续深化学习。