【oracle】练习与作业3

叁歲伎倆 2023-10-08 09:11 43阅读 0赞

1.  编写一个PL/SQL程序块,从emp表中显示名为“SMITH”的雇员的薪水和职位。  
    答案：  
    set serveroutput on;  
    select ename 姓名，sal 薪水,job 职位 from scott.emp;  
    declare  
    x scott.emp.ename%type:=‘SMITH’;  
    y scott.emp.sal%type;  
    z scott.emp.job%type;  
    begin  
    sys.dbms\_output.put\_line(‘本题要求：编写一个SQL程序块,从emp表中显示名为SMITH的雇员的薪水和职位。’);  
    select sal,job into y,z from scott.emp where ename = x;  
    sys.dbms\_output.put\_line(‘更新后：员工姓名为：’||x||’，薪水为：’||y||‘元，职位是’||z);  
    end;  
    /  
    保存成 q1.txt;
2.  编写一个PL/SQL程序块，接受用户任意输入一个部门号（提示：接受用户任意输入，需要使用 ‘&’），从dept表中显示该部门的名称与所在位置。  
    答案：  
    set serveroutput on;  
    select deptno 部门编号,dname 部门名称, loc 所在位置 from scott.dept;  
    declare  
    var\_deptno scott.dept.deptno%type:=&部门编号;  
    var\_dname scott.dept.dname%type;  
    var\_loc scott.dept.loc%type;  
    begin  
    sys.dbms\_output.put\_line(‘本题要求：编写一个PL/SQL程序块，接受用户任意输入一个部门号，从dept表中显示该部门的名称与所在位置。’);  
    select dname,loc into var\_dname,var\_loc from scott.dept where deptno = var\_deptno;  
    sys.dbms\_output.put\_line(‘部门编号为’||var\_deptno||‘的部门是：’||var\_dname||’,它的所在位置是：’||var\_loc);  
    end;  
    /  
    保存成q2.txt;
3.  编写一个PL/SQL程序块，注意使用%type属性定义变量，接受用户任意输入一个雇员号，从emp表中显示该雇员的整体薪水(即，工资sal加上奖金comm)。  
    答案：  
    set serveroutput on;  
    select empno 员工编号,sal 工资,comm 奖金 from scott.emp;  
    declare  
    x scott.emp.empno%type:=&员工编号;  
    y scott.emp.comm%type;  
    z scott.emp.sal%type;  
    s scott.emp.sal%type;  
    begin  
    sys.dbms\_output.put\_line(‘本题要求：编写一个PL/SQL程序块，注意使用%type属性定义变量，接受用户任意输入一个雇员号，从emp表中显示该雇员的整体薪水’);  
    select sal,nvl(comm,0) into z,y from scott.emp where empno = x;  
    s := z+y;  
    sys.dbms\_output.put\_line(‘员工编号为’||x||‘的员工的整体薪水是：’||s||‘元’);  
    end;  
    /  
    保存成q3.txt;
4.  某公司要根据雇员的职位来加薪，公司决定按下列加薪结构处理：  
    职位 增长工资  
    \------------ -----------  
    Clerk 500  
    Salesman 1000  
    Analyst 1500  
    Otherwise 2000  
    编写一个PL/SQL程序块, 接受用户任意输入一个雇员号，从emp表中实现上述加薪处理。（提示：使用多分支）

