水晶报表的制作（图表）

在这个例子中，我们设想的应用要为一个销售部门制作一份报表，管理者可以查看某段时间之内的销售情况，以列表或者折线图的形式反映出销售的趋势。我们将使用SQL Server 2000做为数据库，使用VB.NET编写中间层逻辑层，而前端的表示层使用C#。我们先来看下数据库的结构。


其中，tbitem表中存放的是每张订单中所订购的货品，tbsales存放的是每张订单，tblsalesperson是销售员表，存放该出版社的每位销售员。

接下来，使用SQL Server 2000来创建这些表。表的结构如下所示：

复制   保存

CREATE TABLE [dbo].[tblItem] (
[ItemId] [int] NOT NULL ,
[Description] [varchar] (50) NOT NULL
) ON [PRIMARY]
CREATE TABLE [dbo].[tblSalesPerson] (
[SalesPersonId] [int] NOT NULL ,
[UserName] [varchar] (50) NOT NULL ,
[Password] [varchar] (30) NOT NULL
) ON [PRIMARY]
CREATE TABLE [dbo].[tblSales] (
[SaleId] [int] IDENTITY (1, 1) NOT NULL ,
[SalesPersonId] [int] NOT NULL ,
[ItemId] [int] NOT NULL ,
[SaleDate] [datetime] NOT NULL ,
[Amount] [int] NOT NULL
) ON [PRIMARY]

并且用以下的代码创建表之间的约束关系。

复制   保存

ALTER TABLE tblItem
ADD CONSTRAINT PK_ItemId
PRIMARY KEY (ItemId)
GO
ALTER TABLE tblSalesPerson
ADD CONSTRAINT PK_SalesPersonId
PRIMARY KEY (SalesPersonId)
GO
ALTER TABLE tblSales
ADD CONSTRAINT FK_ItemId
FOREIGN KEY (ItemId) REFERENCES tblItem(ItemId)
GO
ALTER TABLE tblSales
ADD CONSTRAINT FK_SalesPersonId
FOREIGN KEY (SalesPersonId) REFERENCES tblSalesPerson(SalesPersonId)
GO

创建中间逻辑层

在中间逻辑层组件中，我们为每一张表都创建两个类。比如，对于tblItems表，创建item 和items类。Item类中记录每件销售的货品的详细情况，而items表则记录所有销售的货品并且有增加货品的方法。这样，就存在下面的六个类：　

• Item and Items
• SalesPerson and SalesPersons
• Sale and Sales

接下来，看一下每个类中的属性：

Item类包括如下属性

• ItemId （货品id编号）
• Description （货品的描述）
• Items

有一个方法，将根据item的编号返回一个item对象

复制   保存

Public Function GetAllItems () As Collections.ArrayList

SalesPerson该类有以下三个属性:

• SalesPersonId （销售员编号）
• Name （姓名）
• Password （密码）

SalesPersons　有一个方法，根据销售员登陆时输入的用户名和密码，在数据库中，验证销售员的登陆是否正确，如果正确，则返回零。

复制   保存

Public Function ValidateUser (strUserName as String, strPassword as String) As Integer

Sale　有如下5个属性

• SaleId
• SalesPersonId
• ItemId
• SaleDate
• Amount

Sales有两个方法，其中getsales根据输入的参数返回sales对象的集合

复制   保存

Public Function GetSales (Optional nSaleId As Integer = 0, Optional nSalesPersonId As Integer = 0, Optional nItemId As Integer = 0) As Collections.ArrayList

还有一个addsales方法，用于增加一张订单

复制   保存

Public Function AddSale (objSale As Sale)

创建表现层页面

接下来，开始创建表现层页面。首先，要创建一个可以给销售员登陆的页面，如下图所示。



在销售员成功登陆后，可以给销售员输入某样货品销售的数量，如下图：



此外，为了给业务主管看到某个时期的销售情况，创建如下页面。



其中，业务主管可以选择查看某样货品在某个时期（选择开始日期，结束日期）的销售情况，以图表方式显示。

这里特别值得一提的是，日历控件的使用。在页面中放置日历控件后，设置如下代码：

阅读 编辑 运行 复制   保存

<input type="image" οnclick="Page_ValidationActive=false;" src="datepicker.gif" alt="Show Calender" runat="server" onserverclick="ShowCal1" id="ImgCal1" name="ImgCal1">

