?????? 我們在開發管理軟件的時候,常常遇到流水號(單據號、登記號)自動生成、控制和管理的問題。由于流水號
具有唯一性和連續性的特點,在實際開發過程中若處理不好,會產生流水號重復及斷號的問題。特別是多個并發用
戶同時保存一張同樣的業務單據時，系統會返回多個相同的流水號。筆者以前在開發企業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"提示,后臺軟件可根據返回信息提醒軟件操作員。

轉載于:https://www.cnblogs.com/lzmbk/p/8456029.html

總結

以上是生活随笔為你收集整理的自动生成业务单据流水号方案的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。