ActiveReports工作总结12——用Designer控件实现用户自定义报表印刷

前面我们所讲的报表，不管简单的还是复杂的，都遵循这样一个流程：

开发人员事先做好模版——〉用户运行程序——〉用户选择相应条件——〉打印或预览帐票——〉程序把用户选择的数据填充到我们的模版上，然后显示

可以说，用户除了选择条件，控制显示的数据之外，能做的控制很少（除非把一些简单的控制放在条件里面）。

本节我就讲讲如何用AR的Designer控件，实现用户自定义帐票印刷。

 

比如，要打印如下数据：

Class:	A
AttendNo:	1
Name:	Tony
Sex:	Male

当然我们可以先做好相应的模版，然后让用户选择数据就可以打印出来了。

但是，万一用户又需要一张类似的帐票，但需要把Name写在Class前面，那我们怎么办？

1）重新做一个。真是个好办法，下面的文章可以不用看了。

2）在用户的条件中加一个条件（比如一个radio button，先显示Class还是先显示Name）,然后我们在模版里面判断一下这个条件，根据它来对模版进行相应的调整。

    这种方法其实在我们项目也是常常用到的（比如判断显示subject的全称还是简称，就是在条件中放个Check box的条件，模版做相应判断）。

但在本例中却不适用，万一用户又要求把Class和AttendNo放一行上怎么办？用户的需求可是千变万化的。

3）用AR提供的Designer控件，可以实现用户自定义模版。

对于本例来说，用户可以自己把Class,name这些控件，拖到模版上，自己设定大小位置，然后打印。

 

ok，下面我们就来创建一个最简单的自定义帐票：

1，数据源如下：

Class	AttendNo	Name	Sex
Ａ	1	Tony	ｍａｌｅ
Ａ	2	Ｍａｒｙ	ｆｅｍａｌｅ
Ａ	3	Ｔｏｍ	ｍａｌｅ
Ａ	4	Ｊａｃｋ	ｍａｌｅ
Ａ	5	Ｓｍｉｔｈ	ｍａｌｅ
Ｂ	1	Ｊｏｈｎ	ｍａｌｅ
Ｂ	2	Ｌｉ	ｆｅｍａｌｅ
Ｂ	3	Ｚｈａｎｇ	ｆｅｍａｌｅ
Ｂ	4	Ｗａｎｇ	ｍａｌｅ
Ｃ	1	Ｇｏｎｇ	ｍａｌｅ
Ｃ	2	Ｔｉａｎ	ｆｅｍａｌｅ

2，需要打印出来的帐票也超级简单，就是根据Class来换页的一张普通二维表：

page1:

Class	AttendNo	Name	Sex
Ａ	1	Tony	ｍａｌｅ
Ａ	2	Ｍａｒｙ	ｆｅｍａｌｅ
Ａ	3	Ｔｏｍ	ｍａｌｅ
Ａ	4	Ｊａｃｋ	ｍａｌｅ
Ａ	5	Ｓｍｉｔｈ	ｍａｌｅ

 

3，创建如下文件：

<!--[if !vml]-->
<!--[endif]-->

    frmShowAR和前面几个例子一样，用来放view控件显示报表

    test.mdb是数据源

    ReportDesigner里面放Designer控件，让用户进行自定义操作

 

4，让我们来看ReportDesigner:

<!--[if !vml]-->
<!--[endif]-->

1）左侧放了个Designer控件：

<!--[if !vml]-->
<!--[endif]-->

2）右上放一些button控件,包括添加空白label，添加item，预览帐票的按钮。

 

3）右下放一个PropertyGrid控件，可以用来显示和修改Designer中所有控件的public property.

<!--[if !vml]-->
<!--[endif]-->

5，添加好几个控件之后，你可以先运行程序看看

<!--[if !vml]-->
<!--[endif]-->

    哈哈，不错吧，在程序运行当中，你可以直接在模版上添加section了，和我们设计模版时完全一样，这下可以让用户自己来设计帐票了。

 

6，不过先在还不能在模版上增加控件。先在我们编写代码，使得可以在模版上创建控件，并且用PropertyGrid控件来修改这些控件的属性。最后通过Preview按钮预览帐票。

1）在模版上增加一个控件的方法：

先选中特定section (比如Detail,GroupFooter)

然后就可以用代码：

 

2）预览的实现，把当前Designer的模版传给frmShowAR，然后在frmShowAR中显示这个模版

    ReportDesigner.vb

Private   Sub  btnPreview_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnPreview.Click

         Dim  _frm  As   New  frmShowAR()

        _frm.Report  =   Me .Designer1.Report

        _frm.ShowDialog( Me )

End Sub

frmShowAR.vb

 

 

完整代码如下：

Public   Class  ReportDesigner

 

