实验五-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='S0*******' and SID='C O154';

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='S0*******';

8 dbms_output.put_line(var_name);

9 end;

10 /

(3)

declare

2 type student_info IS recor d(

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='S0*******';

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='S0*******';

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;

/

四、实验步骤

五、实验小结