机房收费系统之报表

报表是我最后完成的一个功能，其实觉得报表本身没有什么难度，主要是周结账单的数据库写入，这里就介绍下报表吧！

其实VB中是有报表设计器的，首先工程—部件—设计器—data report

然后在工程—添加DataReport,这样报表则出现

添加后最主要的是与数据源的连接，首先添加dataenviromnet设计器，然后在工程—添加Data Enviromnet 在工程中添加一个数据环境设计器对象，设置数据链接属性，然后是一系列的字段链接。

这样的设置有些麻烦，其实还有一个外部控件可以完成报表的设计 Grid++Report ，这个设计起来比较简单，具体的方法是这样的：首先是安装Grid++Repor t，然后建立一个用户dsn数据源，命名为Recharge。然后运行程序——文件——新建向导（按要求填写）——>下一步——>创建连接——>下一步——确定。——数据库连接串内写入数据库连接串，连接到数据库，查询sql框内写入

select * from Checkweek_Info——> 下一步——>下一步，按要求操作，完成！（最好与程序保存到同一个文件夹下）

在vb中调用给控件，首先是添加部件和引用

然后将控件添加到窗体，实现更新和打印的功能代码如下：

 

Private Sub CmdPrint_Click()

     Report.[Print] (True)
          '实现打印功能
End Sub

 

Private Sub CmdRefresh_Click()

       Dim strSQL As String

       '数据库中信息导出到报表

       

       Set Report = New grproLibCtl.GridppReport

       Report.LoadFromFile App.Path & "\Recharge.grf"

       Report.DetailGrid.Recordset.ConnectionString = ConnectString

       

       strSQL = "select * from checkweek_info"

       Report.DetailGrid.Recordset.QuerySQL = strSQL

       GRDisplayViewer1.Report = Report

       GRDisplayViewer1.Start
     

End Sub

 

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

End Sub