实验五 Oracle 数据库对象

对象"/>

实验五 Oracle 数据库对象

接着前面实验写

1. 编写带有一个输入参数和一个输出参数的存储过程，输入参数为教师的编号类型，输 出参数与 tm 表的 workdays 类型一致，存储过程的功能是，根据输入参数教师编号的 值，计算出该教师为其参与的所有项目的工作总天数； create or replace procedure sumworkday(ftno char)
as sum_workday number;
beginselect sum(workdays) into sum_workday from tm where tno=ftno;if sum_workday is null thendbms_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;
beginselect 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_fund5. 编写一个行级前触发器，当插入、修改 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;