#Region  "UI Event"

 

     ' '' <summary>

     ' '' Handles the Click event of the btnAddTextBox control.

     ' '' </summary>

     ' '' <param name="sender">The source of the event.</param>

     ' '' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  btnAddTextBox_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnAddTextBox.Click

         If   Me .listItem.SelectedIndex  =   - 1   Then

             Return

         End   If

 

         Dim  arControl  As   New  DataDynamics.ActiveReports.TextBox

         Select   Case   Me .listItem.SelectedItem.ToString()

             Case   " Class "

                arControl.DataField  =   " Class "

             Case   " AttendNo "

                arControl.DataField  =   " AttendNo "

             Case   " Name "

                arControl.DataField  =   " Name "

             Case   " Sex "

                arControl.DataField  =   " Sex "

         End   Select

         Me .addControlToReport(arControl)

     End Sub

 

 

     ' '' <summary>

     ' '' Handles the Load event of the ReportDesigner control.

     ' '' </summary>

     ' '' <param name="sender">The source of the event.</param>

     ' '' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  ReportDesigner_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load

         Me .PropertyGrid1.SelectedObject  =   Me .Designer1

     End Sub

 

     ' '' <summary>

     ' '' Designer1_s the selection changed.

     ' '' </summary>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  Designer1_SelectionChanged()  Handles  Designer1.SelectionChanged

         Me .PropertyGrid1.SelectedObject  =   Me .Designer1.Selection( 0 )

     End Sub

 

     ' '' <summary>

     ' '' Handles the Click event of the btnAddLabel control.

     ' '' </summary>

     ' '' <param name="sender">The source of the event.</param>

     ' '' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  btnAddLabel_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnAddLabel.Click

         Me .addControlToReport( New  DataDynamics.ActiveReports.Label)

     End Sub

 

     ' '' <summary>

     ' '' Handles the Click event of the btnPreview control.

     ' '' </summary>

     ' '' <param name="sender">The source of the event.</param>

     ' '' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  btnPreview_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnPreview.Click

         Dim  rpt  As   New  DataDynamics.ActiveReports.ActiveReport()

         Dim  _stream  As   New  System.IO.MemoryStream()

         Me .Designer1.Report.SaveLayout(_stream)

        _stream.Position  =   0

        rpt.LoadLayout(_stream)

        _stream.Close()

         Dim  _frm  As   New  frmShowAR()

        _frm.Report  =  rpt

        _frm.ShowDialog( Me )

     End Sub

 

#End Region

 

#Region  "Private Method"

 

     ' '' <summary>

     ' '' Adds the control to report.

     ' '' </summary>

     ' '' <param name="control">The control.</param>

     ' '' <remarks></remarks>

     ' '' <history>

     ' '' [TonyGong]   3/8/2007 2:17 PM    Created

     ' '' </history>

     Private   Sub  addControlToReport( ByVal  control  As  DataDynamics.ActiveReports.ARControl)

         Select   Case   Me .Designer1.Selection( 0 ).GetType.FullName

             Case   GetType (DataDynamics.ActiveReports.Detail).FullName

                 CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.Detail).Controls.Add(control)

             Case   GetType (DataDynamics.ActiveReports.PageHeader).FullName

                 CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.PageHeader).Controls.Add(control)

 

             Case   GetType (DataDynamics.ActiveReports.PageFooter).FullName

                 CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.PageFooter).Controls.Add(control)

 

             Case   GetType (DataDynamics.ActiveReports.GroupHeader).FullName

                 CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.GroupHeader).Controls.Add(control)

 

             Case   GetType (DataDynamics.ActiveReports.GroupFooter).FullName

                 CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.GroupFooter).Controls.Add(control)

 

             Case   Else

                 Return

         End   Select

     End Sub

#End Region

End Class

 

7,在frmShowAR中给模版设置数据源

     Private   Sub  frmShowAR_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load

         ' Show the table1

         Dim  conn  As   String   =   " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False "

         Dim  cmd  As   String   =   " Select * from table1 "

         Dim  adapter  As   New  OleDbDataAdapter(cmd, conn)

         Dim  ds  As   New  DataSet

        adapter.Fill(ds)

 

        _rpt.DataSource  =  ds

        _rpt.DataMember  =  ds.Tables( 0 ).TableName

 

        _rpt.Run()

         Me .Viewer1.Document  =  _rpt.Document

End Sub

 

8,ok!我们的工作结束了，接下去用户可以在程序中自己设计模版了

1）用户运行程序，出来如下界面：

<!--[if !vml]-->
<!--[endif]-->

2）用户自己添加group,添加控件，调整大小，增加控件的框线等等，如下：

<!--[if !vml]-->
<!--[endif]-->

 

3）不要忘记给GroupHeader1设置换页字段

<!--[if !vml]-->
<!--[endif]-->

 

4）ok,按Preview吧，看看我们的成果：

<!--[if !vml]-->
<!--[endif]-->

 

9，呵呵，现在用户想怎么打就怎么打了。

也许可能有人要问了，每次运行程序，用户都要去设置模版，都麻烦啊。

恩，我们可以增加一个save和load模版的功能，让用户自己把设计好的模版保存下来，今后直接load。

这个超级简单，只要增加2个控件，编码如下就可以了

     Private   Sub  btnSave_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnSave.Click

         Me .Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FileSave)

     End Sub

 

     Private   Sub  btnLoad_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  btnLoad.Click

         Me .Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FileOpen)

End Sub

 

 

10，好了，本节就到这。

AR的自定义功能很强大的，运用的好，很多帐票都可以用自定义实现。

当然，文中举的例子比较简单，仅当抛砖引玉。

 

 

    Public   Property  Report()  As  DataDynamics.ActiveReports.ActiveReport

         Get

             Return  _rpt

         End   Get

         Set ( ByVal  Value  As  DataDynamics.ActiveReports.ActiveReport)

            _rpt  =  Value

         End   Set

     End Property

 

     Private   Sub  frmShowAR_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load

        _rpt.Run()

         Me .Viewer1.Document  =  _rpt.Document

     End Sub

 

CType ( Me .Designer1.Selection( 0 ), DataDynamics.ActiveReports.PageHeader).Controls.Add(control)