第一次机房收费系统——报表

 报表—冯氏简称可打印输出化的格式数据信息。一般企业做报表就是目的就是根据最近的企业信息，做出相应的决策。可见报表是一个企业进行决策的依据。所以做报表也是一门技术活。

1.搜索下载安装Grid++Report5.0

2.VB添加部件和引用。工具栏中出现报表编辑器，报表显示器等。（如图）

3.打开报表设计器，分别插入表头，静态框以及系统变量框，显示当前日期时间。

4.插入明细网格、明细数据查询—创建数据库连接串

  

5.将check—day标题行里面的英文标题改为汉文——插入报表尾（进行页尾设置）——插入页眉、页脚。

6.报表连接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  

7.周报表里有日期限制

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  

8.打印预览

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

9.打印

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

     看见其他的小伙伴有不同的连接报表的方式，希望可以借鉴，感谢您的阅读！