eXpressAppFramework生成单据编号的解决方案计算机二级考试

文章作者 100test 发表时间 2009:07:25 11:27:16
来源 100Test.Com百考试题网

　　编辑特别推荐:

　　全国计算机等级考试（等考）指定教材

　　全国计算机等级考试学习视频

　　全国计算机等级考试网上辅导招生

　　全国计算机等级考试时间及科目预告

　　百考试题教育全国计算机等级考试在线测试平台

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　计算机等级考试四级应用题解析汇总

　　2009年下半年全国计算机二级考试报名时间从6月1日起已经开始报名。详情点击：2009年下半年全国计算机等级考试各地报名点汇总。2009年下半年全国计算机二级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库。

　　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
　　<.DefaultClassOptions()>. _
　　<.System.ComponentModel.DisplayName("单据编号设定")>. _
　　Public Class B_BILLCODEPREX
　　Inherits BaseObject
　　Public Sub New(ByVal session As Session)
　　MyBase.New(session)
　　End Sub
　　Private FTBNAME As String
　　<.DevExpress.Xpo.DisplayName("表")>. _
　　<.Custom("AllowEdit", "False")>. _
　　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
　　<.DevExpress.Xpo.DisplayName("表名称")>. _
　　<.Custom("AllowEdit", "False")>. _
　　Public Property TBCAPTION() As String
　　Get
　　Return FTBCAPTION
　　End Get