SQL> create or replace package pkg_userinfo --查询用户信息
2 as
3 type cur_userinfo is ref cursor;
4 procedure select_userinfo
5 (parm_userid number:='%',
6 parm_username varchar2:='%',
7 parm_result out cur_userinfo
8 );
9 end pkg_userinfo;
10 /
程序包已创建。
SQL>create or replace package body pkg_userinfo
2 as
3 procedure select_userinfo
4 (parm_userid number:='%',
5 parm_username varchar2:='%',
6 parm_result out cur_userinfo)
7 as
8 begin
9 open parm_result for
10 select logo,userid,username,ename,email from userinfo
11 where userid like parm_userid and username like parm_username
12 and username<>'Tsoft';
13 END;
14* END pkg_userinfo;
程序包主体已创建。
SQL> create or replace procedure delete_userinfo --删除用户信息
2 (parm_loginname varchar2,
3 parm_userid varchar2,
4 parm_return out number --返回值 1:表示成功删除 0:表示权限不足,删除失败
5 )
6 as
7 begin
8 if parm_loginname='Tsoft' then
9 delete userinfo
10 where userid=parm_userid;
11 commit;
12 parm_return:=1;
13 else
14 parm_return:=0;
15 end if;
16 end;
17 /
过程已创建。
SQL> desc userinfo;
名称 是否为空? 类型
----------------------------------------- -------- ----------------------------
USERID NOT NULL NUMBER
USERNAME NOT NULL VARCHAR2(50)
USERPWD VARCHAR2(50)
ENAME VARCHAR2(50)
EMAIL VARCHAR2(50)
LOGO VARCHAR2(30)
SQL> create or replace procedure update_userinfo --修改用户信息
2 (parm_username varchar2,
3 parm_userpwd varchar2,
4 parm_ename varchar2,
5 parm_email varchar2,
6 parm_logo varchar2)
7 as
8 v_userid userinfo.userid%type;
9 begin
10 select userid into v_userid from userinfo where username=parm_username;
11 update userinfo
12 set username=parm_username,userpwd=parm_userpwd, ename=parm_ename,
13 email=parm_email, logo=parm_logo
14 where userid=v_userid;
15 commit;
16 end;
17 /
过程已创建。
SQL>
北风网项目培训PLSQL编程之BBS实战项目第五讲.rar （2个子文件） 
北风网项目培训PLSQL编程之BBS实战项目第五讲 第五讲 用户管理模块 
代码.txt 2KB
第五讲 用户管理模块.exe 63.16MB资源评论
yuefei2002742013-01-06不错，正在学习PL/SQL，对初学者有用
sis00012013-08-03很好的资源，正是我要找的- shengrongchun2013-11-30不错不错哦。还有其他的吗
