机房收费之日结账单---报表

一：日结账单的报表制作：

步骤如下：

报表头--静态框--系统变量框--明细网格--明细数据库查询--连接数据库--测试--添加页眉页脚

1添加表头--

2添加静态框将表格上方的学院写清。

3插入系统变量框，标识表格上的时间，右侧属性选择当前时间。

   

4插入明细网格

5报表内选择明细数据库查询

6连接数据库

7选择要连接的数据：SQL server--下一步

8选择服务器---

不存在或拒绝访问-----

方法一：打开配置器--开启server

9测试---成功后--

10连接数据源----查询SQL---测试

select * from checkday_info

出错了。。。。。

解决：

返回数据链接---允许保存密码----进行测试

11点击编辑

生成字段---生成表格

12插入报表尾

给文本框赋值参数，以便代码时可方便用到。

13添加页眉-页脚

14保存

二：代码如下

Private Sub Form_Load()
    Set Report = New grproLibCtl.GridppReport
    
    '报表建立的位置
    Report.LoadFromFile (App.Path & "\汇总表.grf")
    
    '连接数据库
    Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
    
    '查询数据库中的表
    txtSQL = "select * from checkday_info where date='" & Date & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    '在报表中显示查询结果
    
    Report.DetailGrid.Recordset.QuerySQL = txtSQL
    Report.ParameterByName("caiguo").Value = Username
    Report.ParameterByName("laoguzi").Value = mrc.Fields(6)
    
    '查看报表
    GRDisplayViewer1.Report = Report
    
    '显示报表
    GRDisplayViewer1.Start
    
End Sub

Dim Report As grproLibCtl.GridppReport
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String


Private Sub cmdprint_Click()         '打印
    Report.[Print] (True)
    
End Sub

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

Private Sub Command1_Click()       ’更新
    GRDisplayViewer1.Refresh
    MsgBox "刷新成功！", vbOKOnly + vbInformation, "提示"
End Sub