<input type="image" οnclick="Page_ValidationActive=false;" src="datepicker.gif" alt="Show Calender" runat="server" onserverclick="ShowCal1" id="ImgCal1" name="ImgCal1">

这里设置page_validationactive参数为false,所以不需要重新提交页面，并且，在onserverclick事件中，设置处理的代码，如下所示：

复制   保存

public void ShowCal1(Object sender, System.Web.UI.ImageClickEventArgs e)
{ 
    //显示日历控件
    DtPicker1.Visible = true;
}

当用户选择了相关的日期后，在文本框中可以获得相关的日期：

复制   保存

private void DtPicker1_SelectionChanged(object sender, System.EventArgs e)
{
    txtStartDate.Text = DtPicker1.SelectedDate.ToShortDateString();
    DtPicker1.Visible = false;
}

在提交的页面中，处理的代码如下：

复制   保存

private void bSubmit_ServerClick(object sender, System.EventArgs e)
{
    Response.Redirect("ViewReport.aspx?ItemId=" + cboItemType.SelectedItem.Value 
        + "&StartDate=" + txtStartDate.Text + "&EndDate=" + txtEndDate.Text);
}

在提交页面后，将跳转到浏览报表的页面viewreport.aspx,传入相关的参数，如货品ID，开始和结束日期。


用水晶报表创建报表

首先，往窗体中添加 水晶报表控件，之后，就可以用 水晶报表的报表设计器设计一份报表了。新建一个 水晶报表文件类型，命名为itemreport.rpt,接着使用报表设计专家，并选择设计标准型的报表，点下一步，出现如下画面：



我们选择使用ADO类型的数据，在弹出的窗口中，设置好sql server的登陆名，登陆密码，选择好数据库后，选择在报表中使用tblsales表，如下图：



接着选Next,在要在报表中显示的字段中，选择SaleDate和Amount。之后，一直选NEXT，忽略其他相关设置，最后，在图表类型中选择折线图，如下图：



最后点击finish,可以看到如下的报表：



再次选择报表专家，在弹出的窗口中选择数据页，在数据可用字段中选择salesdate,并且可以在文本页中，设置适当的报表标题。



由于要根据输入的日期，货品参数来动态显示报表，因此我们要设置参数字段。在报表设计器中，在字段资源管理器中，选择参数字段，鼠标右击选择“新建”，新建如下三个参数字段。

名称	类型
ItemId	Number
StartDate	Date
EndDate	Date

最后，要设置相关的查询公式，在除报表页眉的区域，鼠标右键点击，在弹出菜单中选择“报表|编辑选择公式|记录”，输入如下的公式：



在上面的公式编辑器中，分为左中右三部分，左边的是报表的字段，中间的是相关的功能函数，最右边的是运算符，双击其中选中的部分，则可以添加到下部的公式显示区域中。最后，保存建立的公式。


在程序中使用报表

接下来，我们可以在程序中用代码处理和报表的连接过程。首先，在工程项目中，增加如下的两个命名空间的引用（注意，在代码中也必须用using引入它们）：

• CrystalDecisions.CrystalReports.Engine
• CrystalDecisions.Shared

在viewreport.aspx的Page_load事件中，加入以下代码

复制   保存

//接收传递的参数
nItemId = int.Parse(Request.QueryString.Get("ItemId"));
strStartDate = Request.QueryString.Get("StartDate");
strEndDate = Request.QueryString.Get("EndDate");
//声明报表的数据对象
CrystalDecisions.CrystalReports.Engine.Database crDatabase;
CrystalDecisions.CrystalReports.Engine.Table crTable;
TableLogOnInfo dbConn = new TableLogOnInfo();
// 创建报表对象opt
ReportDocument oRpt = new ReportDocument();
// 加载已经做好的报表
oRpt.Load("F://aspnet//WroxWeb//ItemReport.rpt");
//连接数据库，获得相关的登陆信息
crDatabase = oRpt.Database;
//定义一个arrtables对象数组
object[] arrTables = new object[1];
crDatabase.Tables.CopyTo(arrTables, 0);
crTable = (CrystalDecisions.CrystalReports.Engine.Table) arrTables[0];
dbConn = crTable.LogOnInfo;
//设置相关的登陆数据库的信息
dbConn.ConnectionInfo.DatabaseName = "WroxSellers";
dbConn.ConnectionInfo.ServerName = "localhost";
dbConn.ConnectionInfo.UserID = "sa";
dbConn.ConnectionInfo.Password = "test";
//将登陆的信息应用于crtable表对象
crTable.ApplyLogOnInfo(dbConn);
//将报表和报表浏览控件绑定
crViewer.ReportSource = oRpt;
//传递参数
setReportParameters();

