---修改密码,并且将限制用户下次登录的时候(第一次登录),强制要换一个新的口令: ---此过程可以完全模拟我们在标准用户的Form里面初始化用户的密码的动作! ---最后要说明的是,这个处理过程是通过研究标准创建用户的画面得出来的结果,所以,如果有需要,请放心使用! SELECT last_logon_date,password_date,LAST_UPDATE_DATE,LAST_UPDATE_LOGIN FROM FND_USER WHERE USER_NAME = ‘QWR01‘; DECLARE P_USER_NAME FND_USER.USER_NAME%TYPE; P_INIT_PASSWORD VARCHAR2(30);---初始化密码,非加密的。 --- l_change_flag VARCHAR2(10); l_reason varchar2(2000); BEGIN ---输入参数(用户名和初始化的密码) P_USER_NAME := ‘QWR01‘; P_INIT_PASSWORD := ‘PWD123‘; --------- ---处理-- L_change_FLAG := fnd_web_sec.change_password(P_USER_NAME,P_INIT_PASSWORD); IF L_change_FLAG = ‘Y‘ THEN -- Bug 7016473 - During an administrative reset, set the last_logon_date to NULL -- instead of SYSDATE. last_logon_date should reflect the date the user last -- logged in successfully, not the date the user‘s password was reset. -- This does not regress the fix for bug 4690441 because in fnd_web_sec.disable_user -- if last_logon_date is NULL, the last_update_date will be used which is the same -- date of the sysadmin reset, so the effect is the same. -- -- Reset password_date field to null to force password -- expiration the next time user logs on. -- UPDATE FND_USER SET last_logon_date= NULL ,password_date = NULL --,LAST_UPDATE_DATE = SYSDATE --,LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID WHERE USER_NAME = P_USER_NAME; COMMIT; ---- DBMS_OUTPUT.PUT_LINE(‘成功初始化用户(‘||P_USER_NAME||‘)的密码为:‘||P_INIT_PASSWORD); ELSE ---显示为什么不可以修改 l_reason := fnd_message.get; fnd_message.set_name(‘FND‘, ‘FND_CHANGE_PASSWORD_FAILED‘); fnd_message.set_token(‘USER_NAME‘, P_USER_NAME); fnd_message.set_token(‘REASON‘, l_reason); app_exception.raise_exception; END IF; END;
时间: 2024-10-26 07:25:03