Oracle常用命令10（程序包）
程序包：程序包规范、主体两部分组成
程序包规范
CREATE [OR REPLACE] PACKAGE package_name
IS|AS
[Public item declarations]
[Subprogram specification]
END [package_name];
程序包主体
CREATE [OR REPLACE] PACKAGE BODY package_name IS|AS
[Private item declarations]
[Subprogram bodies]
[BEGIN
Initialization]
END [package_name];
例1：
--用户注册（用户名不能重复）、登陆、所有用户信息的程序包
--程序包的声明
create or replace package package_user
is
--声明一个引用游标
type t_cursor is ref cursor;
--返回所有用户信息
procedure proc_UserGet(curUser out t_cursor);
--注册
procedure proc_UserAdd(p_name varchar2,p_realyname varchar2, p_password varchar2,p_tel varchar2, p_email varchar2,p_address varchar2, isSuccess out number);
--登录
procedure proc_Login(p_name varchar2,p_password varchar2, isSuccess out number);
end package_user;
程序包的主体：
create or replace package body package_user
is
--返回所有用户信息
procedure proc_UserGet(curUser out t_cursor)
is
begin
open curUser for select * from userTab;
end;
--注册用户
procedure proc_UserAdd(p_name varchar2,p_realyname varchar2, p_password varchar2,p_tel varchar2, p_email varchar2,p_address varchar2, isSuccess out number)
is
count_add number(4);
begin
//判断用户是否存在
select count(*) into count_add from userTab where u_name=p_name;
if count_add<1 then
insert into userTab values(seq_user.nextval,p_name,p_realyname,p_password,p_tel, p_email,p_address);
isSuccess := 1;
dbms_output.put_line('注册成功');
else
isSuccess := 0;
dbms_output.put_line('用户名已存在，请重新注册！');
end if;
exception
when others then
dbms_output.put_line('错误!');
end;
--登录
procedure proc_Login(p_name varchar2,p_password varchar2, isSuccess out number)
is
count_add number(4);
begin
select count(*) into count_add from userTab where u_name=p_name and u_password=p_password;
if count_add<1 then
isSuccess := 0;
dbms_output.put_line('你的用户或密码不正确,请重新登录！');
else
isSuccess := 1;
dbms_output.put_line('登录成功!');
end if;
exception
when others then
dbms_output.put_line('错误!');
end;
end;
程序包的测试：
--测试：注册
declare
isSuccess number(4);
begin
package_user.proc_UserAdd('zhongzi2','周姿','zhongzi','2526294','[email protected]','湖南省湘潭', isSuccess) ;
dbms_output.put_line( isSuccess );
end;
--测试：登陆
declare
isSuccess number(4);
begin
package_user.PROC_LOGIN('zhongzi2','zhongzi', isSuccess) ;
dbms_output.put_line( isSuccess );
end;
--测试：得到所有用户信息
declare
type user_curtype is ref cursor;
curUser user_curtype;
rowUser userTab%rowtype;
begin
package_user.proc_UserGet(curUser) ;
loop
fetch curUser into rowUser;
dbms_output.put_line('编号：' || rowUser.u_id || ' 用户名：' ||rowUser.u_name);
exit when curUser%notfound;
end loop;
end;
显示创建的子程序和程序包的信息
Select * from USER_OBJECTS;
显示存储子程序和程序包的源代码
SELECT line, text FROM USER_SOURC WHERE NAME='过程名';