报表的发布

于 2006-09-08 11:15:00 发布
阅读量1.9k 收藏 1
点赞数
文章标签： 报表 system microsoft components c vb.net
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/yyf9989/article/details/1194090
版权
本文探讨了报表工具如DevExpress的XtraReport和微软的Reporting Service的发布方式，包括基于源代码和报表模板文件的发布。作者指出动态报表和代码生成的重要性，以及在报表工具中结合两种发布方式的挑战和解决方案。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

    各种不同的报表工具，其发布方式是不一样的。现在说说一些报表工具的发布方式.笔者对报表了解不多,可能有些认识上的错误,望大家指明.


    DevExpress公司出品的报表工具 XtraReport ,它的报表设计器就是集成在VS.NET集成开发环境中,在我看来,它的报表设计器就是一种比较特殊的窗体设计器.把报表样式当作窗体表单来设计,于是它也就没有什么报表模板的概念,它的设计信息就保存在VB.NET或C#代码中。这种方法也就避免了写复杂的互换式报表设计器界面，VS.NET已经提供了这种设计器界面的支持，XtraReport也能保存报表到独立的模板文件中，只是加载报表模板对象后将对象以SOAP格式序列化到一个XML文件中。


   
这种发布方式是生成的详细的源代码的，程序员可以动手修改这些源代码来实现更灵活的功能，因此方便编程，报表代码可以编译到程序中，报表加载和运行速度快，而且减少了应用系统的文件个数，方便部署。但是修改报表需要重新编译，维护不方便，而且可移植性不好。当新旧版本的XtraReport编程接口变化比较大时，则报表难于移植。


    一个最简单的XtraReport报表代码文件可能为，它就是XtraReport格式的报表模板文件




using System;

using System.ComponentModel;

using System.Collections;

using System.Diagnostics;

using DevExpress.XtraReports.UI;



namespace WindowsApplication2

{

    /// <summary>

    /// Summary description for XtraReport1.

    /// </summary>

    public class XtraReport1: DevExpress.XtraReports.UI.XtraReport

    {

        private DevExpress.XtraReports.UI.DetailBand Detail;

        private DevExpress.XtraReports.UI.PageHeaderBand PageHeader;

        private DevExpress.XtraReports.UI.PageFooterBand PageFooter;

        private DevExpress.XtraReports.UI.XRLabel xrLabel1;

        /// <summary>

        /// Required designer variable.

        /// </summary>

        private System.ComponentModel.Container components = null;



        public XtraReport1()

        {

            /// <summary>

            /// Required for Windows.Forms Class Composition Designer support

            /// </summary>

            InitializeComponent();



            //

            // TODO: Add any constructor code after InitializeComponent call

            //

        }



        /// <summary>

        /// Clean up any resources being used.

        /// </summary>

        protected override void Dispose(bool disposing)

        {

            if (disposing)

            {

                if (components != null)

                {

                    components.Dispose();

                }

            }

            base.Dispose(disposing);

        }



        #region Component Designer generated code

        /// <summary>

        /// Required method for Designer support - do not modify

        /// the contents of this method with the code editor.

        /// </summary>

        private void InitializeComponent()

        {

            this.Detail = new DevExpress.XtraReports.UI.DetailBand();

            this.PageHeader = new DevExpress.XtraReports.UI.PageHeaderBand();

            this.PageFooter = new DevExpress.XtraReports.UI.PageFooterBand();

            this.xrLabel1 = new DevExpress.XtraReports.UI.XRLabel();

            ((System.ComponentModel.ISupportInitialize)(this)).BeginInit();

            //

            // Detail

            //

            this.Detail.Controls.AddRange(new DevExpress.XtraReports.UI.XRControl[]

            {

                this.xrLabel1

            }

            );

            this.Detail.Height = 120;

            this.Detail.Name = "Detail";

            //

            // PageHeader

            //

            this.PageHeader.Height = 30;

            this.PageHeader.Name = "PageHeader";

            //

            // PageFooter

            //

            this.PageFooter.Height = 30;

            this.PageFooter.Name = "PageFooter";

            //

            // xrLabel1

            //

            this.xrLabel1.Location = new System.Drawing.Point(108, 17);

            this.xrLabel1.Name = "xrLabel1";

            this.xrLabel1.Size = new System.Drawing.Size(238, 24);

            this.xrLabel1.Text = "报表中显示的文本";

            //

            // XtraReport1

            //

            this.Bands.AddRange(new DevExpress.XtraReports.UI.Band[]

            {

                this.Detail, this.PageHeader, this.PageFooter

            }

            );

            ((System.ComponentModel.ISupportInitialize)(this)).EndInit();



        }

