彩票走势图

[C#]

public interface IXpoController {
Session XpoSession { get; }
}

[VB.NET]

Public Interface IXpoController
ReadOnly Property XpoSession() As Session
End Interface

[C#]

public class BaseXpoController : Controller, IXpoController
{
public BaseXpoController() {
XpoSession = CreateSession();
}

Session fXpoSession;
public Session XpoSession {
get { return fXpoSession; }
private set { fXpoSession = value; }
}

protected virtual Session CreateSession() {
return XpoHelper.GetNewSession();
}
}

[VB.NET]

Public Class BaseXpoController
Inherits Controller
Implements IXpoController
Public Sub New()
XpoSession = CreateSession()
End Sub

Private fXpoSession As Session
Public Property XpoSession() As Session
Get
Return fXpoSession
End Get
Private Set(ByVal value As Session)
fXpoSession = value
End Set
End Property

Protected Overridable Function CreateSession() As Session
Return XpoHelper.GetNewSession()
End Function
End Class

[C#]

public class XpoModelBinder :DevExpressEditorsBinder {
protected override object CreateModel(ControllerContext controllerContext, ModelBindingContext bindingContext, Type modelType) {
IXpoController xpoController = controllerContext.Controller as IXpoController;
if (xpoController == null) throw new InvalidOperationException("The controller does not support IXpoController interface");
XPClassInfo classInfo = xpoController.XpoSession.GetClassInfo(modelType);
ValueProviderResult result = bindingContext.ValueProvider.GetValue(classInfo.KeyProperty.Name);
return result == null ? classInfo.CreateNewObject(xpoController.XpoSession) :
xpoController.XpoSession.GetObjectByKey(classInfo, result.ConvertTo(classInfo.KeyProperty.MemberType));
}
}

[VB.NET]

Public Class XpoModelBinder
Inherits DevExpressEditorsBinder
Protected Overrides Function CreateModel(ByVal controllerContext As ControllerContext, ByVal bindingContext As ModelBindingContext, ByVal modelType As Type) As Object
Dim xpoController As IXpoController = TryCast(controllerContext.Controller, IXpoController)
If xpoController Is Nothing Then
Throw New InvalidOperationException("The controller does not support IXpoController interface")
End If
Dim classInfo As XPClassInfo = xpoController.XpoSession.GetClassInfo(modelType)
Dim result As ValueProviderResult = bindingContext.ValueProvider.GetValue(classInfo.KeyProperty.Name)
Return If(result Is Nothing, classInfo.CreateNewObject(xpoController.XpoSession), xpoController.XpoSession.GetObjectByKey(classInfo, result.ConvertTo(classInfo.KeyProperty.MemberType)))
End Function
End Class

[C#]

[AcceptVerbs(HttpVerbs.Post)]
public ActionResult Create([ModelBinder(typeof(XpoModelBinder))]T newEntity) {
return SaveModel(newEntity);
}

[VB.NET]

<AcceptVerbs(HttpVerbs.Post)> _
Public Function Create(<ModelBinder(GetType(XpoModelBinder))> ByVal newEntity As T) As ActionResult
Return SaveModel(newEntity)
End Function

[C#]

IEnumerable<CustomerViewModel> GetCustomers() {
return (from c in XpoSession.Query<Customer>().ToList()
select new CustomerViewModel() { ID = c.Oid, Name = c.Name }).ToList();
}

[VB.NET]

Private Function GetCustomers() As IEnumerable(Of CustomerViewModel)
Return ( _
From c In XpoSession.Query(Of Customer)().ToList() _
Select New CustomerViewModel() With {.ID = c.Oid, .Name = c.Name}).ToList()
End Function

[C#]

> using DevExpress.Xpo;

public abstract class BaseViewModel<T> {
int id = -1;
public int ID {
get { return id; }
set { id = value; }
}

public abstract void GetData(T model);
}

[VB.NET]

Imports DevExpress.Xpo

Public MustInherit Class BaseViewModel(Of T)
Private id_Renamed As Integer = -1
Public Property ID() As Integer
Get
Return id_Renamed
End Get
Set(ByVal value As Integer)
id_Renamed = value
End Set
End Property

Public MustOverride Sub GetData(ByVal model As T)
End Class

[C#]

public class CustomerViewModel : BaseViewModel<Customer> {
public string Name { get; set; }

public override void GetData(Customer model) {
model.Name = Name;
}
}

[VB.NET]

Public Class CustomerViewModel
Inherits BaseViewModel(Of Customer)
Private privateName As String
Public Property Name() As String
Get
Return privateName
End Get
Set(ByVal value As String)
privateName = value
End Set
End Property

Public Overrides Sub GetData(ByVal model As Customer)
model.Name = Name
End Sub
End Class

[C#]

using System.Web.Mvc;
using DevExpress.Xpo;
using DevExpress.Xpo.DB.Exceptions;

namespace DevExpressMvcApplication.Controllers {
public abstract class BaseXpoController<T> :Controller where T:XPObject {
UnitOfWork fSession;

public BaseXpoController() : base() {
fSession = CreateSession();
}

protected UnitOfWork XpoSession {
get { return fSession; }
}

protected virtual UnitOfWork CreateSession() {
return XpoHelper.GetNewUnitOfWork();
}

bool Save(BaseViewModel<T> viewModel, bool delete) {
T model = XpoSession.GetObjectByKey<T>(viewModel.ID);
if (model == null && !delete)
model = (T)XpoSession.GetClassInfo<T>().CreateNewObject(XpoSession);
if (!delete)
viewModel.GetData(model);
else if (model != null)
XpoSession.Delete(model);
try {
XpoSession.CommitChanges();
return true;
} catch (LockingException) { return false; }
}

protected bool Save(BaseViewModel<T> viewModel) {
return Save(viewModel, false);
}

protected bool Delete(BaseViewModel<T> viewModel) {
return Save(viewModel, true);
}
}
}

[VB.NET]

Imports System.Web.Mvc
Imports DevExpress.Xpo
Imports DevExpress.Xpo.DB.Exceptions

Namespace DevExpressMvcApplication.Controllers
Public MustInherit Class BaseXpoController(Of T As XPObject)
Inherits Controller
Private fSession As UnitOfWork

Public Sub New()
MyBase.New()
fSession = CreateSession()
End Sub

Protected ReadOnly Property XpoSession() As UnitOfWork
Get
Return fSession
End Get
End Property

Protected Overridable Function CreateSession() As UnitOfWork
Return XpoHelper.GetNewUnitOfWork()
End Function

Private Function Save(ByVal viewModel As BaseViewModel(Of T), ByVal delete As Boolean) As Boolean
Dim model As T = XpoSession.GetObjectByKey(Of T)(viewModel.ID)
If model Is Nothing AndAlso (Not delete) Then
model = CType(XpoSession.GetClassInfo(Of T)().CreateNewObject(XpoSession), T)
End If
If (Not delete) Then
viewModel.GetData(model)
ElseIf model IsNot Nothing Then
XpoSession.Delete(model)
End If
Try
XpoSession.CommitChanges()
Return True
Catch e1 As LockingException
Return False
End Try
End Function

Protected Function Save(ByVal viewModel As BaseViewModel(Of T)) As Boolean
Return Save(viewModel, False)
End Function

Protected Function Delete(ByVal viewModel As BaseViewModel(Of T)) As Boolean
Return Save(viewModel, True)
End Function
End Class
End Namespace

[C#]

using System;
using System.Linq;
using System.Web.Mvc;
using DevExpress.Xpo;
using DevExpress.Web.Mvc;
using System.Collections.Generic;

namespace DevExpressMvcApplication.Controllers
{
public class CustomersController : BaseXpoController<Customer>
{
public ActionResult Index()
{
return View(GetCustomers());
}

public ActionResult IndexPartial() {
return PartialView("IndexPartial", GetCustomers());
}
[HttpPost]
public ActionResult EditCustomer([ModelBinder(typeof(DevExpressEditorsBinder))] CustomerViewModel customer) {
Save(customer);
return PartialView("IndexPartial", GetCustomers());
}

[HttpPost]
public ActionResult DeleteCustomer([ModelBinder(typeof(DevExpressEditorsBinder))] CustomerViewModel customer) {
Delete(customer);
return PartialView("IndexPartial", GetCustomers());
}

IEnumerable<CustomerViewModel> GetCustomers() {
return (from c in XpoSession.Query<Customer>().ToList()
select new CustomerViewModel() { ID = c.Oid, Name = c.Name }).ToList();
}
}
}

[VB.NET]

Imports System
Imports System.Linq
Imports System.Web.Mvc
Imports DevExpress.Xpo
Imports DevExpress.Web.Mvc
Imports System.Collections.Generic

Namespace DevExpressMvcApplication.Controllers
Public Class CustomersController
Inherits BaseXpoController(Of Customer)
Public Function Index() As ActionResult
Return View(GetCustomers())
End Function

Public Function IndexPartial() As ActionResult
Return PartialView("IndexPartial", GetCustomers())
End Function
<HttpPost> _
Public Function EditCustomer(<ModelBinder(GetType(DevExpressEditorsBinder))> ByVal customer As CustomerViewModel) As ActionResult
Save(customer)
Return PartialView("IndexPartial", GetCustomers())
End Function

<HttpPost> _
Public Function DeleteCustomer(<ModelBinder(GetType(DevExpressEditorsBinder))> ByVal customer As CustomerViewModel) As ActionResult
Delete(customer)
Return PartialView("IndexPartial", GetCustomers())
End Function

Private Function GetCustomers() As IEnumerable(Of CustomerViewModel)
Return ( _
From c In XpoSession.Query(Of Customer)().ToList() _
Select New CustomerViewModel() With {.ID = c.Oid, .Name = c.Name}).ToList()
End Function
End Class
End Namespace

保存和删除方法可返回布尔值来表明操作是否成功。若最终用户对另一最终用户已更新的记录进行更新，则这些方法可返回错误返回值，从而允许程序员将上述冲突通知最终用户。