博客园_.NET 學習

XAF Delta Replication Module for Devexpress eXpressApp Framework

2012-01-09T05:30:00Z

Delta Replication Module for Devexpress eXpressApp Framework

一个实现了异步复制XAF模块为分布式XAF应用程序。

http://xafdelta.narod.ru/

XafDelta 功能特点:

•	Provides a system of asynchronous heterogeneous replication for WinForms and ASP.NET XAF applications. Supports domain components.

•	Allows you to build and load images of the database (snapshots) for selected replication nodes.

•	Supports broadcast and targeted package routing

•	Provides configuration system for rules of replication and snapshots

•	Has a flexible built-in encryption and packaging service

•	Supports package state tickets

•	Have a built-in replication message storage

•	Have a built-in message delivery service. Supports WCF, HTTP, HTTPS, FTP, FILE protocols (*)

•	The package includes WCF service and ASP.NET web site, which implements an replication message storage (*)

•	The maximum size of replication package - 2 GB

•	Collaboration with Audit Trail Module does not allowed

本文链接

BDD 入门

2012-01-04T01:12:00Z

使用 SpecFlow 和 WatiN 进行行为驱动开发

Brandon Satrom

http://msdn.microsoft.com/zh-cn/magazine/gg490346.aspx

下载示例代码

随着自动化单元测试在软件开发中变得越来越普遍，对各种“测试优先”方法的采用也呈现出相同的趋势。这些实践为开发团队既带来了难得的机遇，也带来了独特的挑战，但所有这些机遇和挑战都是为了帮助从业人员建立“根据设计进行测试”的思路。

但是在“测试优先”时代的大多数时间，用于表达用户行为的方法一直贯穿于使用系统语言（一种与用户的语言不相关的语言）编写的单元测试。随着行为驱动开发 (BDD) 技术的问世，这种情况也随之改变。利用 BDD 技术，您可使用业务语言来编写自动化测试，同时还可保持与已实现系统的连接。

当然，现在我们创建了很多工具，可帮助您在开发过程中实现 BDD。这些工具包括 Ruby 中的 Cucumber 以及适用于 Microsoft .NET Framework 的 SpecFlow 和 WatiN。 SpecFlow 可帮助您在 Visual Studio 中编写和执行规范，而 WatiN 可用于驱动浏览器进行自动化的端到端系统测试。

本文中，我将简要概述 BDD，然后解释 BDD 周期如何通过用于驱动单元级别实现的功能级别测试来包括传统的测试驱动开发 (TDD) 周期。在介绍“测试优先”方法的基本内容后，我将介绍 SpecFlow 和 WatiN，并向您演示如何将这些工具与 MSTest 结合使用来为您的项目实现 BDD 的示例。

自动化测试简史

敏捷软件发展过程中产生的最有价值的实践之一就是测试优先的自动化开发模式，通常称为“测试驱动开发”或“TDD”。 TDD 的一条关键原则就是，测试创建不仅与设计和开发指南相关，同样还与验证和回归相关。测试创建还涉及到使用测试来指定一组所需的功能，以及稍后通过测试来只编写实现该功能所需的代码。因此，实现任何新功能的第一步就是通过一个失败测试来描述您的期望（参见图 1）。

图 1 测试驱动开发的周期

许多开发人员和团队已通过 TDD 取得了巨大的成功，而其他人没有使用 TDD，结果发现自己长期以来疲于应付进程管理工作，尤其是，随着测试量开始增长，这些测试的灵活性却开始降低，情况会更糟糕。尽管有些人觉得 TDD 很容易上手，而有些人却不清楚如何开始使用 TDD，结果只能将它放在一边，眼睁睁地看着最终期限的临近和工作的大量积压而束手无策。最后，许多对此感兴趣的开发人员遇到了其组织内部对这项工作的重重阻力，要么是因为“测试”这个词暗示这项职能属于另一个团队，或是因为“TDD 产生了太多额外的代码并减缓了项目进度”这个错误的观念。

Steve Freeman 和 Nat Pryce 在他们的著作“Growing Object-Oriented Software, Guided by Tests”(Addison-Wesley Professional, 2009) 中指出，“传统的”TDD 缺少真正的“测试优先”开发的某些优点：

“通过为应用程序中的类编写单元测试来开始 TDD 过程是有风险的。这不仅比不进行任何测试要好得多，还可以发现那些我们所熟知但又无法避免的常见编程错误…但是项目仅进行单元测试却会让 TDD 过程的重要好处大打折扣。我们也看到了，有些具有高品质和经过严格单元测试的代码的项目并非从任何位置都可以调用，或者这些项目无法与系统的其余部分集成，因而必须重写。”

2006 年，Dan North 在 Better Software 杂志 (blog.dannorth.net/introducing-bdd) 中的一篇文章中提到了许多这类难题。在他的文章中，North 介绍了三年来在测试实践方面所采用的一系列做法。尽管这些实践就本身而言仍属于 TDD 的范畴，但却促使 North 采用一种更加侧重分析的观点来看待测试，并创造了术语“行为驱动开发”以概括这种转换。

BDD 最常用的一个应用尝试通过验收测试或可执行规范来强化创建测试的重点和过程，从而扩展 TDD。每个规范将作为进入开发周期的一个入口点，它从用户角度以分步骤的形式介绍系统的行为方式。完成编写后，开发人员将使用规范及其现有的 TDD 过程来实现足量的生产代码，从而得到一个通过测试的方案（参见图 2）。

图 2 行为驱动开发的周期

从何处开始设计

大多数人认为 BDD 是 TDD 的超集，而不是它的替代品。两者的重要区别是对初始设计和测试创建的侧重点不同。与 TDD 侧重于针对单元或对象的测试不同，我将以用户的目标以及他们为了实现这些目标而采取的步骤为侧重点。因为我不再从小型单元的测试着手，所以我也不太愿意考虑具体用法或设计细节。我更多的是记录能够证明系统合适的可执行规范。我仍然编写单元测试，但是 BDD 鼓励采用由外而内的方法，该方法首先要提供所要实现的功能的完整说明。

让我们看看此差异的示例。在传统的 TDD 实践中，您可以在图 3 中编写测试，以便演练 CustomersController 的 Create 方法。

图 3 针对创建客户的单元测试

          [TestMethod]
public void PostCreateShouldSaveCustomerAndReturnDetailsView() {
  var customersController = new CustomersController();
  var customer = new Customer {
    Name = "Hugo Reyes",
    Email = "hreyes@dharmainitiative.com",
    Phone = "720-123-5477" 
  };
 
  var result = customersController.Create(customer) as ViewResult;
 
  Assert.IsNotNull(result);
  Assert.AreEqual("Details", result.ViewName);
  Assert.IsInstanceOfType(result.ViewData.Model, typeof(Customer));
 
  customer = result.ViewData.Model as Customer;
  Assert.IsNotNull(customer);
  Assert.IsTrue(customer.Id > 0);
}

