【机房管理】报表1

第一步，建立报表。

插入页眉页脚、报表头、报表尾、明细网格

点击设置数据源

选择与自己相关的文件

也可以从插入中点击明细列，明细字段

或者

综合文字框：是与VB连接而用到的一个文字框，（如我们作品展是用到的FLash 与 VB的交互）道理是一样一样的

还有更多好玩的东西等待着大家发现……

第二步……

说起来也是伤心，我觉得应该有第二步，但是吧，不知道第二步是啥，在以后的博客中也许会更新，敬请期待（也许根本就没有第二步，你说呢？）

第三步编写代码：

使报表和VB链接

Dim WithEvents Report As grproLibCtl.GridppReport      '实例化报表
txtSQL = "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.ConnectionString = "FileDSN=charge.dsn;uid=sa;pwd=123456"
    
    Report.DetailGrid.Recordset.QuerySQL = txtSQL                     '通过select查询创建记录集

    Report.ParameterByName("guanliyuan").Value = UserName            '显示管理员
    Report.ParameterByName("caozuoyuan").Value = UserName '显示操作员编号
    GRDisplayViewer1.Report = Report                             '将数据赋给GRD的report
    GRDisplayViewer1.Start

其他

Private Sub Command1_Click() '日结账单刷新
      GRDisplayViewer1.Refresh
      MsgBox "账单刷新成功！", vbOKOnly + vbExclamation, "提示"
End Sub

Private Sub Command2_Click()     '打印，因为报表对象的print方法名与vb的内部定义方法有冲突所以要用中括号
      Report.[Print] (True)
End Sub

Private Sub Command3_Click()    '打印预览
     Report.PrintPreview (True)
End Sub