PL/SQL 试题

最新推荐文章于 2021-04-02 20:14:21 发布

一夜花香雨

最新推荐文章于 2021-04-02 20:14:21 发布

阅读量4.7k

点赞数 1

分类专栏：试题文章标签： plsql oracle

本文链接：https://blog.csdn.net/anye_123/article/details/76217627

版权

试题专栏收录该内容

1 篇文章 0 订阅

订阅专栏

选择题（20分,每题4分）
1. 利用游标来修改数据时，所用的..FOR UPDATE充分利用了事务的哪个特性？（）
A、原子性
B、一致性
C、永久性
D、隔离性

下列说法，正确的说法是（）
A、只要在存储过程中有增删改语句，一定加自治事务
B、在函数内可以修改表数据
C、函数不能递归调用
D、以上说法都不对
下列说法正确的是，多选（）
A、在PLSQL自定义函数中如果包含UPDATE、DELETE、INSERT语句，不必在函数体内给出COMMIT
B、自定义函数可以在SQL语句中调用、也可以在PLSQL块中调用
C、自定义函数可以返回表类型
D、自定义函数中的参数可以是OUT类型
关于触发器，下列说法正确的是（）
A、可以在表上创建INSTEAD OF 触发器
B、语句级触发器不能使用“:OLD”和“:NEW”
C、行级触发器不能用于审计功能
D、触发器可以显式调用
PL/SQL下定义package描述正确的是（）
A. 包的声明中必须按照类型、变量、异常、子程序、游标的定义顺序来声明内容，不允许将游标定义在类型的前面
B. 包的声明中定义的子程序在包体中必须有实现，但游标可以没有
C. 包体中的所有子程序定义不一定都必须是在包声明中定义过的
D. 包体中的所有内容都必须在包声明中定义，否则会被视为无效内容
基础题（50分）

 创建程序包，包名：CUX_PLSQL_EXAM工号_PKG，包含以下函数和过程：
1. 编写一个函数，根据学号、课程号返回学生的学科成绩。
如获取不到，则返回值 -1；
如能找到多行数据，则返回 -2；
如有其他异常，则返回 -3；
（5分）

注意：
以下的所有方法、过程，都写在上面的包里面。最后把包保存成.pck文件。
匿名块单独写。

编写一个存储过程（自治事务），记录日志信息到表HAND_LOG中，其中参数CODE（错误代码）、MSG（错误信息）为必输字段、KEY1到KEY5为非必输字段，默认为空。（5分）
编写一个存储过程，添加10条学生信息到表HAND_STUDENT中，数据格式及逻辑，学号：s100 … 109、姓名：王001 … 王010、年龄：22、性别：学号最后一位是奇数为“男”，偶数为“女”。（5分）
编写一个存储过程，根据学号、课程号按成绩的20%进行加分，如果增加后的分数大于100，则取消加分。同时在存储过程中返回增加后的成绩。（5分）

 根据如下题目要求，编写脚本代码：

编写匿名块，调用上述程序包中函数获取选修了“胡明星”老师的学生的各科成绩，直接用DBMS_OUTPUT输出“姓名、学号、课程、成绩”。如果返回成绩异常，则调用上述自治事务存储过程记录信息（CODE=函数返回值，MSG=学生姓名）。（10分）
编写匿名块，先调用上述第3个存储过程添加学生数据。再在匿名块中创建一个和HAND_STUDENT表结构一样的表，命名为HAND__STUDENT_TEMP。然后将HAND_STUDENT表中数据全部插入到HAND__STUDENT_TEMP表中。（10分）
编写匿名块，调用上述第4个存储过程对平均成绩在70以下的学生的各科成绩进行加分。然后直接用DBMS_OUTPUT输出“姓名、学号、课程、加分前成绩、加分后成绩”。（10分）

 进阶题（30分）

