我們經常需要用一個流水號來唯一表示一條數據,我們有時採用隊列來自動生成一個唯一的流水號,但是採用隊列經常不能滿足我們的需求,比如說,這個隊列只能設定一個最小值,最大值,然後進行累加,不能將產生這個流水號的日期包括今這個流水號中;一種類型就要新建一個隊列等。
下面這個存儲過程可以產生一個流水號,它的格式是當前日期(格式YYYYMMDD)+6位的流水號數字,不同的類型只要給出一個不同的類型名稱就可以了。在使用這個存儲過程前,要先創建一個表來保存不同的類型,表結構如下:
create table T_GENID
(
CLASS NUMBER(2) not null,
GENDATE CHAR(8) not null,
ID VARCHAR2(12) not null
)
tablespace SERVICE_MAIN_DAT
pctfree 10
pctused 80
initrans 1
maxtrans 255
storage
(
initial 1M
next 1M
minextents 1
maxextents unlimited
pctincrease 0
);
-- Create/Recreate primary, unique and foreign key constraints
alter table T_GENID
add constraint PK_GENID primary key (CLASS,ID)
using index
tablespace SERVICE_MAIN_IDX
pctfree 10
initrans 2
maxtrans 255
storage
(
initial 1M
next 1M
minextents 1
maxextents unlimited
pctincrease 0
);
存儲過程如下:
CREATE OR REPLACE PROCEDURE p_GetSerialNo
(
i_Type IN VARCHAR2, --流水號的類型
o_SerialNo OUT VARCHAR2 --返回流水號
) IS
v_Dat VARCHAR2(10);
v_SerialNum NUMBER(7);
BEGIN
--取系統日期生成需要的字符串
v_Dat := TO_CHAR(SYSDATE,('YYYYMMDD'));
--生成產生流水號的序號
BEGIN
SELECT Decode(GENDATE,v_Dat,(ID+1),1)
INTO v_SerialNum
FROM T_GENID WHERE CLASS=i_Type FOR UPDATE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
v_SerialNum:= 1;
INSERT INTO T_GENID(CLASS,GENDATE,ID)
VALUES (i_Type,v_Dat,v_SerialNum);
WHEN TOO_MANY_ROWS THEN
SELECT NVL(MAX(ID)+1,1)
INTO v_SerialNum
FROM T_GENID WHERE CLASS=i_Type;
DELETE t_AGT_GENID WHERE CLASS=i_Type;
INSERT INTO T_GENID(CLASS,GENDATE,ID)
VALUES (i_Type,v_Dat,v_SerialNum);
END;
--修改流水號參數
UPDATE T_GENID
SET GENDATE = v_Dat,
ID = v_SerialNum WHERE CLASS=i_Type;
COMMIT;
--得到需要的流水號
o_SerialNo := v_Dat||Lpad(v_SerialNum,6,'0');
EXCEPTION
WHEN OTHERS THEN
o_SerialNo := NULL;
END;
/
使用方法很簡單,就是在pl/sql中調用這個存儲過程,給其設置一個類型就行了,如下:
CREATE OR REPLACE PROCEDURE p_Test
(
)
IS
v_serId VARCHAR2(14);
BEGIN
P_Agt_GetSerialNo ('test',v_serId); --生成流水號,放到變量v_serId中,第一個參數就是給其設置的類型了
INSERT INT t_test (testid) VALUES(v_serId);--將產生的流水號插入表中
COMMIT;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END;
/