第十章：PlSql入門

一、PLSQL的簡介

什麼是PL/SQL？

PL/SQL是一種程序語言，叫做過程化SQL語言（Procedural Language/SQL）。PL/SQL是Oracle數據庫對SQL語句的擴展。在普通SQL語句的使用上增加了編程語言的特點。

• PL/SQL是面向過程的語言
• PL/SQL是對SQL語言的擴展

PL/SQL的特點：

• PL/SQL是Oracle系統的核心語言，現在Oracle許多部件都是由PL/SQL寫成的
• PL/SQL具有簡單、高效、靈活、實用的特點

不同數據庫對SQL的擴展：

Oracle：PL/SQL

SQL Server：Transac-SQL(T-SQL)

二、PLSQL的引用型變量和記錄型變量

引用型變量：是指其數據類型與已經定義的某個數據變量的類型相同，或者與數據庫表的某個列的數據類型相同。

記錄型變量：PL/SQL提供%ROWTYPE操作符，返回一個記錄類型，其數據類型和數據庫表的數據結構相一致。

--引用型變量
DECLARE
    v_name  emp.ename%TYPE;
    v_sal   emp.sal%TYPE;
BEGIN
    SELECT ename,sal
    INTO   v_name,v_sal
    FROM   emp
    WHERE  empno = 7788;
    --打印輸出
    DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
END;

--記錄型變量
DECLARE
    emp_record   emp%ROWTYPE;
BEGIN
    SELECT *  INTO emp_record FROM emp WHERE empno = 7788;
    --打印輸出
    DBMS_OUTPUT.PUT_LINE(emp_record.ename||'的工資是：'||emp_record.sal);
END;

三、PLSQL的運算符

--算術運算符
DECLARE
    v_num1   NUMBER(3):=10;
    v_num2   NUMBER(3):=2;
BEGIN
    DBMS_OUTPUT.PUT_LINE(v_num1+v_num2);
    DBMS_OUTPUT.PUT_LINE(v_num1-v_num2);
    DBMS_OUTPUT.PUT_LINE(v_num1*v_num2);
    DBMS_OUTPUT.PUT_LINE(v_num1/v_num2);
    DBMS_OUTPUT.PUT_LINE(v_num1**v_num2);
END;

--關係運算符
DECLARE
    v_num1  NUMBER(2) := &n1;
    v_num2  NUMBER(2) := &n2;
BEGIN
    IF (v_num1 = v_num2) THEN
          DBMS_OUTPUT.PUT_LINE('num1等於num2');
    ELSIF(v_num1 < v_num2) THEN
          DBMS_OUTPUT.PUT_LINE('num1小於num2');
    ELSIF(v_num1 > v_num2) THEN
          DBMS_OUTPUT.PUT_LINE('num1大於num2');
    END IF;
    
    IF (v_num1 <> v_num2) THEN
          DBMS_OUTPUT.PUT_LINE('num1不等於num2');
    END IF;
END;

--比較運算符
DECLARE
  --&n1是替代變量，在執行程序時會提示輸入值
    v_num1  NUMBER(2):= &n1;
BEGIN
    IF(v_num1 BETWEEN 5 AND 10 )THEN
              DBMS_OUTPUT.PUT_LINE('num1在5到10之間');
    ELSE
              DBMS_OUTPUT.PUT_LINE('num1不在5到10之間');
    END IF;
    
    IF(v_num1 IN(3,8,10) )THEN
              DBMS_OUTPUT.PUT_LINE('num1等於3,8,10中的一個值');
    ELSE
              DBMS_OUTPUT.PUT_LINE('num1不等於3,8,10中的一個值');
    END IF;
    
    IF(v_num1 IS NULL)THEN
              DBMS_OUTPUT.PUT_LINE('num1爲空');
    ELSE
              DBMS_OUTPUT.PUT_LINE('num1不爲空');
    END IF;
END;

--邏輯運算符
DECLARE
    v_b1  BOOLEAN  := &n1;
    v_b2  BOOLEAN  := &n2;
BEGIN
    IF(v_b1 AND v_b2)THEN
            DBMS_OUTPUT.PUT_LINE('AND--TRUE');
    END IF;
    
    IF(v_b1 OR v_b2)THEN
            DBMS_OUTPUT.PUT_LINE('OR--TRUE');
    END IF;
    
    IF(NOT v_b1)THEN
            DBMS_OUTPUT.PUT_LINE('v_b1取反爲TRUE');
    END IF;
END;

四、PL/SQL編程

EXIT和EXIT WHEN語句：

• EXIT語句用於直接退出當前循環
• EXIT WHEN語句用於在滿足特定條件時退出當前循環