在表HAND_STUDENT上创建一个触发器，当表数据新增、更新或删除时，都在表HAND_STUDENT_HIS新增一条记录，记录LAST_UPDATE_DATE及STATUS。（10分）
说明：
1）状态值“N”表示新增、“U”表示修改、“D”表示删除。
2） LAST_UPDATE_DATE时间记录当时数据操作时间。
编写匿名块，将所有学生的“姓名、学号、课程名、成绩”信息保存到集合中，并使用学号作为索引。然后在程序中判断学号“s200”是否存在集合中，若不存在，则在集合中新增一条数据（姓名=张三丰、学号=s200、课程=PHP，成绩=80）。
（10分）
编写一个存储过程，没有任何参数。在程序中进行数据分析。
1）以学生为维度，分析每个学生所学课程中的最高分和最低分。需要的结果是（姓名、学号、最高分、最高分课程名、最低分、最低分课程名）；
2）以教师为维护，分析每个教师所教课程中的最高分和最低分。需要的结果是（教师名、课程名、课程最高分、最高分学生姓名、课程最低分、最低分学生姓名）；
将以上分析的结果数据，分别写入两个文件，文件名分别为 student.txt和teacher.txt。注意写入文件中的数据，需要换行。（10分）

答案：
一、选择题
1、D
2、B
3、ABCD
4、B
5、BC

二、基础题
– 程序包
CREATE OR REPLACE PACKAGE cux_plsql_exam3740_pkg IS

– 基础题
– 1. 编写一个函数，根据学号、课程号返回学生的学科成绩
FUNCTION get_course_core(p_student_no IN VARCHAR2,
p_course_no IN VARCHAR2) RETURN NUMBER;

– 3. 编写一个存储过程，添加10条学生信息到表HAND_STUDENT中
PROCEDURE insert_student;

– 4. 编写一个存储过程，根据学号、课程号按成绩的20%进行加分…
PROCEDURE process_add_core(p_student_no IN VARCHAR2,
p_course_no IN VARCHAR2,
x_core OUT NUMBER);

END cux_plsql_exam3740_pkg;

CREATE OR REPLACE PACKAGE BODY cux_plsql_exam3740_pkg IS

– 1. 编写一个函数，根据学号、课程号返回学生的学科成绩
FUNCTION get_course_core(p_student_no IN VARCHAR2,
p_course_no IN VARCHAR2) RETURN NUMBER IS
l_core NUMBER;
BEGIN
SELECT hsc.core
INTO l_core
FROM hand_student_core hsc
WHERE hsc.student_no = p_student_no
AND hsc.course_no = p_course_no;
RETURN l_core;
EXCEPTION
WHEN no_data_found THEN
RETURN - 1;
WHEN too_many_rows THEN
RETURN - 2;
WHEN OTHERS THEN
RETURN - 3;
END get_course_core;

– 2. 编写一个存储过程（自治事务），记录日志信息到表HAND_LOG中
PROCEDURE log_msg(p_code IN VARCHAR2,
p_msg IN VARCHAR2,
p_key1 IN VARCHAR2 DEFAULT NULL,
p_key2 IN VARCHAR2 DEFAULT NULL,
p_key3 IN VARCHAR2 DEFAULT NULL,
p_key4 IN VARCHAR2 DEFAULT NULL,
p_key5 IN VARCHAR2 DEFAULT NULL) IS
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
INSERT INTO hand_log
(code, msg, key1, key2, key3, key4, key5)
VALUES
(p_code, p_msg, p_key1, p_key2, p_key3, p_key4, p_key5);
COMMIT;
END log_msg;

– 3. 编写一个存储过程，添加10条学生信息到表HAND_STUDENT中
PROCEDURE insert_student IS
l_rec hand_student%ROWTYPE;
BEGIN
FOR i IN 1 .. 10 LOOP
l_rec.student_no := ‘s10’ || (i - 1);
IF i < 10 THEN
l_rec.student_name := ‘王00’ || i;
ELSE
l_rec.student_name := ‘王0’ || i;
END IF;
l_rec.student_age := 22;
IF mod(i, 2) = 0 THEN
l_rec.student_gender := ‘男’;
ELSE
l_rec.student_gender := ‘女’;
END IF;
INSERT INTO hand_student VALUES l_rec;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END insert_student;

