实验五 Oracle 数据库对象

接着前面实验写

1. 编写带有一个输入参数和一个输出参数的存储过程，输入参数为教师的编号类型，输 出参数与 tm 表的 workdays 类型一致，存储过程的功能是，根据输入参数教师编号的 值，计算出该教师为其参与的所有项目的工作总天数； 

create or replace procedure sumworkday(ftno char)
as 
	sum_workday number;
begin
	select sum(workdays) into sum_workday 
	from tm 
	where tno=ftno;
	if sum_workday is null then
	dbms_output.put_line('不存在的');
	rollback;
	return;
	end if;
	dbms_output.put_line(sum_workday);
end sumworkday;
/

2. 编写代码测试存储过程； 

exec sumworkday('t001');
exec sumworkday('t002');
exec sumworkday('t234');

3. 编写一个函数，计算某个教师负责的经费总数；
create or replace function sumfund (ftno varchar2) 
	return number
as 
	sum_fund number;
begin
	select sum(pfund) into sum_fund from myproject where tno=ftno;
	return sum_fund;
end;
/

4. 编写代码测试函数； 
var sum_fund number
exec :sum_fund:=sumfund('t006')
print sum_fund

5. 编写一个行级前触发器，当插入、修改 Teacher 表中教师的工资时，如果工资高于 8000，则把工资改为 8000； 

create or replace trigger teachersalary
before insert or update on teacher
for each row
when(new.tsalary>8000)
begin
	:new.tsalary:=8000;
end;
/
6. 编写代码测试触发器是否工作正常；

update teacher
set tsalary=8001
where tno='t001';
select tsalary from teacher where tno='t001'; 

7. 删除触发器；

drop trigger teachersalary;

8. 删除存储过程；

drop procedure sumworkday;

9. 删除函数；

drop function sumfund;