oracle 顺序号生成函数。仿Sequence

问题提出自项目中的老代码：一个Bill表，存储所有的表单信息，比如：员工入职单，离职单等等。（别喷，我知道要分多个表。但领导的意愿你是没办法违背的）表单的单据号是以四个字母+年月日+数字顺序号来表示。每次取新单据号时要从Bill表里(按生成规则)查询出最大的那个单据号，再拆分出来，再给顺序号加１，组合好后再写回。哈哈这就是老代码。

随着软件行业的进步，各种技巧层出不穷。而针对顺序号生成的方法也有好巨大改进。

[Oracle]仿Oracle Sequence的自定义年份Sequence(适合任何数据库)

这里其中的一篇。看过这个之后就想自己动手也写一个。于是:

顺序号表

--id序列表
create table SEQUENCES
(
  id           VARCHAR2(20) not NULL PRIMARY KEY,--标识
  minvalue     NUMBER default 1,--最小值
  maxvalue     NUMBER default 9999999999999999999999999999,--最大值
  currentvalue NUMBER DEFAULT 1,--当前值
  increaseby   NUMBER default 1,--增量
  CYCLE        CHAR(1) default '' --是否循环
)

生成函数

--获取 select NextValue('abc') from dual;
create or replace function NextValue(arg varchar2) return number IS
  PRAGMA AUTONOMOUS_TRANSACTION;
  Result number;
  x NUMBER;
  a NUMBER;
  i NUMBER;
  c Char(1);
BEGIN
  IF TRIM(arg) IS NULL THEN--防止值入空字符串
     RAISE_Application_Error(-6502,'param "arg" is not valide.',TRUE);
  END IF;
<<top>>
  SELECT COUNT(1) INTO x FROM Sequences WHERE ID = arg;
   IF x = 0 THEN
   BEGIN
      BEGIN
        INSERT INTO Sequences (ID) VALUES(arg);--防止并发同时插入相同的Id值。需要将id设为主键
      EXCEPTION
        WHEN OTHERS THEN
          GOTO top;
      END;
      COMMIT;
      RETURN 1;
   END;
   ELSE
   BEGIN
     SELECT s.currentvalue + s.increaseby,s.maxvalue,s.minvalue,s.cycle INTO Result,a,i,c FROM  Sequences s WHERE ID = arg FOR update;--for update将锁定此行记录
     IF RESULT < a THEN--未超出最大值
     BEGIN
       UPDATE Sequences SET currentvalue = Result WHERE ID = arg;
       COMMIT;
       return(Result);
     END;
     ELSE
     BEGIN
       IF c = '' THEN--不循环
       BEGIN
          RAISE_Application_Error(-6502,'out of range.',TRUE);
       END;
       ELSE
       BEGIN--循环
          UPDATE Sequences SET currentvalue = i WHERE ID = arg;
          COMMIT;
          RETURN i;
       END;
       END IF;
     END;
     END IF;
   END;
   END IF;
END;

是的，我使用了参数。这样就使得这个表更加有用,而非只单独处理一种类型顺序号。同时对并发进行了处理。让你只可能取得一个值，而不会出现重复的值。当然所有的result都没有进行格式化，而是直接输出。在PLSQL中进行函数test，打开两个窗口，单步调试，可以看到在insert或select for update时都会阻塞其它session对此表的操作。这样可以使用result的结果唯一。