– 4. 编写一个存储过程，根据学号、课程号按成绩的20%进行加分…
PROCEDURE process_add_core(p_student_no IN VARCHAR2,
p_course_no IN VARCHAR2,
x_core OUT NUMBER) IS
CURSOR cur_core IS
SELECT hsc.core
FROM hand_student_core hsc
WHERE hsc.student_no = p_student_no
AND hsc.course_no = p_course_no
FOR UPDATE OF hsc.core;
BEGIN
FOR rec_core IN cur_core LOOP
IF (rec_core.core + rec_core.core * 0.2) <= 100 THEN
UPDATE hand_student_core hsc
SET hsc.core = hsc.core + hsc.core * 0.2
WHERE CURRENT OF cur_core;
x_core := rec_core.core + rec_core.core * 0.2;
ELSE
x_core := rec_core.core;
END IF;
END LOOP;
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END process_add_core;

END cux_plsql_exam3740_pkg;

– 匿名块
– 根据如下题目要求，编写脚本代码
– 1. 编写匿名块，调用上述程序包中函数获取选修了“胡明星”老师的学生的各科成绩
DECLARE
CURSOR cur_core IS
SELECT hs.student_name,
hs.student_no,
hc.course_name,
cux_plsql_exam3740_pkg.get_course_core(hsc.student_no,hsc.course_no) core
FROM hand_student_core hsc,
hand_course hc,
hand_student hs
WHERE hsc.student_no = hs.student_no
AND hsc.course_no = hc.course_no
AND EXISTS (SELECT 1
FROM hand_student_core hs,
hand_course hc,
hand_teacher ht
WHERE hs.course_no = hc.course_no
AND hc.teacher_no = ht.teacher_no
AND hs.student_no = hsc.student_no
AND ht.teacher_name = ‘胡明星’);
BEGIN
dbms_output.put_line(‘姓名,学号,课程,成绩’);
FOR rec_core IN cur_core LOOP
IF rec_core.core NOT IN (-1,-2,-3) THEN
dbms_output.put_line(rec_core.student_name ||’,’||rec_core.student_no ||’,’||
rec_core.course_name ||’,’||rec_core.core);
ELSE
cux_plsql_exam3740_pkg.log_msg(p_code => rec_core.core,p_msg => rec_core.student_name);
END IF;
END LOOP;
END;

– 2. 编写匿名块，先调用上述第3个存储过程添加学生数据…
DECLARE
l_count NUMBER;
BEGIN
cux_plsql_exam3740_pkg.insert_student;
SELECT COUNT(1)
INTO l_count
FROM all_tables WHERE TABLE_NAME = ‘HAND_STUDENT_TEMP’;
IF l_count > 0 THEN
EXECUTE IMMEDIATE ‘DROP TABLE HAND_STUDENT_TEMP’;
END IF;
EXECUTE IMMEDIATE ‘CREATE TABLE HAND_STUDENT_TEMP AS SELECT * FROM HAND_STUDENT’;
END;

– 3. 编写匿名块，调用上述第4个存储过程对平均成绩在70以下的学生的各科成绩进行加分
DECLARE
CURSOR cur_core IS
SELECT hs.student_name,
hs.student_no,
hc.course_no,
hc.course_name,
hsc.core before_core
FROM hand_student_core hsc,
hand_course hc,
hand_student hs
WHERE hsc.course_no = hc.course_no
AND hsc.student_no = hs.student_no
AND EXISTS (SELECT hs.student_no
FROM hand_student_core hs
WHERE hs.student_no = hsc.student_no
GROUP BY hs.student_no
HAVING AVG(hs.core) < 70);
l_after_core NUMBER;
BEGIN
dbms_output.put_line(‘姓名,学号,课程,加分前成绩,加分后成绩’);
FOR rec_core IN cur_core LOOP
cux_plsql_exam3740_pkg.process_add_core(p_student_no => rec_core.student_no,
p_course_no => rec_core.course_no,
x_core => l_after_core);

