机房收费系统--报表

     做机房收费系统的时候有一个打印功能，实现这个用到了Grid Report这个第三方控件。

       首先：下载Grid Report控件。

       然后：制作报表模版。

 第一步：打开报表设计器。点击菜单插入—报表头。如图：

第二步：执行插入菜单—静态框，就创建了一个静态框，名称属性为“staticbox1”，设置它的文本信息

 

第三步：执行插入菜单—明细网格，

第四步：连接数据库查询。执行报表菜单—数据库查询，然后“创建数据库连接”

点击“下一步”—然后再填写信息“服务器名称”“用户名和密码”“选择数据库”

最后测试连接成功。

第五步：大家可以在设置数据库连接串与查询SQL对话框的“数据库连接串”编辑框中看到刚才创建的数据库连接串。

．在“查询 SQL”编辑框中输入“select * from  checkday_Info”，注意不要包括引号

第六步：执行编辑菜单—根据字段生成列

此时明细网格多了很多列，一个字段对应一列。

第七步：保存。将这个模版与程序放在一起，保存名称为“checkday.grf”

到这里报表的模版已经做成了。下面就是编程序了。

首先：在程序中勾选（部件 ：和 引用：）

然后：编写代码

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

End Sub

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

Private Sub cmdRefresh_Click()
    GRDisplayViewer1.Stop
    Set Report = New grproLibCtl.GridppReport   '创建报表对象
    Report.LoadFromFile (App.Path & "\CheckDay.grf")  '载入模版
    '连接数据库与
    Report.DetailGrid.Recordset.QuerySQL = " select * from CheckDay_Info "
    '    GRDisplayViewer1.Report = Report  '报表内容显示在控件中

    GRDisplayViewer1.Start

End Sub