1、编写一个存储过程，根据输入的工作类型，输出该工作的平均工资。
命令如下：
创建存储过程：
create or replace procedure avgsal(v_job in emp.job%type)
is
avgsal2 number
begin
select avg(sal) into avgsal2 from emp where job=v_job;
dbms_output.put_line(v_job || '---' || avgsal2)
end;
调用存储过程：
Begin
avgsal('MANAGER');
end;
程序截图：
运行结果：
2、创建一个存储过程，以员工号为参数，输出该员工的工资。
命令如下：
创建存储过程：
create or replace procedure p_sxtl(v_empno in emp.empno%type,v_sal out emp.sal%type)
is
begin
select sal into v_sal from emp where empno=v_empno;
end;
调用存储过程：
declare
v_empno emp.empno%type :=7369;
v_sal emp.sal%type;
begin
p_sxtl(v_empno,v_sal);
dbms_output.put_line(v_empno || '员工的工资为：' || v_sal);
end;
程序截图：
运行结果：
3、创建一个存储过程，以员工号为参数，修改该员工的工资。若该员工属于10号部门，则工资增加150；若属于20号部门，则工资增加200；若属于30号部门，则工资增加250；--若属于其他部门，则增加300。
命令如下：
创建存储过程：
create or replace procedure p_sxt2(v_empno in emp.empno%type)
is
v_deptno emp.deptno%type;
v_sal emp.sal%type;
Begin
select deptno into v_deptno from emp where empno=v_empno;
select sal into v_sal from emp where empno=v_empno;
dbms_output.put_line(v_empno || '的部门是' || v_deptno || '修改前的工资是' || v_sal);
case v_deptno
when 10 then update emp set sal=sal+150 where empno=v_empno;
when 20 then update emp set sal=sal+200 where empno=v_empno;
when 30 then update emp set sal=sal+250 where empno=v_empno;
else update emp set sal=sal+300 where empno=v_empno;
end case;
select sal into v_sal from emp where empno=v_empno;
dbms_output.put_line(v_empno || '部门是' || v_deptno || '修改后的工资是：' || v_sal);
commit;
end;
调用存储过程：
begin
p_sxt2(7369);
end;
程序截图：
运行结果：
3、创建一个函数，以员工号为参数，返回该员工的工资。
命令如下：
创建函数：
create or replace function f_sxtl(v_empno in emp.empno%type,v_sal out emp.sal%type)
return emp.sal%type
as
begin
select sal into v_sal from emp where empno=v_empno;
return v_sal;
end;
调用函数：
Begin
:result := f_sxtl(7369,v_sal => :v_sal);
end;
程序截图：
运行结果：
4、创建一个函数，以员工号为参数，返回该员工所在的部门的平均工资。
命令如下：
创建函数:
create or replace function avegsal(v_empno in emp.empno%type)
return emp.sal%type
as
avgsal2 emp.sal%type;
begin
-- Test statements here
select avg(sal) into avgsal2 from emp where deptno = (select deptno from emp where empno=v_empno);
return avgsal2;
end;
调用函数：
begin
:result := avegsal(7369);
end;
程序截图：
运行结果：
5、创建一个存储过程，以员工号和部门号作为参数，修改员工所在的部门为所输入的部门号。如果修改成功，则显示“员工由……号部门调入调入……号部门”；如果不存在该员工，则显示“员工号不存在，请输入正确的员工号。”；如果不存在该部门，则显示“该部门不存在，请输入正确的部门号。”
命令如下：
创建存储过程：
create or replace procedure p_deptno(v_empno in emp.empno%type,v_deptno in emp.deptno%type)
as
vu_empno number := 0 ;
vu_deptno number :=0 ;
vm_deptno emp.deptno%type;
begin
select deptno into vm_deptno from emp where empno=v_empno;
select count(*) into vu_empno from emp where empno=v_empno;
select count(distinct deptno) into vu_deptno from emp where deptno=v_deptno;
if vu_empno=0 then dbms_output.put_line('员工号不存在，请输入正确的员工号.');
end if;
if vu_deptno=0 then dbms_output.put_line('该部门不存在，请输入正确的部门号.');
end if;
if vu_empno=1 and vu_deptno=1 then dbms_output.put_line('员工由' || vm_deptno || '号部门调入' || v_deptno || '号部门');
update emp set deptno=v_deptno where empno=v_empno;
commit;
end if;
end;
调用存储过程：
(1)begin
p_deptno(7369,40);
end;
(2)begin
p_deptno(7369,10);
end;
程序截图：
(2)
运行结果：
(1)
(2)
---------------------