How to: Implement Domain Components(如何实现领域构件)

Show Me(告诉我)

The complete sample project is available in the DevExpress Code Central database at http://www.devexpress.com/example=E2194. Depending on the target platform type (ASP.NET, WinForms, etc), you can either run this example online or download an auto-executable sample.

完成的例子项目在http://www.devexpress.com/example=E2194里。依靠平台类型（ASP.NET, WinForms等等），你也可以在线运行示例或者下载一个自动执行的示例。

using DevExpress.Persistent.Base;

// ...

[DomainComponent, NavigationItem, ImageName("BO_Person")]

public interface IPerson {

[RuleRequiredField]

string LastName { get; set; }

string FirstName { get; set; }

string FullName { get; }

DateTime Birthday { get; set; }

bool Married { get; set; }

string SpouseName { get; set; }

}Imports DevExpress.Persistent.Base

' ...

<DomainComponent, NavigationItem, ImageName("BO_Person")> _

Public Interface IPerson

<RuleRequiredField> _

Property LastName() As String

Property FirstName() As String

ReadOnly Property FullName() As String

Property Birthday() As DateTime

Property Married() As Boolean

Property SpouseName() As String

End Interface

C#

VB

[DomainLogic(typeof(IPerson))]

public class PersonLogic {

public static string Get_FullName(IPerson person) {

return string.Format("{0} {1}", person.FirstName, person.LastName);

}

public void AfterChange_Married(IPerson person) {

if (!person.Married) person.SpouseName = "";

}

}

<DomainLogic(GetType(IPerson))> _

Public Class PersonLogic

Public Shared Function Get_FullName(ByVal person As IPerson) As String

Return String.Format("{0} {1}", person.FirstName, person.LastName)

End Function

Public Sub AfterChange_Married(ByVal person As IPerson)

If (Not person.Married) Then

person.SpouseName = ""

End If

End Sub

End Class

C#

VB

using System.Collections.Generic;

// ...

[DomainComponent]

public interface IOrganization {

string Name { get; set; }

IList<IPerson> Staff { get; }

}

Imports System.Collections.Generic

' ...

<DomainComponent> _

Public Interface IOrganization

Property Name() As String

ReadOnly Property Staff() As IList(Of IPerson)

End Interface

C#

VB

Note(备注)

We do not implement the Domain Logic for the IOrganization Domain Component, as it is not required in the current scenario.
当前我们不需要给IOrganization构件实现领域逻辑。

using DevExpress.Persistent.Base;

using System.Security.Cryptography;

// ...

[DomainComponent]

public interface IAccount {

[FieldSize(8)]

string Login { get; set; }

[FieldSize(8)]

string Password { get; set; }

}

[DomainLogic(typeof(IAccount))]

public class AccountLogic {

public static string GeneratePassword() {

byte[] randomBytes = new byte[5];

new RNGCryptoServiceProvider().GetBytes(randomBytes);

return Convert.ToBase64String(randomBytes);

}

public static void AfterConstruction(IAccount account) {

account.Password = GeneratePassword();

}

}

Imports DevExpress.Persistent.Base

Imports System.Security.Cryptography

' ...

<DomainComponent> _

Public Interface IAccount

<FieldSize(8)> _

Property Login() As String

<FieldSize(8)> _

Property Password() As String

End Interface

<DomainLogic(GetType(IAccount))> _

Public Class AccountLogic

Public Shared Function GeneratePassword() As String

Dim randomBytes(4) As Byte

CType(New RNGCryptoServiceProvider(), RNGCryptoServiceProvider).GetBytes(randomBytes)

Return Convert.ToBase64String(randomBytes)

End Function

Public Shared Sub AfterConstruction(ByVal account As IAccount)

account.Password = GeneratePassword()

End Sub

End Class

C#

VB

using DevExpress.Persistent.Base;

// ...

[DomainComponent, NavigationItem, ImageName("BO_Contact")]

public interface ICustomer : IOrganization, IAccount {

}

Imports DevExpress.Persistent.Base

' ...

<DomainComponent, NavigationItem, ImageName("BO_Contact")> _

Public Interface ICustomer

Inherits IOrganization, IAccount

End Interface

C#

VB

Public sealed partial class DCExampleModule : ModuleBase {

// ...

public override void Setup(XafApplication application) {

if (!XafTypesInfo.IsInitialized) {

XafTypesInfo.Instance.AddEntityToGenerate("Person", typeof(IPerson));

XafTypesInfo.Instance.AddEntityToGenerate("Account", typeof(IAccount));

XafTypesInfo.Instance.AddEntityToGenerate("Organization", typeof(IOrganization));

XafTypesInfo.Instance.AddEntityToGenerate("Customer", typeof(ICustomer));

}

base.Setup(application);

}

}

Public NotInheritable Partial Class DCExampleModule

Inherits ModuleBase

' ...

Public Overrides Sub Setup(ByVal application As XafApplication)

If (Not XafTypesInfo.IsInitialized) Then

XafTypesInfo.Instance.AddEntityToGenerate("Person", GetType(IPerson))

XafTypesInfo.Instance.AddEntityToGenerate("Account", GetType(IAccount))

XafTypesInfo.Instance.AddEntityToGenerate("Organization", GetType(IOrganization))

XafTypesInfo.Instance.AddEntityToGenerate("Customer", GetType(ICustomer))

End If

MyBase.Setup(application)

End Sub

End Class

C#

VB

Note (备注)

With the code above, the generated classes will be derived from the XPObject class. To use another base class, use the overload of the ITypesInfo.AddEntityToGenerate method, which takes the baseClass parameter. Additionally, you can call the ITypesInfo.RegisterDomainLogic and ITypesInfo.UnregisterDomainLogic methods to manipulate the Domain Logic assignment.
有了上面代码，生成的类起源于XPObject类。要用其它基类，请覆写ITypesInfo.AddEntityToGenerate方法，使用baseClass参数。另外，你可以调用ITypesInfo.RegisterDomainLogic和ITypesInfo.UnregisterDomainLogic方法操纵领域逻辑任务。