在上面的代码中，首先接收了日期，货品编号等参数，并实例化了Database, Table和 TableLogOnInfo 三个类，它们是用来在运行时，建立报表和数据库的连接必需的。再使用

复制   保存

oRpt.Load("F://aspnet//WroxWeb//ItemReport.rpt");

来装载已经做好了的报表。

在装载完报表后，将数据库中要使用的表复制到一个对象数组中去，并选择对象数组中的第一个表元素，将其转换为 水晶报表的报表对象。接着，再设置LOGONINFO中的登陆数据库的信息。最后，将报表源与报表浏览控件绑定。


传递参数到水晶报表

定义一个新的过程，setReportParameters()，代码如下：

复制   保存

private void setReportParameters()
{
    // all the parameter fields will be added to this collection
    ParameterFields paramFields = new ParameterFields();
    // the parameter fields to be sent to the report
    ParameterField pfItemId = new ParameterField();
    ParameterField pfStartDate = new ParameterField();
    ParameterField pfEndDate = new ParameterField();
    // 设置在报表中，将要接受的参数字段的名称
    pfItemId.ParameterFieldName = "ItemId";
    pfStartDate.ParameterFieldName = "StartDate";
    pfEndDate.ParameterFieldName = "EndDate";
    ParameterDiscreteValue dcItemId = new ParameterDiscreteValue();
    ParameterDiscreteValue dcStartDate = new ParameterDiscreteValue();
    ParameterDiscreteValue dcEndDate = new ParameterDiscreteValue();
    dcItemId.Value = nItemId;
    dcStartDate.Value = DateTime.Parse(strStartDate);
    dcEndDate.Value = DateTime.Parse(strEndDate);
    pfItemId.CurrentValues.Add(dcItemId);
    pfStartDate.CurrentValues.Add(dcStartDate);
    pfEndDate.CurrentValues.Add(dcEndDate);
    paramFields.Add(pfItemId);
    paramFields.Add(pfStartDate);
    paramFields.Add(pfEndDate);
    // 将参数集合绑定到报表浏览控件
    crViewer.ParameterFieldInfo = paramFields;
}

现在来解释一下上面的代码。在 水晶报表中，浏览器控件有一个属性parameterfieldsinfo,该属性可以通过绑定parameterfields类型的集合，将相关的参数的实际数值传递到报表。Parameterfields类型集合通过add的方法，接收Parameterfield类型的对象。因此，我们先为itemid,startdate,enddate三个参数创建parameterfield类型的对象，并且设置它们对应报表中接受参数的名称：

复制   保存

ParameterFields paramFields = new ParameterFields();
ParameterField pfItemId = new ParameterField();
ParameterField pfStartDate = new ParameterField();
ParameterField pfEndDate = new ParameterField();
// 设置在报表中，将要接受的参数字段的名称
pfItemId.ParameterFieldName = "ItemId";
pfStartDate.ParameterFieldName = "StartDate";
pfEndDate.ParameterFieldName = "EndDate";

接着，可以为这些参数字段设置具体的值了，但由于parameterfield必须接受P arameterDiscreteValue类型的对象，所以，再创建相关的实例：

复制   保存

ParameterDiscreteValue dcItemId = new ParameterDiscreteValue();
ParameterDiscreteValue dcStartDate = new ParameterDiscreteValue();
ParameterDiscreteValue dcEndDate = new ParameterDiscreteValue();
dcItemId.Value = nItemId;
dcStartDate.Value = DateTime.Parse(strStartDate);
dcEndDate.Value = DateTime.Parse(strEndDate);

最后，就可以在三个parameterfield的对象中的currentvalues中设置它们的值，并往paramFields集合中加进这三个parameterfield对象。

运行的结果如下。



本程序在VS.NET 2003，crystal report 9以上版本可以正确运行。