vb制作报表（曾经站位）

最新推荐文章于 2013-09-28 18:18:43 发布

邢海芳

最新推荐文章于 2013-09-28 18:18:43 发布

阅读量1.1k

点赞数

分类专栏： vb知识积累文章标签：报表 vb report date command c

本文链接：https://blog.csdn.net/xhf55555/article/details/6712173

版权

vb知识积累专栏收录该内容

6 篇文章 0 订阅

订阅专栏

第一步：下载安装grid++report (下载grid++report)

第二步：创建报表模板。（如何制作报表模板）

第三步：添加应用和部件（部件：和引用：）

第四步：用VB将报表连接起来。（报表的位置app.path最方便）

Dim WithEvents Report As grproLibCtl.GridppReport

Private Sub cmdPre_Click()
    Report.PrintPreview (True)
End Sub

Private Sub cmdPrint_Click()
   '因为报表对象的 Print 方法名与 VB 内部定义有冲突，所以要用中括号括起来
    Report.[Print] (True)
End Sub

Private Sub Command1_Click()
        GRDisplayViewer1.Refresh
End Sub

Private Sub Form_Load()
    '创建报表对象
    Set Report = New grproLibCtl.GridppReport
    '载入报表模板文件
    Report.LoadFromFile ("C:\Users\HAIFANG\Desktop\机房收费系统1.0\byDay.grf") '
    strTxtSQL = "select * from allbyday_tableInfo where date='" & Format(Now, "yyyy-mm-dd") & "'"
  '设置数据连接串
    Report.DetailGrid.Recordset.ConnectionString = "FILEDSN=computerChargeSys.dsn;UID=sa;PWD=123456"
    Report.DetailGrid.Recordset.QuerySQL = strTxtSQL
    
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start
    
    
End Sub
 
Private Sub Form_Resize()
    GRDisplayViewer1.Left = 0
    GRDisplayViewer1.Width = Me.Width - 500
End Sub

Private Sub Report_Initialize()

    '设置各个参数的值
                          
    Report.ParameterByName("makedate").AsString = Format$(Date, "yyyy-mm-dd")    '显示开始日期
'    Report.ParameterByName("DateEnd").AsString = Format$(DTPEnd.Value, "yyyy-mm-dd")        '显示结束日期
'
End Sub

在报表GridReport中显示日期时间的改变： http://blog.csdn.net/xiaoxian8023/article/details/6689474