VB实例编程:eXpressAppFramework生成单据编号的解决方案
来源:优易学  2011-8-28 15:38:51   【优易学:中国教育考试门户网】   资料下载   IT书店
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

[1] [2] 下一页

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训