SQL PL/SQL语法手册4

第二部分 PL/SQL语法部分

一、 PL/SQL语言简介

(本讲义之所有程序均调式通过)

首先我们看一个简单之例子,下面这个例子是统计从1至100的总和.

declare

i number:=0; /*声明变量井给初值*/

t number:=1;

error_message exception; /*声明一个出错处理*/

begin

for t in 1..100 loop

i:=i+t;

end loop;

if i>=5050 then

raise error_message; /*引发错误处理*/

else

insert into c_nt(c_t) values(i);

end if;

exception

when error_message then

insert into c_nt(c_t) values(0);

end;

² 从上例中可以看出PL/SQL语法的一般规则.

­ PL/SQL中语句以分号(;)结尾.

­ 开始程序块的PL/SQL语句(如IF…或BEGIN语句)没有分句.

­ 文本值括在单引号(‘ ‘)内,而不是(“ “).

­ 过程只允许最后有一个出口..

² PL/SQL程序可以分为三个部分

­ DECLARE部分用于变量、常量、函数、过程、Cursor.

­ BEGIN部分包含PL/SQL块中要执行的代码 用于程序处理,其中可以调用函数、过程.

­ Exception 部分用于出错处理.

下面我们再看一个例子:

declare

i number :=1;

t number :=1;

p number :=1;

/*create table c_ny(c_t number,cou_t number);*/

function aa(xx number)return number is /* define function*/

tt number;

ct number:=1;

j number:=1;

begin

while j<=xx loop

ct:=ct+j;

j:=j+1;

end loop;

return ct;

end aa;

begin

/*create table c_nt(c_t number,cou_t number);*/

commit;

while i<=200 loop

t:=t+i;

i:=i+1;

p:=aa(i); /* calling function*/

insert into c_nt values(t,p);

commit;

end loop;

end;

/

说明:

1.在定义变量可以赋初值,赋初值有两种方法,一为上程序所示,另一种为如下所示:

Declare

I number default 92;

T number default 0;

2.定义常量

Declare

I constant number:=1;

T constant number:=9;

3.定义函数

function function_name(parameter type)return type is

…declare variant

begin

…

…

end function_name;

在上面的例子中我们定义了一个函数aa,在begin模块部分引用了此函数aa().

4.定义过程

procedure procedure_name(parameter IN type) is

…declare variant

begin

…

…

exception

…

…

end procedure_name;

见下例:

declare

/*t_emp c_nt%rowtype;*/

i number:=1;

t number:=1;

procedure te_t(t_t number) is /*定义一个函数*/

begin

insert into c_nt1(t_1) values(t_t);

end te_t;

begin

調用函數

for i in 1..100 loop

te_t(i);

end loop;

end;

/

5.定义Cursor

declare

/*t_emp c_nt%rowtype;*/

t_emp1 number;

t_emp2 number;

cursor tes_t1

is select * from c_nt;

begin

open tes_t1;

delete from c_nt1;

commit;

loop

fetch tes_t1 into t_emp1,t_emp2;

exit when tes_t1%notfound;

insert into c_nt1 values(t_emp1,t_emp2);a

end loop;

close tes_t1;

commit;

end;

/

我们在open 一个cursor时,可能会存在一种情况,即我们不需要cursor中所有之记录,我们该如何处理:

1.在定义一个cursor时,可以附带参数如下所示

declae

cursor c1(p_emp_id) is

select emp_no,emp_name from dept_no where emp_id = p_emp_id;

demp_pt c1%rowtype;

…

…

begin

open c1(123);

loop

fetch c1(123) into demp_pt

…

2.在将cursor中之记录项转到变量中时进行控制,如下所示:

declare

cursor is

select empt_no,empt_name from dept_no;

p_no number;

p_name number;

begin

loop

fetch c1 into (p_no,p_name);

用於到cursor中變量進行控制

if condition1 then

…

…

end if

end;

注意:

² 因为PL/SQL不支持I/O,所以程序所有结果都是放在数据档中.

² Delete from accts where status=’bad debt’

If sql%rowcount>10 then

Raise out_of_bounds;

End if;

另:

在声明一个变量时,PL/SQL提供两种变量类型:%TYPE,%ROWTYPE.

1.%TYPE

使用%TYPE时,可以有种用法:

² 一用法见下例:

declare

Balance number(7,2);

Minimum_balance balance%type:=10.00;

在上例中,minimum_balance数据类型为number(7,2)具默认值为10.00.

² 二用法见下例(将数据类型与table中一column datatype相对应起来,如果table中column datatype变更,则在运行时,上数据类型会自动的变换上):

declare

my_dname empc.empto%type;

2.%rowtype

使用%rowtype数据类型用于将table和cursor中一数据行相对起来.

见下例:

² Declare

定義一個%rowtype類型,與my_cursor中記錄行對應.

Cursor my_cursor is select sal+nvl(comm,0) salcomm,wages,ename from emp;