CONTINUE和COUTINUE WHEN語句：

• COUTINUE語句是Oracle11g的新特性，用於直接結束當前循環並繼續下一組循環。
• COUTINUE WHEN語句用於在滿足特定條件時結束當前循環語句並繼續下一組循環語句。

GOTO語句：用於跳轉到特定標號處執行語句。當使用GOTO跳轉到特定標號時，標號後至少要包含一條執行語句。

NULL語句：NULL語句不會執行任何操作，並且會直接將控制傳遞到下一個語句，使用該語句的主要目的是提高PL/SQL塊的可讀性。

--輸入員工號，判斷員工工資, 顯示工資小於3000的員工姓名及工資。
--簡單的IF語句
DECLARE
      v_name  emp.ename%TYPE;
      v_sal   emp.sal%TYPE;
BEGIN
      SELECT ename,sal
      INTO   v_name,v_sal
      FROM   emp
      WHERE  empno = &no;
      IF   v_sal <3000 THEN
           DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
      END IF;
END;


SELECT * FROM emp;

--輸入員工號，判斷員工工資,將工資小於3000的員工工資漲200，並顯示漲工資的員工姓名，其他員工顯示員工姓名及工資。
--二重分支語句
DECLARE
       v_name    empnew.ename%TYPE;
       v_sal     empnew.sal%TYPE;
       v_empno   empnew.empno%TYPE := &no;
BEGIN
       SELECT ename,sal
       INTO   v_name,v_sal
       FROM   empnew
       WHERE  empno = v_empno;
       IF  v_sal <3000 THEN
           UPDATE empnew set sal = sal + 200 where empno = v_empno;
           COMMIT;
           DBMS_OUTPUT.put_line(v_name||'漲工資了');
       ELSE
           DBMS_OUTPUT.put_line(v_name||'的工資是：'||v_sal);
       END IF;
END;
   
select * from empnew;


--輸入員工號，判斷員工工資, 工資小於2000，顯示低收入，工資小於6000，顯示中等收入，其它顯示高收入。
--多重分支語句
DECLARE
       v_name    empnew.ename%TYPE;
       v_sal     empnew.sal%TYPE;
       
BEGIN
       SELECT ename,sal
       INTO   v_name,v_sal
       FROM   empnew
       WHERE  empno = &no;
       IF v_sal<2000  THEN
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於低收入');
       ELSIF v_sal<6000  THEN
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於中等收入');
       ELSE
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於高收入');
       END IF;       
END;




/*
--輸入員工號，判斷員工工資, 顯示工資小於3000的員工姓名及工資。
--簡單的IF語句
DECLARE
      v_name  emp.ename%TYPE;
      v_sal   emp.sal%TYPE;
BEGIN
      SELECT ename,sal
      INTO   v_name,v_sal
      FROM   emp
      WHERE  empno = &no;
      IF   v_sal <3000 THEN
           DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
      END IF;
END;


SELECT * FROM emp;

--輸入員工號，判斷員工工資,將工資小於3000的員工工資漲200，並顯示漲工資的員工姓名，其他員工顯示員工姓名及工資。
--二重分支語句
DECLARE
       v_name    empnew.ename%TYPE;
       v_sal     empnew.sal%TYPE;
       v_empno   empnew.empno%TYPE := &no;
BEGIN
       SELECT ename,sal
       INTO   v_name,v_sal
       FROM   empnew
       WHERE  empno = v_empno;
       IF  v_sal <3000 THEN
           UPDATE empnew set sal = sal + 200 where empno = v_empno;
           COMMIT;
           DBMS_OUTPUT.put_line(v_name||'漲工資了');
       ELSE
           DBMS_OUTPUT.put_line(v_name||'的工資是：'||v_sal);
       END IF;
END;
   
select * from empnew;


--輸入員工號，判斷員工工資, 工資小於2000，顯示低收入，工資小於6000，顯示中等收入，其它顯示高收入。
--多重分支語句
DECLARE
       v_name    empnew.ename%TYPE;
       v_sal     empnew.sal%TYPE;
       
BEGIN
       SELECT ename,sal
       INTO   v_name,v_sal
       FROM   empnew
       WHERE  empno = &no;
       IF v_sal<2000  THEN
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於低收入');
       ELSIF v_sal<6000  THEN
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於中等收入');
       ELSE
          DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於高收入');
       END IF;       
END;
*/

--輸入成級等級，判斷屬於哪個層次，並打印輸出
--CASE 等值比較
DECLARE 
       v_grade char(1) := '&no';
