oracle-过程函数编程

来源：互联网发布：会员卡系统java源代码编辑：程序博客网时间：2024/05/17 06:19

过程函数编程

实践目的

　　(1) 掌握存储过程、存储函数高级数据库对象的基本作用。

　　(2) 掌握存储过程、存储函数的建立、修改、查看、删除操作。

实践要求

　　(1) 记录执行命令和操作过程中遇到的问题及解决方法，注意从原理上解释原因。

　　(2) 记录利用企业管理器管理存储过程、存储函数、触发器的方法。

　　(3) 记录利用SQL*Plus和PLSQL DEVELOPER管理存储过程、存储函数的命令。

实践内容

　　下列任务中涉及的数据表是SCOTT用户给出的表。

　　1．创建存储过程

(1) 获取某部门雇员的姓名和工资。　　

(2) 获取某部门的工资总和及部门名称。

　　(3)输出某个部门员工的姓名及工资档次，5000以上高，3000-5000中等，2000-3000较低，2000以下低。

　　2．创建存储函数

(1) 获取某雇员的工资：　　

(2) 获取某部门的工资总和。

(3) 输出某个员工的姓名及工资档次，5000以上高，3000-5000中等，2000-3000较低，2000以下低。

（4）计算指定部门的工资总和，并统计其中的职工数量。

实验步骤：

下列任务中涉及的数据表是SCOTT用户给出的表。

　　1．创建存储过程

(1) 获取某部门雇员的姓名和工资。　

SQL> conn scott/tiger

已连接。

SQL> set serveroutput on;

SQL> create or replace procedure emp_table(e_deptno emp.deptno%type)

2 as

3 cursor e_cursor is

4 select ename,sal from emp where deptno=e_deptno;

5 begin

6 for e_record in e_cursor loop

7 dbms_output.put_line(e_record.ename||' '||e_record.sal);

8 end loop;

9 end;

10 /

过程已创建。

SQL> exec emp_table(20);

SMITH 800

JONES 2975

SCOTT 3000

ADAMS 1100

FORD 3000

SQL> exec emp_table(10);

CLARK 2450

KING 5000

MILLER 1300

PL/SQL 过程已成功完成。

SQL> exec emp_table(30);

ALLEN 1600

WARD 1250

MARTIN 1250

BLAKE 2850

TURNER 1500

JAMES 950

PL/SQL 过程已成功完成。

SQL>

(2) 获取某部门的工资总和及部门名称。

SQL> create or replace procedure emp_1(e_deptno emp.deptno%type)

2 as

3 cursor emp_cur is

4 select deptno,sum(sal) as e_sal from emp where deptno=e_deptno group by deptno;

5 begin

6 for emp_record1 in emp_cur loop

7 dbms_output.put_line(emp_record1.deptno||' '||emp_record1.e_sal);

8 end loop;

9 end;

10 /

过程已创建。

SQL> exec emp_1(10);

10 8750

PL/SQL 过程已成功完成。

SQL> exec emp_1(20);

20 10875

PL/SQL 过程已成功完成。

SQL> exec emp_1(30);

30 9400

PL/SQL 过程已成功完成。

SQL>

(3)输出某个部门员工的姓名及工资档次，5000以上高，3000-5000中等，2000-3000较低，2000以下低。

SQL> create or replace procedure empno_name_level

2 (dnum in emp.empno%type,name out emp.ename%type,level out varchar2)

3 as

4 salary emp.sal%type;

5 begin

6 select sal,ename into salary,name from emp where dnum=empno;

7 case

8 when salary >5000 then level:='高';

9 when salary between 3000 and 5000 then level:='中等';

10 when salary between 2000 and 3000 then level:='较低';

11 else level:='低';

12 end case;

13 end;

14 /

过程已创建。

SQL> declare

2 level varchar2(15);

3 name emp.ename%type;

4 begin

5 empno_name_level('7788',name,level);

6 dbms_output.put_line('name:'||name||' '||'level:'||level);

7 end;

8 /

name:SCOTT level:中等

PL/SQL 过程已成功完成。

　　2．创建存储函数

(1) 获取某雇员的工资：　　

SQL> create or replace function empno_sal(eno in emp.empno%type)

2 return emp.sal%type

3 as

4 salary emp.sal%type;

5 begin

6 select sal into salary from emp where eno=empno;

7 return salary;

8 end;

9 /

函数已创建。

SQL> begin

2 dbms_output.put_line('salary:'||emp_sal('7499'));

3 end;

4 /

salary:1600

PL/SQL 过程已成功完成。

SQL> begin