My_rec my_cursor%rowtype;

Begin

Open my_cursor;

將my_cursor中之記錄寫到my_rec變量中去.

loop

Fetch my_cursor into my_rec ;

Exit when my_cursor%notfound;

If my_rec.wages>200 then

Insert into temp values (null,my_rec.wages,my_rec.ename);

End if;

End loop;

Close my_cursor;

End;

二、 变量说明

在PL/SQL中包括以下几种常见的变量类型:

CHAR-存储定长的ASCII字符串,允许存储数字,文本文符等,最长可255个字符.

VARCHAR2-存储变长的字符串,尽管伋按符串的最大长度来定义,但VARCHAR2和CHAR的区别在于如果达不到定义的长度,下的空间不会自动的填写为空格,VARCHAR2最大可以放入2000个字符.

DATE-实际上是存储时间信息的日期/时间戳,在使用日期时,应考虑怎样使用日期函数.有关日期函数的格式见函数说明部分.

127

NUMBER-存储数值数据,包括整数和浮点数、数据范围可以从1Ï10 到38Ï10 ,而且,你有很大的数据空间.

BOOLENA-存储布尔值.它表示是/否,真/假,1/0之类的东西.

LONG-这是一种文本字符串,其长度大于VARCHAR2字段的2000个字符.该类最多可储存2 GB个字符,与原始二进制数据相比,它只能存储字符信息.

RAW-用来存储操作系统使用的原始二进制数据,可用于存储像图像或声音记录这样的信息,但这种数据长度最长度只有255字节.

LONG RAW-与LONG类型等价,但存储二进制数据,最长可达2GB个字节.

31

31

BINARY_INTEGER-这个字段按计算器使用的二进制格式存储信息,从

-2 到2 -1.

另:

PL/SQL提位两种复合类型:TABLE和RECORD

1.TABLE

² 要定义一个数组,你使用表类型定义语句,例如要定义Last_name数组,可以使用下述语句:

type last_name_list is table of varchar2(22)

index by binary_integer;

last_name last_name_list;

² 当定义一个长类型时,就涉及到一个删除表的问题,PL/SQL表不能用Delete语句来删除,但可以将每一行空值如下所示:

sal_tab(3):=null;

另一种法是定义两个相同类型的表类型,如果要将另一表清空,只需将空表给要清空的表即可.如下所示.

declare

type numtabtype is table of number

index by binary_integer;

sal_tab numbertype;

empty_tab numbertype;

begin

for I in 1..100 loop

sal_tab(I):=I;

end loop;

….

End;

2.RECORD

Declare

Type deptrectype is record

(deptno number(2),

dname char(14),

loc char(14),);

dept_rec deptrectype;

begin

select deptno,dname,loc into dept_rec from dept where deptno=30;

…

…

end;

与所有的编程语言一样,定义一个变量时,同样存在变量作用范围问题:

如下所示:

變量x為 real類型.

declare

x real;

function function_name(variant type)return type is

declare

在此範圍之內變量x為char

x char;

begin

…

end function_name;

…

…

變量x為real類型

begin

x:=expression1…

…

end;

如果想引用另一block之变量时,可以加上block label,如下所示:

Block label;

<<outer>>

declare

birthdate date;

begin

…

declare

birthdate date;

引用outer block塊所定義之變量.

begin

….

If birthdate=outer.birthdate then

….

End if;

End;

End outer;

三、 PL/SQL控制程序流

1. IF …THEN…ELSIF…ELSE…….END IF

IF … THEN

STATMENT1;

elseif…then…

statment2

elseif…then…

statment3

ELSE

STATMENT4;

end if;

例:

<<outer>>

for ctr in 1..20 loop

…

<<inner>>

for ctr in 1..10 loop

if outer.ctr>ctr then…

…

end loop inner;

end loop outer;

2.loop…exit…end loop

loop

sequence_of_statement;

…

exit;

end loop;

例:

loop

fetch c1 into …

exit when c1%notfound;

…

end loop;

close c1;

另:加loop label;

例:<<outer>>

loop

…

loop

…

exit outer when…

end loop;

…

end loop outer;

3.while…loop…end loop结构如下所示:

例

while total<=25000 loop

….

Select sa1 into salary from emp where…

Total:=total+salary;

End loop;

4.for…loop…

例1.

select count(empno) into emp_count from emp;

for L in 1..emp_count loop

…

end loop;

例2.

<<outer>>

for step in 1..25 loop

for step in 1..10 loop

…

if outer.step>15 then…

end loop;

end loop outer;

5.cursor….loop

declare

sursor c1 is select ename from emp;

name varchar2(100);

begin

for p_c1_rec in c1 loop

name := p_c1_rec.ename;

end loop;

四、 存储过程

要创建存储过程,可以使用下面的SQL和PL/SQL语句:

CREATE OR REPLACE PROCEDURE PROCEDURE_NAME(parameter list)

AS

…

BEGIN

…

