【机房收费系统】——傻瓜式报表设计器制作报表模板

一、下载安装Grid++Report5.0：

  1、搜索下载Grid++Report5.0并安装：（附赠哟~但是建议大家自己去下载）

          

        云盘分享：https://yunpan.cn/c6ggtnHFDsgae （提取码：2dbf）

 2、安装后在VB添加部件和引用。工具栏中出现报表编辑器，报表显示器等，图标如图

       所示：如下图所示：

                                                              

二、 制作报表模板：

 1、第一步，打开报表设计器，打开“插入”选择“插入报表头”；

2、然后点击插入“静态框”，输入文本“机房收入日汇总表”和“单位：数信学院”；

 

3、位于表格右边的时间可以用插入里的“系统变量框”，从中选择“当前日期时间”，可以

显示当前系统时间，这个类似我们VB中的添加label控件；

4、接着再从“插入”中选择插入“明细网格”；

5、然后从报表中选择“明细数据库查询”；

6、从弹出的界面上单击“创建数据库连接串”；

7、从中选择“连接的数据”点击“下一步”；

               

8、从弹出的窗口中点击连接进行设置；如果不知道自己服务器的名称，可以用英文状

态下的“.”来表示本地服务器！

9、然后点击测试；

                     

10、系统自动将字符串插入界面的文本框中；

11、然后从“查询SQL”中输入语句“select *from CheckDay_Info”点击测试，

12、测试成功后，点击确定。

       

         

若测试失败，出现问题如左图：

      

则回到右图所示步骤：再同上继续即可

                                                           

13、从”编辑中“选择“根据明细查询SQL生成字段”；

14、然后点击“根据字段生成表格列”；

15、然后将“标题行”的英文改为汉字。

16、插入“报表尾”；

17、如图所示添加“管理员、操作员及其工作号”均为综合文字框

 

18、插入“页眉、页脚”；

19、预览效果图：

三、报表与VB的连接：

Option Explicit
  '定义报表对象
   Dim Report As grproLibCtl.GridppReport

 Private Sub Form_Load()
      Dim StrSQL As String
      Dim strMsg As String
     
     '创建报表对象
      StrSQL = "select * from CheckDay_Info where date= '" & Date & "'  "
      
      '实例化报表
      Set Report = New grproLibCtl.GridppReport
     
      '载入报表模板文件
      Report.LoadFromFile (App.Path & "\周报表.grf")
     
      '数据源连接
      Report.DetailGrid.Recordset.ConnectionString = ConnectString
     
      '通过SELECT查询创建记录集
      Report.DetailGrid.Recordset.QuerySQL = StrSQL
         
      '显示报表中的内容
      GRDisplayViewer1.Report = Report
      GRDisplayViewer1.Start
     
 End Sub
 

 Private Sub cmdRefresh_Click()
    
     '判定终止日期不能小于其实日期
     If StartDateView.Value > EndDateView.Value Then '条件限制
         MsgBox "终止日期不能小于起始日期！", , "温馨提示"
         Exit Sub
     End If
        
   '如果上期余额的text里不为空则查询日期1到日期2中、上期余额是文本中的记录
     txtSQL = "select * from checkday_Info where date between '" & _
              StartDateView.Value & "' and '" & EndDateView.Value & "'"
        
     '刷新
     Report.DetailGrid.Recordset.QuerySQL = "select * from CheckDay_Info where date= '" & Date & "'  "
     GRDisplayViewer1.Refresh
 End Sub
 
 

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

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

感谢您的阅读~更多文章请点击

机房收费系统——计算消费时间（DateDiff 函数解释）

机房收费系统——子窗体在MDI窗体中最小化(API函数：SetParent())

机房收费系统——数据库不响应VB进行增删改的操