http://www.unibetter.com/deerchao/zhengzhe-biaodashi-jiaocheng-se.htm#getstarted

//基本循环
declare
my Integer:=100;
begin

for my in 1..4 loop
dbms_output.put_line(my);
end loop;
dbms_output.put_line(my);
end;



//典型游标for 循环
set serveroutput on;
declare
cursor mycur(vartype number)is
select emp_no,emp_zc from cus_emp_basic
where com_no=vartype;
begin
for person in mycur(000627) loop
dbms_output.put_line('雇员编号:'||person.emp_no||',地址:'||person.emp_zc);
end loop;
end;


FOR r_emp IN (SELECT ename,salary

　　　FROM emp

　　　WHERE deptno=p_dept

　　　ORDER BY ename) LOOP




declare
cursor c1 is
select name,id,password from bjpuserinfo where accounttype='qiye';
begin
for rec in c1 loop
dbms_output.put_line('单位名称:'||rec.name||' ,密码:'||rec.password);
FOR tmp in (select name,fullname,password from bjpuserinfo where accounttype='geren' and parentid=rec.id) loop
dbms_output.put_line('用户名:'||tmp.name||' ,姓名:'||tmp.fullname||' ,密码:'||tmp.password);
end loop;
dbms_output.put_line('==================================');
end loop;
end;





declare
i integer:=1;
j integer:=1;
k integer:=1;
cursor c1 is
select u.id,u.name from bjpuserinfo b,upunit u where u.id=b.upunitid group by u.name,u.id;
begin
for rec in c1 loop
dbms_output.put_line('');
dbms_output.put_line('受理机构'||k||':'||rec.name);k:=k+1;
dbms_output.put_line('');
for tmp in (select name,id,password from bjpuserinfo where accounttype='qiye' and upunitid=rec.id) loop
dbms_output.put_line(' 单位'||i||':'||tmp.name||' ,密码:'||tmp.password);i:=i+1;
for tmp1 in (select name,fullname,password from bjpuserinfo where accounttype='geren' and parentid=tmp.id) loop
dbms_output.put_line(' 用户'||j||':'||tmp1.name||' ,姓名:'||tmp1.fullname||' ,密码:'||tmp1.password);
j:=j+1;
end loop;
j:=1;
end loop;
i:=1;
dbms_output.put_line('====================================================================');
end loop;
end;

Create procedure procedue_name
[@parameter data_type][output]
[with]{recompile|encryption}
as
sql_statement
解释 output：表示此参数是可传回的.

with {recompile|encryption}

recompile:表示每次执行此存储过程时都重新编译一次

encryption:所创建的存储过程的内容会被加密

表book的内容如下

编号 书名 价格

001 C语言入门 $30

002 PowerBuilder报表开发 $52

实例1:查询表Book的内容

create proc query_book
as
select * from book
go
exec query_book

实例2:加入一笔记录到表book,并查询此表中所有书籍的总金额

Create proc insert_book

@param1 char(10),@param2 varchar(20),@param3 money,@param4 money output

with encryption ---------加密

as

insert book(编号,书名，价格） Values(@param1,@param2,@param3)
select @param4=sum(价格) from book
go

执行例子:

declare @total_price money
exec insert_book '003','Delphi 开发指南',$100,@total_price
print '总金额为'+convert(varchar,@total_price)
go


实例3：设有两个表为Product,Order,其表内容如下：

Product

产品编号 产品名称 客户订数
001 钢笔 30
002 毛笔 50
003 铅笔 100

Order
产品编号 客户名 客户订金
001 南山区 $30
002 罗湖区 $50
003 宝安区 $4

请实现按编号为连接条件,将两个表连接成一个临时表,该表只含编号.产品名.客户名.订金.总金额,
总金额=订金*订数,临时表放在存储过程中

代码如下:

Create proc temp_sale
as
select a.产品编号,a.产品名称,b.客户名,b.客户订金,a.客户订数* b.客户订金 as总金额
into #temptable from Product a inner join Order b on a.产品编号=b.产品编号
if @@error=0
print 'Good'
else
print 'Fail'
go