//基本循环
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;