Oracle序列的创建与重置

表记录的流水号通常都用序列的方法来做，有时在创建工程中需要进行重置，例如在创建阶段、测试阶段等，我们可以通过多种方式重置序列，删除重建、序列重置等。下面是两种方法的存储过程实例。
要实现下面的存储过程，需要授予权限。
GRANT CREATE SEQUENCE TO user;

1、删除重建存储过程
实际上也可以用于创建，因为存储过程是先判断，存在则删除，接下来是重建。
程序流程如下：
对给定的序列进行判断，是否存在，如果存在则删除；
根据序列名称进行创建，默认从1开始到9999999999，每次步长为1；

/***
  p_SetSequence 删除并重建指定序列
***/
CREATE OR REPLACE PROCEDURE p_SetSequence
(
  uSequence IN VARCHAR2     -- 指定的序列
)
AS
uNum NUMBER; uSQL VARCHAR(100);
BEGIN
  uSQL := 'DROP SEQUENCE ' || uSequence;
  SELECT COUNT(*) INTO uNum
  FROM DUAL
  WHERE EXISTS
    ( SELECT * FROM User_Sequences WHERE SEQUENCE_NAME = UPPER(uSequence) );
  IF (uNum = 1) THEN
    EXECUTE IMMEDIATE uSQL;
    DBMS_OUTPUT.PUT_LINE('序列 '|| uSequence ||' 被删除了。');
  ELSE
    DBMS_OUTPUT.PUT_LINE('序列 '|| uSequence ||' 不存在。');
  End IF;
  uSQL := 'CREATE SEQUENCE ' || uSequence;
  uSQL := uSQL ||' INCREMENT BY 1 START with 1 MAXVALUE 9999999999';
  EXECUTE IMMEDIATE uSQL;
END p_SetSequence;
/

2、删除序列会导致与该序列相关的存储过程、函数等失效而重新编译，有时为了防止重新编译，不能删除。于是需要一种不编译也可以重置序列的方法，我们可以通过更改反向步长，用意是退回到1，然后在更改为正向步长，从而实现序列的重置。

/***
  p_ReSetSequence 重置指定序列
***/
create or replace procedure p_ReSetSequence
(
  uSequence IN VARCHAR2     -- 指定的序列
)
AS
uNum NUMBER(10);
uSQL VARCHAR2(100);
BEGIN
  SELECT COUNT(*) INTO uNum
  FROM DUAL
  WHERE EXISTS
    ( SELECT * FROM User_Sequences WHERE SEQUENCE_NAME = UPPER(uSequence) );
  IF (uNum = 1) THEN
    -- 1.获得序列当前的值
    uSQL := 'SELECT '|| uSequence ||'.NEXTVAL FROM DUAL';
    EXECUTE IMMEDIATE uSQL INTO uNum;

    -- 2.修改序列的步长和方向，通过负值改变方向
    uNum := - (uNum-1);
    uSQL := 'ALTER SEQUENCE '|| uSequence ||' INCREMENT BY '|| uNum;
    EXECUTE IMMEDIATE uSQL;

    -- 3.通过获取序列的下一个值来实现反向取值1次
    uSQL := 'SELECT '|| uSequence ||'.NEXTVAL FROM DUAL';
    EXECUTE IMMEDIATE uSQL INTO uNum;

    -- 4.回复序列的步长和方向
    uSQL := 'ALTER SEQUENCE '|| uSequence ||' INCREMENT BY 1';
    EXECUTE IMMEDIATE uSQL;
    DBMS_OUTPUT.PUT_LINE('序列 '|| uSequence ||' 被重置了。');
  ELSE
    DBMS_OUTPUT.PUT_LINE('序列 '|| uSequence ||' 不存在。');
  End IF;
END p_ReSetSequence;
/