create or replace procedure omc_sys_permit
(
pFmenuid varchar2, -- 菜单编号
pUserid varchar2, -- 用户编号
pType varchar2, -- 操作类型
pRetCode out varchar2, --返回代码
pRetInfo out varchar2 --返回提示
)
/*-- ===========================================
Author: JiQing.xie
Timer: 2010-02-05 14:09:00
Developers: SepSOFT
Version: v1.0
Functio: 用户权限操作
-- ==========================================*/
is
templ varchar2(32);
tempr varchar2(32);
temp varchar2(32):='';
i number:=0;
j number:=0;
begin
-- 删除权限--
delete from omc_user_menu where fuserid=pUserid;
for my in ( select to_char(strvalue) as Value from table(fun_split(pFmenuid,',')))
loop
if my.value is not null then
i:=instr(my.value,'^');
templ:=substr(my.value,0,i-1);
if j=0 then
tempr:=substr(my.value,i+1);
end if;
if j>0 then
if temp=templ then
tempr:=tempr||','||substr(my.value,i+1);
end if;
if temp!=templ then
insert into omc_user_menu (fuserid,fmenuid,ftime,factionid)values(pUserid,temp,sysdate,tempr);
tempr:=substr(my.value,i+1);
end if;
end if;
j:=1;
temp:=templ;
end if;
end loop;
if templ is not null then
insert into omc_user_menu (fuserid,fmenuid,ftime,factionid)values(pUserid,templ,sysdate,tempr);
end if;
pRetCode:=0;
pRetInfo:='授权成功';
if pType ='update' then
pRetInfo:='修改成功';
end if;
commit;
---- 添加父类---
for mytable in (select distinct fpid from omc_menu t where fid in(select fmenuid from omc_user_menu t where fuserid=pUserid))
loop
insert into omc_user_menu (fuserid,fmenuid,ftime,factionid)values(pUserid,mytable.fpid,sysdate,0);
end loop;
exception
when others then
pRetCode := 1000;
pRetInfo :='操作失败';
xp_sys_errlog('omc_sys_permit',sqlcode,sqlerrm,'pUserid='||pUserid);
end omc_sys_permit;
分享到:
相关推荐
Oracle Customer Intelligence Concepts and Procedures
0102-Maintenance-Oracle Applications Maintenance Procedures - 11iadproc
Programming Oracle Triggers And Stored Procedures 英文第三版 自制CHM格式,可DropDownList选章选节阅读,可调节字体大小,大大方便了Viliv S5等手持上网设备的阅读。 注意: 由于内部使用了MS XML Parser,本...
Oracle iPayment Concepts and Procedures Release 11i Part No. A95477-06
用java调用oracle存储过程总结.
Oracle Number Portability Concepts and Procedures Release 11i
Oracle Advanced Scheduler Concepts and Procedures Guide Release 11i
大型项目Oracle sql,function,procedures,package,cursor学习参考
Oracle Marketing Encyclopedia System Concepts and Procedures Release 11
Oracle Service Fulfillment Manager Concepts and Procedures Release 11i
解决OracleRAC集群下创建SDE时报Stored procedures错误问题 环境:Oracle11.2.0.3 两节点RAC集群,windows server2008R2,FCSAN共享存储,ArcGIS Desktop 1031
Oracle CRL-Financials Enabled Assets Concepts and Procedures
Oracle9i Java Stored Procedures Developer’s Guide Release 2 (9.2)
Oracle Wireless Option for Service Concepts and Procedures Guide Release 11i
(prentice hall 2003) - programming oracle triggers and stored procedures, 3rd ed.rar
Oracle8i Java Stored Procedures Developer’s Guide Release 2 (8.1.6)
Procedures, Policies, and Plans If I Had a Hammer... Chapter 2 Oracle System Files What’s in the Files? The Instance and the Database: Starting an Oracle Database Types of Database Files ...
How to assess potential threats to your database, configure Oracle Recovery Manager, and set up backup and recovery procedures When to use online, offline, controlfile, and archivelog backups ...
Protect your data through proper backup and recovery procedures. Oracle Database is one of the most relied-up databases in industry. For many years Oracle Database was a software product that had to ...