一个存储过程的例子

create or replace procedure init is
begin
for i in 1..100
loop
insert into ticket values('1111',to_char(i,'0000'));
end loop;

for i in 1..100
loop
insert into ticket values('2222',to_char(i,'0000'));
end loop;

for i in 1..100
loop
insert into ticket values('3333',to_char(i,'0000'));
end loop;
end;

这句话来调用：

begin
init();
end;

买火车票的存储过程:

create or replace procedure sell(trainno varchar2)
is
t ticket%rowtype;//rowtype 表示数据库ticket一个表的类型，t 就是表示一个表
cursor c1(tno varchar2) is
select * from ticket where trainno=tno
for update;//这里要用 is 而且得加上for update 因为后面有删除这个动作
begin
if not(trainno = '1111' or trainno = '2222' or trainno = '3333') then
DBMS_OUTPUT.PUT_LINE('车次不正确');
return;
end if;

open c1(trainno);
fetch c1 into t;
if c1%found then
DBMS_OUTPUT.PUT_LINE('您买的是: ' || trainno || '票的' || t.ticketnum || '号票');
delete from ticket where current of c1;//因为有这句话 所以前面要加上for update
commit;
else
DBMS_OUTPUT.PUT_LINE('没票');
end if;

close c1;
end;