如何实现类似QQ的登陆的一个功能。

oldboy

biti大哥说的都有理，问题是，我在SYSTEM登陆触发器中写了RAISE来触发一个错误，但在用户登陆时，没有提示这个错误提示，是否是系统登陆触发器中，不能输入使用RAISE来触发事件。

biti_rainy

最初由 oldboy 发布
[B]biti大哥说的都有理，问题是，我在SYSTEM登陆触发器中写了RAISE来触发一个错误，但在用户登陆时，没有提示这个错误提示，是否是系统登陆触发器中，不能输入使用RAISE来触发事件。 [/B]

说了半天，你不把trigger拿出来，别人也不明白你是如何处理的，问题在哪里

你是要kill 另一个session ，不是给自己raise 一个错误。

oldboy

现在是先看这个提示是否出来。但没有成功。下面是例子：
1.创建提示过程。
create or replace procedure testuser_logon as
  v_Error Varchar2(255);
  Err_log Exception;

begin
  v_Error := 'user logon test!';
  Raise Err_log;
EXCEPTION
  When Err_log Then
    Raise_application_error(-20101, '[test]' || v_Error || '[test]');
  WHEN OTHERS THEN
    null;
  
end;

2.创建系统登陆触发器。
create or replace trigger testuser_logon
after logon
on database
   call testuser_logon
3.登陆，已一个SYSTEM用户登陆,却始终不显示这个错误提示。

oldboy

我希望就是在杀死对方的情况下，还应该给对方一个提示。类似QQ的提示，用户已经在别处登陆了。

oldboy

不知怎的，这个过程对一般用户有效，但对DBA用户没有效果，如何能够拦截所有的用户。请大家继续讨论。

oldboy

修改后的触发器:
CREATE OR REPLACE TRIGGER USER_LOGON
AFTER LOGON
ON DATABASE
DECLARE
  V_ERROR VARCHAR2(255);
  ERR_LOGON EXCEPTION;
  CURSOR C_USER IS
    SELECT SID,
           SERIAL#,
           USER#,
           USERNAME,
           OSUSER,
           MACHINE,
           TERMINAL,
           PROGRAM,
           LOGON_TIME
      FROM V$SESSION
     WHERE TYPE = 'USER' AND USERNAME <> ' ' AND
           TO_CHAR(LOGON_TIME, 'YYYY-MM-DD HH24:MI:SS') <
           TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI') || ':' ||
           (TO_CHAR(SYSDATE, 'SS') - 5);

BEGIN
  V_ERROR := 'USER LOGON TEST 123!';

  FOR V_USER IN C_USER LOOP
    IF USER = V_USER.USERNAME THEN
      V_ERROR := '用户 ' || USER || ' 已经在' || V_USER.MACHINE ||
                 '机器上进行了登陆,' || CHR(10) || '登陆时间为 ' ||
                 TO_CHAR(V_USER.LOGON_TIME, 'YYYY-MM-DD HH24:MI:SS') ||
                 ',使用的程序为' || V_USER.PROGRAM || ',' || CHR(10) ||
                 '请先关闭它后,再进行登陆!';
      RAISE ERR_LOGON;
      --EXIT;
   
    END IF;
  END LOOP;

EXCEPTION
  WHEN ERR_LOGON THEN
    RAISE_APPLICATION_ERROR(-20101, V_ERROR);
  WHEN OTHERS THEN
    NULL;
  
END;
/

biti_rainy

1: logon  trigger 对 DBA角色用户无效
2：如果你想返回一个提示，这是需要应用来配合处理的，比如你自己定义的信息和编号可能不是当作正常显示而是异常了。你光考虑服务器返回提示信息是不够的，要考虑应用能正常接收显示并继续。如何应用可以修改来配合，我不确信trigger 返回的信息能否被正常识别并且程序继续进行，这需要测试。如果遇到问题，可以插入一个记录用户登陆信息表使得应用登陆之后就立即检查被自己登陆时候kill掉的session的相关信息。