在做机房收费系统时,有两个功能日结账单和周结账单中用到了报表控件,下面介绍一下如何使用报表控件。
首先,需要一个报表控件并安装,安装完成后在VB--工程--引用中选择Grid++Report Engine5.0TypeLibrary添加。

                                   
这两个控件添加进了工具箱。
                                         
下面添加代码就能使用此控件了。
[plain] 
Dim Report As grproLibCtl.GridppReport 
'实例化报表 
        Set Report = New grproLibCtl.GridppReport 
         
        '报表建立的位置 
        Report.LoadFromFile App.Path & "\DaySettle.grf" 
        Report.DetailGrid.Recordset.ConnectionString = ConnectString   '数据源 
         
        strtxtSQL = "select * from DaySettle" 
        Report.DetailGrid.Recordset.QuerySQL = strtxtSQL 
        '报表的参数设置 
        Report.ParameterByName("ShowDate").AsString = Str(Date) 
        Report.ParameterByName("MakeTime").AsString = Now 
        '查看报表 
        GRDisplayViewer1.Report = Report 
        '显示报表 
        GRDisplayViewer1.Start