[原創]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 '0' --是否循環
)

生成函數

--獲取 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 = '0' 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了。