oracle 存储过程实现数据CURD操作

1.创建数据库表：

-- Create table
create table TEST_TABLE
(
  userid     NUMBER not null,
  username   NVARCHAR2(50),
  userno     NVARCHAR2(60),
  cardid     NVARCHAR2(18),
  createdate DATE,
  redate     DATE
)
tablespace USERS
  pctfree 10
  initrans 1
  maxtrans 255
  storage
  (
    initial 64
    next 8
    minextents 1
    maxextents unlimited
  );
-- Add comments to the table 
comment on table TEST_TABLE
  is '??????';
-- Add comments to the columns 
comment on column TEST_TABLE.userid
  is 'id';
comment on column TEST_TABLE.username
  is '用户名';
comment on column TEST_TABLE.userno
  is '用户编号';
comment on column TEST_TABLE.cardid
  is '身份证号';
comment on column TEST_TABLE.createdate
  is '创建日期';
comment on column TEST_TABLE.redate
  is '修改日期';
-- Create/Recreate primary, unique and foreign key constraints 
alter table TEST_TABLE
  add constraint USERID primary key (USERID)
  using index 
  tablespace USERS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 64K
    next 1M
    minextents 1
    maxextents unlimited
  );

 2.创建sequences

-- Create sequence 
create sequence S_TEST_TABLE
minvalue 1
maxvalue 9999999999999999999999
start with 21
increment by 1
cache 20;

 3.创建触发器triggers

CREATE OR REPLACE TRIGGER Triger_test_table BEFORE INSERT
ON test_table FOR EACH ROW
DECLARE
    INTEGRITY_ERROR  EXCEPTION;
    ERRNO            INTEGER;
    ERRMSG           CHAR(200);
    DUMMY            INTEGER;
    FOUND            BOOLEAN;

BEGIN
    --  COLUMN "userid" USES SEQUENCE S_TEST_TABLE
    SELECT S_TEST_TABLE.NEXTVAL INTO :NEW.userid FROM DUAL;

--  ERRORS HANDLING
EXCEPTION
    WHEN INTEGRITY_ERROR THEN
       RAISE_APPLICATION_ERROR(ERRNO, ERRMSG);
END;

 4.在包体中创建数据包名：在包中实现存储过程的实现。包头：

CREATE OR REPLACE PACKAGE SUNNY_PK IS

  -- AUTHOR  : SUNNY
  -- CREATED : 2014/4/7 13:49:11
  -- PURPOSE : SUNNY_PK
  
  TYPE OUTPUTLIST IS REF CURSOR;
  PROCEDURE SP_TEST_TABLEINSETUPDATE
  (
      VUSERID IN TEST_TABLE.USERID%TYPE DEFAULT NULL,
      VUSERNAME IN TEST_TABLE.USERNAME%TYPE DEFAULT NULL,
      VUSERNO IN TEST_TABLE.USERNO%TYPE DEFAULT NULL,
      VCARDID IN TEST_TABLE.CARDID%TYPE DEFAULT NULL,   
      VRESULT OUT INT,
      VERRORTEST OUT VARCHAR2,
      DB_OPTION_ACTION IN VARCHAR2 DEFAULT NULL
  );
  
  -- AUTHOR  : SUNNY
  -- CREATED : 2014/4/7 13:49:11
  -- PURPOSE : SUNNY_PK  实现数据信息获取
PROCEDURE SP_GET_test_table
    ( 
      Vuserid INT,
      VRETURN_LIST OUT OUTPUTLIST
    );
END SUNNY_PK;

 包体：

CREATE OR REPLACE PACKAGE BODY SUNNY_PK IS

  -- AUTHOR  : SUNNY
  -- CREATED : 2014/4/7 13:49:11
  -- PURPOSE : SUNNY_PK  实现数据增删改
  PROCEDURE SP_TEST_TABLEINSETUPDATE
  (
      VUSERID IN TEST_TABLE.USERID%TYPE DEFAULT NULL,
      VUSERNAME IN TEST_TABLE.USERNAME%TYPE DEFAULT NULL,
      VUSERNO IN TEST_TABLE.USERNO%TYPE DEFAULT NULL,
      VCARDID IN TEST_TABLE.CARDID%TYPE DEFAULT NULL,   
      VRESULT OUT INT,
      VERRORTEST OUT VARCHAR2,
      DB_OPTION_ACTION IN VARCHAR2 DEFAULT NULL
  )