这将是我使用 TDD 编写的首批测试之一。我通过设置所期望的 CustomersController 对象的行为方式为它设计一个公共 API。对于 BDD，我仍然创建该测试，但并非从一开始就创建。相反，我通过编写更类似于图 4 的测试来提高对功能级别功能的侧重度。然后，我将该方案用作针对实现所需代码的各个单元的指南，以使此方案通过。

图 4 功能级别规范

          Feature: Create a new customer
  In order to improve customer service and visibility
  As a site administrator
  I want to be able to create, view and manage customer records
 
Scenario: Create a basic customer record
  Given I am logged into the site as an administrator
  When I click the "Create New Customer" link
  And I enter the following information
    | Field | Value                       |
    | Name  | Hugo Reyes                  |
    | Email | hreyes@dharmainitiative.com |
    | Phone | 720-123-5477                |
  And I click the "Create" button
  Then I should see the following details on the screen:
    | Value                       |
    | Hugo Reyes                  |
    | hreyes@dharmainitiative.com |
    | 720-123-5477                |

这是图 2 中的外层循环，失败的验收测试。在创建此测试并且测试失败之后，我将按图 2 中所述的内部 TDD 循环来实现我的功能中每个方案的每个步骤。对于图 3 中的 CustomersController，一旦到达功能中的合适步骤，我就会在实现使该步骤通过测试所需的控制器逻辑之前立即编写此测试。

BDD 和自动化测试

从一开始，BDD 社区就已设法使用已成为单元测试中的标准一段时间的验收测试来提供相同级别的自动化测试。值得注意的一个示例就是 Cucumber (cukes.info)，它是一个基于 Rub 的测试工具，强调创建以“特定于域的业务可读语言”编写的功能级别的验收测试。

Cucumber 测试使用针对每个功能文件的 User Story 语法和针对每个方案的 Given、When、Then (GWT) 语法来编写。（有关 User Story 语法的详细信息，请参阅 c2.com/cgi/wiki?UserStory。）GWT 描述了方案当前的上下文 (Given)、作为测试的一部分所执行的操作 (When) 以及预期的可观察结果 (Then)。 图 4 中的功能是此类语法的一个示例。

在 Cucumber 中，系统会对用户可读的功能文件进行解析，并将每个方案步骤与 Ruby 代码（演练相关系统的公共接口并确定该步骤是成功还是失败）进行匹配。

近年来，创新促使自动化测试这类方案的使用扩展到 .NET Framework 体系。开发人员现已具有允许通过 Cucumbe 所使用的相同结构的英语语法来编写规范的工具，而随后 Cucumber 又可将这些规范用作演练代码的测试。利用 SpecFlow (specflow.org)、Cuke4Nuke (github.com/richardlawrence/Cuke4Nuke) 等 BDD 测试工具，您可首先在过程中创建可执行规范，在扩建功能时利用这些规范，并在最后记录那些与您的开发和测试进程直接关联的功能。

SpecFlow 和 WatiN 入门

本文中，我将利用 SpecFlow 来测试一个模型-视图-控制器 (MVC) 应用程序。若要开始使用 SpecFlow，您首先要下载并安装它。安装 SpecFlow 后，请使用单元测试项目创建一个新的 ASP.NET MVC 应用程序。我更愿意我的单元测试项目只包含单元测试（控制器测试、存储库测试等等），这样，我就还可以为我的 SpecFlow 测试创建一个 AcceptanceTests 测试。

添加 AcceptanceTests 项目并添加对 TechTalk.SpecFlow 程序集的引用后，请使用 SpecFlow 在安装时创建的“添加”|“新建项目”模板添加一个新功能，并将其命名为 CreateCustomer.feature。

请注意，该文件创建时的扩展名为 .feature；由于有了 SpecFlow 的集成工具，Visual Studio 将此文件识别为支持的文件。您还可能注意到，您的功能文件具有一个相关的 .cs 代码隐藏文件。您每次保存 .feature 文件时，SpecFlow 会对文件进行解析，并将该文件中的文本转换到一个测试装置。关联的 .cs 文件中的代码代表该测试装置，即每次运行您的测试套件时实际执行的代码。

默认情况下，SpecFlow 将 NUnit 用作其测试运行程序，但它也支持配置稍有更改的 MSTest。您只需向测试项目中添加一个 app.config 文件并添加以下元素即可：


          <configSections>
  <section name="specFlow"
    type="TechTalk.SpecFlow.Configuration.ConfigurationSectionHandler, TechTalk.SpecFlow"/>
</configSections>
<specFlow>
  <unitTestProvider name="MsTest" />
</specFlow>

首个验收测试

当您创建某个新功能时，SpecFlow 将使用默认文本填充该文件，以解释用于描述该功能的语法。将 CreateCustomer.feature 文件中的默认文本替换为图 4 中的文本。

每个功能文件分为两个部分。第一个部分是顶部的功能名称和说明，此部分使用 User Story 语法来描述用户的角色、用户的目标以及用户为了在系统中实现这个目标而必须能够执行的操作的类型。 SpecFlow 需要此部分来自动生成测试，但是内容本身不能用于这些测试。

每个功能文件的第二部分为一个或多个方案。每个方案用于在关联的 .feature.cs 文件中生成一个测试方法（如图 5 所示），且方案中的每个步骤会传递到 SpecFlow 测试运行程序，该运行程序会将步骤的一个基于 RegEx 的匹配项执行到名为“步骤定义”文件的 SpecFlow 文件中的一个条目。

图 5 由 SpecFlow 生成的测试方法

          public virtual void CreateABasicCustomerRecord() {
  TechTalk.SpecFlow.ScenarioInfo scenarioInfo = 
    new TechTalk.SpecFlow.ScenarioInfo(
    "Create a basic customer record", ((string[])(null)));
 
  this.ScenarioSetup(scenarioInfo);
  testRunner.Given(
    "I am logged into the site as an administrator");
  testRunner.When("I click the \"Create New Customer\" link");
 
  TechTalk.SpecFlow.Table table1 = 
    new TechTalk.SpecFlow.Table(new string[] {
    "Field", "Value"});
  table1.AddRow(new string[] {
    "Name", "Hugo Reyesv"});
  table1.AddRow(new string[] {
    "Email", "hreyes@dharmainitiative.com"});
  table1.AddRow(new string[] {
    "Phone", "720-123-5477"});
 
  testRunner.And("I enter the following information", 
    ((string)(null)), table1);
  testRunner.And("I click the \"Create\" button");
 
  TechTalk.SpecFlow.Table table2 = 
   new TechTalk.SpecFlow.Table(new string[] {
  "Value"});
  table2.AddRow(new string[] {
    "Hugo Reyes"});
  table2.AddRow(new string[] {
    "hreyes@dharmainitiative.com"});
  table2.AddRow(new string[] {
    "720-123-5477"});
  testRunner.Then("I should see the following details on screen:", 
    ((string)(null)), table2);
  testRunner.CollectScenarioErrors();
}

