机房收费系统之VB报表

Dim Report As New grproLibCtl.GridppReport    '实例化报表

Private Sub Form_Load()
    Dim strSQL As String
        
    
    '当日没有汇总记录是不显示报表
    strSQL = "select * from checkday_info where date = '" & Format(Date, "yyyy-mm-dd") & "'"
        
    Set Report = New grproLibCtl.GridppReport       '创建报表对象
        
    Report.LoadFromFile (App.Path & "\ChargeCheckDay.grf")  '加载模板
        
    '建立数据连接
    Report.DetailGrid.Recordset.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=charge_sys;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False"
        
    Report.DetailGrid.Recordset.QuerySQL = "select top 1 * from checkday_info order by date desc"    '通过SELECT查询创建记录集
        
    '查看表
    GRDViewer.Report = Report
    GRDViewer.Start
End Sub

Private Sub cmdPrint_Click()
    Report.[Print] (True)     '打印
End Sub

Private Sub cmdPrePrint_Click()
    '因为报表对象的print方法名与VB内部定义有冲突，所以要用中括号括起来
    
    Report.PrintPreview (True)    '打印预览
    
End Sub

Private Sub cmdRefresh_Click()

    Report.DetailGrid.Recordset.QuerySQL = "select top 1 * from checkday_info order by date desc"
    GRDViewer.Refresh        '刷新日结账单
End Sub