**1.编制各种控制结构的PL/SQL程序(函数): 根据姓名修改SCOTT用户下emp表中职工工资,修改规则是:DEPTNO字段的值若为10,则工资加100元;若为20,则工资加300元,否则工资加400元,程序编好后,请用姓名为“SMITH”(注意大小写敏感哦)的调用。
create or replace function updateSal
(p_ename scott.emp.ename%TYPE)
RETURN scott.emp.sal%TYPE
AS
v_deptno scott.emp.deptno%TYPE;
v_sal scott.emp.sal%TYPE;
v_addSal scott.emp.sal%TYPE;
v_currentSal scott.emp.sal%TYPE;
BEGIN
SELECT deptno,sal INTO v_deptno,v_sal FROM scott.emp WHERE ename=p_ename;
DBMS_OUTPUT.PUT_LINE('原工资'||v_sal);
IF v_deptno=10 Then v_addSal:=100;
ELSIF v_deptno=20 Then v_addSal:=300;
ELSE v_addSal:=400;
END IF;
update scott.emp set sal=v_sal+v_addSal where ename=p_ename;
SELECT sal INTO v_currentSal FROM scott.emp WHERE ename=p_ename;
DBMS_OUTPUT.PUT_LINE('现工资'||v_currentSal);
return v_currentSal;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('The deptno is invalid!');
END updateSal;
2. 编制PL/SQL程序: 对SCOTT用户的EMP表中的每一个雇员按不同情况征收个人所得税。将各雇员的雇员号(empno)、姓名(ename)及所得税(stax)存放于名为TAX(TAX表自己创建,包括三个属性:empno、ename、stax)的表中。如果工资低于3000则不收税,3000-5000的部分征收10%的税。高于5000元的部分征收20%的税。
BEGIN
DEClARE
CURSOR c_emp IS SELECT empno,ename,sal from scott.emp;
v_emp c_emp%ROWTYPE;
v_stax number(7,2);
BEGIN
open c_emp;
LOOP
FETCH c_emp INTO v_emp;
EXIT WHEN c_emp%NOTFOUND;
IF v_emp.sal<=3000 Then v_stax:=0;
ELSIF v_emp.sal>3000 and v_emp.sal<=5000 Then v_stax:=v_emp.sal*0.1;
ELSE v_stax:=v_emp.sal*0.2;
END IF;
INSERT INTO SCOTT.tax(empno,ename,stax) values(v_emp.empno,v_emp.ename,v_stax);
END LOOP;
CLOSE c_emp;
END;
END;
1运行结果
2运行结果
|