逆袭之旅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;