实验5 过程 函数 和程序包.pdfVIP

大型数据库技术实验报告成绩

实验课程：大型数据库技术（Oracle）

专业：班级：

姓名：学号：

同组人：实验日期：

实验实验

实验八过程、函数和和程序包设计性实验

项目类型

掌握过程的创建与调用

目的

掌握PL/SQL函数的编写与调用

要求

熟悉程序包的使用



（实验内容及步骤）

实验步骤

【】

8.0．实验准备工作:PL/SQL程序文件的编辑与执行

1．使用文档编辑器编辑以下文件，并保存为aa.sql：

2．以scott身份登录，在SQLPlus中执行＠aa命令运行程序：

给出运行结果：

8.1．存储过程

1．最简单的存储过程

(1)创建测试表

droptableempl;

createtableempl(

e_idnumber(5),

e_namevarchar2(20),

e_salarynumber(8,2)

);

(2)创建存储过程

createorreplaceprocedureinsert_salary(v_idnumber,v_namevarchar2,v_salarynumber)

is

begin

insertintoemplvalues(v_id,v_name,v_salary);

commit;

dbms_output.put_line(数据插入成功);

end;

/

(3)执行(调用)存储过程

execinsert_salary(6,g,2000);

(4)查询执行结果

select*fromempl;

给出执行的最后结果：

2．存储过程应用实例：列车购票与退票过程简单模拟

droptableticket;

createtableticket

(

trainnovarchar2(10),

ticketnumvarchar2(10),

primarykey(trainno,ticketnum)

);

--存储过程声明

createorreplaceprocedureinit

is

begin

foriin1..100

loop

insertintoticketvalues(1111,to_char(i,0000));

endloop;

foriin1..100

loop

insertintoticketvalues(2222,to_char(i,0000));

endloop;

foriin1..100

loop

insertintoticketvalues(3333,to_char(i,0000));

endloop;

commit;

end;

--调用火车的存储过程

begin

init();

end;

--买票的存储过程声明

createorreplaceproceduresell(trainnovarchar2)

is

tticket%rowtype;

cursorc1(tnovarchar2)

is

select*fromticketwheretrainno=tn