IS
    VCOUNT INT;
  
BEGIN
  
    IF (UPPER(DB_OPTION_ACTION)='INSERT') THEN
       SELECT COUNT(*) INTO VCOUNT
       FROM TEST_TABLE
       WHERE USERID = VUSERID
       AND
       (USERNO = VUSERNO
       OR USERNAME = VUSERNAME);
       
       IF(VCOUNT > 0) THEN
           VRESULT :=1;
           VERRORTEST := '已存在該人员信息编号或人员名稱!';
           RETURN;
       END IF;
       
        INSERT INTO TEST_TABLE(USERNAME,
             USERNO ,CARDID，CREATEDATE)
        VALUES(VUSERNAME,
               VUSERNO,            
               VCARDID,
               SYSDATE
               ); 
        
        END IF;         
        VRESULT :=0;
          
 
    IF(UPPER(DB_OPTION_ACTION)='UPDATE') THEN
           SELECT COUNT(*) INTO VCOUNT
           FROM TEST_TABLE
           WHERE USERID <> VUSERID
           AND USERID IN
           (SELECT USERID FROM TEST_TABLE
           WHERE USERID = VUSERID)
           AND
           (USERNO = VUSERNO
           OR USERNAME = VUSERNAME);
           
           IF(VCOUNT > 0) THEN
               VRESULT :=1;
               VERRORTEST := '已存在該人员信息编号或人员名稱!';
               RETURN;
           END IF;
       
            UPDATE TEST_TABLE SET  
            USERNO=VUSERNO,
            USERNAME=VUSERNAME,
            CARDID=VCARDID,
             REDATE=SYSDATE
            WHERE (USERID = VUSERID);
            VRESULT :=0;
          END IF;   
IF(UPPER(DB_OPTION_ACTION)='DELETE')
 
    THEN
    DELETE FROM 
   TEST_TABLE  WHERE USERID=VUSERID;
    VRESULT:=0;
    END IF;
 COMMIT;
END;  

  -- AUTHOR  : SUNNY
  -- CREATED : 2014/4/7 13:49:11
  -- PURPOSE : SUNNY_PK  实现数据信息获取
PROCEDURE SP_GET_test_table
    ( 
      Vuserid INT,
      VRETURN_LIST OUT OUTPUTLIST
    )
     IS
    BEGIN
     OPEN VRETURN_LIST  FOR
   SELECT userid, username，userno，cardid，createdate，redate FROM test_table WHERE 
   userid=Vuserid  ;
     END;
END SUNNY_PK;

 5.根据用户编号递归实现获取部门信息

创建函数方法通过部门编号获取部门名称的函数

--通过部门编号获取部门名称的函数
create or replace function getdepartname(pdeptno in number )
 return varchar2 is
  vdname  varchar2(50);
begin
  
 select dname into vdname from dept  where deptno=pdeptno ;
 return (vdname);
 exception 
   when no_data_found then 
    -- dbms_output.put_line("没有改编号部门!");
     return (null);
     when too_many_rows then
      --  dbms_output.put_line("有重复编号部门!");
        return (null);
        when others then
       --   dbms_output.put_line("发生其他错误!");
          return (null);
    
end getdepartname;

 存储过程：

-- AUTHOR  : SUNNY
  -- CREATED : 2014/4/7 13:49:11
  -- PURPOSE : SUNNY_PK  
  --递归实现获取部门信息
 PROCEDURE SP_GET_DEPARTMENT
(
   Vempno INT,
   VRETURN_LIST OUT OUTPUTLIST
)
IS
    VGROUPID INTEGER DEFAULT 0;
     BEGIN 
    SELECT  deptno INTO VGROUPID FROM emp WHERE 
    empno = Vempno;
   OPEN  VRETURN_LIST FOR  
    SELECT GETDEPARTNAME(DEPTNO) GROUPNAME,DEPTNO FROM
    (
    SELECT DISTINCT DEPTNO FROM dept
    CONNECT BY PRIOR  DEPTNO=PARENTID
    START WITH  PARENTID=VGROUPID
    
    UNION SELECT VGROUPID FROM DUAL
    );
    COMMIT;
       
END;