一个用来生成流水号的存储过程
我们经常需要用一个流水号来唯一表示一条数据，我们有时采用队列来自动生成一个唯一的流水号，但是采用队列经常不能满足我们的需求，比如说，这个队列只能设定一个最小值，最大值，然后进行累加，不能将产生这个流水号的日期包括今这个流水号中；一种类型就要新建一个队列等。 下面这个存储过程可以产生一个流水号，它的格式是当前日期（格式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; /