【机房收费系统】VB与grid++report交互（如何让数据以报表格式显

发布时间：2020-12-17 07:43:55 所属栏目：百科来源：网络整理

导读：前言上篇文章已经对数据显示的必要性及三种不同数据显示方式的优劣做了简介，这里就不再赘述。直接为大家展示一下如何来将vb中的数据以报表方式显示。一、下载报表编辑器 http://www.rubylong.cn/Download_History.htm 注意：我特意把这一步拿来做为一个

前言

上篇文章已经对数据显示的必要性及三种不同数据显示方式的优劣做了简介，这里就不再赘述。直接为大家展示一下如何来将vb中的数据以报表方式显示。

一、下载报表编辑器

http://www.rubylong.cn/Download_History.htm

注意：我特意把这一步拿来做为一个过程来讲，主要是因为目前最新的6.0版本好像有些兼容问题。在用vb交互的过程中可能会出现 “ 数据无法解析 ”报错。我因为这个问题耽搁了好久。最后才明白是版本问题。

二、自行绘制报表

1.插入控件

（BeginDate）变量—— parameter参数

文字常量—— 静态框

当前时间——系统变量框

2.更改控件属性

三、代码设计

Private Sub Form_Load()
  
    Dim strSQL As String,strMsg As String
    strSQL = "select * from checkday_info where date='" & Format(Date,"yyyy-mm-dd") & "'"
    Set Report = New grproLibCtl.GridppReport                      '实例化模版

    Report.LoadFromFile (App.Path & "checkday.grf")               '加载模版
    Report.DetailGrid.Recordset.ConnectionString = ConnectString() '连接数据源
    Report.DetailGrid.Recordset.QuerySQL = "select top 1 * from checkday_Info order by date desc"                 '通过SELECT查询创建记录集
    Report.ParameterByName("now").AsString = Date
    Report.ParameterByName("username").AsString = UserName    '给报表中元素赋值
    
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start                                         '开始打印

End Sub

（编辑：李大同）

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