[原创]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的结果唯一。

如果将表的名称的传入，那么你可以扔掉sequence了。