(SQL AND PL/SQL COMMANDS)

END;

五、 存储函数

create or replace function function_name (parameter list) return type is

….

Begin

…

…

end;

六、 Package

Package分为两部分:Specific and Body

在包说明部分中,主要将此包中所含的过程和Function的调用参数说明清楚,如:

CREATE OR REPLACE PACKAGE ZDL_JOB_PKG

AS

PROCEDURE ZDL_INSERT_JOB(

p_bkc_id in number,

p_item_id in number,

p_job_number in out varchar2,

p_group_id in number,

p_lead_day in number,

p_load_type in number,

P_STATUS_TYPE IN NUMBER,

P_USER_ID IN NUMBER,

P_JOB_TYPE IN VARCHAR2);

PROCEDURE ZDL_UPDATE_JOB(

P_BKC_ID IN NUMBER,

P_GROUP_ID IN NUMBER,

P_STATUS_TYPE IN NUMBER,

P_USER_ID IN NUMBER);

FUNCTION WIP_MASS_LOAD(P_GROUP_ID IN NUMBER,P_USER_ID IN NUMBER) RETURN NUMBER;

PROCEDURE ZDL_PRE_UPDATE;

FUNCTION ZDL_UPDATE_ORACLE_WIP(P_USER_ID IN NUMBER) RETURN NUMBER;

FUNCTION ZDL_JOB_STATUS (P_JOB_NUMBER IN VARCHAR2) RETURN NUMBER;

END ZDL_JOB_PKG;

在包体部分,主要将包说明部分之过程及Function之代码写出来,

如:

CREATE OR REPLACE PACKAGE BODY ZDL_JOB_PKG

AS

PROCEDURE ZDL_INSERT_JOB (

p_bkc_id in number, p_item_id in number,p_job_number in out varchar2,

p_group_id in number,

p_lead_day in number,

P_LOAD_TYPE IN NUMBER,

P_STATUS_TYPE IN NUMBER,

P_USER_ID IN NUMBER,

P_JOB_TYPE IN VARCHAR2)

is

…………

begin

…………

end ZDL_INSERT_JOB;

PROCEDURE ZDL_UPDATE_JOB(P_BKC_ID IN NUMBER,P_GROUP_ID IN NUMBER,P_STATUS_TYPE IN NUMBER,P_USER_ID IN NUMBER)

AS

…………

BEGIN

…………

END ZDL_UPDATE_JOB;

FUNCTION WIP_MASS_LOAD(P_GROUP_ID IN NUMBER,P_USER_ID IN NUMBER) RETURN NUMBER

as

…………

begin

…………

END WIP_MASS_LOAD;

PROCEDURE ZDL_PRE_UPDATE IS

…………

begin

…………

end ZDL_PRE_UPDATE;

FUNCTION ZDL_UPDATE_ORACLE_WIP(P_USER_ID IN NUMBER) RETURN NUMBER

IS

…………

begin

…………

end ZDL_UPDATE_ORACLE_WIP;

FUNCTION ZDL_JOB_STATUS (P_JOB_NUMBER IN VARCHAR2) RETURN NUMBER

AS

…………

BEGIN

…………

END ZDL_JOB_STATUS;

END ZDL_JOB_PKG;

七、 触发器

² 所需系统权限

要为某表创建触发器,必须能改变这个表,因此不仅要拥有表,并且要具有这个表的 alter权限,或者具有alter any table系统权限,除此之外,必须有create triger系统权限,若要在另一个用户账号(account)(也称之为模式(schema))上创建触发器,就必具有create any trigger系统权限.

² 所需表权限

触发器可以引用的表并不是初始化触发事件的表.

² 触发器

触发器有十二种类型.一个触发器的类型由执行触发器的层次位置和触发事务的类型定义.

² 行级触发器

在某个事务中,行级触发器行执行,对于上述ledger表中记例子而言,触发器.行级触发器是在create trigger命令中通过用for each row 子句创建的.

² 合法的触发器类型

当两种不同类型之触发动作相结合时,有十二种可能的配置:

Before insert 行级触发器

before insert 语句级触发器

after insert 行级触发器

after insert 语句级触发器

before update 行级触发器

before update 语句级触发器

after update 行级触发器

after update 语句级触发器

before delete 行级触发器

before delete 语句级触发器

after delete 行级触发器

after delete 语句级触发器

例:

CREATE OR REPLACE TRIGGER "APPS"."ZDL_BKC_JOB_BODY_AFI"

AFTER INSERT ON "APPS"."ZDL_BKC_JOB_BODY"

REFERENCING OLD AS OLD NEW AS NEW FOR EACH ROW

BEGIN

Insert into audit_tbl values(:new.id,:new……);

UPDATE ZDL_BKC_JOB_HEAD SET UPDATE_DATE = SYSDATE

WHERE ZDL_BKC_JOB_HEAD_ID = :NEW.ZDL_BKC_JOB_BODY_ID;

END;