【机房】-报表创建与VB附加

前言：

报表创建其实就是用报表程序创建报表模板，然后再附加在VB中，最终达到在VB上使用运行的目的。

一、报表安装

1.百度搜索并下载报表程序。

2.安装之后，菜单栏插入报表头、报表尾、明细网格、页眉和页脚（机房报表可忽略）

二、报表连接数据库与完善

1.明细网格-数据库连接串与查询SQL

2.创建数据库连接串

配置连接

确定之后连接串自动显示，输出查询SQL

3.顺序点击“根据数据设置自动生成字段”和“根据字段自动生成列”

修改名称

4.插入参数，并修改名称、格式、类型

5.插入静态框和综合文字框（存放参数）显示文字

报表至此设计完成。

三、报表在VB上的使用

1.首先在部件中添加这两个

2.选择GRDispiayViewer控件并添加至窗体中

四、日结账单的代码

1.定义并实例化报表

Option Explicit   '定义报表对象

DimReport As grproLibCtl.GridppReport

2.打印及打印预览

Private Sub Command2_Click() '打印

    Report.[Print] (True)

EndSub

 

Private Sub Command3_Click() '打印预览

    Report.PrintPreview (True)

EndSub

3.报表显示

PrivateSub Form_Load()

    Me.Width = 13305

    Me.Height = 8550

    Dim txtSQL As String

    Dim MsgText As String

 

    txtSQL = "select * from CheckDay_Infowhere date='" & Format(Date, "yyyy-mm-dd") &"'"

   Set Report = New grproLibCtl.GridppReport                              '实例化模板

   Report.LoadFromFile (App.Path & "\日结账单.grf")                '加载模板

   Report.DetailGrid.Recordset.ConnectionString = Connectstring()       '连接数据源

   Report.DetailGrid.Recordset.QuerySQL = txtSQL                       '通过select查询创建记录集

   Report.ParameterByName("guanliyuan").AsString = UserName

   Report.ParameterByName("guanliyuan").Value = UserName '显示管理员

   GRDisplayViewer1.Report = Report                                              '将数据赋给GRD的Report

   GRDisplayViewer1.Start                                                                  '显示报表

   

EndSub