dbms_output.put_line(rec_core.student_name ||','||rec_core.student_no ||','||
                     rec_core.course_name ||','||rec_core.before_core ||','||l_after_core);

END LOOP;
END;

三、进阶题
– 1.在表HAND_STUDENT上创建一个触发器，当表数据新增、更新或删除时，都在表HAND_STUDENT_HIS新增一条记录
CREATE OR REPLACE TRIGGER hand_student_trg
AFTER INSERT OR UPDATE OR DELETE ON hand_student
FOR EACH ROW
DECLARE
BEGIN
IF inserting THEN
INSERT INTO hand_student_his
(student_no,
Student_Name,
student_age,
student_gender,
last_update_date,
status)
VALUES
(:NEW.student_no, :NEW.Student_Name, :NEW.student_age, :NEW.student_gender, SYSDATE, ‘N’);
ELSIF updating THEN
INSERT INTO hand_student_his
(student_no,
Student_Name,
student_age,
student_gender,
last_update_date,
status)
VALUES
(:NEW.student_no, :NEW.Student_Name, :NEW.student_age, :NEW.student_gender, SYSDATE, ‘U’);
ELSIF deleting THEN
INSERT INTO hand_student_his
(student_no,
Student_Name,
student_age,
student_gender,
last_update_date,
status)
VALUES
(:OLD.student_no, :OLD.Student_Name, :OLD.student_age, :OLD.student_gender, SYSDATE, ‘D’);
END IF;
EXCEPTION
WHEN OTHERS THEN
NULL;
END hand_student_trg;

– 2. 编写匿名块，将所有学生的“姓名、学号、课程名、成绩”信息保存到集合中
DECLARE
TYPE core_rec IS RECORD (student_name hand_student.student_name%TYPE,
student_no hand_student.student_no%TYPE,
course_name hand_course.course_name%TYPE,
core hand_student_core.core%TYPE);
TYPE core_tdl_type IS TABLE OF core_rec INDEX BY hand_student.student_no%TYPE;
core_tdl core_tdl_type;
CURSOR cur_core IS
SELECT hs.student_name,
hs.student_no,
hc.course_name,
hsc.core
FROM hand_student_core hsc,
hand_course hc,
hand_student hs
WHERE hsc.course_no = hc.course_no
AND hsc.student_no = hs.student_no;
l_student_no hand_student.student_no%TYPE;
BEGIN
FOR rec_core IN cur_core LOOP
core_tdl(rec_core.student_no).student_name := rec_core.student_name;
core_tdl(rec_core.student_no).student_no := rec_core.student_no;
core_tdl(rec_core.student_no).course_name := rec_core.course_name;
core_tdl(rec_core.student_no).core := rec_core.core;
END LOOP;
BEGIN
l_student_no := core_tdl(‘s200’).student_no;
EXCEPTION
WHEN NO_DATA_FOUND THEN
core_tdl(‘s200’).student_name := ‘张三丰’;
core_tdl(‘s200’).student_no := ‘s200’;
core_tdl(‘s200’).course_name := ‘PHP’;
core_tdl(‘s200’).core := 80;
WHEN OTHERS THEN
NULL;
END;
END;

– 3. 编写一个存储过程，没有任何参数。在程序中进行数据分析

GRANT CREATE ANY DIRECTORY TO hand_student;

CREATE OR REPLACE DIRECTORY FILENAME AS ‘D:\EXAM’;