        #endregion

    }

}

     
当然，更多的报表工具是以报表模板文件的形式进行发布。报表设计器生成各种格式生成报表模板文件，有二进制的，有文本的，还有XML格式的。将这些报表模板文件放在合适的地方，而应用程序从指定位置加载报表模板，使用相对应的报表引擎解析报表模板，访问数据源然后输出报表。



   这里拿旧版本的FastReport说说，FastReport是Delphi编写的，只有报表设计器和报表预览控件，没有独立的报表引擎，报表模板文件是二进制格式。在非Win32的B/S应用中，首先使用报表设计器生成一个个报表模板文件，上传到服务器某个目录中，然后HTML页面中嵌入一个报表预览控件，由于是C/S环境，报表预览控件不能连接数据库，因此服务器端编程序要读取数据，根据这些数据拼凑成javascript和vbscript脚本字符串发往客户端。在客户端的浏览器中，这些服务器程序生成的脚本语言调用报表预览控件的接口，让它下载报表模板文件，并填充数据到报表预览控件中，如此完成报表输出。整个发布过程比较艰难，因此做几张报表还是可以完成的，若要做大量报表，这种发布方式是不明智的。



   微软的Reporting Service
算是比较新的重量级的报表工具了，专门做Web报表，不知道它能否方便的用在C/S系统中。它的报表引擎运行在服务器端。它的报表设计器是基于VS.NET集成开发环境，报表模板文件是XML格式。在实际应用中，首先开发者使用VS.NET编制报表模板，然后发布到报表服务器上，然后客户在浏览器中输入报表页面URL就可查看报表了。这种发布方式比较适合WEB应用，部署方便。



  
上面的说明，可以知道，通常有两种发布方式，基于源代码的发布方式和基于报表模板文件的发布方式。这两者的差别主要有



比较项目报表模板文件发布方式源代码发布方式
模板设计器自己开发互换式设计器，设计器可以独立运行，也可嵌入到VS.NET开发环境。由VS.NET开发环境提供支持，无需编写设计器。
自动生成源代码无VS.NET开发环境自动生成。
保存方式报表模板文件。源代码文件。
发布方式报表模板文件。可执行代码，包含在EXE或DLL中。
可移植性高低
灵活性低高，可以深入编程，因此可适应各种情况。
加载和运行速度低，需要报表引擎加载和解析报表模板文件，动态的生成报表文档对象。快，可执行代码加载后就可直接使用。
动态报表可以支持，也可以不支持。必须支持。

  
笔者正在开发的报表工具尝试着同时支持这两种报表发布模式，报表工具既可使用报表模板进行发布，又可生成源代码。其实写个报表工具，支持第一种方式或支持第二种方式都是可以想象的，但要这两者结合起来则一时还不可想象，因为这两者相差太大了。



  
笔者开发的报表工具的发布是基于报表模板文件的，因此需要进行升级。



   
第一步就是支持动态报表。在笔者看来，所谓动态报表就是报表引擎提供非常丰富的编程接口。应用程序可以使用这些接口，使用一个空白报表模板来动态的构造出一个实用的报表模板，其中无需报表模板编制工具。还好，我的报表工具是基于XDesignerLib的，而XDesignerLib就是一个中间件，就是为了让其他程序扩展的，因此编程接口非常丰富，我对报表引擎小修小改，也就完成了对动态报表的支持了。



   
第二步就是考虑如何生成源代码。此时报表设计器就客串为代码生成器，笔者的一些设计器由代码生成功能，比如笔者编写的数据库设计器XDBDesigner能根据数据结构自动生成各种代码，那里使用了XML+XSLT来生成代码。但根据报表模板来生成代码情况复杂，XSLT技术不够用，因此不采用XSLT方式。此外还能采用拼凑字符串的方式来生成代码，但生成的代码种类单一。因此采用CodeDom的方式来生成代码，其过程是遍历所有的报表元素，为每一个报表元素生成一小段CodeDom结构，然后将这些结构组合在一起就可以生成一个完整的代码树，然后使用
Microsoft.CSharp.CSharpCodeProvider 或 Microsoft.VisualBasic.VBCodeProvider
来生成C#代码或VB.NET代码，如果找到其他种类的编程语言的CodeProvider则还可以生成其他种类的编程代码。



   比如一个报表设计样式为



则报表设计器生成的C#和VB.NET代码为




namespace MyNamespace {

    using System;

    using System.Data;

    using System.Xml;

    using XDesignerDom;

    using XDesignerProperty;

    using XDesignerGUI;

    using XDesignerCommon;

    using XDesigner.Report;





