关于报表的学习请看上一篇博客:
点击此处: 账单---Grid++Report报表设计器
日账单:
Private Sub Form_Load()
Dim txtsql As String
Dim noda As String
noda = Now
txtsql = "select * from checkday_info where date='" & Format(Date, "yyyy-mm-dd") & "'"
Set report = New grproLibCtl.GridppReport '实例化模板
'加载模板
report.LoadFromFile (App.Path & "\日报表.grf")
'连接数据源
report.DetailGrid.Recordset.ConnectionString = ConnectString()
'通过select查询创建记录集,只查询
report.DetailGrid.Recordset.QuerySQL = txtsql
'显示当前的日期
report.ParameterByName("Parameter12").AsString = noda
'显示编号
report.ParameterByName("Parameter9").AsString = Username
GRDisplayViewer1.report = report '将数据赋给GRD的report
GRDisplayViewer1.Start '在报表中显示
End Sub
日账单刷新:
Private Sub cmdRefur_Click()
'账单刷新
GRDisplayViewer1.Refresh
End Sub
账单打印:
Private Sub cmdReport_Click()
'打印,因为报表对象的print方法名与vb的内部定义有冲突所以要用中括号
report.[Print] (True)
End Sub
账单浏览
Private Sub cmdLook_Click()
report.PrintPreview (True) '打印预览
End Sub