前面已经了解了关于PL/SQL编程的基础,本文将结合一个案例来加深对这些知识点的理解。"/>

Oracle PL/SQL入门之案例实践

来源:互联网  作者:未知
Oracle PL/SQL入门之案例实践
摘要: 前面已经了解了关于PL/SQL编程的基础,本文将结合一个案例来加深对这些知识点的理解。…

前面已经了解了关于PL/SQL编程的基础,本文将结合一个案例来加深对这些知识点的理解。

一. 案例介绍

某数据库有两张表,是关于某公司员工资料、薪水和部门信息的,它们分别是emp表和dept表,两张表的结构如下:

要求如下:

1、按照上表结构建立相应的表,并每张表写入5组合法数据。

2、操纵相关表,使得“技术部”的员工的薪水上涨20%。

3、建立日志,追踪薪水变动情况。

4、建立测试包。

二. 案例的分析与实现

从前面案例的介绍不难看出,要求1考察点为基本SQL语句;要求2主要考察复合查询;要求3是考察触发器的应用;要求4的考察面相对多一些,不仅考察了包的创建,而且也考察了在PL/SQL中的测试方法。了解了这些考察的知识点,就可以一一去解决。

要求1:

首先根据前面表的结构可以创建两张表:

——创建员工表

create table emp (emp_id number(5), emp_name varchar2(20), emp_salary number(4));

——部门表

create table dept (dept_id number(3), dept_name varchar2(20), emp_id number(5));

建立了表之后就可以往表里面写数据了,这里把添加表记录的代码写入到相应的存储过程。

/*给emp表添加记录的存储过程*/
create or replace procedure ins_table_emp(p_emp_id number,p_emp_name varchar2,p_emp_salary number) as
v_emp_id number:=p_emp_id;
v_emp_name varchar2(20):=p_emp_name;
v_emp_salary number:=p_emp_salary;
begin
 insert into emp values (v_emp_id,v_emp_name,v_emp_salary);
end ins_table_emp;

/*给dept表添加记录的存储过程*/
create or replace procedure ins_table_dept(p_dept_id number,p_dept_name varchar2,p_emp_id number) as
 v_dept_id number:=p_dept_id;
 v_dept_name varchar2(20):=p_dept_name;
 v_emp_id number:=p_emp_id;
begin
 insert into dept values (v_dept_id,v_dept_name,v_emp_id);
end ins_table_emp;

/*调用相应的存储过程实现记录添加*/
begin
 ins_table_emp(10000,'',4000);
 ins_table_emp(10001,'??èy',2300);
 ins_table_emp(10002,'3?t',3500);
 ins_table_emp(10003,'à???',3500);
 ins_table_emp(10004,'á?ò?',3500);

 ins_table_dept(111,'DD?t2?',10000);
 ins_table_dept(111,'DD?t2?',10001);
 ins_table_dept(111,'DD?t2?',10002);
 ins_table_dept(112,'??ê?2?',10003);
 ins_table_dept(113,'êD3?2?',10004);
end;

要求2:

给指定部门的员工加薪,这实际上是一个复合查询,首先需要把所有该部门的员工塞选出来,然后对这些员工的薪水进行相应的改动。依照这一思路,代码如下:

(需要注意的是:将要加薪的部门作为参数,这样的存储过程更有灵活性。)

create or replace procedure add_salary(p_dept_name varchar2) as
v_dept_name varchar2(20):=p_dept_name;
begin
 update emp set emp.EMP_SALARY=emp.EMP_SALARY*1.2 where emp.EMP_ID in (select emp.EMP_ID from emp,dept where emp.EMP_ID=dept.EMP_ID and dept.DEPT_ID='??ê?2?');
end add_salary;

【相关文章】好搜一下
perl语言详解

perl语言详解

Perl最初的设计者为拉里·沃尔(LarryWall),它于1987年12月18…