    /// <summary>新增文档</summary>

    public class MyClass : DesignReportDocument {



        /// <summary>Initalize document.</summary>

        public MyClass() {

            // Begin of initalize document

            this.Loading = true;

            this.Desc = "新增文档";

            this.Title = "新增文档";

            this.HeadHeight = 72;

            this.Bounds = new System.Drawing.Rectangle(0, 0, 601, 300);

            this.PageLeftMargin = 96;

            this.PageTopMargin = 96;

            this.PageRightMargin = 96;

            this.PageBottomMargin = 96;

            // element reporttable1

            DesignReportTable reporttable1 = this.CreateTableElement();

            this.AppendChild(reporttable1);

            reporttable1.ID = "reporttable1";

            reporttable1.Bounds = new System.Drawing.Rectangle(0, 0, 599, 126);

            reporttable1.PrintDockStyle = XDesigner.Report.PrintDockStyle.Top;

            reporttable1.InnerDataSource = "地区列表";

            // element Col0

            DesignReportTableColumn Col0 = this.CreateTableColumnElement();

            reporttable1.AppendChild(Col0);

            Col0.ID = "Col0";

            Col0.Width = 119;

            // element Col1

            DesignReportTableColumn Col1 = this.CreateTableColumnElement();

            reporttable1.AppendChild(Col1);

            Col1.ID = "Col1";

            Col1.Width = 164;

            // element Col2

            DesignReportTableColumn Col2 = this.CreateTableColumnElement();

            reporttable1.AppendChild(Col2);

            Col2.ID = "Col2";

            Col2.Width = 75;

            // element Col3

            DesignReportTableColumn Col3 = this.CreateTableColumnElement();

            reporttable1.AppendChild(Col3);

            Col3.ID = "Col3";

            Col3.Width = 122;

            // element Col4

            DesignReportTableColumn Col4 = this.CreateTableColumnElement();

            reporttable1.AppendChild(Col4);

            Col4.ID = "Col4";

            Col4.Width = 119;

            // element Row0

            DesignReportTableRow Row0 = this.CreateTableRowElement();

            reporttable1.AppendChild(Row0);

            Row0.ID = "Row0";

            Row0.Height = 41;

            Row0.TableHead = true;

            // element A1

            DesignReportTableCell A1 = this.CreateTableCellElement();

            Row0.AppendChild(A1);

            A1.ID = "A1";

            A1.Bounds = new System.Drawing.Rectangle(0, 0, 599, 41);

            A1.Font = new System.Drawing.Font("宋体", 10.5F, System.Drawing.FontStyle.Bold);

            A1.ColSpan = 5;

            A1.Text = "分组客户列表";

            A1.Align = System.Drawing.StringAlignment.Center;

            // element B1

            DesignReportTableCell B1 = this.CreateTableCellElement();

            Row0.AppendChild(B1);

            B1.ID = "B1";

            B1.Bounds = new System.Drawing.Rectangle(119, 0, 164, 30);

            B1.BorderWidth = 1;

            B1.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            B1.Align = System.Drawing.StringAlignment.Center;

            // element C1

            DesignReportTableCell C1 = this.CreateTableCellElement();

            Row0.AppendChild(C1);

            C1.ID = "C1";

            C1.Bounds = new System.Drawing.Rectangle(283, 0, 75, 30);

            C1.BorderWidth = 1;

            C1.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            C1.Align = System.Drawing.StringAlignment.Center;

            // element D1

            DesignReportTableCell D1 = this.CreateTableCellElement();

            Row0.AppendChild(D1);

            D1.ID = "D1";

            D1.Bounds = new System.Drawing.Rectangle(358, 0, 122, 30);

            D1.BorderWidth = 1;

            D1.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            D1.Align = System.Drawing.StringAlignment.Center;

            // element E1

            DesignReportTableCell E1 = this.CreateTableCellElement();

            Row0.AppendChild(E1);

            E1.ID = "E1";

            E1.Bounds = new System.Drawing.Rectangle(480, 0, 119, 30);

            E1.BorderWidth = 1;

            E1.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            E1.Align = System.Drawing.StringAlignment.Center;

            // element Row00

            DesignReportTableRow Row00 = this.CreateTableRowElement();

            reporttable1.AppendChild(Row00);

            Row00.ID = "Row0";

            Row00.Height = 31;

            Row00.TableHead = true;

            // element A10

            DesignReportTableCell A10 = this.CreateTableCellElement();

            Row00.AppendChild(A10);

            A10.ID = "A1";

            A10.Bounds = new System.Drawing.Rectangle(0, 41, 119, 31);

            A10.BorderWidth = 1;

            A10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255);

