XAF如何生成单据编号

　　eXpressApp Framework (以下简称XAF)是Devexpress公司开发的一套基于.net平台的O/R M快速开发应用架构,其特点是可以快速的开发出基于web和winform的数据库应用程序,在XAF的实际应用开发过程中,我们难免要实现单据编号的自动生成和管理,传统的很多应用系统都是利用存储过程来实现这一目的的,我们知道XAF的是用XPO来和数据库存储系统交互的,有没有办法不用存储过程而直接用XPO来生成和管理应用系统的单据编号呢?答案是肯定的,下面就把这个实现的实体类和相应的实现函数共享出来,给大家参考.

　　1.单据编号设定实体类

　　Imports System

　　Imports System.ComponentModel

　　Imports DevExpress.Xpo

　　Imports DevExpress.ExpressApp

　　Imports DevExpress.Persistent.Base

　　Imports DevExpress.Persistent.BaseImpl

　　Imports DevExpress.Persistent.Validation

　　 _

　　 _

　　Public Class B_BILLCODEPREX

　　Inherits BaseObject

　　Public Sub New(ByVal session As Session)

　　MyBase.New(session)

　　End Sub

　　Private FTBNAME As String

　　 _

　　 _

　　Public Property TBNAME() As String

　　Get

　　Return FTBNAME

　　End Get

　　Set(ByVal value As String)

　　SetPropertyValue("TBNAME", FTBNAME, value)

　　End Set

　　End Property

　　Private FTBCAPTION As String

　　 _

　　 _

　　Public Property TBCAPTION() As String

　　Get

　　Return FTBCAPTION

　　End Get

　　Set(ByVal value As String)

　　SetPropertyValue("TBCAPTION", FTBCAPTION, value)

　　End Set

　　End Property