PL/SQL也是一门高级语言,所以流程控制是必须要有的,oracle数据库的pl/sql比sqlserver数据库要难,很多pl/sql中有的sqlserver里面没有
?
流程控制;
分支语句 if 条件 then 结果 else 结果 end if ; 条件语句 case when 条件 then 结果; 循环语句 loop end loop; --while循环; for循环 顺序语句 goto null语句
?
下面所有的语句有的写在过程中的有的写在pl/sql块中,pl/sql块中是最方便的
?
----------------分支语句
------------------------------简单的条件判断 if – then
?--问题：编写一个过程，可以输入一个雇员名，
--如果该雇员的工资低于2000，就给该员工工资增加500。
set serveroutput on;--打开输入输出create or replace procedure pro_1(v_empno number) is v_sal emp.sal%type;begin select sal into v_sal from emp where empno = v_empno;if v_sal<2000 then v_sal:=v_sal+500;?--更新这个员工的工资???? update emp set sal=v_sal where empno=v_empno;end if;end;
?
?
?-----------------二重条件分支 if – then – else
?--问题：编写一个过程，可以输入一个雇员名，
--如果该雇员的工资低于2000，就给该员工工资增加500,否则只加50。
set serveroutput on;--打开输入输出create or replace procedure pro_1(v_empno number) is v_sal emp.sal%type;begin select sal into v_sal from emp where empno = v_empno;if v_sal<2000 then v_sal:=v_sal+500;else v_sal:=v_sal+50;end if; --更新这个员工的工资 update emp set sal=v_sal where empno=v_empno;end;
?
?
---------------------多重条件? if then? else if then else
--问题：编写一个过程，
--可以输入一个雇员编号，
--如果该雇员的职位是PRESIDENT就给他的工资增加500，
--如果该雇员的职位是MANAGER就给他的工资增加100，
--其它职位的雇员工资增加50。
create or replace procedure pro_2(v_empno number) isv_job emp.job%type;v_sal emp.sal%type;begin select job,sal into v_job,v_sal from emp where empno =v_empno; if v_job='PRESIDENT' then v_sal:=v_sal+500; else if v_job='MANAGER' then v_sal:=v_sal+100; else v_sal:=v_sal+50; end if; end if; --更新数据 update emp set sal=v_sal where empno=v_empno;end;
?
------------------------case语句
--case 条件控制
--问题：编写一个过程，
--可以输入一个雇员编号，
--如果该雇员的职位是PRESIDENT就给他的工资增加50，
--如果该雇员的职位是MANAGER就给他的工资增加40，
--CLERK?30
create or replace procedure pro_4(v_empno number) is--声明变量v_job emp.job%type;v_sal emp.sal%type;begin select job,sal into v_job,v_sal from emp where empno =v_empno;case v_job when v_job='PRESIDENT' then v_sal:=v_sal+50; when v_job='MANAGER' then v_sal:= v_sal+40; when v_sal ='CLERK' then v_sal:=v_sal+30; else null;--end case;--更新数据 update emp set sal=v_sal where empno=v_empno;end;
?
?
?----------------------------循环语句
loop循环;
--Loop? 相当于java中的do...while
--请编写一个过程，可以输入用户名，
--并循环添加10个用户到emp_user表中，用户编号从1开始增加。
建表;
create table emp_user (userno number(10),username varchar2(10));
?向emp_user表中循环添加10条数据
create or replace procedure pro_3(v_username varchar2)isv_userid emp_user.userid%type :=1;begin--循环loopinsert into emp_user values(v_userno,v_username);--v_userid++v_userid=v_userid+1;--退出循环exit when v_userid=11;end loop;end;
?
?
-----------------------------while循环
--问题：请编写一个过程，
--可以输入用户名，并循环添加10个用户到users表中，
--用户编号从11开始增加。
建表;
create table emp_user (userno number(10),username varchar2(10));
?
使用while向表中添加数据
create or replace procedure pro_4(v_userno number )isv_userid emp_user.userid%type :=1;beginwhile v_userid<10 loopinsert into emp_user values(v_userid,v_username);--v_userid++v_userid=v_userid+1; end loopend;
?
?
--------------------------for? 语句
--for循环
--for i in 1..10 loop
--for i in reverse 1..10 loop
建表;
create table emp_user (userno number(10),username varchar2(10));
使用for向表中添加十条数据
create or replace procedure pro_5(v_userno number)isbegin for i in 1..10 loopinsert into emp_user values(i,v_username);end loop;end;
?
-----------goto语句
goto语句可以跳转到程序的任何位置,java中已经不用这个关键字了,但是还保留着
createor replace procedure pro_5(v_userno number) is i number(20):=1;begin loop i:=i+1;if i=10 thengoto aaa; end if;end loop; dbms_output.put_line('程序执行'); <<aaa>>;--设置goto的跳转标签 dbms_output.put_line('早就执行');end;?
当i=10时程序将条状到?? <<aaa>>;--设置goto的跳转标签 dbms_output.put_line('早就执行');这个地方,标签上一行输出语句将不会输出