            A10.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            A10.Text = "联系人";

            // element B10

            DesignReportTableCell B10 = this.CreateTableCellElement();

            Row00.AppendChild(B10);

            B10.ID = "B1";

            B10.Bounds = new System.Drawing.Rectangle(119, 41, 164, 31);

            B10.BorderWidth = 1;

            B10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255);

            B10.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            B10.Text = "公司名称";

            // element C10

            DesignReportTableCell C10 = this.CreateTableCellElement();

            Row00.AppendChild(C10);

            C10.ID = "C1";

            C10.Bounds = new System.Drawing.Rectangle(283, 41, 75, 31);

            C10.BorderWidth = 1;

            C10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255);

            C10.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            C10.Text = "城市";

            // element D10

            DesignReportTableCell D10 = this.CreateTableCellElement();

            Row00.AppendChild(D10);

            D10.ID = "D1";

            D10.Bounds = new System.Drawing.Rectangle(358, 41, 122, 31);

            D10.BorderWidth = 1;

            D10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255);

            D10.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            D10.Text = "联系地址";

            // element E10

            DesignReportTableCell E10 = this.CreateTableCellElement();

            Row00.AppendChild(E10);

            E10.ID = "E1";

            E10.Bounds = new System.Drawing.Rectangle(480, 41, 119, 31);

            E10.BorderWidth = 1;

            E10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255);

            E10.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            E10.Text = "联系电话";

            // element Row1

            DesignReportTableRow Row1 = this.CreateTableRowElement();

            reporttable1.AppendChild(Row1);

            Row1.ID = "Row1";

            Row1.Height = 26;

            // element A2

            DesignReportTableCell A2 = this.CreateTableCellElement();

            Row1.AppendChild(A2);

            A2.ID = "A2";

            A2.Bounds = new System.Drawing.Rectangle(0, 72, 599, 26);

            A2.BorderWidth = 1;

            A2.BackColor = System.Drawing.Color.FromArgb(255, 250, 235, 215);

            A2.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            A2.ColSpan = 5;

            A2.Text = "[地区名称]地区  共[客户个数]个用户";

            // element B2

            DesignReportTableCell B2 = this.CreateTableCellElement();

            Row1.AppendChild(B2);

            B2.ID = "B2";

            B2.Bounds = new System.Drawing.Rectangle(0, 0, 164, 30);

            B2.BorderWidth = 1;

            B2.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            // element C2

            DesignReportTableCell C2 = this.CreateTableCellElement();

            Row1.AppendChild(C2);

            C2.ID = "C2";

            C2.Bounds = new System.Drawing.Rectangle(0, 0, 75, 30);

            C2.BorderWidth = 1;

            C2.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            // element D2

            DesignReportTableCell D2 = this.CreateTableCellElement();

            Row1.AppendChild(D2);

            D2.ID = "D2";

            D2.Bounds = new System.Drawing.Rectangle(0, 0, 119, 30);

            D2.BorderWidth = 1;

            D2.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            // element E2

            DesignReportTableCell E2 = this.CreateTableCellElement();

            Row1.AppendChild(E2);

            E2.ID = "E2";

            E2.Bounds = new System.Drawing.Rectangle(0, 0, 119, 30);

            E2.BorderWidth = 1;

            E2.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            // element Row10

            DesignReportTableRow Row10 = this.CreateTableRowElement();

            reporttable1.AppendChild(Row10);

            Row10.ID = "Row1";

            Row10.DataSource = "客户列表";

            Row10.Height = 28;

            // element A20

            DesignReportTableCell A20 = this.CreateTableCellElement();

            Row10.AppendChild(A20);

            A20.ID = "A2";

            A20.Bounds = new System.Drawing.Rectangle(0, 98, 119, 28);

            A20.BorderWidth = 1;

            A20.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            A20.Text = "[ContactName]";

            // element B20

            DesignReportTableCell B20 = this.CreateTableCellElement();

            Row10.AppendChild(B20);

            B20.ID = "B2";

            B20.Bounds = new System.Drawing.Rectangle(119, 98, 164, 28);

            B20.BorderWidth = 1;

            B20.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            B20.Text = "[CompanyName]";

            // element C20

            DesignReportTableCell C20 = this.CreateTableCellElement();

            Row10.AppendChild(C20);

            C20.ID = "C2";

            C20.Bounds = new System.Drawing.Rectangle(283, 98, 75, 28);

            C20.BorderWidth = 1;

            C20.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            C20.Text = "[City]";

            // element D20

            DesignReportTableCell D20 = this.CreateTableCellElement();

            Row10.AppendChild(D20);

            D20.ID = "D2";

            D20.Bounds = new System.Drawing.Rectangle(358, 98, 122, 28);

            D20.BorderWidth = 1;

            D20.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            D20.Text = "[Address]";

            // element E20

            DesignReportTableCell E20 = this.CreateTableCellElement();

            Row10.AppendChild(E20);

            E20.ID = "E2";

            E20.Bounds = new System.Drawing.Rectangle(480, 98, 119, 28);

            E20.BorderWidth = 1;

            E20.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular);

            E20.Text = "[Phone]";

            // Add datasource define ***************************

            // initalize variable

            // create 地区列表

            ReportDataSourceElement 地区列表 = this.CreateDataSourceElement();

            this.DataSourceDocument.Add(地区列表);

            地区列表.Name = "地区列表";

            地区列表.SQL = " Select distinct/r/n    Customers.Region/r/n From /r/n    Customers/r/n order by region";

            // create 地区列表_地区名称

            ReportDataSourceElement 地区列表_地区名称 = this.CreateDataSourceElement();

            地区列表.Add(地区列表_地区名称);

            地区列表_地区名称.Name = "地区名称";

            地区列表_地区名称.FieldName = "Customers.Region";

            // create 地区列表_客户个数

            ReportDataSourceElement 地区列表_客户个数 = this.CreateDataSourceElement();

            地区列表.Add(地区列表_客户个数);

            地区列表_客户个数.Name = "客户个数";

            地区列表_客户个数.FieldName = "Customers.Region";

            地区列表_客户个数.SQL = "select count(*) from Customers Where Region = /'[%value%]/'";

            // create 地区列表_客户列表

            ReportDataSourceElement 地区列表_客户列表 = this.CreateDataSourceElement();

            地区列表.Add(地区列表_客户列表);

            地区列表_客户列表.Name = "客户列表";

            地区列表_客户列表.FieldName = "Customers.Region";

            地区列表_客户列表.SQL = " Select /r/n    Customers.ContactName , /r/n    Customers.CompanyName , /r/n    Custome" +

