1.PL/SQL代码块
PL/SQL 代码块是指令的集合，支持所有的DML，NDS，DBMS_SQL,DDL。
    ：DML 是数据操纵语言（Data Manipulation Language）包括，Insert ,update,delete
    : DDL是数据定义语言（Data Definition Language ），包括，Alter,create,drop,truncate,Grant,revoke
    : NDS本地动态SQL(Native Dynamic SQL)

2.PL/SQL代码块结构
    ：声明部分 
    ：执行部分 
    ：异常处理部

--最小代码块
begin
    null;
end;
/

--匿名块
declare   --声明部分
    v_date_time timestamp;
begin     --执行部分
    select systimestramp
    into v_date_time
    from dual;
    DBMS_OUTPUT.PUT_LINE(v_date_time);
exception --异常处理部分
    when others
    then
        DBMS_OUTPUT.PUT_LINE(sqlerrm)
end;
/

/*
匿名块运行
1.在SQL windows 下 的 SQL>命令后面键入所有代码即可运行。
2.用cd进入这个脚本的保存目录
3.在PL/SQL用户界面运行
*/


--命名块
create or replace procedure CompoileError
    as
    v_timesramp timestramp;
    
begin
    select systimestamp
    into v_timesramp
    from duall;  --这是一张不存在的表
    
    DBMS_OUTPUT.PUT_LINE(v_timesramp);
exception
    when others
    then
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
end;
/

/*
命名快通过编译，然后在数据库存储，然后执行
---因为调用不存在的表会编译错误
Warring:procedure created with complilation errors

查看错误信息
1.可以使用 show errors 语句 查看详细错误
  show errors
2.返回存储过程的代码及行号
    select line||‘ ‘text procedure
    from user_source
    where name=‘CompoileError‘
3. 执行查看错误
    exec CompoileError
*/

4.触发器
触发器是PL/SQL的一种特殊实现，他们存储在数据库中，但又不是存储过程或函数。由事件驱动，并且与执行在数据库的某种操作关联。

create or replace trigger author_tring
    after update of first_name
    on authors
    for each row
when(OLD.first_name!=NEW.first_name)
begin
    DBMS_OUTPUT.PUT_LINE(
        ‘First Name‘
        ||:OLD.first_name
        ||‘has change to‘
        ||:NEW.first_name
        );
end;
/

当update first_name时，触发器被触发

update authors
set first_name=‘Roald‘
where first_name=‘Ron‘


--屏幕上会显示：
First Name Ron has change to Ronald

------------------------------------过程,函数的创建----------------------------

--创建存储过程
create or replace AddNewAuthor(
    P_ID authors.ID%TYPE,
    P_FirstName authors.first_name%TYPE,
    P_LasetName authors.last_name%TYPE 
    ) as
begin
     insert into authors(id,first_name,last_name)
     values(P_ID,P_FirstName,P_LasetName);
end AddNewAuthor;
/

--调用存储过程
begin
    AddNewAuthor(100,‘Zelda‘,‘zudink‘);
end;


--创建函数
create or replace function ThreeAuthors(p_ISBN in books.isbn%TYPE)
return boolean as
v_Author3 books.authors3%TYPE

begin
select authors3
into v_Author3
from books
where isbn=p_ISBN;

if v_Author3 is null then
    return false;
else
    return true;
end if;

end ThreeAuthors;

--调用函数
begin
    for cur_rec in(select ISBN,title from books)loop
        if ThreeAuthors(cur_rec.ISBN) then
            DBMS_OUTPUT.PUT_LINE(‘""‘||cur_rec||‘"has 3 authors‘);
        end if;
    end loop;
end;
/

---过程和函数的删除
--drop procedure procedure_name;
drop procedure AddNewAuthor;
--drop function functionname;
drop function ThreeAuthors;