oracle-上机考试试题与答案

1 写一个 pl sql 程序块 直接使用数据类型定义两个变量 v empno 和 v ename 从 scott 模式下的 emp 表中检索某个员工的编号 empno 和姓名 ename 存储到 v empno 和 v ename 并输出此员工的编号 和姓名 set serveroutput on declare type merchandise is record v empno number 30 v ename varchar2 30 record merchandise merchandise begin select empno ename into record merchandise from emp where empno 7369 dbms output put line record merchandise v empno dbms output put line record merchandise v ename end 2 写一个 pl sql 程序块 根据 scott 模式下的 emp 表中的部门编号 deptno 字段的值 为姓名为 SCOTT 的雇员修改工资 若他所在部门 号为 10 则工资加 100 若部门号为 20 则工资加 300 否则工资 加 400 set serveroutput on declare v deptno emp deptno type addsal emp sal type sal number begin select deptno into v deptno from emp where ename SCOTT if v deptno 10 then addsal 100 elsif v deptno 20 then addsal 300 else addsal 400 end if update emp set sal sal addsal where ename SCOTT dbms output put line sal end 3 写一个 pl sql 程序块 定义一个游标类型 type cursor 然后使用 type cursor 定义变量 ref cur 根据 scott 模式下的 emp 表和 dept 表 使用游标变量 ref cur 检索员工姓名和工作信息 并输出员工姓名和 工作信息 使用游标变量 ref cur 检索部门编号和部门名称信息 并 输出部门编号和部门名称信息 set serveroutput on declare type type cursor is ref cursor ref cur type cursor mer rec emp rowtype ner rec dept rowtype begin open ref cur for select ename job from emp loop fetch ref cur into mer rec exit when ref cur notfound dbms output put mer rec ename dbms output put mer rec job end loop open ref cur for select deptno dname from dept loop fetch ref cur into ner rec exit when ref cur notfound dbms output put ner rec deptno dbms output put ner rec dname end loop close ref cur end 4 写一个 pl sql 存储过程 根据 scott 模式下的 emp 表 写一个带 参数的存储过程 proc deptno in number sun sal out number 输入部 门编号 输出该部门的总工资信息 并写一个 pl sql 程序块 测试 该存储过程 create or replace procedure searchmerch v deptno in number sun sal out number is begin select 12 sal nvl comm 0 into sun sal from emp where deptno v deptno exception when no data found then sun sal 0 end 5 写一个 pl sql 程序块 根据 scott 模式下的 emp 表和 dept 表 输 出每个部门的编号和部门名称 以及该部门下所有的雇员和雇员工 资 及其该部门的总人数 输出效果如下 部门编号 部门名称 雇员姓名 雇员工资 该部门总人数 declare CURSOR c dept IS SELECT deptno dname FROM dept ORDER BY deptno CURSOR c emp p dept VarCHAR2 IS SELECT ename sal FROM emp WHERE deptno p dept ORDER BY ename n number BEGIN FOR r dept IN c dept LOOP DBMS OUTPUT PUT LINE 部门编号 r dept deptno 部门名 称 r dept dname n 0 FOR r emp IN c emp r dept deptno LOOP DBMS OUTPUT PUT LINE 雇员姓名 r emp ename 雇员工资 r emp sal n n 1 END LOOP DBMS OUTPUT PUT LINE r dept dname 部门的总人数 n END LOOP END 6 创建一个语句级触发器 CHECK TIME 限定对表 EMP 的修改 时间为周一至周五的早 8 点至晚 5 点 create or replace trigger CHECK TIME before update or insert or del