--=======================
-- PL/SQL --> 流程控制
--=======================
类似于高级语言，流程控制语句是PL/SQL语言的重要组成部分。这些流程控制语句使得PL/SQL加大了代码的灵活性和多样性，大大简化了
程序的编写。下面将列出流程控制语句并给出具体事例。
一、顺序结构
按代码的书写顺序依次执行
--在下面的示例中将逐步执行代码
scott@ORCL> declare v_ename varchar2(20);
2 v_job emp.job%type;
3 v_no emp.empno%type;
4 begin
5 v_no:=&inputno;
6 select ename,job into v_ename,v_job from emp where empno=v_no;
7 dbms_output.put_line('Employee Name: '||v_ename);
8 dbms_output.put_line('Employee Job : '||v_job);
9 end;
10 /
Enter value for inputno: 7788
old 5: v_no:=&inputno;
new 5: v_no:=7788;
Employee Name: SCOTT
Employee Job : ANALYST
PL/SQL procedure successfully completed.
二、条件分支结构
1.IF ... THEN ... END IF
IF condition THEN
statement
END IF;
判断condition是否成立，成立就执行IF 与END IF 之间的语句。
--例：输入员工编号，查询其工资，如果他们的职位是CLERK，则工资增加%，再显示修改前后的工资数。
DECLARE
v_empid emp.empno%TYPE;
v_job emp.job%TYPE;
v_old_sal emp.sal%TYPE;
v_new_sal emp.sal%TYPE;
BEGIN
v_empid:=&inputid;
SELECT job,sal INTO v_job,v_old_sal FROM emp WHERE empno=v_empid;
IF v_job='CLERK' THEN
v_new_sal:=v_old_sal*1.1;
UPDATE emp SET sal=v_new_sal WHERE empno=v_empid;
DBMS_OUTPUT.PUT_LINE('Old sal:'||v_old_sal);
DBMS_OUTPUT.PUT_LINE('New sal:'||v_new_sal);
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('Not FOUND RECORD');
END;
/
2.IF ... THEN ... ELSE ... END IF
IF condition THEN
statements1;
ELSE
statements2;
END IF;
判断condition是否成立，成立就执行IF 与ELSE 之间的语句，
否则执行ELSE 与END IF之间的语句。
--例：输入员工编号,查询其工资,如果他们的职位是CLERK,则工资增加%,如果不是CLERK,工资增加8%,再显示修改前后的工资数。
DECLARE
v_empid emp.empno%TYPE;
v_job emp.job%TYPE;
v_old_sal emp.sal%TYPE;
v_new_sal emp.sal%TYPE;
BEGIN
v_empid:=&inputid;
SELECT job,sal INTO v_job,v_old_sal FROM emp WHERE empno=v_empid;
IF v_job='CLERK' THEN
v_new_sal:=v_old_sal*1.1;
ELSE
v_new_sal:=v_old_sal*1.08;
END IF;
UPDATE emp SET sal=v_new_sal WHERE empno=v_empid;
DBMS_OUTPUT.PUT_LINE('Old sal:'||v_old_sal);
DBMS_OUTPUT.PUT_LINE('New sal:'||v_new_sal);
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('Not FOUND RECORD');
END;
/
3.IF ... THEN ... ELSIF ... THEN ... ELSE ... END IF
IF condition1 THEN
statements1;
ELSIF condition2 THEN
statements2;
ELSE
else_statements;
END IF;
--例:输入员工编号,查询其工资,如果其职位是CLERK,则工资增加%,如果是SALESMAN工资增加%,其它的加%,显示修改前后的工资数。
DECLARE
v_empid emp.empno%TYPE;
v_job emp.job%TYPE;
v_old_sal emp.sal%TYPE;
v_new_sal emp.sal%TYPE;
BEGIN
v_empid:=&inputid;
SELECT job,sal INTO v_job,v_old_sal FROM emp WHERE empno=v_empid;
IF v_job='CLERK' THEN
v_new_sal:=v_old_sal*1.1;
ELSIF v_job='SALESMAN' THEN
v_new_sal:=v_old_sal*1.08;
ELSE
v_new_sal:=v_old_sal*1.05;
END IF;
UPDATE emp SET sal=v_new_sal WHERE empno=v_empid;
DBMS_OUTPUT.PUT_LINE('Old sal:'||v_old_sal);
DBMS_OUTPUT.PUT_LINE('New sal:'||v_new_sal);
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('Not FOUND RECORD');
END;
/
4.等值比较的CASE多分支
CASE expression
WHEN result_1 THEN
statements1;
WHEN result_2 THEN
statemnts2;
......
[ELSE
else_statements;]
END CASE;
--使用case分支完成前面的示例
--例:输入员工编号,查询其工资,如果其职位是CLERK,则工资增加%,如果是SALESMAN工资增加%,其它的加%,显示修改前后的工资数。
DECLARE
v_empid emp.empno%TYPE;
v_job emp.job%TYPE;
v_old_sal emp.sal%TYPE;
v_new_sal emp.sal%TYPE;
BEGIN
v_empid:=&inputid;
SELECT job,sal INTO v_job,v_old_sal FROM emp WHERE empno=v_empid;
CASE v_job
WHEN 'CLERK' THEN
v_new_sal:=v_old_sal*1.1;
WHEN 'SALESMAN' THEN
v_new_sal:=v_old_sal*1.08;