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

vb与表格的交互

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

 

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.显示报表

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

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

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

 

随机推荐程序问答结果

 

 

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