2009-11-25 oracle学习日志——oracle编程基础(2)

--简单的条件判断语句
--编写一个过程，可以输入一个雇员名，如果该雇员的工资低于2000

，就给该雇员工资增加10%
create or replace procedure swh_proc1(swhName varchar2) is
--声明
v_sal emp.sal%type;
begin
select sal into v_sal from emp where ename=swhName;
if v_sal<2000 then
update emp set sal=sal*1.1 where ename=swhName;
end if;
end;
--二重条件分支
--编写一个过程，可以输入一个雇员名，如果该雇员的补助不是0，

就在原来的基础上增加100；如果补助为0就把补助设为200
create or replace procedure swh_proc2(swhName varchar2) is
--声明
v_comm emp.comm%type;
begin
select comm into v_comm from emp where ename=swhName;
if v_comm<>0 then
update emp set comm=comm+100 where ename=swhName;
else
update emp set comm=200 where ename=swhName;
end if;
end;
--多重条件分支
--编写一个过程，可以输入一个雇员编号，如果该雇员的职位是

PRESIDENT就给他的工资增加1000，如果该雇员的职位是
--MANAGER，就给他的工资增加500，其他职位的雇员工资增加200.

create or replace procedure swh_proc3(swhNO number) is
v_job emp.job%type;
begin
select job into v_job from emp where empno=swhNO;
if v_job='PRESIDENT' then
update emp set sal=sal+1000 where empno=swhNO;
else if v_job='MANAGER' then
update emp set sal=sal+500 where empno=swhNO;
else
update emp set sal=sal+200 where empno=swhNO;
end if;
end if;
end;

--上面的循环语句也可以写成这样
create or replace procedure swh_proc3(swhNO number) is
v_job emp.job%type;
begin
select job into v_job from emp where empno=swhNO;
if v_job='PRESIDENT' then
update emp set sal=sal+1000 where empno=swhNO;
elsif v_job='MANAGER' then
update emp set sal=sal+500 where empno=swhNO;
else
update emp set sal=sal+200 where empno=swhNO;
end if;
end;
--循环语句 --loop
--假设有一张表users，表结构为users(userid,username),请编写一个过

程，可输入用户名，并循环添加10个用户到users
--表中，用户编号从1开始
--先创建users表
create table users(userNo number, userName varchar2(20));

create or replace procedure swh_proc4(swhName varchar2) is
--定义 ：=表示赋值
v_num number:=1;
begin
loop
insert into users values(v_num,swhName);
--判断是否退出循环
exit when v_num=10;
v_num:=v_num+1;
end loop;
end;

--循环语句 --while循环

--假设有一张表users，表结构为users(userid,username),请编写一个过

程，可输入用户名，并循环添加10个用户到users
--表中，用户编号从1开始
--先创建users表
create table users(userNo number, userName varchar2(20));

create or replace procedure swh_proc4(swhName varchar2) is
--定义 ：=表示赋值
v_num number:=1;
begin
while v_num<=10 loop
insert into users values(v_num,swhName);
--判断是否退出循环
v_num:=v_num+1;
end loop;
end;

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/240707/viewspace-1029055/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/240707/viewspace-1029055/