2 dbms_output.put_line('salary:'||emp_sal('7788'));

3 end;

4 /

salary:3000

PL/SQL 过程已成功完成。

SQL> begin

2 dbms_output.put_line('salary:'||emp_sal('7900'));

3 end;

4 /

salary:950

PL/SQL 过程已成功完成。

(2) 获取某部门的工资总和。

SQL> create or replace function salary_num(dno in emp.deptno%type)

2 return emp.sal%type

3 is

4 total emp.sal%type;

5 begin

6 select sum(sal) into total from emp where dno=deptno;

7 return total;

8 end;

9 /

函数已创建。

SQL> begin

2 dbms_output.put_line('total_salary:'||total_salary('20'));

3 end;

4 /

total_salary:10875

PL/SQL 过程已成功完成。

SQL> begin

2 dbms_output.put_line('total_salary:'||total_salary('10'));

3 end;

4 /

total_salary:8750

PL/SQL 过程已成功完成。

SQL> begin

2 dbms_output.put_line('total_salary:'||total_salary('30'));

3 end;

4 /

total_salary:9400

PL/SQL 过程已成功完成。

(3) 输出某个员工的姓名及工资档次，5000以上高，3000-5000中等，2000-3000较低，2000以下低。

SQL> create or replace function empno_name_level1(dnum in emp.empno%type,name out emp.ename%type)

2 return varchar2

3 as

4 salary emp.sal%type;

5 level varchar2(15);

6 begin

7 select sal,ename into salary,name from emp where dnum=empno;

8 case

9 when salary >5000 then level:='高';

10 when salary between 3000 and 5000 then level:='中等';

11 when salary between 2000 and 3000 then level:='较低';

12 else level:='低';

13 end case;

14 return level;

15 end;

16 /

函数已创建。

SQL> declare

2 name emp.ename%type;

3 level varchar2(15);

4 begin

5 level:=empno_name_level1('7499',name);

6 dbms_output.put_line('name:'||name||' '||'level:'||level);

7 end;

8 /

name:ALLEN level:低

PL/SQL 过程已成功完成。

SQL> declare

2 name emp.ename%type;

3 level varchar2(15);

4 begin

5 level:=empno_name_level1('7788',name);

6 dbms_output.put_line('name:'||name||' '||'level:'||level);

7 end;

8 /

name:SCOTT level:中等

PL/SQL 过程已成功完成。

SQL> declare

2 name emp.ename%type;

3 level varchar2(15);

4 begin

5 level:=empno_name_level1('7566',name);

6 dbms_output.put_line('name:'||name||' '||'level:'||level);

7 end;

8 /

name:JONES level:较低

PL/SQL 过程已成功完成。

（4）计算指定部门的工资总和，并统计其中的职工数量。

SQL> create or replace function salnum_empnonum(dnum in emp.deptno%type,total out emp.sal%type)

2 return number

3 as

4 e_count number;

5 begin

6 select sum(sal),count(empno)

7 into total,e_count from emp where deptno=dnum;

8 return e_count;

9 end;

10 /

函数已创建。

SQL> declare

2 total emp.sal%type;

3 begin

4 dbms_output.put_line('enum:'||salnum_empnonum('10',total)||''||'total:'||total);

5 end;

6 /

enum:3total:8750

PL/SQL 过程已成功完成。

实验小结：

1. PL/SQL中的存储子程序包括存储过程和(存储)函数两种。存储子程序是以独立对象的形式存储在数据库服务器中，因此是一种全局结构，与之对应的是局部子程序，即嵌套在PL/SQL块中的局部过程和函数，其存储位置取决于其所在的父块的位置。

2. 存储过程可以简单的理解为一段可以执行某个活动/动作的子程序，可以作为一个系统对象被存储在数据库中，可以重复调用。

3. 通常，存储过程不需要返回值，如果需要返回一个值可以通过函数调用实现。但是，如果希望返回多个值，可以使用OUT或IN OUT模式参数来实现。

4. 在编译过程中可能会产生错误，可以使用SHOW ERRORS来查看错误信息。当前只有一个对象，要显示错误可以用SHOW ERRORS,当有多个对象时，可以精确的指明要查看那个对象，例如此处可写：SHOW ERRORS PROCEDURE myproc,同样的要查看函数、包、触发器的错误，用SHOW ERRORS FUNCTION/PACKAGE/TRIGER 名称。

5. 存储子程序是被命名的PL/SQL块，以编译的形式存储在数据库服务器中，可以在应用程序中进行调用，是PL/SQL程序模块化的一种体现。

0 0