Oracle APEX迁移：原Forms数据库用户权限机制适配方案咨询

针对大量使用USER关键字的PL/SQL代码，无需逐一修改参数，可通过以下几种方案适配APEX的认证模式：

方案1：数据库会话级替代（推荐） #

利用Oracle的DBMS_SESSION.SET_IDENTIFIER结合自定义逻辑，在APEX会话中模拟USER的取值：

1. 在APEX应用的Before Header初始化进程中执行：

   DBMS_SESSION.SET_IDENTIFIER(v('APP_USER'));
   

2. 创建自定义函数替代原USER的调用：

   CREATE OR REPLACE FUNCTION GET_CURRENT_USER RETURN VARCHAR2 IS
   BEGIN
     RETURN SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER');
   END;
   /
   

3. 批量替换原PL/SQL代码中的USER为GET_CURRENT_USER()，或创建同义词简化替换：

   CREATE SYNONYM USER FOR GET_CURRENT_USER;
   

   注：同义词替换需确保权限充足，且不会干扰其他系统对象。

方案2：动态切换数据库用户（需谨慎） #

若原Forms对应的数据库用户仍存在，可在APEX登录后切换到对应数据库用户：

1. 在登录成功后的进程中执行切换逻辑（需使用具备CONNECT权限的账号）：

   DECLARE
     l_user VARCHAR2(100) := v('APP_USER');
     l_pass VARCHAR2(100);
   BEGIN
     SELECT password INTO l_pass FROM dba_users WHERE username = l_user;
     EXECUTE IMMEDIATE 'CONNECT ' || l_user || '/' || l_pass;
   END;
   /
   

   注：此方案存在安全风险，密码存储与传输需加密，且切换用户可能影响APEX内置功能。

方案3：全局包变量结合触发器 #

1. 创建存储当前用户的全局包：

   CREATE OR REPLACE PACKAGE APP_SESSION_INFO IS
     g_current_user VARCHAR2(100);
   END;
   /
   

2. 在APEX登录后进程中设置全局变量：

   APP_SESSION_INFO.g_current_user := v('APP_USER');
   

3. 创建替代USER的函数：

   CREATE OR REPLACE FUNCTION GET_CURRENT_USER RETURN VARCHAR2 IS
   BEGIN
     RETURN APP_SESSION_INFO.g_current_user;
   END;
   /
   

4. 批量替换原代码中的USER为GET_CURRENT_USER()，或通过同义词映射。

关键注意事项 #

• 方案1对APEX内置功能影响最小，是最安全的适配方式，符合APEX会话模型。
• 所有方案需在测试环境充分验证，确保权限校验逻辑与原Forms应用完全一致。
• 若使用同义词替换，因系统内置USER函数优先级更高，可能需直接修改原代码中的USER调用。

内容的提问来源于stack exchange，提问作者chk.buddi