oracle-上机考试试题与答案.doc

1、写一个pl/sql程序块：直接使用数据类型定义两个变量v_empno和v_ename，从scott模式下的emp表中检索某个员工的编号empno和姓名ename，存储到v_empno和v_ename，并输出此员工的编号和姓名。set serveroutput ondeclaretype merchandise is record(v_empno number(30),v_ename varchar2(30);record_merchandise merchandise;beginselect empno,ename into record_merchandisefrom empwhere 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 ondeclarev_deptno emp.deptno%type; addsal emp.sal%type;sal number;beginselect deptno into v_deptno from emp where ename=SCOTT;if v_deptno=10 then addsal:=100;elsif v_deptno=20 then addsal:=300;elseaddsal:=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 ondeclaretype type_cursor is ref cursor;ref_cur type_cursor;mer_rec emp%rowtype;ner_rec dept%rowtype;beginopen ref_cur for select ename,job from emp;loopfetch 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;loopfetch 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) isbeginselect 12*(sal+nvl(comm,0)into sun_salfrom empwhere deptno=v_deptno;exceptionwhen no_data_found thensun_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_TIMEbefore update or insert or deleteon e