完成您首个功能的定义后，请在按住 Ctrl 的同时按 R 和 T，以运行您的 SpecFlow 测试。您的 CreateCustomer 测试将失败（无结果），因为 SpecFlow 无法为您的测试中的首个步骤找到一个匹配的步骤定义（参见图 6）。请留意实际 .feature 文件中的异常报告方式，该方式与隐藏代码文件中的异常报告方式相反。

图 6 SpecFlow 找不到步骤定义

因为您尚未创建步骤定义文件，所以发生此异常是正常的。在“异常”对话框上单击“确定”，并在 Visual Studio“测试结果”窗口中查找 CreateABasicCustomerRecord 测试。如果未找到匹配的步骤，则 SpecFlow 将使用您的功能文件生成您的步骤定义文件中所需的代码，您可复制并使用这些代码，以开始实现这些步骤。

在您的 AcceptanceTests 项目中，使用 SpecFlow 步骤定义模板创建一个步骤定义文件，并将其命名为 CreateCustomer.cs。然后，将 SpecFlow 中的输出复制到该类。您将注意到，每个方法都使用 SpecFlow 特性进行了修饰，该特性将方法指定为 Given、When 或 Then 步骤，并提供用于将方法与功能文件中某个步骤匹配的 RegEx。

集成 WatiN 以进行浏览器测试

使用 BDD 的部分目标是创建一个自动化测试套件，此套件将尽可能多地演练端到端系统功能。因为我要构建一个 ASP.NET MVC 应用程序，所以我可以使用许多工具，这些工具有助于编写 Web 浏览器的脚本以与网站进行交互。

这类工具中的其中一个就是 WatiN，它是一个用于自动化 Web 浏览器测试的开放源库。您可从 watin.sourceforge.net 中下载 WatiN，并将对 WatiN.Core 的引用添加到您的验收测试项目，以方便使用。

与 WatiN 进行交互最主要的途径就是通过浏览器对象（IE() 或 FireFox()，具体取决于您选择的浏览器），这就为控制已安装浏览器的实例提供了一个公共接口。因为您要在方案中通过多个步骤来演练浏览器，所以您需要一种可在步骤定义类中的步骤之间传递相同浏览器对象的方法。为了处理此问题，我通常创建一个 WebBrowser 静态类作为 AcceptanceTests 项目的一部分，并利用该类来处理 WatiN IE 对象和 ScenarioContext（SpecFlow 将其用来存储方案中各步骤之间的状态）：

          public static class WebBrowser {
  public static IE Current {
    get {
      if (!ScenarioContext.Current.ContainsKey("browser"))
        ScenarioContext.Current["browser"] = new IE();
      return ScenarioContext.Current["browser"] as IE;
    }
  }
}

在 CreateCustomer.cs 中需要实现的第一个步骤是 Given 步骤，该步骤通过让用户以管理员身份登录到网站来开始测试：


          [Given(@"I am logged into the site as an administrator")]
