逆袭之旅DAY17.东软实训.Oracle.PLSQL.过程，函数，包，练习

2018-07-13 14:54:46

 --1.创建一个包，包含一个为雇员加薪的过程，一个为雇员减薪的过程
 CREATE OR REPLACE PACKAGE pac_test1
 IS
   PROCEDURE addsal(NO emp.empno%TYPE,addsal emp.sal%TYPE);
   procedure minussal(no emp.empno%type,minussal emp.sal%type);
 END;

 CREATE OR REPLACE PACKAGE body pac_test1
 IS
   PROCEDURE addsal(NO emp.empno%TYPE,addsal emp.sal%TYPE)
   is
   BEGIN
     UPDATE emp SET sal=sal+addsal WHERE empno=NO;
   end;
   PROCEDURE minussal(NO emp.empno%TYPE,minussal emp.sal%TYPE)
   IS
   BEGIN
     UPDATE emp SET sal=sal-minussal WHERE empno=NO;
   end;
 END;

 --2.编写一个过程，验证用户登陆。如果用户名、密码匹配，输出Y，否则输出N    emp表中的ename为用户名 empno为密码
 CREATE OR REPLACE PROCEDURE pro_test2(username VARCHAR2,PASSWORD NUMBER,flag out VARCHAR2)
 IS
   v_count number(2);
 BEGIN
   SELECT count(empno) INTO v_count FROM emp WHERE ename=username AND empno=PASSWORD;
   IF v_count>0 THEN flag:='Y';
   ELSE flag:='N';
   END IF;
 END;

 --3.编写一个函数，根据雇员编号，计算调整后的工资
 如果该雇员从事经理工作，且工资大于3000，则工资上涨20%，否则上涨35%
 其他情况均上涨10%，输出雇员编号、姓名、上涨后的工资

 CREATE OR REPLACE FUNCTION fun_test3(NO emp.empno%TYPE) RETURN VARCHAR2
 IS
   v_ename emp.ename%TYPE;
   v_sal emp.sal%TYPE;
   v_newsal emp.sal%TYPE;
   v_job emp.job%type;
   v_info varchar2(100);
 BEGIN
   SELECT ename,sal,JOB INTO v_ename,v_sal,v_job FROM emp WHERE empno=NO;
   IF upper(v_job)='MANAGER' THEN
     IF v_sal>3000 THEN
       v_newsal:=v_sal*1.2;
     ELSE v_newsal:=v_sal*1.35;
     END IF;
   ELSE v_newsal:=v_sal*1.1;
   END IF;
    v_info:= NO || ',' || v_ename || ',' || v_newsal;
   RETURN v_info;
 end;

 --4.创建一个包
 包中含有一个存储过程，实现涨工资的功能，输入雇员姓名，如果其工作年限超过20年，工资增加2000
 工作年限在10-20年，工资增加1000，工作年限在5-10年，工资增加500，输出雇员姓名和增涨后的工资
 包中还含有一个函数，实现输入工资，判断工资如果大于4500，返回1，否则返回0

 CREATE OR REPLACE PACKAGE pac_test4
 IS
   PROCEDURE pro_addsal(NAME emp.ename%TYPE,info out VARCHAR2);
   FUNCTION fun_sal(salary emp.sal%TYPE) RETURN NUMBER;
 end;

 CREATE OR REPLACE PACKAGE body pac_test4
 IS
   PROCEDURE pro_addsal(NAME emp.ename%TYPE,info out VARCHAR2)
   IS
     v_year NUMBER(5);
     v_sal emp.sal%TYPE;
   BEGIN
     SELECT trunc(months_between(SYSDATE,hiredate)/12),sal INTO v_year,v_sal FROM emp WHERE upper(ename)=upper(NAME);
     IF v_year>20 THEN v_sal:=v_sal+2000;
     elsif v_year>=10 THEN v_sal:=v_sal+1000;
     elsif v_year>=5 THEN v_sal:=v_sal+500;
     END IF;
     info:=NAME || ','||v_sal;
   end;
   FUNCTION fun_sal(salary emp.sal%TYPE) RETURN NUMBER
   IS
     v_flag NUMBER(1);
   BEGIN
     IF salary>4500 THEN
       v_flag:=1;
     ELSE v_flag:=0;
     END IF;
     RETURN v_flag;
   end;
 end;