我们在开发管理软件的时候,常常遇到流水号(单据号、登记号)自动生成、控制和管理的问题。由于流水号
具有唯一性和连续性的特点,在实际开发过程中若处理不好,会产生流水号重复及断号的问题。特别是多个并发用
户同时保存一张同样的业务单据时，系统会返回多个相同的流水号。笔者以前在开发企业ERP系统的时候,就曾出
现多个并发用户同时保存同类型的业务单据时，系统返回相同的流水号。导致业务单据出现重复。经过多方研究,
最终笔者找到了解决方案,该方案无需对数据库加锁,高效又简单,在实际应用中取得了良好的效果!现把该方案写出来,
供同行参考批评。
客户要求自动生成销售单据流水号,格式为:XS-年月-该年该月的流水号。具体格式如下:XS-1702-00003,表
示2017年2月开具第3单销售单,最大单据号为99999。根据客户的需求,我们按以下步骤编写流水号自动生成代码:
一.建立业务单据总表
CREATE TABLE [dbo].[YWDJZB] (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[CKDH] [varchar] (30) NOT NULL ,
[ZD1] [varchar] (20) NULL
[ZD2] [varchar] (20) NULL
[ZD3] [varchar] (20) NULL
) ON [PRIMARY]
GO
YWDJZB为业务单据总表 ,CKDH为流水号,具有唯一性和连续性的特点,所以设置为主键,防止重复。ZD1,ZD2,ZD3为
单据总表其他字段,可根据实际业务修改。
二.建立流水号生成存取过程(SQL SERVER数据库)
CREATE PROCEDURE GETCKDH
@getckdh VARCHAR(50),--流水号类型
@dwmc VARCHAR(500),--@dwmc为要保存的单据记录,用户可根据实际需要传递[YWDJZB]表的记录,
@RETURNDA VARCHAR(150) OUTPUT
AS
declare
@DWGQ VARCHAR(50),--生成的单据流水号变量
@SQLSTR NVARCHAR(1000)--SQL语句
select @DWGQ=MaxValue from ( Select Max(Cast(RIGHT(CKDH,5) as Int))+1 as MaxValue from
YWDJZB where CKDH like @getckdh+'%') AS TEMPDATA --自动生成最新的单据流水号变量
if len(@DWGQ)<>0
begin
while len(@DWGQ)<5
begin
set @DWGQ='0'+@DWGQ
End
set @DWGQ=@getckdh+@DWGQ
end
else
begin
set @DWGQ=@getckdh+'00001'
end
select @SQLSTR='insert into YWDJZB (ckdh,ZD1,ZD2,ZD3) values('+''''+@DWGQ+''''+@dwmc
--根据最新的流水号保存单据记录
exec sp_executesql @SQLSTR
if EXISTS (select * from YWDJZB where CKDH=@DWGQ)
begin
set @RETURNDA=@DWGQ
end
else
begin
set @RETURNDA='error'
end
return
GO
三.管理软件调用,笔者采用DELPHI开发管理软件,具体代码如下:
........
SQL.Add(' EXECUTE GETCKDH :getckdh, :dwmc, :RETURNDA Output ') ;
Parameters.Items[0].Value := getckdh;
dwmc:=','''+ZD1BL+''','''+ZD2BL+''','''+ZD3BL+''');//用户可根据实际需要传递[YWDJZB]表的记录
Parameters.Items[1].Value := dwmc;//
Prepared;
ExecSQL;
result:=Parameters.Items[2].Value;
........
若SQL SERVER数据库成功生成流水号并保存以下记录:
into YWDJZB (ckdh,ZD1,ZD2,ZD3) values(''流水号'',''字段1'',,''字段2'',,''字段3''),并自动返回自动生
成的流水号给后台软件,若处理失败,就返回"error"提示,后台软件可根据返回信息提醒软件操作员。