select replace(substring(convert(varchar(20),getdate(),120),1,10),'-','')+cast(MAX(订单号)+1 as varchar(4))
使用存储过程 --创建测试表 create table usertable(userid varchar(20),username nvarchar(20)) go --创建触发器 create trigger tg_insert on usertable for insert as declare @username nvarchar(20) declare @userid varchar(20) declare @num int select @userid=max(userid) from usertable where userid like 'jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '%' if @userid is null set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-01' else begin set @num=cast(substring(@userid,10,2) as int) set @num=@num + 1 if @num<10 set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-0' + cast(@num as varchar(2)) else set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-' + cast(@num as varchar(2)) end select @username=username from inserted rollback insert into usertable values(@userid,@username) go--测试数据 insert into usertable(username) values('aa') go insert into usertable(username) values('bb') go insert into usertable(username) values('cc') go --显示数据 select * from usertable go
--找帐套字头号 DECLARE @IH char(1) SELECT @IH = LEFT(IncID,1) FROM accounts WHERE ID = @Incom
--编号年月部分 DECLARE @YM char(6) SET @YM = CONVERT(char(6),GETDATE(),12) --单据字头 DECLARE @DJHH char(8) SET @DJHH = @IH + 'E' + @YM
--找编号的基值(方法:用当天的编号到排序取最大的一个。如当前最大编号为0001那么它的基值为1,这样就能得出下个编号为0002) DECLARE @MNO INT --当天最大的单据号(数值) SET @MNO = 1 select TOP 1 @MNO = CONVERT(int,RIGHT(DJH,4))+1 from Orders where left(DJH,8) = @DJHH and incom = @Incom Orders by DJH desc
DECLARE @DJH char(12)
--扩充成4位十进制编号(最大可显示9999) IF @MNO < 9999 IF @MNO < 999 IF @MNO < 99 IF @MNO < 9 SET @DJH = @DJHH + '000' + CONVERT(char(1),@MNO) ELSE SET @DJH = @DJHH + '00' + CONVERT(char(2),@MNO) ELSE SET @DJH = @DJHH + '0' + CONVERT(char(3),@MNO) ELSE SET @DJH = @DJHH + CONVERT(char(4),@MNO) ELSE SET @DJH = @DJHH + '9999'
最简单的实现:identity列结合计算列create table tb ( ID int identity, OrderID as replace(convert(char(10),getdate(),120),'-','')+stuff(convert(varchar,(10000+ID)),1,1,''), 其他字段......... )OrderID是日期与序号的组合: 2005080800001 2005080800002 ........
我这里有一小段生成订单号的程序,如果你要的话,我贴出来给你,我是先生成订单号而后存入SQL Server表中的! '************************************************************************************** '* 生成订单号,先从数据库中检索订单记录,而后根据已有的信息自动生成订单号Dim rs As ADODB.Recordset Dim sn As Double sn = 0If kuangjia = 1 Then ' kuangjia=1 说明的该产品是保税加工产品,否则是一般贸易的产品 strk = "BP" Else strk = "AP" End IfSet rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'") If rs.RecordCount > 0 Then While Not rs.EOF If CDbl(Right(rs("DDH"), 6)) > sn Then sn = CDbl(Right(rs("DDH"), 6)) End If rs.MoveNext Wend sn = 1000000 + sn + 1 txtDDH = strk & Right(CStr(sn), 6) Else txtDDH = strk & "000001" End IfEnd Sub
比如说定单的代号是pur那么他所生成的单号一般很当天的日期有关系
如:
Pur200508080001通过这个方式来生成的
具体的是通过比较和判断得出的!
--创建测试表
create table usertable(userid varchar(20),username nvarchar(20))
go
--创建触发器
create trigger tg_insert on usertable
for insert
as
declare @username nvarchar(20)
declare @userid varchar(20)
declare @num int
select @userid=max(userid) from usertable where userid like 'jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '%'
if @userid is null
set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-01'
else
begin
set @num=cast(substring(@userid,10,2) as int)
set @num=@num + 1
if @num<10
set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-0' + cast(@num as varchar(2))
else
set @userid='jzxd' + substring(convert(varchar(10),getdate(),112),5,4) + '-' + cast(@num as varchar(2))
end
select @username=username from inserted
rollback
insert into usertable values(@userid,@username)
go--测试数据
insert into usertable(username) values('aa')
go
insert into usertable(username) values('bb')
go
insert into usertable(username) values('cc')
go
--显示数据
select * from usertable
go
大多数的单据都需要有个单据号。有的单据号就是顺序编号如:000001,000002……。有的单据号是有一定意义的,如我遇见过的一个需求:单据号共12位,1位帐套号(区分使用单位的),1位单据标识号(表示该单是什么单,如:E表示订货单,X表示销售单),2位年号(05表示2005年),2位月号,2位日号,4位编号(按当天的顺序,最大9999,超过9999的就用9999表示) 。JE0505070001就表示某某单位2005年5月7日的第一单订货单。用编程实现这个要求当然不算太难,不过要将单据号生成方法放到存储过程中去就要费点心思了。
下面就以插入订单为例,其中有一段代码是可提取到一个单独的存储存储过程中的,这样可增加通用性。
-插入客户订单
CREATE PROCEDURE InsertOrder
(
@CustomerId int,
@MX nvarchar(4000),
@Incom smallint
)
AS
SET NOCOUNT ON
--这一个部分还可单独提取到一个存储过程中通过传入“单据标识号”和“单据表名”为参数---------------------------------------
--找帐套字头号
DECLARE @IH char(1)
SELECT @IH = LEFT(IncID,1) FROM accounts WHERE ID = @Incom
--编号年月部分
DECLARE @YM char(6)
SET @YM = CONVERT(char(6),GETDATE(),12)
--单据字头
DECLARE @DJHH char(8)
SET @DJHH = @IH + 'E' + @YM
--找编号的基值(方法:用当天的编号到排序取最大的一个。如当前最大编号为0001那么它的基值为1,这样就能得出下个编号为0002)
DECLARE @MNO INT --当天最大的单据号(数值)
SET @MNO = 1
select TOP 1 @MNO = CONVERT(int,RIGHT(DJH,4))+1 from Orders where left(DJH,8) = @DJHH and incom = @Incom Orders by DJH desc
DECLARE @DJH char(12)
--扩充成4位十进制编号(最大可显示9999)
IF @MNO < 9999
IF @MNO < 999
IF @MNO < 99
IF @MNO < 9
SET @DJH = @DJHH + '000' + CONVERT(char(1),@MNO)
ELSE
SET @DJH = @DJHH + '00' + CONVERT(char(2),@MNO)
ELSE
SET @DJH = @DJHH + '0' + CONVERT(char(3),@MNO)
ELSE
SET @DJH = @DJHH + CONVERT(char(4),@MNO)
ELSE
SET @DJH = @DJHH + '9999'
----(可提取的部分结束)------------------------------------------------------------------------------------------------------
--插入订单
INSERT INTO Orders (DJH, CustomerId, MX, InCom) VALUES (@DJH, @CustomerId, @MX, @Incom)
RETURN
GO
(
ID int identity,
OrderID as replace(convert(char(10),getdate(),120),'-','')+stuff(convert(varchar,(10000+ID)),1,1,''),
其他字段.........
)OrderID是日期与序号的组合:
2005080800001
2005080800002
........
'**************************************************************************************
'* 生成订单号,先从数据库中检索订单记录,而后根据已有的信息自动生成订单号Dim rs As ADODB.Recordset
Dim sn As Double
sn = 0If kuangjia = 1 Then ' kuangjia=1 说明的该产品是保税加工产品,否则是一般贸易的产品
strk = "BP"
Else
strk = "AP"
End IfSet rs = WorkFlowConnect.Execute("select * from tbdd where left(DDH,2)='" & strk & "'")
If rs.RecordCount > 0 Then
While Not rs.EOF
If CDbl(Right(rs("DDH"), 6)) > sn Then
sn = CDbl(Right(rs("DDH"), 6))
End If
rs.MoveNext
Wend
sn = 1000000 + sn + 1
txtDDH = strk & Right(CStr(sn), 6)
Else
txtDDH = strk & "000001"
End IfEnd Sub