pl/sql进阶

------------------------分页----------------------------
create table book(
bookId number(3),
bookName varchar2(50),
publishHourse VARCHAR2(50)
);
--编写过程额
--in;表示这是一个输入参数，不写默认就是in
--out;表示一个输出参数
create or replace procedure sp_book(spBookId in number,spBookName in varchar2,spPublishHour varchar2) is
begin
insert into book values(spBookId,spBookName,spPublishHour);
end;

alter table book
add constraint uq_bookId unique(bookId);
--有输入和输出的存储过程
create or replace procedure sp_book1(spBookId in number,spBookName out varchar2) is
begin
select bookName  into spBookName from book where bookId=spBookId;
end;

--返回两个值的存储过程

 

 

 

create or replace procedure sp_book2(spBookId in number,spBookName out varchar2,spBookPublisher out varchar2) is
begin
select bookName,PUBLISHHOUR into spBookName,spBookPublisher from book where bookId=spBookId;
end;

----返回值的存储过程（列表[结果集]）--
--编写一个过程，输入部门号，返回该部门所有雇员信息
--由于oracle存储过程没有返回值，他的所有返回值都是通过out
--参数来替代的，列表也不例外，但由于是集合，所以不能用一般的参数
--必须要用packageg了，所以要分两部分
--<1建一个包
create or replace package testpackage as
type test_cursor is ref cursor;
end testpackage;
--<2.创建过程
create or replace procedure  sp_pro9(spNo in number,p_cursor out testpackage.test_cursor) is
begin
open p_cursor  for select * from emp where deptno=spNo;
end;

 

 

 

-----if语句；if--then-----
create or replace procedure sp_pro6(spName varchar2) is
v_sal emp.sal%type;
begin
   select sal into v_sal from emp where ename=spName;
if v_sal<2000
then update emp set sal=sal*1.1 where ename=spName;
end if;    --不能掉了这里
end;

-------二重if语句-if--then--else---
create or replace procedure sp_pro6(spName varchar2) is
v_comm emp.comm%type;
begin
   select comm into v_comm from emp where ename=spName;
if(v_comm<>0)then
 update emp set comm=comm+100 where ename=spName;
else
update emp set comm=comm+200 where ename=spName;
end if;
end;

----------多重条件分支-if--then--elsif---else---
create or replace procedure sp_pro7(spEmpno number) is
v_job emp.job%type;
begin
select job into v_job from emp where empno=spEmpno;
if v_job='PRESIDENT'then
update emp set sal=sal+1000 where empno=spEmpno;
elsif v_job='MANAGER'then
update emp set sal=sal+500 where empno=spEmpno;
else
update emp set sal=sal+200 where empno=spEmpno;
end if;
end;

-----------循环语句loop 至少执行一回--相当与while-----
create table Users(
uno  number(3),
uname varchar2(10)
);

create or replace procedure sp_user(spUname varchar2) is
v_num Users.Uno%type:=1;
begin
loop
insert into Users values(v_num,spUname);
v_num:=v_num+1;
exit when v_num=11;     --退出时的判断语句
end loop;
end;

-------------while循环--先判断再循环---相当于do-while-------------
create or replace procedure sp_user(spUname varchar2) is
v_num Users.Uno%type:=11;
begin
while v_num<=20 loop
--执行
  insert into Users values(v_num,spUname);
   v_num:=v_num+1;
end loop;
end;

---------------for 循环-------------
create or replace procedure sp_user(spUname varchar2) is
begin
for i in  21..30 loop         --如果想从30到20反过来插入则在in后面加关键字 reverse
--执行
  insert into Users values(i,spUname);
end loop;
end;
---------------goto语句-------一般不常用-----------

---------------null语句---null语句不会执行任何操作，并且会直接将控制传递到下一条语句-，使用null语句主要是为了提高代码的可读性-----------------
create or replace procedure sp_pro6(spName varchar2) is
v_sal emp.sal%type;
begin
   select sal into v_sal from emp where ename=spName;
if v_sal<2000
then update emp set sal=sal*1.1 where ename=spName;
else
null;
end if;    --不能掉了这里
end;

 

 