答案：  
set serveroutput on;  
sys.dbms\_output.put\_line(‘更新前： ‘);  
select empno 员工编号, ename 姓名, job 职位，sal 工资 from scott.emp;  
declare  
var\_empno scott.emp.empno%type:=&员工编号;  
var\_job scott.emp.job%type;  
var\_sal scott.emp.sal%type;  
begin  
select job,sal into var\_job,var\_sal from scott.emp where empno = var\_empno;  
if var\_job = ‘CLERK’ then  
var\_sal := var\_sal+500;  
sys.dbms\_output.put\_line(‘更新成功！，工资上涨500元’);  
elsif var\_job = ‘SALESMAN’ then  
var\_sal := var\_sal+1000;  
sys.dbms\_output.put\_line(‘更新成功！，工资上涨1000元’);  
elsif var\_job = ‘ANALYST’ then  
var\_sal := var\_sal+1500;  
sys.dbms\_output.put\_line(‘更新成功！，工资上涨1500元’);  
else  
var\_sal := var\_sal+2000;  
sys.dbms\_output.put\_line(‘更新成功！，工资上涨2000元’);  
end if;  
update scott.emp set sal = var\_sal where empno = var\_empno;  
select job,sal into var\_job,var\_sal from scott.emp where empno = var\_empno;  
sys.dbms\_output.put\_line(‘员工编号为’||var\_empno||‘的职工的职位是’||var\_job||’，他现在的工资是’||var\_sal||‘元’);  
end;  
/  
保存成q4.txt;  
5. 编写一个PL/SQL程序块，利用显式游标，将emp表中雇员名字全部显示出来（要求：使用for循环）。  
答案：  
set serveroutput on;  
declare  
cursor cur\_emp is select \* from scott.emp;  
begin  
sys.dbms\_output.put\_line(‘本题要求：编写一个PL/SQL程序块，利用显式游标，将emp表中雇员名字全部显示出来（要求：使用for循环）。’);  
sys.dbms\_output.put\_line(‘姓名’);  
for var\_emp in cur\_emp loop  
sys.dbms\_output.put\_line(var\_emp.ename);  
end loop;  
end;  
/  
保存成q5.txt  
6. 编写PL/SQL程序块，通过使用显式游标，来显示dept表中的部门名称。（要求：使用while循环）  
答案：  
set serveroutput on;  
declare  
cursor cur\_dept is select dname from scott.dept;  
var\_dname scott.dept.dname%type;  
begin  
sys.dbms\_output.put\_line(‘本题要求： 编写PL/SQL程序块，通过使用显式游标，来显示dept表中的部门名称。（要求：使用while循环）’);  
sys.dbms\_output.put\_line(‘部门名称’);  
open cur\_dept;  
fetch cur\_dept into var\_dname;  
while cur\_dept%found loop  
sys.dbms\_output.put\_line(var\_dname);  
fetch cur\_dept into var\_dname;  
end loop;  
close cur\_dept;  
end;  
/  
保存成q6.txt;  
7. 编写PL/SQL程序块，利用隐式游标，使用For循环，从emp表中查询该部门号为10的所有雇员的姓名，工作和工资。  
答案：  
set serveroutput on;  
begin  
sys.dbms\_output.put\_line(‘编写PL/SQL程序块，利用隐式游标，使用For循环，从emp表中查询该部门号为10的所有雇员的姓名，工作和工资。’);  
for x in (select ename,job,sal from scott.emp where deptno = 10) loop  
sys.dbms\_output.put\_line(‘雇员姓名: ‘||x.ename||’,雇员工作：’||x.job||’,雇员工资： '||x.sal);  
end loop;  
end;  
/  
保存成q7.txt;  
8. 模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，初始值为10号部门。使用游标时，部门号是由用户随意输入（提示：随意输入，需要使用 ‘&’）。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。  
（要求：使用while循环）  
答案：  
set serveroutput on;  
declare  
var\_ename scott.emp.ename%type;  
var\_job scott.emp.job%type;  
var\_sal scott.emp.sal%type;  
cursor cur\_emp(var\_deptno in int :=10) is select ename,job,sal from scott.emp where deptno = var\_deptno;

begin  
sys.dbms\_output.put\_line(‘模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，初始值为10号部门。使用游标时，部门号是由用户随意输入（提示：随意输入，需要使用 ‘&’）。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。  
（要求：使用while循环）’);  
open cur\_emp(&部门编号);  
fetch cur\_emp into var\_ename,var\_job,var\_sal;  
while cur\_emp%found loop  
sys.dbms\_output.put\_line(‘员工姓名：’||var\_ename||’, 员工职位：’||var\_job||’, 员工工资：’||var\_sal);  
fetch cur\_emp into var\_ename,var\_job,var\_sal;  
end loop;  
close cur\_emp;  
end;  
/  
保存成q8.txt;  
9. 模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，无初始值。部门号可由用户随意输入。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。  
（要求：使用for循环）  
答案：  
set serveroutput on;  
declare  
cursor cur\_emp(var\_deptno in int) is select ename,job,sal from scott.emp where deptno = var\_deptno;  
begin  
sys.dbms\_output.put\_line(‘模仿课本P122的例题6-19，练习带参数的游标。要求将部门号作为参数，无初始值。部门号可由用户随意输入。要求显示出用户任意输入的部门号的所有雇员的姓名，工作和工资。  
（要求：使用for循环）’);  
for var in cur\_emp(&部门编号) loop  
sys.dbms\_output.put\_line(‘员工姓名：’||var.ename||‘员工职位：’||var.job||‘员工工资：’||var.sal);  
end loop;  
end;  
/  
保存成q9.txt;  
10. 编写一个PL/SQL程序块，利用游标（显式或隐式游标），从emp表中对名字以“A”或“S”开头的所有雇员，按他们基本工资的10%给他们加薪。（提示：在循环中使用update更新）  
答案：  
set serveroutput on;  
select ename 员工姓名,sal 工资 from scott.emp where ename like ‘A%’ or ename like ‘S%’;  
declare  
cursor cur\_emp is select ename,sal from scott.emp where ename like ‘A%’ or ename like ‘S%’;  
var\_sal scott.emp.sal%type;  
var\_ename scott.emp.ename%type;  
begin  
sys.dbms\_output.put\_line(‘编写一个PL/SQL程序块，利用游标（显式或隐式游标），从emp表中对名字以“A”或“S”开头的所有雇员，按他们基本工资的10%给他们加薪。（提示：在循环中使用update更新）’);  
for var in(select \* from scott.emp where ename like ‘A%’ or ename like ‘S%’) loop  
update scott.emp set sal = var.sal*1.1 where ename = var.ename;  
end loop;  
sys.dbms\_output.put\_line(‘更新后：’);  
sys.dbms\_output.put\_line(‘员工姓名 工资’);  
sys.dbms\_output.put\_line(’---------- ----------’);  
open cur\_emp;  
fetch cur\_emp into var\_ename,var\_sal;  
while cur\_emp%found loop  
sys.dbms\_output.put\_line(var\_ename||’ '||var\_sal);  
fetch cur\_emp into var\_ename,var\_sal;  
end loop;  
close cur\_emp;  
end;  
/  
保存成q10.txt;  
11. 编写一个PL/SQL程序块，利用游标（显式或隐式游标），在emp表中，所有雇员按他们基本工资的10%给他们加薪，但是只给加薪后的工资小于5000的雇员涨工资。  
答案：  
set serveroutput on;  
select ename 员工姓名,sal 工资 from scott.emp;  
declare  
cursor cur\_emp is select ename,sal from scott.emp;  
var\_sal scott.emp.sal%type;  
var\_ename scott.emp.ename%type;  
begin  
sys.dbms\_output.put\_line(‘编写一个PL/SQL程序块，利用游标（显式或隐式游标），在emp表中，所有雇员按他们基本工资的10%给他们加薪，但是只给加薪后的工资小于5000的雇员涨工资。’);  
for var in (select \* from scott.emp) loop  
if var.sal*1.1 < 5000 then  
update scott.emp set sal = var.sal\*1.1 where ename = var.ename;  
end if;  
end loop;  
sys.dbms\_output.put\_line(‘更新后：’);  
sys.dbms\_output.put\_line(‘员工姓名 工资’);  
sys.dbms\_output.put\_line(’---------- ----------’);  
open cur\_emp;  
fetch cur\_emp into var\_ename,var\_sal;  
while cur\_emp%found loop  
sys.dbms\_output.put\_line(var\_ename||’ '||var\_sal);  
fetch cur\_emp into var\_ename,var\_sal;  
end loop;  
close cur\_emp;  
end;  
/  
保存成q11.txt;