实验五-PLSQL 编程基础

实验五 PL/SQL 编程基础

一、 实验目的

1. 掌握PL/SQL的变量使用

2. 熟悉PL/SQL的流程结构控制语句 二、实验环境

一台PC机，安装widows xp操作系统，oracle 10g或11g数据库软件。 三、实验内容

1课本P194-P195 实验指导7-1使用各种变量

(1)

set serveroutput on SQL> declare

2 var_score number; 3 begin

4 var_score:=89; 5 update grade

6 set score=var_score

7 where SID='S06037201' and SID='CO154'; 8 end; 9 /

(2)

declare

2 var_name student.sname%type; 3 begin

4 select sname 5 into var_name 6 from student

7 where SID='S06037201';

8 dbms_output.put_line(var_name); 9 end; 10 / (3)

declare

2 type student_info IS record( 3 stu_ID student.SID%type, 4 stu_name student.sname%type 5 );

6 rec_student student_info; 7 begin

8 select SID,sname 9 into rec_student 10 from student

11 where SID='S06037201';

12 dbms_output.put_line(rec_student.stu_ID); 13 dbms_output.put_line(rec_student.stu_name); 14 end; 15 / (4)

declare

2 var_student student%rowtype; 3 begin 4 select *

5 into var_student 6 from student

7 where sid='S06037201';

8 dbms_output.put_line(var_student.sid); 9 dbms_output.put_line(var_student.sname); 10 dbms_output.put_line(var_student.sclass); 11 end; 12 /

2创建一个匿名PL/SQL块，将下列字符输出到屏幕："today is <获取当前时间 >"

declare

2 to_day date; 3 begin

4 select sysdate 5 into to_day 6 from dual;

7 dbms_output.put_line('today is '||to_day); 8 end; 9 /

3编写一个PL/SQL程序块以计算某个雇员的年度薪水总额。

set serveroutput on SQL>

SQL> declare

2 y_sal number; 3 begin

4 select sal*12 5 into y_sal 6 from emp

7 where ename='KING';

8 dbms_output.put_line('KING的年度工资总金额为： '||y_sal); 9 end; 10 /

4 使用if …end if语句判断两个数的大小（数据自己给出测试）。

Set serveroutput on declare

a number; b number; begin a :=5; b :=8; if a>b then

dbms_output.put_line(a || '>' || b); end if;

dbms_output.put_line(a || '<' || b); end;

5 编写一个PL/SQL程序块，计算100以内的奇数和。

Declare

I number:=1;

sum_num number:=0; begin

while i<100 loop

if mod(i,2)=1 then sum_num:=sum_num+i; end if; i:=i+1; end loop;

dbms_output.put_line(‘奇数和为’ ||sum_num); end; /

6 编写PL/SQL块计算并输出 S=1!+2!+…+10!。

declare m integer; n integer; p integer; begin

p:=0; n:=1; for m in 1..10 loop

n:=n*m; p:=p+n; end loop;

dbms_output.put_line(p); end;

/

四、实验步骤

五、实验小结

本文来源：https://www.bwwdw.com/article/h1ji.html