CREATE OR REPLACE PROCEDURE process_core_info IS
CURSOR cur_stu_core IS
SELECT hs.student_name,
hs.student_no,
hsc1.core max_core,
hc1.course_name max_course_name,
hsc2.core min_core,
hc2.course_name min_course_name
FROM hand_student_core hsc1,
hand_course hc1,
hand_student hs,
hand_student_core hsc2,
hand_course hc2
WHERE hsc1.course_no = hc1.course_no
AND hsc1.student_no = hs.student_no
AND hsc1.student_no = hsc2.student_no
AND hsc2.course_no = hc2.course_no
AND hsc1.core = (SELECT MAX(hsc.core)
FROM hand_student_core hsc
WHERE hsc.student_no = hsc1.student_no)
AND hsc2.core = (SELECT MIN(hsc.core)
FROM hand_student_core hsc
WHERE hsc.student_no = hsc1.student_no);
CURSOR cur_teh_core IS
SELECT ht.teacher_name,
hc1.course_name,
hsc1.core max_core,
hs1.student_name max_student_name,
hsc2.core min_core,
hs2.student_name min_student_name
FROM hand_student_core hsc1,
hand_course hc1,
hand_teacher ht,
hand_student hs1,
hand_student_core hsc2,
hand_course hc2,
hand_student hs2
WHERE hsc1.course_no = hc1.course_no
AND hc1.teacher_no = ht.teacher_no
AND hsc1.student_no = hs1.student_no
AND hsc2.course_no = hc2.course_no
AND hc1.teacher_no = hc2.teacher_no
AND hsc2.student_no = hs2.student_no
AND hsc1.core = (SELECT MAX(hsc.core)
FROM hand_student_core hsc,
hand_course hc
WHERE hsc.course_no = hc.course_no
AND hc.teacher_no = hc1.teacher_no)
AND hsc2.core = (SELECT MIN(hsc.core)
FROM hand_student_core hsc,
hand_course hc
WHERE hsc.course_no = hc.course_no
AND hc.teacher_no = hc2.teacher_no);
FILEHANDLE UTL_FILE.FILE_TYPE;
BEGIN
FILEHANDLE := UTL_FILE.FOPEN(‘FILENAME’,’student.txt’,’W’);
UTL_FILE.PUT_LINE(‘姓名,学号,最高分,最高分课程名,最低分,最低分课程名’);
FOR rec_stu_core IN cur_stu_core LOOP
UTL_FILE.PUT_LINE(FILEHANDLE,rec_stu_core.student_name||’,’||rec_stu_core.student_no||’,’||
rec_stu_core.max_core||’,’||rec_stu_core.max_course_name||’,’||
rec_stu_core.min_core||’,’||rec_stu_core.min_course_name);
END LOOP;
UTL_FILE.FCLOSE(FILEHANDLE);

FILEHANDLE := UTL_FILE.FOPEN(‘FILENAME’,’teacher.txt’,’W’);
UTL_FILE.PUT_LINE(‘教师名,课程名,课程最高分,最高分学生姓名,课程最低分,最低分学生姓名’);
FOR rec_teh_core IN cur_teh_core LOOP
UTL_FILE.PUT_LINE(FILEHANDLE,rec_teh_core.teacher_name||’,’||rec_teh_core.course_name||’,’||
rec_teh_core.max_core||’,’||rec_teh_core.max_student_name||’,’||
rec_teh_core.min_core||’,’||rec_teh_core.min_student_name);
END LOOP;
UTL_FILE.FCLOSE(FILEHANDLE);

END process_core_info;

一夜花香雨

关注

1
点赞
踩
20

收藏

觉得还不错? 一键收藏
0
评论
PL/SQL 试题

选择题（20分,每题4分） 1. 利用游标来修改数据时，所用的..FOR UPDATE充分利用了事务的哪个特性？（） A、原子性 B、一致性 C、永久性 D、隔离性下列说法，正确的说法是（） A、只要在存储过程中有增删改语句，一定加自治事务 B、在函数内可以修改表数据 C、函数不能递归调用 D、以上说法都不对下列说法正确的是，多选（） A、在PLSQL自定义函数中如果包含U
复制链接

扫一扫