机房收费系统问题集锦（四）——报表问题

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);">       </span><span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255); font-size: 18px;">   其实，刚做到报表这一块的时候，我是感到非常的头疼的：不知道该从何处入手，总感觉Grid++ Report 报表设计器的使用非常的麻烦，就这样项目在我的拖延下两天的时间就过去了，“没办法啊，你不做，别人的劳动成果也不会是你的”，还是得硬着头皮做下去啊！</span>

首先呢，先上网上下载一个 Grid++ Report 报表设计器 ，按照它的要求一步步的安装好。

再者，打开Grid++ Report 报表设计器，对设计器进行编辑

           
        在这里我先说一下对于日结账单的设计：
        点击上图所示的“插入”→“页眉”，“插入”→“页脚”，“插入”→“报表头”，“插入”→“报表尾”，“插入”→“明细网络”，当然了还有静态文本框和综合文本框，所谓的静态框，就是一个普通的文字输入框，而综合文字框，则是需要自己进行设置的。

       先说一下综合文本框的设置：它是用来与VB中的内容相连接的

       首先在报表的空白区域右击→“插入”→“参数”，在报表的右侧对插入的参数进行设置

     然后在报表内的综合文字框内双击，对综合文字框进行如下图所示的操作

      接下来再说一下对于明细网络部分的操作

 
    单击打开下图中方框中的图标，设置语句连接数据库 
 
    然后按照下图所示一一操作

     显示“测试成功”后

单击下图中两个方框内的内容，就可生成明细网络

      然后在双击标题行内的各个网格对标题进行修改。最终结果如下图所示：

     最后对你做的报表进行保存（保存到你的工程所在的文件夹下）

      好了，对于报表的设置就算完成了，下面是对于vb中窗体部分的编辑内容
      首先“Ctrl+T”，打开“添加部件”的窗体

把Grid++ Report 报表画出来

Option Explicit
Dim WithEvents Report As grproLibCtl.GridppReport '实例化报表
Dim txtSQL As String
Dim msgText As String

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

Private Sub cmdUpdate_Click() '日结账单刷新
GRDisplayViewer1.Refresh
MsgBox "账单刷新成功！", , "提示"
txtSQL = "select * from CheckDay_Info"
Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
Report.DetailGrid.Recordset.QuerySQL = txtSQL
GRDisplayViewer1.Refresh
End Sub

Private Sub Command2_Click() '打印
Report.PrintPreview (True)
End Sub

Private Sub Form_Load()
frmDate.Height = 8475
frmDate.Width = 12390

txtSQL = "select * from CheckDay_Info"
Set Report = New grproLibCtl.GridppReport '实例化模板
Report.LoadFromFile (App.Path & "\日结账单.grf") '加载模板
Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
Report.DetailGrid.Recordset.QuerySQL = txtSQL '通过select查询创建记录集
Report.ParameterByName("guanliyuan").Value = UserName '显示管理员编号
Report.ParameterByName("date").Value = Format(Date, "yyyy-mm-dd")
GRDisplayViewer1.Report = Report  '将数据赋给GRD的report
GRDisplayViewer1.Start '在报表中显示
GRDisplayViewer1.Refresh
End Sub

Private Sub Form_Resize() '规定报表的大小
GRDisplayViewer1.Left = 0
GRDisplayViewer1.Width = Me.Width - 500
End Sub

好了，日结账单窗体就弄好了，是不是非常简单呢！
当然了，周结账单与日结账单大同小异，就留给聪明的你们自己去研究了！！！