public void GivenIAmLoggedIntoTheSiteAsAnAdministrator() {
  WebBrowser.Current.GoTo(http://localhost:24613/Account/LogOn);

  WebBrowser.Current.TextField(Find.ByName("UserName")).TypeText("admin");
  WebBrowser.Current.TextField(Find.ByName("Password")).TypeText("pass123");
  WebBrowser.Current.Button(Find.ByValue("Log On")).Click();

  Assert.IsTrue(WebBrowser.Current.Link(Find.ByText("Log Off")).Exists);
}

请记住，方案的 Given 部分是用来设置当前测试的上下文。利用 WatiN，您可拥有自己的测试驱动并让它与浏览器交互，以实现此步骤。

在本步骤中，我使用 WatiN 打开 Internet Explorer，导航到网站的“登录”页面，填写“用户名”和“密码”文本框，然后单击屏幕上的“登录”按钮。当我再次运行测试时，将自动打开一个 Internet Explorer 窗口，当 WatiN 与网站交互（单击链接并输入文本）时，我可以观察工作中的 WatiN（参见图 7）。

图 7 带有 WatiN 的 Autopilot 上的浏览器

现在将通过 Given 步骤，离实现功能又更近一步了。现在，SpecFlow 将会在第一个 When 步骤上失败，因为该步骤尚未实现。您可使用以下代码实现该步骤：

          [When("I click the \" (.*)\" link")]
public void WhenIClickALinkNamed(string linkName) {
  var link = WebBrowser.Link(Find.ByText(linkName));
 
  if (!link.Exists)
    Assert.Fail(string.Format(
      "Could not find {0} link on the page", linkName));
 
  link.Click();
}

现在，当我再次运行这些测试时，它们又因为 WatiN 无法在页面上找到带有文本“创建新客户”的链接而失败。只需向主页添加一个带有该文本的链接，下个步骤就会通过。

是否理解了模式？ SpecFlow 鼓励使用相同的 Red-Green-Refactor 方法，此方法是“测试优先”开发方法的主流方法。功能中每个步骤的间隔的作用类似于实现的虚拟绑定程序，鼓励您仅实现通过步骤所必需的功能。

但是 BDD 过程内部的 TDD 又是怎样的呢？现阶段我只是在页面级别工作，并且我尚未实现实际创建客户记录的功能。为了简便起见，现在让我们实现剩下的步骤（参见图 8）。

图 8 步骤定义中剩下的步骤

          [When(@"I enter the following information")]
public void WhenIEnterTheFollowingInformation(Table table) {
  foreach (var tableRow in table.Rows) {
    var field = WebBrowser.TextField(
      Find.ByName(tableRow["Field"]));
 
    if (!field.Exists)
      Assert.Fail(string.Format(
        "Could not find {0} field on the page", field));
    field.TypeText(tableRow["Value"]);
  }
}
 
[When("I click the \"(.*)\" button")]
public void WhenIClickAButtonWithValue(string buttonValue) {
  var button = WebBrowser.Button(Find.ByValue(buttonValue));
 
  if (!button.Exists)
    Assert.Fail(string.Format(
      "Could not find {0} button on the page", buttonValue));
 
  button.Click();
}
 
[Then(@"I should see the following details on the screen:")]
public void ThenIShouldSeeTheFollowingDetailsOnTheScreen(
  Table table) {
  foreach (var tableRow in table.Rows) {
    var value = tableRow["Value"];
 
    Assert.IsTrue(WebBrowser.ContainsText(value),
      string.Format(
        "Could not find text {0} on the page", value));
  }
}

我重新运行了测试，现在这些测试因为我没有用来输入客户信息的页面而失败。若要允许创建客户，则需要一个“创建客户视图”页面。若要在 ASP.NET MVC 中提供这样一个视图，则需要用来提供此视图的 CustomersController。现在我需要新的代码，这意味着我的步骤要从 BDD 的外部循环进入到 TDD 的内部循环，如图 2 所示。

第一步是创建一个失败的单元测试。

将单元测试写入实现步骤

在 UnitTest 项目中创建 CustomerControllersTests 测试类之后，您需要创建一个测试方法，该方法用于演练要在 CustomersController 中公开的功能。具体地说，您要创建 Controller 的一个新实例，调用其 Create 方法，并确保您反过来可接收到合适的“视图”和“模型”：

          [TestMethod]
public void GetCreateShouldReturnCustomerView() {
  var customersController = new CustomersController();
  var result = customersController.Create() as ViewResult;
 
  Assert.AreEqual("Create", result.ViewName);
  Assert.IsInstanceOfType(
    result.ViewData.Model, typeof(Customer));
}

此代码尚未编译，因为您尚未创建 CustomersController 或其 Create 方法。创建该控制器和一个空白的 Create 方法后，将立即编译代码，且测试将失败，这是必需的下一个步骤。而如果您完成了 Create 方法，则测试将立即通过：

          public ActionResult Create() {
  return View("Create", new Customer());
}

如果您重新运行 SpecFlow 测试，则会更接近于完成，但功能仍然不能通过。这次，测试将因为您不具有 Create.aspx 视图页而失败。如果您按照功能指示，将其随合适的字段一起添加，则您向完整的功能又迈进了一步。

用于实现此创建功能的由外而内的过程如图 9 所示。

图 9 方案到单元测试过程

这些相同的步骤通常会在此过程中重复出现，循环访问这些步骤的速度随着时间的推移将大大加快，尤其是当您在 AcceptanceTests 项目中实现帮助程序步骤（单击链接和按钮，填写表单等等）和着手测试每个方案中的关键功能时。

现在功能将从有效的创建视图中填写相应的表单字段，且将尝试提交该表单。您现在可以猜到下面将发生什么事：测试将因为您尚不具有保存客户记录所需的逻辑而失败。

请按照与前面相同的过程，使用如前面图 3 中所示的单元测试代码来创建测试。在添加接受客户对象以允许编译此测试的空白 Create 方法后，您将看到测试失败，随后请按以下方式完成 Create 方法：


          [AcceptVerbs(HttpVerbs.Post)]
public ActionResult Create(Customer customer) {
  _repository.Create(customer);

  return View("Details", customer);
}

我的 Controller 只是一个控制器，客户记录的实际创建属于一个了解数据存储机制的存储对象。为了简便起见，本文省略了该实现；但要注意，在实际情况中，当需要用来保存客户的存储库时应启动另一个单元测试的子循环。当您需要访问任意协作对象，而该对象不存在或未提供您需要的功能时，则应该遵循您对 Feature 和 Controller 遵循的相同单元测试循环。

实现 Create 方法并拥有工作存储库之后，您将需要创建“详细信息视图”，此视图保留新客户的记录并在页面上显示这些记录。然后您可再次运行 SpecFlow。最后，在多次 TDD 循环和子循环后，您现在具有了通过测试的功能，它证明您系统中存在的一些端到端的功能合适。

祝贺您！您现已通过验收测试和一组完整的单元测试（用于确保系统进行扩展以添加新功能时新功能可以继续工作）实现了一组端到端功能。

关于重构的说明

在 UnitTests 项目中创建单元级别测试时，希望您不断对每个测试创建进行重构。当您在链中从通过单元测试移回到通过验收测试时，应遵循相同的过程，关注重构的机会，并重定义每个功能以及随后的所有功能的实现。

还要密切关注重构您的 AcceptanceTests 项目中的代码的机会。您将发现某些功能中经常出现某些重复的步骤，尤其是您的 Given 步骤。利用 SpecFlow，您可轻易将这些步骤移动到按功能分类的单独的步骤定义文件中，例如，LogInSteps.cs。这就让主要步骤定义文件变得简单明了并针对您指定的唯一方案。

BDD 侧重于设计和开发。通过将您的侧重点从对象提升到功能，您自己和您的团队就可以从系统用户的角度出发进行设计。由于功能设计演变成为单元设计，因此要确保在编写测试时将您的功能考虑在内，还要确保按照不连续的步骤或任务调整测试。

与任何其他实践或规则类似，BDD 与您的工作流结合还需一些时间。本人建议您使用任何可用的工具来亲自体验相关操作，并观察该工具的运行情况。当您以这种方式进行开发时，请注意 BDD 鼓励您提出的问题。不断寻找可改善您的实践和过程的方法，并与他人协作以进行改善。我希望，无论您使用什么工具集，对 BDD 的研究都能够增加自己的软件开发实践的价值和关注度。

Brandon Satrom 是 Microsoft 在德克萨斯州奥斯汀市的开发推广人员。他的博客地址为 userinexperience.com，还可以通过 Twitter 地址 @BrandonSatrom 与他取得联系。

感谢以下技术专家对本文的审阅：Paul Rayner 和 Clark Sell

本文链接

XAF 用户双击ListView记录时禁止显示DetailView

2011-12-24T01:36:00Z

How to prevent a DetailView from being shown when a User double clicks or presses the Enter key on a record in a ListView

http://www.devexpress.com/Support/Center/kb/p/K18038.aspx
本文链接

XAF Using Domain Components (DC) in XAF (DevExpress): Part I: The Basics

2011-12-07T05:50:00Z

XAF Using Domain Components (DC) in XAF (DevExpress): Part I: The Basics

http://www.codeproject.com/KB/ThirdParty/DomainComponentsInXAF_1.aspx

XAF 一个字段的值改变则另一个字段值也改变的实现

2011-12-07T03:57:00Z

方法一：

protected override void OnChanged(string propertyName, object oldValue, object newValue)
{
    base.OnChanged(propertyName, oldValue, newValue);
    if ((!IsLoading) && (!IsDeleted) && (oldValue != newValue))
    {
        if (propertyName == "ItemA")
        {
            // todo
        }
    }
}

方法二：

public partial class MyViewController : ViewController
{
    public MyViewController()
    {
        InitializeComponent();
        RegisterActions(components);
    }

    protected override void OnActivated()
    {
        base.OnActivated();
        ((View as DetailView).FindItem("ItemA") as PropertyEditor).ValueStored += new EventHandler(MyViewController _ValueStored);
    }

    void MyViewController _ValueStored(object sender, EventArgs e)
    {
        ((View as DetailView).FindItem("ItemB") as ListPropertyEditor).Refresh();
    }

    protected override void OnDeactivated()
    {
        ((View as DetailView).FindItem("ItemA") as PropertyEditor).ValueStored -= new EventHandler(MyViewController _ValueStored);
        base.OnDeactivated();
    }
}

本文链接

XAF 11.2权限扩展之角色按钮权限控制

2011-12-06T07:48:00Z

扩展XAF 11.2权限
之按钮权限控制

1. 需求：XAF系统本身已经带了比较好用权限管理：Object-Level,Class-Level,Member-Level；但是没有对自定义按钮按角色分配的权限控制，因此需实现对自定义按钮的角色权限控制

2. 控制方式：角色按钮控制(角色、按钮多对多关系)

3. 系统权限类型为SecurityStrategyComplex, AuthenticationStandard(需选择自定义的MySecurityUser和MySecurityRole)

4. 需要区分自定义按钮和XAF系统本身自带按钮

5. 此按钮权限控制不控制XAF系统自带按钮，也可以通过简单修改能控制其自身按钮(未测试)

6. 使用规则，按钮的ID定义需以btn开头。

7. 系统需自定义User为MySecurityUser和Role为MySecurityRole；
定义BO为ActionData；
定义ViewContorl为ActionPermissionViewControl

8. 同步按钮信息功能(第一次使用需建立同步按钮信息资料)

实现代码：

using System;
using System.Collections.Generic;
using System.Linq;
using DevExpress.ExpressApp.Security;
using DevExpress.Xpo;
using DevExpress.Persistent.Base;
using DevExpress.ExpressApp.DC;

namespace SecurityDemoTest.Module.BusinessObjects
{
    [XafDisplayName("User"), Persistent, ImageName("BO_User")]
    public class MySecurityUser : SecurityUserWithRolesBase
    {
        public MySecurityUser(DevExpress.Xpo.Session session)
            : base(session)
        {
        }

        private string _Description;
        public string Description
        {
            get
            {
                return _Description;
            }
            set
            {
                SetPropertyValue("Description", ref _Description, value);
            }
        }
    }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using DevExpress.ExpressApp.Security;
using DevExpress.Xpo;
using DevExpress.Persistent.Base;

namespace SecurityDemoTest.Module.BusinessObjects
{
    [DefaultClassOptions]
    public class MySecurityRole : SecurityRole
    {
        public MySecurityRole(Session session)
            : base(session)
        {

        }

        [Association("ActionDatas-MySecurityRoles")]
        public XPCollection<ActionData> ActionPermissions
        {
            get
            {
                return GetCollection<ActionData>("ActionPermissions");
            }
        }
    }
}

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using DevExpress.Xpo;
using DevExpress.Xpo.Metadata;
using DevExpress.Persistent.Base;

namespace SecurityDemoTest.Module.BusinessObjects
{
    [DefaultClassOptions,Persistent]
    public class ActionData : XPObject
    {
        private string _ActionId;
        public string ActionId
        {
            get
            {
                return _ActionId;
            }
            set
            {
                SetPropertyValue("ActionId", ref _ActionId, value);
            }
        }

        private string _Caption;
        public string Caption
        {
            get
            {
                return _Caption;
            }
            set
            {
                SetPropertyValue("Caption", ref _Caption, value);
            }
        }

        private string _Descritpion;
        public string Descritpion
        {
            get
            {
                return _Descritpion;
            }
            set
            {
                SetPropertyValue("Descritpion", ref _Descritpion, value);
            }
        }

        private bool _Enabled;
        public bool Enabled
        {
            get
            {
                return _Enabled;
            }
            set
            {
                SetPropertyValue("Enabled", ref _Enabled, value);
            }
        }


        private MySecurityRole _MyRole;
        public ActionData()
        {

        }
        public ActionData(Session session)
            : base(session)
        {

        }
        public ActionData(Session session, XPClassInfo classInfo)
            : base(session, classInfo)
        {

        }

        //[Association(typeof(MySecurityRole))]
        //public MySecurityRole MyRole
        //{
        //    get
        //    {
        //        return _MyRole;
        //    }
        //    set
        //    {
        //        SetPropertyValue("MyRole", ref _MyRole, value);
        //    }
        //}

        private string _Kind;
        public string Kind
        {
            get
            {
                return _Kind;
            }
            set
            {
                SetPropertyValue("Kind", ref _Kind, value);
            }
        }

        private string _Category;
        public string Category
        {
            get
            {
                return _Category;
            }
            set
            {
                SetPropertyValue("Category", ref _Category, value);
            }
        }

        [Association("ActionDatas-MySecurityRoles")]
        public XPCollection<MySecurityRole> MySecurityRoles
        {
            get
            {
                return GetCollection<MySecurityRole>("MySecurityRoles");
            }
        }
    }
}

using System;
using System.Collections.Generic;

using DevExpress.ExpressApp;
using DevExpress.ExpressApp.Actions;
using System.Collections;
using DevExpress.ExpressApp.Model;
using DevExpress.Data.Filtering;
using DevExpress.Utils;
using DevExpress.ExpressApp.Core;

namespace SecurityDemoTest.Module.BusinessObjects
{
    public partial class ActionPermissionViewController : ViewController
    {
        public ActionPermissionViewController()
        {
            InitializeComponent();
            RegisterActions(components);
            this.TargetObjectType = typeof(ActionData);
            this.TargetViewType = ViewType.ListView;
        }

        protected override void OnActivated()
        {
            foreach (Controller controller in Frame.Controllers)
            {
                foreach (ActionBase action in controller.Actions)
                {
                    if (action.Id.StartsWith("btn"))
                    {
                        bool isAction = IsAllowAccessAction(action.Id);
                        action.Active.SetItemValue("ActionState1", isAction);
                    }
                }
            }
        }

        private static bool IsAllowAccessAction(string actionId)
        {
            MySecurityUser currentUser = SecuritySystem.CurrentUser as MySecurityUser;
            Guard.ArgumentNotNull(currentUser, "CurrentUser");
            Guard.ArgumentIsNotNullOrEmpty(actionId, "ActionId");
            foreach (MySecurityRole role in currentUser.Roles)
            {
                foreach (ActionData ap in role.ActionPermissions)
                {
                    if (ap.ActionId == actionId && ap.Kind == "Custom" )
                        return true;
                }
            }
            return false;
        }

        private void SycAction_Execute(object sender, SimpleActionExecuteEventArgs e)
        {
            SyncActions(btnSycAction);
            ObjectSpace.CommitChanges();
            View.ObjectSpace.Refresh();
        }

        private void SyncActions(ActionBase action)
        {
            foreach (IModelAction item in action.Model.Application.ActionDesign.Actions)
            {
                ActionData ap = ObjectSpace.FindObject<ActionData>(new BinaryOperator("ActionId", item.Id));
                if (ap == null)
                {
                    ap = ObjectSpace.CreateObject<ActionData>();
                    ap.ActionId = item.Id;
                    ap.Caption = item.Caption;
                    ap.Category = item.Category;
                    ap.Enabled = true;
                    ap.Descritpion = item.ToolTip;
                }
                else
                {
                    ap.Caption = item.Caption;
                    ap.Descritpion = item.ToolTip;
                    ap.Category = item.Category;
                }

                if (item.Id.StartsWith("btn"))
                {
                    ap.Kind = "Custom";
                }
                else
                {
                    ap.Kind = "System";
                }
            }
        }

    }
}

namespace SecurityDemoTest.Module.BusinessObjects
{
    partial class ActionPermissionViewController
    {
        /// <summary>
        /// Required designer variable.
        /// </summary>
        private System.ComponentModel.IContainer components = null;

        /// <summary>
        /// Clean up any resources being used.
        /// </summary>
        /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
        protected override void Dispose(bool disposing)
        {
            if (disposing && (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.components = new System.ComponentModel.Container();
            this.btnSycAction = new DevExpress.ExpressApp.Actions.SimpleAction(this.components);
            //
            // btnSycAction
            //
            this.btnSycAction.Caption = "btn Syc Action";
            this.btnSycAction.ConfirmationMessage = null;
            this.btnSycAction.Id = "btnSycAction";
            this.btnSycAction.ImageName = null;
            this.btnSycAction.Shortcut = null;
            this.btnSycAction.Tag = null;
            this.btnSycAction.TargetObjectsCriteria = null;
            this.btnSycAction.TargetViewId = null;
            this.btnSycAction.ToolTip = null;
            this.btnSycAction.TypeOfView = null;
            this.btnSycAction.Execute += new DevExpress.ExpressApp.Actions.SimpleActionExecuteEventHandler(this.SycAction_Execute);

        }

        #endregion

        private DevExpress.ExpressApp.Actions.SimpleAction btnSycAction;
    }
}

本文链接

XAF How to enable LayoutView mode in the GridControl in List Views

2011-11-24T00:52:00Z

http://www.devexpress.com/Support/Center/p/E1486.aspx

IMPORTANT NOTES

1. The LayoutViewListEditor class implemented in this example is not a complete solution, but rather a starting point for creating a custom List Editor based on the XtraGrid's LayoutView and providing similar features as a standard GridListEditor. Since this custom List Editor may have issues, you will use it at your own risk.
Refer to the sources of a standard GridListEditor class ("%ProgramFiles\DevExpress 2011.1\eXpressApp Framework\Sources\DevExpress.ExpressApp\DevExpress.ExpressApp.Win\Editors\GridListEditor.cs") and the product documentation for more information about implementing custom List Editors.
You can also track S19992 to be automatically notified when the complete solution is available.
2. To see LayoutViewListEditor in action, download this video.

本文链接

Access 报表打印之分组页码实现(轉)

2011-11-21T02:43:00Z

/Files/Tonyyang/报表分组页码V1.2.rar

Option Compare Database
Option Explicit

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'分组报表显示分组页码和页数类模块(方法一)
'
'功    能:在有分组的报表的每一页上显示组页码和组页数，在预
'         览时改变页面设置后仍能正确显示。
'作    者:t小雨(tcl013@126.com)(t小宝)
'版    本:1.1
'创建日期:2008-05-??
'整理日期:2008-05-30
'补充说明:这个代码是一年前做的，由于实现原理和过程有点复杂，
'         当时没有添加注释，已忘得差不多，加上表达能力有限，
'         现在勉强添加了不完全的注释，但能依照说明会用就行。
'         直接把代码放到报表中也是可以。
'         做成类模块只是为了好保存，以后调用方便，但由于在
'         类模块中不能使用报表的节的事件，调用起来还是有些
'         麻烦，不过总要比直接把代码放在报表简单一点。
'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'实现原理：
'通过报表上的辅助文本框获得组的总行数(记录数,后同)、1页的最大行数、当前页在当前组的截止行数，
'在页面页脚_Format事件中通过计算得到分组页码和页数。

'报表设计要求：
' 1、报表应包含组页眉、页面页眉、页面页脚
' 2、在组页眉上有一文本框，有如下属性
'    ControlSource(控件来源)="=Count(*)"
'    RunningSum(运行总和)=0(不)
' 3、在主体有一文本框，有如下属性
'    ControlSource(控件来源)="=1"
'    RunningSum(运行总和)=1(工作组之上)

'调用方法，有2种：
' 第1种:
' 1、在报表用New关键字声明一个 CreateGroupPage1 类的新实例
' 2、在报表的打开事件执行实例的 Init 方法,传入全部参数
' 3、在页面页脚的 Format (格式化)事件执行实例的 FormatPageFooter 方法
' 4、在页面页脚的 Print (打印)事件执行实例的 PrintPageFooter 方法
' 这种方法在显示分组页码的标签上显示效果如分组字段值: 1 / 2
' 在报表中的代码类似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Dim newGroupPage As New CreateGroupPage1
'
' Private Sub Report_Open(Cancel As Integer)
'     newGroupPage.Init Me, Me.TxtGrpRows, Me.txtRunSum, Me.LplGrpPages
' End Sub
'
' Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
'     newGroupPage.FormatPageFooter
' End Sub
'
' Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'     newGroupPage.PrintPageFooter
' End Sub
'
' Private Sub 组页眉0_Format(Cancel As Integer, FormatCount As Integer)
'     newGroupPage.FormatGroupLevel1Header
' End Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' 第2种:
' 1、在报表用 WithEvents 关键字声明一个 CreateGroupPage1 类的变量
' 2、在报表的打开事件用 Set New 语句创建新实例
' 3、在报表的打开事件执行实例的 Init 方法,不须传入最后一个参数(用于显示分组页码的标签)
' 4、在页面页脚的 Format(格式化) 事件执行实例的 FormatPageFooter 方法
' 5、在页面页脚的 Print(打印) 事件执行实例的 PrintPageFooter 方法
' 6、在组页眉的 Format(格式化) 事件执行实例的 FormatGroupLevel1Header 方法
' 7、在类的 Current 事件过程将事件参数返回的分组页码和页数赋给用于显示的标签
' 在报表中的代码类似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Dim WithEvents newGroupPage As CreateGroupPage1
'
' Private Sub Report_Open(Cancel As Integer)
'     Set newGroupPage = New CreateGroupPage1
'     newGroupPage.Init Me, Me.TxtGrpRows, Me.txtRunSum
' End Sub
'
' Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
'     newGroupPage.FormatPageFooter
' End Sub
'
' Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'     newGroupPage.PrintPageFooter
' End Sub
'
' Private Sub 组页眉0_Format(Cancel As Integer, FormatCount As Integer)
'     newGroupPage.FormatGroupLevel1Header
' End Sub
'
' Private Sub newGroupPage_Current(GrpPage As Integer, GrpPages As Integer)
'     Me.LplGrpPages.Caption = Me.类别名称 & " 共 " & GrpPages & " 页,第 " & GrpPage & " 页"
' End Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Event Current(GrpPage As Integer, GrpPages As Integer)
'在此自定义事件中可以获取分组页码信息，以便自定义显示页码格式

Dim MyRpt As Report
Dim txtRunSum As TextBox           ' 取得每个组的记录数的文本框
Dim TxtGrpRows As TextBox          ' 取得每个组的记录在组中的序号的文本框
Dim lblShowPage As Label           ' 用于显示分组页码信息的标签

Dim inMaxRows As Integer           ' 1页的最大行数(记录数)
Dim inRptPage As Integer           ' 报表本身页码
Dim blPrint As Boolean             ' 是否已经发生页面页脚的Print事件,为避免页面页脚的Format事件中的代码重复运行
Dim blFistPage As Boolean          ' 当前页是否是所在组的第一页

Public Sub Init(rpt As Report, GrpRows As TextBox, RunSum As TextBox, Optional ShowPage As Label)
' 过程中的检查参数代码不是必须的，仅为了防止以后忘记如何设计报表

    Dim st1 As String

    Set MyRpt = rpt

    Set TxtGrpRows = GrpRows
    With TxtGrpRows
        If .Section <> acGroupLevel1Header Then
            st1 = "作为第二个参数的文本框必须在分组页眉节上！"
        ElseIf .ControlSource <> "=Count(*)" Then
            st1 = "作为第二个参数的文本框的ControlSource属性必须是""=Count(*)""！"
        ElseIf .RunningSum <> 0 Then
            st1 = "作为第二个参数的文本框的RunningSum属性必须是0！"
        End If
    End With
    If Len(st1) > 0 Then
        MsgBox st1, vbExclamation, "参数错误"
        Exit Sub
    End If

    Set txtRunSum = RunSum
    With txtRunSum
        If .Section <> acDetail Then
             st1 = "作为第三个参数的文本框必须在报表主体节上！"
        ElseIf .ControlSource <> "=1" Then
            st1 = "作为第三个参数的文本框的ControlSource属性必须是""=1""！"
        ElseIf .RunningSum <> 1 Then
            st1 = "作为第三个参数的文本框的RunningSum属性必须是1！"
        End If
    End With
    If Len(st1) > 0 Then
        MsgBox st1, vbExclamation, "参数错误"
        Exit Sub
    End If

    If Not (ShowPage Is Nothing) Then Set lblShowPage = ShowPage

End Sub

Public Sub FormatGroupLevel1Header()
    If txtRunSum = 1 Then blFistPage = True           ' 为页面页脚Format事件作标记
End Sub

Public Sub FormatPageFooter()

    Dim inGrpPage As Integer           ' 组页码
    Dim inGrpPages As Integer          ' 组页数
    Dim inLastRows As Integer          ' 截止当前页,所在组的所有行数

    inLastRows = txtRunSum                                       ' 从文本框获得截止行数
    If inLastRows = 0 Then inLastRows = TxtGrpRows

    If MyRpt.Page = 1 Then
    '在第1页初始变量
        If MyRpt.Pages > 0 And MyRpt.Pages = inRptPage Then
        ' 这里已经是第2轮格式化第1页，报表加载时进行两轮格式化，第一轮Pages=0
        Else
            inMaxRows = 0
        End If
        inRptPage = 0
        blPrint = False
    End If

    If Not blPrint Then
    '仅在第1轮格式化中,获取每组第一页的行数
        If blFistPage Then
        '每组第一页的行数即是本组任一页的最大行数
            If inMaxRows < inLastRows Then inMaxRows = inLastRows
            blFistPage = False
        End If
        inRptPage = inRptPage + 1
    End If

    If MyRpt.Pages > 0 Then
        inGrpPages = Int(TxtGrpRows / inMaxRows + 0.9999)         ' 组的总行数除以1页的行数，得到组的页数
        inGrpPage = Int(inLastRows / inMaxRows + 0.9999)          ' 截止当前页的累计行数除以1页的行数，得到当前页的页码
        If Not (lblShowPage Is Nothing) Then
            lblShowPage.Caption = inGrpPage & " / " & inGrpPages
        End If
        RaiseEvent Current(inGrpPage, inGrpPages)
    End If

End Sub

Public Sub PrintPageFooter()
    blPrint = True
End Sub

方法二：

Option Compare Database
Option Explicit

'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'分组报表显示分组页码和页数类模块(方法二)
'
'功    能:在有分组的报表的每一页上显示组页码和组页数，在预
'         览时改变页面设置后仍能正确显示。
'作    者:t小雨(tcl013@126.com)(t小宝)
'版    本:1.1
'创建日期:2008-05-??
'整理日期:2008-05-30
'补充说明:这个代码是一年前做的，由于实现原理和过程相当复杂，
'         当时没有添加注释，已忘得差不多，加上表达能力有限，
'         现在勉强添加了不完全的注释，但能依照说明会用就行。
'         直接把代码放到报表中也是可以。
'         做成类模块只是为了好保存，以后调用方便，但由于在
'         类模块中不能使用报表的节的事件，调用起来还是有些
'         麻烦，不过总要比直接把代码放在报表简单一点。
'
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

'实现原理：
' 报表加载后：会发生两轮从第1页到最后1页每页的格式化事件，每轮结束后发生一次打印事件，
' 在第一轮格式化事件中报表的Pages属性始终为0。最后还会移到第一页。
' 重设纸张边距、方向或大小等后也发生类似上述过程，情况相对复杂一点，就不细说了。
' 在这些事件中把页码信息保存到数组中，数组元素和报表页数一样，每个元素代表一页的信息。
' 移动页后：也会发生一次格式化事件，在这些事件中把数组中页码的信息显示出来。
' 上面所说的事件都是页面页脚的事件。

'报表设计要求：
' 很简单，有一个分组字段和页面页脚即可

'调用方法有2种：
' 第1种:
' 1、在报表用New关键字声明一个 CreateGroupPage2 类的新实例
' 2、在报表的打开事件执行实例的 Init 方法,传入报表、分组字段和用于显示分组页码的标签
' 3、在页面页脚的 Format (格式化)事件执行实例的 FormatPageFooter 方法
' 4、在页面页脚的 Print (打印)事件执行实例的 PrintPageFooter 方法
' 这种方法在显示分组页码的标签上显示效果如分组字段值: 1 / 2
' 在报表中的代码类似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Dim newGroupPage As New CreateGroupPage2
'
'  Private Sub Report_Open(Cancel As Integer)
'      newGroupPage.Init Me, Me.类别ID, Me.LplGrpPages
'  End Sub
'
'  Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
'      newGroupPage.FormatPageFooter
'  End Sub
'
'  Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'      newGroupPage.PrintPageFooter
'  End Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' 第2种:
' 1、在报表用 WithEvents 关键字声明一个 CreateGroupPage2 类的变量
' 2、在报表的打开事件用 Set New 语句创建新实例
' 3、在报表的打开事件执行实例的 Init 方法,传入报表、分组字段,不须传入用于显示分组页码的标签
' 4、在页面页脚的 Format(格式化) 事件执行实例的 FormatPageFooter 方法
' 5、在页面页脚的 Print(打印) 事件执行实例的 PrintPageFooter 方法
' 6、在类的 Current 事件过程将事件参数返回的分组页码和页数赋给用于显示的标签
' 在报表中的代码类似下面:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Dim WithEvents newGroupPage As CreateGroupPage2
'
'  Private Sub Report_Open(Cancel As Integer)
'      Set newGroupPage = New CreateGroupPage2
'      newGroupPage.Init Me, Me.类别ID, Me.LplGrpPages
'  End Sub
'
'  Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
'      newGroupPage.FormatPageFooter
'  End Sub
'
'  Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
'      newGroupPage.PrintPageFooter
'  End Sub
'
'  Private Sub newGroupPage_Current(GrpPage As Integer, GrpPages As Integer)
'      Me.LplGrpPages.Caption = Me.类别名称 & " 共 " & GrpPages & " 页,第 " & GrpPage & " 页"
'  End Sub
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 这种方法在显示分组页码的标签上显示效果是自定义的

Public Event Current(GrpPage As Integer, GrpPages As Integer)
'在此自定义事件中可以获取分组页码信息，以便自定义显示页码格式

Dim MyRpt As Report
Dim ctrGroup As Control
Dim lblShowPage As Label

Dim blPrint As Boolean            ' 是否已经发生页面页脚的Print事件,为避免页面页脚的Format事件中的代码重复运行
Dim stGroupText As String         ' 分组字段值

Dim inRptPage As Integer          ' 报表页号
Dim inGrpPage As Integer          ' 组页号

Dim ainGrpPage() As Integer       ' 保存组页号的数组,用于显示
Dim ainGrpPages() As Integer      ' 保存每个组的总页数的数组,用于显示

Dim ainGrpPageTmp() As Integer    ' 保存组页号的数组,临时
Dim ainGrpPagesTmp() As Integer   ' 保存每个组的总页数的数组,临时

Public Sub Init(rpt As Report, Group As Control, Optional ShowPage As Label)
'rpt      :报表本身,必须
'Group    :用于分组的字段,必须
'ShowPage :用于显示分组页码的标签,可选

    Set MyRpt = rpt
    Set ctrGroup = Group
    If Not (ShowPage Is Nothing) Then Set lblShowPage = ShowPage

End Sub

Public Sub FormatPageFooter()

Dim inShowGrpPage As Integer           ' 显示的组页码
Dim inShowGrpPages As Integer          ' 显示的组页数
Dim i As Integer, j As Integer

If MyRpt.Page = 1 Then
' 在第1页初始变量

    If inRptPage > 0 And inRptPage = MyRpt.Pages Then
    ' 报表加载后第一轮格式化完毕发生
        For j = inRptPage - inGrpPage + 1 To inRptPage   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            ainGrpPagesTmp(j) = inGrpPage                '
        Next                                             '
        ReDim ainGrpPage(1 To inRptPage)                 ' 这一段代码与后面一段代码一样，因为后面无法判断加载完成
        ReDim ainGrpPages(1 To inRptPage)                '
        For i = 1 To inRptPage                           '
            ainGrpPage(i) = ainGrpPageTmp(i)             '
            ainGrpPages(i) = ainGrpPagesTmp(i)           '
        Next                                             '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End If

    inRptPage = 0
    inGrpPage = 0
    stGroupText = ""
    blPrint = False
End If

If Not blPrint Then
'仅在第一轮格式化中获取页位置，保存到临时数组
    inRptPage = inRptPage + 1
    ReDim Preserve ainGrpPageTmp(1 To inRptPage)
    ReDim Preserve ainGrpPagesTmp(1 To inRptPage)

    If stGroupText = ctrGroup Then                      ' 当前页与上一页在同一组
        inGrpPage = inGrpPage + 1                       ' 累计本组页数，也即获得当前页在当前组中的页码
    Else                                                ' 当前页与上一页不在同一组，换组
        For j = inRptPage - inGrpPage To inRptPage - 1  ' 循环上一组的每一页
            ainGrpPagesTmp(j) = inGrpPage               ' 每个元素都储存总页数，页在组中的最大序号即总页数
        Next
        inGrpPage = 1                                   ' 重新开始累计本组页数
        stGroupText = ctrGroup
    End If

    ainGrpPageTmp(inRptPage) = inGrpPage                ' 每个元素都储存页在组中的页码
End If

If MyRpt.Page = MyRpt.Pages Then
'报表已打开后重设纸张边距大小方向等会发生
    If inRptPage = MyRpt.Pages Then
    '仅在最后一页把临时数组中的页码信息更新到用于显示页码的数组
        For j = inRptPage - inGrpPage + 1 To inRptPage
            ainGrpPagesTmp(j) = inGrpPage               ' 这个循环代码与上面有重复，因为上面无法判断最后一页
        Next

        ReDim ainGrpPage(1 To inRptPage)                ' 数组大小为报表页数
        ReDim ainGrpPages(1 To inRptPage)
        For i = 1 To inRptPage
            ainGrpPage(i) = ainGrpPageTmp(i)
            ainGrpPages(i) = ainGrpPagesTmp(i)
        Next
    End If
End If

On Error Resume Next

If MyRpt.Pages > 0 Then
    inShowGrpPages = ainGrpPages(MyRpt.Page)   '
    inShowGrpPage = ainGrpPage(MyRpt.Page)    '
    If Not (lblShowPage Is Nothing) Then lblShowPage.Caption = _
        ctrGroup & ": " & inShowGrpPage & " / " & inShowGrpPages
    RaiseEvent Current(inShowGrpPage, inShowGrpPages)
End If

End Sub

Public Sub PrintPageFooter()
' 区分两轮格式化
    blPrint = True
End Sub

本文链接

XAF Store Model Differences in Database Using Complex Security

2011-10-21T03:39:00Z

http://www.devexpress.com/Support/Center/p/Q341530.aspx

http://www.devexpress.com/Support/Center/p/S38032.aspx

本文链接

XAF How to set size of a popup detail view

2011-10-17T03:40:00Z

How to set size of a popup detail view

http://community.devexpress.com/forums/p/105313/356765.aspx#356765

private void Application_CustomizeTemplate(object sender, CustomizeTemplateEventArgs e)
        {
            this.Application.CustomizeTemplate -= this.Application_CustomizeTemplate;
            (e.Template as Form).Size = new Size(440, 260);
        }

本文链接

博客园_.NET 學習

XAF Delta Replication Module for Devexpress eXpressApp Framework

BDD 入门

XAF 用户双击ListView记录时禁止显示DetailView

How to prevent a DetailView from being shown when a User double clicks or presses the Enter key on a record in a ListView http://www.devexpress.com/Support/Center/kb/p/K18038.aspx本文链接

XAF Using Domain Components (DC) in XAF (DevExpress): Part I: The Basics

XAF Using Domain Components (DC) in XAF (DevExpress): Part I: The Basics

XAF 一个字段的值改变则另一个字段值也改变的实现

XAF 11.2权限扩展之角色按钮权限控制

XAF How to enable LayoutView mode in the GridControl in List Views

Access 报表打印之分组页码实现(轉)

XAF Store Model Differences in Database Using Complex Security

XAF How to set size of a popup detail view

How to prevent a DetailView from being shown when a User double clicks or presses the Enter key on a record in a ListView

http://www.devexpress.com/Support/Center/kb/p/K18038.aspx
本文链接