------------------------分页----------------------------
create table book(
bookId number(3),
bookName varchar2(50),
publishHourse VARCHAR2(50)
);
--编写过程额
--in;表示这是一个输入参数，不写默认就是in
--out;表示一个输出参数
create or replace procedure sp_book(spBookId in number,spBookName in varchar2,spPublishHour varchar2) is
begin
insert into book values(spBookId,spBookName,spPublishHour);
end;

alter table book
add constraint uq_bookId unique(bookId);
--有输入和输出的存储过程
create or replace procedure sp_book1(spBookId in number,spBookName out varchar2) is
begin
select bookName  into spBookName from book where bookId=spBookId;
end;

--返回两个值的存储过程
create or replace procedure sp_book2(spBookId in number,spBookName out varchar2,spBookPublisher out varchar2) is
begin
select bookName,PUBLISHHOUR into spBookName,spBookPublisher from book where bookId=spBookId;
end;

----返回值的存储过程（列表[结果集]）--
--编写一个过程，输入部门号，返回该部门所有雇员信息
--由于oracle存储过程没有返回值，他的所有返回值都是通过out
--参数来替代的，列表也不例外，但由于是集合，所以不能用一般的参数
--必须要用packageg了，所以要分两部分
--<1建一个包
create or replace package testpackage as
type test_cursor is ref cursor;
end testpackage;
--<2.创建过程
create or replace procedure  sp_pro9(spNo in number,p_cursor out testpackage.test_cursor) is
begin
open p_cursor  for select * from emp where deptno=spNo;
end;

 

--平常的分页代码
select * from emp;

select e.*,rownum rn from (select * from emp)e;

select e.*,rownum rn from (select * from emp)e where rownum<10;

select * from (select e.*,rownum rn from (select * from emp)e where rownum<10) where rn>6;

create or replace package fengyepackage as
type fengye_cursor is ref cursor;
end fengyepackage;

create or replace  procedure sp_fengye(pageNow in number,pageSise in number,tableName in varchar2,sortOrder in varchar2,pageCount out number,fengye_cursor out fengyepackage.fengye_cursor) is
v_rowCount number(2);  --总记录数目
v_pageCount number(2); --总页数
v_fromline number(2);
v_toline number(2);
v_sql  varchar2(1000);
begin
v_sql:='select count(*) from '||tableName;  --组织一个sql
execute immediate v_sql into v_rowCount;   --执行sql，并且把返回值赋给v_rowCount
if  mod(v_rowCount,pageSise)=0 then      --v_rowCount%pageSise=0的取余数的方式是错误的
v_pageCount:=v_rowCount/pageSise;
else
v_pageCount:=ceil(v_rowCount/pageSise);  --ceil相当于加了1
end if;
v_toline:=pageNow*pageSise;
v_fromline:=(pageNow-1)*pageSise;
pageCount:=v_pageCount;
v_sql:='select * from (select e.*,rownum rn from (select * from '||tableName||' '||sortOrder||')e where rownum<='||v_toline||') where rn>'||v_fromline;--两个连接符号之间要用空格隔开，否则java程序无法识别
open fengye_cursor for v_sql;
--close fengye_cursor;  --关闭游标,不能关闭否则java程序调用不到数据
--把游标的结果集传给JAVA的resultset之是不需要我们来手动的关闭游标的，因为JAVA把这个结果集接收过来的之后，如果JAVA对这个结果集操作完毕的话，JAVA会把这个结果集关闭掉的，不需要我们手动的去作任何操作！

end;

------游标测试
set serveroutput on;
declare
--定义游标类型sp_emp_cursor
type sp_emp_cursor is ref cursor;
--定义一个游标变量test_cursor
test_cursor sp_emp_cursor;
--定义变量
v_ename emp.ename%type;
v_sal emp.sal%type;
begin
--把teset_cursor和一个select结合
open test_cursor for select ename ,sal from emp where deptno=&no;
--循环取出
loop
    fetch test_cursor into v_ename,v_sal;
    exit when test_cursor%notfound;
    dbms_output.put_line('雇员姓名是：'||v_ename||'薪资是：'||v_sal);
end loop;   
close test_cursor;
end;