Oracle基本PLSQL的使用实例详解

DECLARE： 声明部分  
BEGIN 
编写主题 
EXCEPTION 捕获异常  
END; 

DECLARE  
  i number; 
BEGIN 
  I:=30; 
  DBMS_OUTPUT.put_line('I的内容为:'||i); 
END; 

DECLARE 
  i number; 
BEGIN 
  i:=1/0; 
EXCEPTION 
  when ZERO_DIVIDE then 
  DBMS_OUTPUT.put_line("There is a Exception"); 
END; 

DECLARE 
  eno number; 
  en varchar(20); 
BEGIN 
  --输入的信息保存在eno里 
  eno:=&no; 
  --之后根据eno的值，对数据库进行查询操作。 
  select ename into en from emp where empno = eno; 
  DBMS_OUTPUT.put_line('编号为:'||eno||'雇员的姓名为:'||en); 
EXCEPTION 
  WHEN no_data_found THEN 
  DBMS_OUTPUT.put_line('没有此雇员'); 
END; 

DECLARE 
  eno emp.empno%TYPE ;  
  en emp.ename%TYPE ;  
  mn emp.ename%TYPE ;  
  dn dept.dname%TYPE ;  
  dept dept %rowtype ;  
BEGIN 
  -- 输入的信息保存在 eno 里 
  eno := &no ; 
  -- 之后根据 eno 的值，对数据库进行查询操作 
  SELECT e.ename,m.ename,d.dname INTO en,mn,dn  
  FROM emp e,dept d,emp m  
  WHERE e.empno=7369 AND e.mgr=m.empno AND e.deptno=d.deptno ;  
  DBMS_OUTPUT.put_line('编号为：'||eno||'雇员的姓名为：'||en) ; 
  DBMS_OUTPUT.put_line('编号为：'||eno||'雇员的上级姓名为：'||mn) ;  
  DBMS_OUTPUT.put_line('编号为：'||eno||'雇员所在的部门：'||dn) ;  
  DBMS_OUTPUT.put_line(dept.deptno) ; 
EXCEPTION 
  WHEN no_data_found THEN  
  DBMS_OUTPUT.put_line('没有此雇员') ; 
END ; 

LOOP 
  循环的语句 ; 
EXIT WHEN 终止条件 ; 
  循环条件必须更改 ; END LOOP ; 

DECLARE 
  countNum NUMBER ;  
BEGIN 
  --必须赋初值 
  countNum := 1 ;  
  LOOP 
    DBMS_OUTPUT.put_line('countNum = '||countNum) ;  
  EXIT WHEN countNum>10 ; 
    countNum := countNum + 1 ;  
  END LOOP ;  
END ; 

WHILE(判断循环的条件)  
LOOP 循环的语句 ;  
  循环条件的改变 ; 
END LOOP ;  

DECLARE 
  countNum NUMBER ;  
BEGIN 
  --必须赋初值 
  countNum := 1 ;  
  WHILE(countNum<10)  
  LOOP 
    DBMS_OUTPUT.put_line('countNum = '||countNum) ; 
    countNum := countNum + 1 ;  
  END LOOP ;  
END ; 

格式： 
FOR 变量名称 in 变量的初始值..结束值  
  LOOP 
  循环语句 ;  
  END LOOP ;  
修改上例： 
DECLARE 
  countNum NUMBER ;  
BEGIN 
  FOR countNum IN 1..10  
  LOOP  
    DBMS_OUTPUT.put_line('countNum = '||countNum) ; 
  END LOOP ;  
END ; 

IF 条件 THEN  
  满足条件时，执行此语句  
END IF ; 

DECLARE 
  countNum NUMBER ;  
BEGIN 
  countNum := 11 ; 
  IF countNum>10 THEN  
    DBMS_OUTPUT.put_line('countNum = '||countNum) ;  
  END IF ; 
END ; 

DECLARE 
  countNum NUMBER ; 
BEGIN 
  countNum := 1 ; 
  IF countNum>10 THEN  
    DBMS_OUTPUT.put_line('countNum = '||countNum) ;  
  ELSE 
    DBMS_OUTPUT.put_line('条件不不成立') ; 
  END IF ;  
END ; 

DECLARE 
  countNum NUMBER ; 
BEGIN 
  countNum := 1 ; 
  IF countNum>10 THEN  
    DBMS_OUTPUT.put_line('countNum = '||countNum);  
  ELSIF countNum<5 THEN 
    DBMS_OUTPUT.put_line('值小于 5'); 
  ELSE  
    DBMS_OUTPUT.put_line('条件不满足');  
  END IF ; 
END ; 

DECLARE 
  eno emp.empno%TYPE ;  
  sal emp.sal%TYPE ;  
BEGIN 
  eno := &en ; 
  SELECT sal INTO sal FROM emp WHERE empno=eno ;  
  IF sal>3500 THEN 
    goto po1 ; 
  ELSIF sal>2000 THEN 
    goto po2 ;  
  ELSE 
    goto po3 ; 
  END IF; 
  --标签 
  <<po1>> DBMS_OUTPUT.put_line('高工资。。。') ; 
  <<po2>> DBMS_OUTPUT.put_line('中等工资。。') ; 
  <<po3>> DBMS_OUTPUT.put_line('低工资。。。') ;  
END;