BEGIN
       CASE v_grade
            WHEN  'A'  THEN
                  DBMS_OUTPUT.PUT_LINE('優秀');
            WHEN  'B'  THEN
                  DBMS_OUTPUT.PUT_LINE('中等');     
            WHEN  'C'  THEN
                  DBMS_OUTPUT.PUT_LINE('一般'); 
            ELSE
                  DBMS_OUTPUT.PUT_LINE('輸入有誤');    
       END CASE;              
END;

--輸入員工號，獲取員工工資，判斷工資，如果工資小於1500，補助加100，如果工資小於2500，補助加80，如果工資小於5000，補助加50.
--CASE 非等值比較
DECLARE       
       v_sal     empnew.sal%TYPE;
       v_empno   empnew.empno%TYPE := &no;
BEGIN
       SELECT sal
       INTO   v_sal
       FROM   empnew
       WHERE  empno = &no;
       CASE 
              WHEN v_sal<1500 THEN
                   UPDATE empnew set comm = nvl(comm,0)+100 WHERE empno = v_empno;
              WHEN v_sal<2500 THEN
                   UPDATE empnew set comm = nvl(comm,0)+80 WHERE empno = v_empno;     
              WHEN v_sal<5000 THEN
                   UPDATE empnew set comm = nvl(comm,0)+50 WHERE empno = v_empno;       
              --COMMIT; 
       END CASE;
END;

select * from empnew;




--基本循環
DECLARE
    v_cnt INT :=1;
BEGIN
    LOOP 
          DBMS_OUTPUT.PUT_LINE(v_cnt);
          EXIT WHEN v_cnt = 10;
          v_cnt := v_cnt+1;          
    END LOOP;
END;
   
--while循環
DECLARE
    v_cnt INT :=1;
BEGIN
    WHILE v_cnt<=10 LOOP
          DBMS_OUTPUT.PUT_LINE(v_cnt);
          v_cnt := v_cnt+1;
    END LOOP;
END;

--for循環
BEGIN
    FOR i  IN REVERSE 1..10 LOOP
        DBMS_OUTPUT.PUT_LINE(i);
    END LOOP;
END;





/*
--基本循環
DECLARE
    v_cnt INT :=1;
BEGIN
    LOOP 
          DBMS_OUTPUT.PUT_LINE(v_cnt);
          EXIT WHEN v_cnt = 10;
          v_cnt := v_cnt+1;          
    END LOOP;
END;
   
--while循環
DECLARE
    v_cnt INT :=1;
BEGIN
    WHILE v_cnt<=10 LOOP
          DBMS_OUTPUT.PUT_LINE(v_cnt);
          v_cnt := v_cnt+1;
    END LOOP;
END;

--for循環
BEGIN
    FOR i  IN REVERSE 1..10 LOOP
        DBMS_OUTPUT.PUT_LINE(i);
    END LOOP;
END;
*/


--嵌套循環
DECLARE
    v_result INT;
BEGIN
    <<outter>>
    FOR i IN 1..5 LOOP
        <<inter>>
        FOR j IN 1..5 LOOP
          v_result:=i;
          EXIT outter WHEN i=4;
        END LOOP inter;
        DBMS_OUTPUT.PUT_LINE('內'||v_result);
     END LOOP outter;
     DBMS_OUTPUT.PUT_LINE('外'||v_result);
END;

--CONTINUE
DECLARE
    v_cnt INT :=0;
BEGIN
    LOOP 
             v_cnt := v_cnt+1;
             CONTINUE WHEN v_cnt = 5;
             DBMS_OUTPUT.PUT_LINE(v_cnt);
             EXIT WHEN v_cnt = 10;     
    END LOOP;
END;





--GOTO語句
DECLARE
  v_cnt INT := 1;
BEGIN
  LOOP
    DBMS_OUTPUT.PUT_LINE(v_cnt);
    IF v_cnt=10 THEN
       --EXIT;
       GOTO end_loop;
    END IF;
    v_cnt := v_cnt + 1;
   END LOOP;
   <<end_loop>>
   DBMS_OUTPUT.PUT_LINE('循環結束');
END;

--NULL語句
DECLARE
   v_sal empnew.sal%TYPE;
   v_name empnew.ename%TYPE;
BEGIN
  SELECT ename,sal 
  INTO v_name,v_sal
  FROM empnew
  WHERE empno = &no;
  IF v_sal<3000 THEN
    UPDATE empnew set comm = nvl(comm,0)+sal*0.2 WHERE ename=v_name;
    COMMIT;
    DBMS_OUTPUT.PUT_LINE(v_name||'的獎金更新了');
  ELSE
    NULL;
  END IF;
END;

select * from empnew;