5.46.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 30 行

conn sys/oracle as sysdba;


CREATE TABLE log_table(
  username varchar2(20),--记录用户名
  logon_time date,-- 记录用户登录时间
  logoff_time date,--记录用户退出时间
  address varchar2(20))--用户登录的IP地址
/

CREATE OR REPLACE TRIGGER tr_logon
AFTER logon ON DATABASE
BEGIN
  INSERT INTO  log_table(username,logon_time,address) 
  VALUES(ora_login_user,sysdate,ora_client_ip_address);
END tr_logon;
/*ora_login_user 返回登录用户名的事件属性函数
ora_client_ip_address 返回登录用户登录IP地址的事件属性函数*/ 
/

CREATE OR REPLACE TRIGGER tr_logoff
BEFORE LOGOFF ON DATABASE
BEGIN
  INSERT INTO  log_table(username,logoff_time,address) 
  VALUES(ora_login_user,sysdate,ora_client_ip_address);
END tr_logoff ;
/