当一个报表的模版都建立的差不多的时候,就应该建立数据连接了,数据连接步骤如图:

@H_502_22@

@H_502_22@

@H_502_22@

@H_502_22@

这里需要注意的是第七步是必须的,如果不允许保存密码,那么就会当写好查询语句然后再测试的时候就会出现如下的错误;

这是为了保障数据安全,第6步写的密码只被允许使用一次,当再次连接数据库的时候就会出现没有填写用户名和密码的情况自然不能连接成功,所以第七步是很必要的.

然后执行数据标题的生成,执行编辑根据字段生成表格列.如图

生成如右图

这里还可以通过拖放调整一下列宽.还可以通过右边的属性栏来调整一些其他的属性.

到现在为止数据库差不多连接成功了

接下来就是代码实现了.代码实现如下代码实现之前首先要添加部件和引用,然后添加报表控件.

代码如下:

Option Explicit
 '定义报表对象
 Dim Report As grproLibCtl.GridppReport
 
 Private Sub Form_Load()
     Dim Strsql As String
     Dim strMsg As String
     
     Strsql = "select * from jiezhang_info where date= '" & Date & "'  "
     
     '实例化报表
     Set Report = New grproLibCtl.GridppReport
     
      '加载模版
     Report.LoadFromFile (App.Path & "\DayAccount.grf")
     
     '数据源连接
     Report.DetailGrid.Recordset.ConnectionString = ConnectString
     
     '通过SELECT查询创建记录集
     Report.DetailGrid.Recordset.Querysql = Strsql
         
 
     '查看报表
     GRDisplayViewer1.Report = Report
     GRDisplayViewer1.Start
     
 End Sub
 
 Private Sub cmdRefresh_Click()
     Report.DetailGrid.Recordset.Querysql = "select * from jiezhang_info where date= '" & Date & "'  "
     GRDisplayViewer1.Refresh '刷新
 End Sub
 
 Private Sub cmdView_Click()
     Report.PrintPreview (True)     '打印预览
 End Sub
 
 Private Sub cmdPrint_Click()
     Report.[Print] (True)        '打印
 End Sub