"rs.ContactTitle , /r/n    Customers.Address , /r/n    Customers.City , /r/n    Custome" +

"rs.Phone/r/n From /r/n    Customers/r/n    where region =/'[%value%]/'";

            // create 地区列表_客户列表_ContactName

            ReportDataSourceElement 地区列表_客户列表_ContactName = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_ContactName);

            地区列表_客户列表_ContactName.Name = "ContactName";

            地区列表_客户列表_ContactName.FieldName = "Customers.ContactName";

            // create 地区列表_客户列表_CompanyName

            ReportDataSourceElement 地区列表_客户列表_CompanyName = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_CompanyName);

            地区列表_客户列表_CompanyName.Name = "CompanyName";

            地区列表_客户列表_CompanyName.FieldName = "Customers.CompanyName";

            // create 地区列表_客户列表_ContactTitle

            ReportDataSourceElement 地区列表_客户列表_ContactTitle = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_ContactTitle);

            地区列表_客户列表_ContactTitle.Name = "ContactTitle";

            地区列表_客户列表_ContactTitle.FieldName = "Customers.ContactTitle";

            // create 地区列表_客户列表_Address

            ReportDataSourceElement 地区列表_客户列表_Address = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_Address);

            地区列表_客户列表_Address.Name = "Address";

            地区列表_客户列表_Address.FieldName = "Customers.Address";

            // create 地区列表_客户列表_City

            ReportDataSourceElement 地区列表_客户列表_City = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_City);

            地区列表_客户列表_City.Name = "City";

            地区列表_客户列表_City.FieldName = "Customers.City";

            // create 地区列表_客户列表_Phone

            ReportDataSourceElement 地区列表_客户列表_Phone = this.CreateDataSourceElement();

            地区列表_客户列表.Add(地区列表_客户列表_Phone);

            地区列表_客户列表_Phone.Name = "Phone";

            地区列表_客户列表_Phone.FieldName = "Customers.Phone";

            this.Loading = false;

            // End of initalize document

        }

    }

}

Option Strict Off

Option Explicit On



Imports System

Imports System.Data

Imports System.Xml

Imports XDesigner.Report

Imports XDesignerCommon

Imports XDesignerDom

Imports XDesignerGUI

Imports XDesignerProperty



Namespace MyNamespace



'<summary>新增文档</summary>



