机房收费系统之报表浅谈

    报表的基本意思是向上级报告情况的表格，“报表=多样的格式+动态的数据”人们利用计算机处理数据和界面设计的功能来生成、展示报表。报表要做的就是帮助你自动处理好数据，然后在界面上显示你需要的数据。这样不仅节省时间，而且用户可以只修改数据，或者只修改格式，还能保证数据的准确性。

    所以这么好的东西为什么不用呢？接下来我就来向大家简单介绍VB与报表的交互~

 

下载Grid++Report5.0

链接：密码：jwcn

Grid++Report5.0

 

步骤详情

    有很多还有截图我就不一一介绍了给大家一个链接这里的步骤很清楚

编辑报表

    当我们把报表器下载下来之后，其实可以不用自己手动去建立一个账单，下载下来后我们机房收费系统所需材料中就会有日周账单，拿过来复制到自己的文件见进行附用就好了。

    复制圈起来的账单。

 

    插入控件后在，接下来就是实现交互功能了。

 

实现日结账交互代码：

 

Private Sub Form_Load()
Dim txtsql As String
Dim Report As grproLibCtl.GridppReport
'实例化报表
txtsql = "select * from CheckDay_Info where date = '" & Format(Date, "yyyy-mm-dd") & "'"
    Set Report = New grproLibCtl.GridppReport
        Set Report = New grproLibCtl.GridppReport
         
        '报表建立的位置
        Report.LoadFromFile App.Path & "\daycheck.grf"
        Report.DetailGrid.Recordset.ConnectionString = connectstring() '数据源
         
        
        Report.DetailGrid.Recordset.QuerySQL = txtsql
        '报表的参数设置
        Report.ParameterByName("XX").AsString = username
        Report.ParameterByName("OPT").AsString = username
        '查看报表
        GRDisplayViewer1.Report = Report
        '显示报表
        GRDisplayViewer1.Start
End Sub

周结账

    相比日结帐单周结账有起始日期，周报表和日报表很相似，只是多了两行代码

Report.ParameterByName("BeginDate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
Report.ParameterByName("EndDate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")

    以上就是我对报表交互的全部了，具体打印什么的功能还没有深入探究。