机房收费系统总结（四）

               在做机房收费系统的时候它不同于学生管理系统的是多了报表这一功能，可以把数据通过打印机打印出来，这显然是很方便的。那么我就来总结一些报表的使用方法吧！

      首先我们在部件里边选择这个部件：

      

      \]

     然后我们下载一个Grid++Report报表设计器

     步骤：

     1.新建向导：

      

           2.创建连接

      

     、

    3.创建SQL语句（记得把password加上）

    

  4。在这里我最想说的是报表中时间的问题

      

     为了让起止时间和终止时间与窗体的起止时间和终止时间对应，我可费了老大劲了，其实就这一个很简单的问题。

      插入静态框输入如图所示的begin和end，然后右击插入——参数，然后保证参数名和静态框里的名字一致。

     

     代码部分：

     账单刷新事件：

report.ParameterByName("begin").AsString = Format(DTPicker1.Value, "yyyy/MM/dd")report.ParameterByName("end").AsString = Format(DTPicker2.Value, "yyyy/MM/dd") txtSQL = "select * from checkweek_Info where date>= '" & DTPicker1.Value & "' and date<='" & DTPicker2.Value & "'" 'txtSQL1 = txtSQL & "select * from checkweek_Info where RemainCash= '" & Trim(Text1.Text) & "'"    report.DetailGrid.Recordset.ConnectionString = connectstring()  report.DetailGrid.Recordset.QuerySQL = txtSQL   GRDisplayViewer1.Refresh

    报表预览以及报表打印：

 

Private Sub Command1_Click() report.[Print] (True)End SubPrivate Sub Command2_Click()report.PrintPreview (True)

   报表初始化

Dim txtSQL As String Dim msgtext As StringDim txtSQL1 As String txtSQL = "select * from checkweek_Info where date>= '" & DTPicker1.Value & "' and date<='" & DTPicker2.Value & "'" 'txtSQL1 = txtSQL & "select * from checkweek_Info where RemainCash= '" & Trim(Text1.Text) & "'" Set report = New grproLibCtl.GridppReport    '实例化模板 report.LoadFromFile ("E:\机房\周汇总表.grf")  '载入报表模板 '设置数据库连接串  report.DetailGrid.Recordset.ConnectionString = connectstring()  report.DetailGrid.Recordset.QuerySQL = txtSQL

    报表我们以后还会用到，先学习一下吧！