java调用Oracle用户登录存储过程

来源：互联网发布：大学生网络贷款的认识编辑：程序博客网时间：2024/05/29 02:44

PROCEDURE user_Login (
      i_AuthID         IN       user_UserPass.UserID%TYPE,        --用户代码
      i_FunctionCode   IN       user_Function.FunctionCode%TYPE,      --功能代码
      i_Password       IN       user_UserPass.PASSWORD%TYPE,          --密码
      o_RetCode        OUT      INT,
      o_RetMsg         OUT      VARCHAR2
   )
/* 授权验证 */
   IS
      l_location             VARCHAR2 (128);
      l_Exist                INTEGER;
      l_Count                INTEGER;
      l_Counter              INTEGER;
      l_FunctionCode         user_Function.FunctionCode%TYPE;
      l_ParentFunctionCode   user_Function.FunctionCode%TYPE;//父根限功能代码
      l_Passed               BOOLEAN;
      l_Length               INTEGER;
   BEGIN
      o_RetCode := 0;
      o_RetMsg := '操作成功';
      l_location := '验证用户登录';
      up_SetClearLog ('user_Login',
                      '验证用户权限',
                      'INTO',
                      'admin',
                      ''
                     );//操作日志

      SELECT COUNT (*)
        INTO l_Exist
        FROM user_UserPass    //用户表
       WHERE UserID = i_AuthID AND PASSWORD = i_Password;

      IF l_Exist <> 1
      THEN
         o_RetCode := 1;
         o_RetMsg := '授权验证，用户名或密码无效失败';
         up_SetClearLog ('user_Login',
                      '验证用户权限',
                      'ERROR',
                      'admin',
                      ''
                     );//操作日志
         RETURN;
      END IF;

l_location := '验证用户权限';

      SELECT COUNT (*)
        INTO l_Count
        FROM user_Function f
WHERE TYPE = 'admin'//查找该用户功能代码

      IF l_Count = 0
      THEN
         o_RetCode := 12;
         o_RetMsg := '权限代码有误';
         up_SetClearLog ('user_Login',
                      '验证用户权限',
                      'ERROR',
                      'admin',
                      ''
                     );//操作日志
         RETURN;
      END IF;

      o_RetCode := 0;
      o_RetMsg := '授权验证成功';
      up_SetClearLog ('user_Login',
                      '验证用户权限',
                      'SUCCESS',
                      'admin',
                      ''
                     );//操作日志
   EXCEPTION
      WHEN OTHERS
      THEN
         o_RetCode := 1;
         o_RetMsg := '操作失败!错误位置:' || l_location;
         up_SetClearLog ('user_Login',
                         o_RetMsg,
                         'WARN',
                         'admin',
                         ''
                        );
   END user_Login;

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/zhouyongyang/archive/2009/10/31/4751766.aspx