Public Class [MyClass]

    Inherits DesignReportDocument



    '<summary>Initalize document.</summary>



    Public Sub New()

        MyBase.New

        'Begin of initalize document

        Me.Loading = true

        Me.Desc = "新增文档"

        Me.Title = "新增文档"

        Me.HeadHeight = 72

        Me.Bounds = New System.Drawing.Rectangle(0, 0, 601, 300)

        Me.PageLeftMargin = 96

        Me.PageTopMargin = 96

        Me.PageRightMargin = 96

        Me.PageBottomMargin = 96

        'element reporttable1

        Dim reporttable1 As DesignReportTable = Me.CreateTableElement

        Me.AppendChild(reporttable1)

        reporttable1.ID = "reporttable1"

        reporttable1.Bounds = New System.Drawing.Rectangle(0, 0, 599, 126)

        reporttable1.PrintDockStyle = XDesigner.Report.PrintDockStyle.Top

        reporttable1.InnerDataSource = "地区列表"

        'element Col0

        Dim Col0 As DesignReportTableColumn = Me.CreateTableColumnElement

        reporttable1.AppendChild(Col0)

        Col0.ID = "Col0"

        Col0.Width = 119

        'element Col1

        Dim Col1 As DesignReportTableColumn = Me.CreateTableColumnElement

        reporttable1.AppendChild(Col1)

        Col1.ID = "Col1"

        Col1.Width = 164

        'element Col2

        Dim Col2 As DesignReportTableColumn = Me.CreateTableColumnElement

        reporttable1.AppendChild(Col2)

        Col2.ID = "Col2"

        Col2.Width = 75

        'element Col3

        Dim Col3 As DesignReportTableColumn = Me.CreateTableColumnElement

        reporttable1.AppendChild(Col3)

        Col3.ID = "Col3"

        Col3.Width = 122

        'element Col4

        Dim Col4 As DesignReportTableColumn = Me.CreateTableColumnElement

        reporttable1.AppendChild(Col4)

        Col4.ID = "Col4"

        Col4.Width = 119

        'element Row0

        Dim Row0 As DesignReportTableRow = Me.CreateTableRowElement

        reporttable1.AppendChild(Row0)

        Row0.ID = "Row0"

        Row0.Height = 41

        Row0.TableHead = true

        'element A1

        Dim A1 As DesignReportTableCell = Me.CreateTableCellElement

        Row0.AppendChild(A1)

        A1.ID = "A1"

        A1.Bounds = New System.Drawing.Rectangle(0, 0, 599, 41)

        A1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold)

        A1.ColSpan = 5

        A1.Text = "分组客户列表"

        A1.Align = System.Drawing.StringAlignment.Center

        'element B1

        Dim B1 As DesignReportTableCell = Me.CreateTableCellElement

        Row0.AppendChild(B1)

        B1.ID = "B1"

        B1.Bounds = New System.Drawing.Rectangle(119, 0, 164, 30)

        B1.BorderWidth = 1

        B1.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        B1.Align = System.Drawing.StringAlignment.Center

        'element C1

        Dim C1 As DesignReportTableCell = Me.CreateTableCellElement

        Row0.AppendChild(C1)

        C1.ID = "C1"

        C1.Bounds = New System.Drawing.Rectangle(283, 0, 75, 30)

        C1.BorderWidth = 1

        C1.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        C1.Align = System.Drawing.StringAlignment.Center

        'element D1

        Dim D1 As DesignReportTableCell = Me.CreateTableCellElement

        Row0.AppendChild(D1)

        D1.ID = "D1"

        D1.Bounds = New System.Drawing.Rectangle(358, 0, 122, 30)

        D1.BorderWidth = 1

        D1.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        D1.Align = System.Drawing.StringAlignment.Center

        'element E1

        Dim E1 As DesignReportTableCell = Me.CreateTableCellElement

        Row0.AppendChild(E1)

        E1.ID = "E1"

        E1.Bounds = New System.Drawing.Rectangle(480, 0, 119, 30)

        E1.BorderWidth = 1

        E1.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        E1.Align = System.Drawing.StringAlignment.Center

        'element Row00

        Dim Row00 As DesignReportTableRow = Me.CreateTableRowElement

        reporttable1.AppendChild(Row00)

        Row00.ID = "Row0"

        Row00.Height = 31

        Row00.TableHead = true

        'element A10

        Dim A10 As DesignReportTableCell = Me.CreateTableCellElement

        Row00.AppendChild(A10)

        A10.ID = "A1"

        A10.Bounds = New System.Drawing.Rectangle(0, 41, 119, 31)

        A10.BorderWidth = 1

        A10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255)

        A10.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        A10.Text = "联系人"

        'element B10

        Dim B10 As DesignReportTableCell = Me.CreateTableCellElement

        Row00.AppendChild(B10)

        B10.ID = "B1"

        B10.Bounds = New System.Drawing.Rectangle(119, 41, 164, 31)

        B10.BorderWidth = 1

        B10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255)

        B10.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        B10.Text = "公司名称"

        'element C10

        Dim C10 As DesignReportTableCell = Me.CreateTableCellElement

        Row00.AppendChild(C10)

        C10.ID = "C1"

        C10.Bounds = New System.Drawing.Rectangle(283, 41, 75, 31)

        C10.BorderWidth = 1

        C10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255)

        C10.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        C10.Text = "城市"

        'element D10

        Dim D10 As DesignReportTableCell = Me.CreateTableCellElement

        Row00.AppendChild(D10)

        D10.ID = "D1"

        D10.Bounds = New System.Drawing.Rectangle(358, 41, 122, 31)

        D10.BorderWidth = 1

        D10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255)

        D10.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        D10.Text = "联系地址"

        'element E10

        Dim E10 As DesignReportTableCell = Me.CreateTableCellElement

        Row00.AppendChild(E10)

        E10.ID = "E1"

        E10.Bounds = New System.Drawing.Rectangle(480, 41, 119, 31)

        E10.BorderWidth = 1

        E10.BackColor = System.Drawing.Color.FromArgb(255, 166, 210, 255)

        E10.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        E10.Text = "联系电话"

        'element Row1

        Dim Row1 As DesignReportTableRow = Me.CreateTableRowElement

        reporttable1.AppendChild(Row1)

        Row1.ID = "Row1"

        Row1.Height = 26

        'element A2

        Dim A2 As DesignReportTableCell = Me.CreateTableCellElement

        Row1.AppendChild(A2)

        A2.ID = "A2"

        A2.Bounds = New System.Drawing.Rectangle(0, 72, 599, 26)

        A2.BorderWidth = 1

        A2.BackColor = System.Drawing.Color.FromArgb(255, 250, 235, 215)

        A2.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        A2.ColSpan = 5

        A2.Text = "[地区名称]地区  共[客户个数]个用户"

        'element B2

        Dim B2 As DesignReportTableCell = Me.CreateTableCellElement

        Row1.AppendChild(B2)

        B2.ID = "B2"

        B2.Bounds = New System.Drawing.Rectangle(0, 0, 164, 30)

        B2.BorderWidth = 1

        B2.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        'element C2

        Dim C2 As DesignReportTableCell = Me.CreateTableCellElement

        Row1.AppendChild(C2)

        C2.ID = "C2"

        C2.Bounds = New System.Drawing.Rectangle(0, 0, 75, 30)

        C2.BorderWidth = 1

        C2.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        'element D2

        Dim D2 As DesignReportTableCell = Me.CreateTableCellElement

        Row1.AppendChild(D2)

        D2.ID = "D2"

        D2.Bounds = New System.Drawing.Rectangle(0, 0, 119, 30)

        D2.BorderWidth = 1

        D2.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        'element E2

        Dim E2 As DesignReportTableCell = Me.CreateTableCellElement

        Row1.AppendChild(E2)

        E2.ID = "E2"

        E2.Bounds = New System.Drawing.Rectangle(0, 0, 119, 30)

        E2.BorderWidth = 1

        E2.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        'element Row10

        Dim Row10 As DesignReportTableRow = Me.CreateTableRowElement

        reporttable1.AppendChild(Row10)

        Row10.ID = "Row1"

        Row10.DataSource = "客户列表"

        Row10.Height = 28

        'element A20

        Dim A20 As DesignReportTableCell = Me.CreateTableCellElement

        Row10.AppendChild(A20)

        A20.ID = "A2"

        A20.Bounds = New System.Drawing.Rectangle(0, 98, 119, 28)

        A20.BorderWidth = 1

        A20.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        A20.Text = "[ContactName]"

        'element B20

        Dim B20 As DesignReportTableCell = Me.CreateTableCellElement

        Row10.AppendChild(B20)

        B20.ID = "B2"

        B20.Bounds = New System.Drawing.Rectangle(119, 98, 164, 28)

        B20.BorderWidth = 1

        B20.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        B20.Text = "[CompanyName]"

        'element C20

        Dim C20 As DesignReportTableCell = Me.CreateTableCellElement

        Row10.AppendChild(C20)

        C20.ID = "C2"

        C20.Bounds = New System.Drawing.Rectangle(283, 98, 75, 28)

        C20.BorderWidth = 1

        C20.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        C20.Text = "[City]"

        'element D20

        Dim D20 As DesignReportTableCell = Me.CreateTableCellElement

        Row10.AppendChild(D20)

        D20.ID = "D2"

        D20.Bounds = New System.Drawing.Rectangle(358, 98, 122, 28)

        D20.BorderWidth = 1

        D20.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        D20.Text = "[Address]"

        'element E20

        Dim E20 As DesignReportTableCell = Me.CreateTableCellElement

        Row10.AppendChild(E20)

        E20.ID = "E2"

        E20.Bounds = New System.Drawing.Rectangle(480, 98, 119, 28)

        E20.BorderWidth = 1

        E20.Font = New System.Drawing.Font("宋体", 9!, System.Drawing.FontStyle.Regular)

        E20.Text = "[Phone]"

        'Add datasource define ***************************

        'initalize variable

        'create 地区列表

        Dim 地区列表 As ReportDataSourceElement = Me.CreateDataSourceElement

        Me.DataSourceDocument.Add(地区列表)

        地区列表.Name = "地区列表"

        地区列表.SQL = " Select distinct"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

              &"    Customers.Region"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

              &" From "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"    Customers" _

              &Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&" order by region"

        'create 地区列表_地区名称

        Dim 地区列表_地区名称 As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表.Add(地区列表_地区名称)

        地区列表_地区名称.Name = "地区名称"

        地区列表_地区名称.FieldName = "Customers.Region"

        'create 地区列表_客户个数

        Dim 地区列表_客户个数 As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表.Add(地区列表_客户个数)

        地区列表_客户个数.Name = "客户个数"

        地区列表_客户个数.FieldName = "Customers.Region"

        地区列表_客户个数.SQL = "select count(*) from Customers Where Region = '[%value%]'"

        'create 地区列表_客户列表

        Dim 地区列表_客户列表 As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表.Add(地区列表_客户列表)

        地区列表_客户列表.Name = "客户列表"

        地区列表_客户列表.FieldName = "Customers.Region"

        地区列表_客户列表.SQL = " Select "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.ContactName , "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.CompanyName , "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.ContactTitle , "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.Address , "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.City , "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &"    Customers.Phone"&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10) _

          &" From "&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"    Customers" _

          &Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&"    where region ='[%value%]'"

        'create 地区列表_客户列表_ContactName

        Dim 地区列表_客户列表_ContactName As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_ContactName)

        地区列表_客户列表_ContactName.Name = "ContactName"

        地区列表_客户列表_ContactName.FieldName = "Customers.ContactName"

        'create 地区列表_客户列表_CompanyName

        Dim 地区列表_客户列表_CompanyName As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_CompanyName)

        地区列表_客户列表_CompanyName.Name = "CompanyName"

        地区列表_客户列表_CompanyName.FieldName = "Customers.CompanyName"

        'create 地区列表_客户列表_ContactTitle

        Dim 地区列表_客户列表_ContactTitle As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_ContactTitle)

        地区列表_客户列表_ContactTitle.Name = "ContactTitle"

        地区列表_客户列表_ContactTitle.FieldName = "Customers.ContactTitle"

        'create 地区列表_客户列表_Address

        Dim 地区列表_客户列表_Address As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_Address)

        地区列表_客户列表_Address.Name = "Address"

        地区列表_客户列表_Address.FieldName = "Customers.Address"

        'create 地区列表_客户列表_City

        Dim 地区列表_客户列表_City As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_City)

        地区列表_客户列表_City.Name = "City"

        地区列表_客户列表_City.FieldName = "Customers.City"

        'create 地区列表_客户列表_Phone

        Dim 地区列表_客户列表_Phone As ReportDataSourceElement = Me.CreateDataSourceElement

        地区列表_客户列表.Add(地区列表_客户列表_Phone)

        地区列表_客户列表_Phone.Name = "Phone"

        地区列表_客户列表_Phone.FieldName = "Customers.Phone"

        Me.Loading = false

        'End of initalize document

    End Sub



End Class



End Namespace

   
一般的，代码生成完毕后就可以进行编译，将报表模板编译到DLL文件中，而这个DLL文件就是标准的.NET程序集文件，可以用于任何.NET程序中。将报表模板编译成DLL可以加快报表的加载和运行速度。



   
程序员可以把这些自动生成的代码提取出来放置到应用系统中，并根据需要进行修改，此时报表设计器就是辅助程序员开发动态报表了，人们可以不必从零开始来开发动态报表，减少编程量，加快报表开发速度。笔者的报表工具追求尽量减少报表编程量，报表设计器能自动生成代码就是这种追求的体现。



   
当报表设计器同时实现基于报表模板文件和基于源代码的发布方式时，也就同时具备了这两种发布方式的特性，这也大大方便的报表的开发。

yyf9989
关注
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值