PL/SQL基础

一.入门

1.打印helloworld
DECLARE --说明部分
BEGIN
dbms_output.put_line ('Hello,world') ;
END ;

二.变量

2.引用型变量,查询并打印7835的姓名和薪水
DECLARE --定义变量保存姓名和薪水
pname emp.ename % TYPE ; psal emp.sal % TYPE ;
BEGIN
--得到员工的姓名和薪水
SELECT ename,sal
INTO pname,psal
FROM emp
WHERE
empno = 7839 ;
dbms_output.put_line (pname || '的薪水是' || psal) ;
END ;

3.记录型变量

DECLARE emp_rec emp % rowtype ;
BEGIN
    SELECT
        * INTO emp_rec
    FROM
        emp
    WHERE
        empno = 7839 ; dbms_output.put_line (
            emp_rec.ename || '的薪水是' || emp_rec.sal
        ) ;
    END ;

三.条件与循环

 4.条件判断

DECLARE pnum NUMBER := 1 ;
BEGIN

IF pnum = 0 THEN
    dbms_output.put_line (
        '您输入的数字是0'
    ) ;

ELSIF pnum = 1 THEN
    dbms_output.put_line (
        '您输入的数字是1'
    ) ;
ELSE
    dbms_output.put_line ('其它数字') ;
END IF;
END ;

5.while循环
DECLARE pnum NUMBER := 1 ;
BEGIN
    LOOP
        --退出循环条件
        EXIT WHEN pnum > 10;
        dbms_output.put_line (pnum) ;
        pnum := pnum + 1;
    END LOOP;
END ;

四.光标

6.光标的属性

1)%isopen 是否被打开 

2)%rowcount(影响的行数) 

3)%found有记录

4)%notfound没有记录

7.查询并打印员工的姓名和薪水

DECLARE
    --定义光标
    CURSOR cemp is SELECT ename,sal FROM emp;
    pname emp.ename%TYPE;
    psal  emp.sal%TYPE;
BEGIN
    --打开光标
    OPEN cemp;
    LOOP
            --取出当前记录
            FETCH cemp INTO pname,psal;
            EXIT WHEN cemp%notfound;
            dbms_output.put_line(pname||'的薪水是'||psal);
    END LOOP;
    CLOSE cemp;
END ;

8.给员工涨工资

DECLARE
    --定义光标
    CURSOR cemp IS SELECT empno,job FROM emp;
    pempno emp.empno%TYPE;
    pjob emp.job%TYPE;
BEGIN
    --打开光标
    OPEN cemp;
    LOOP
            --取一个员工
            FETCH cemp INTO pempno,pjob;
            EXIT WHEN cemp%NOTFOUND;
            IF
                pjob = 'PRESIDENT' THEN UPDATE emp SET sal = sal+1000 WHERE empno=pempno;
            ELSIF pjob = 'MANAGER' THEN UPDATE emp SET sal = sal+800 WHERE empno=pempno;
            ELSE UPDATE emp SET sal = sal+400 WHERE empno=pempno;
            END IF;
    END LOOP;
    --关闭光标
    CLOSE cemp;
    --提交
    COMMIT;
    dbms_output.put_line('完成');
END;

9.形参和实参

DECLARE
    --形参
    CURSOR cemp(dno NUMBER) IS SELECT ename FROM emp WHERE deptno=dno;
    pename emp.ename%TYPE;
BEGIN
    --实参
    OPEN cemp(10);
    LOOP
            FETCH cemp INTO pename;
            EXIT WHEN cemp%NOTFOUND;
            dbms_output.put_line(pename);
    END LOOP;
    CLOSE cemp;
END;

五.例外

10.被0除异常

DECLARE

    pnum NUMBER;
BEGIN
        pnum := 1/0;
EXCEPTION
        WHEN ZERO_DIVIDE THEN dbms_output.put_line('1:0不能做分母');
                                                    dbms_output.put_line('2:0不能做分母');
        WHEN VALUE_ERROR THEN dbms_output.put_line('算术或者转换错误');
        WHEN OTHERS THEN dbms_output.put_line('其它例外');
END;

11.自定义异常

DECLARE
    CURSOR cemp IS SELECT ename FROM emp WHERE deptno = 50;
        pename emp.ename%TYPE;
        --自定义意外
        no_emp_found EXCEPTION;
BEGIN
        OPEN cemp;
        --取第一条记录
        FETCH cemp INTO pename;
        IF cemp%NOTFOUND THEN
            --抛出异常
            RAISE no_emp_found;
        END IF;    
        CLOSE cemp;
EXCEPTION
        WHEN no_emp_found THEN dbms_output.put_line('没有找到员工');
        WHEN OTHERS THEN dbms_output.put_line('其它例外');
END;

六.实例

1.统计每年入职员工的个数

DECLARE
--定义光标
    CURSOR cemp IS SELECT TO_ChAR(hiredate,'yyyy') FROM emp;
    phiredate VARCHAR2(4);

    count80 NUMBER := 0;
    count81 NUMBER := 0;
    count82 NUMBER := 0;
    count87 NUMBER := 0;
BEGIN
    --打开光标
    OPEN cemp;
    LOOP
        --取一个员工的入职年份
        FETCH cemp INTO phiredate;
        EXIT WHEN cemp%NOTFOUND;
        IF phiredate = '1980' THEN count80 := count80+1;
            ELSIF phiredate = '1981' THEN count81 := count81+1;
            ELSIF phiredate = '1982' THEN count82 := count82+1;
            ELSE count87 := count87+1;
        END IF;
    END LOOP;
    --关闭光标
    CLOSE cemp;
    dbms_output.put_line('Total:'||(count80+count81+count82+count87));
    dbms_output.put_line('1980:'||count80);
    dbms_output.put_line('1981:'||count81);
    dbms_output.put_line('1982:'||count82);
    dbms_output.put_line('1987:'||count87);
END;

2.涨工资

DECLARE
--定义光标
    CURSOR cemp IS SELECT empno,sal FROM emp ORDER BY sal;
    pempno emp.empno%TYPE;
    psal emp.sal%TYPE;
    
--涨工资的人数
    countEmp NUMBER := 0;
--涨后的工资总额
    salTotal NUMBER;
BEGIN
    --得到工资的初始值
    SELECT sum(sal) INTO salTotal FROM emp;
    --打开光标
    OPEN cemp;
    IF salTotal < 70000 THEN
        LOOP
            --涨工资总额大于7万
            EXIT WHEN salTotal > 70000;
        
            --取一个员工
            FETCH cemp INTO pempno,psal;
            --notfound
            EXIT WHEN cemp%NOTFOUND;
            --涨工资
            UPDATE emp SET sal = sal * 1.1 WHERE empno = pempno;
            --人数+1
            countEmp := countEmp + 1;
            --涨后的工资总额
            salTotal := salTotal + psal*0.1;
            
        END LOOP;
    END IF;
    --关闭光标
    CLOSE cemp;
    COMMIT;
    dbms_output.put_line('人数:'||countEmp);
    dbms_output.put_line('总额度:'||salTotal);
END;