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

页脚. 页脚. 1、写一个pl/sql程序块：直接使用数据类型定义两个变量v_empno 和v_ename,从scott模式下的emp表中检索某个员工的编号empno 和ename,存储到v_empno和v_ename,并输出此员工的编号和。 匚回I Dihog Ediloi SQL SQL〉 oct aerveroutpuc on SQL decLace type roerchandise is record( v_ewpno n-urrtoer (30), vename varcharZ(30|); rccord_rncrchandi^c ircirchandisc; toegm select eropnoreneare into cecord^icerchandise Icoui etip uhere empno- 7369; dxirs__output. ? v^eitipno); dhire ouLpuL ?puc_Line(r：Euot:G_niEiruh8ric3iSE.v_Enaii!E); end; L4 / 7369 SMITH 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」ine(recoi?d_merchandise.v_empno); dbms_output.put」ine(recoi?d_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= SCOTT1; 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 reCcur for select deptno,dname from dept; loop fetch ref_cur into ner_rec; exit when ref_cur%notfound; dbms_output.put(ner_rec.deptnoir); 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),输入部门编