/*************************************************
四、主题： 锁——避免重复启动同一程序
锁 捕捉唯一性
*************************************************/
=============================================================================
CREATE TABLE TEST5
(
ID NUMBER(5),
NAME VARCHAR(10),
UIID NUMBER(5)
);
INSERT INTO TEST5 VALUES(1,'A',NULL);
INSERT INTO TEST5 VALUES(2,'B',NULL);
INSERT INTO TEST5 VALUES(3,'C',NULL);
INSERT INTO TEST5 VALUES(4,'Aa',1);
INSERT INTO TEST5 VALUES(5,'Ab',1);
=============================================================================
4.1.判断是否是否加上了锁
--SESSION_1
UPDATE TEST5
SET NAME = NAME;
不提交，然后新打开一个窗口，执行下面语句：
--SESSION_2
SELECT * FROM TEST5; --能正常获取数据
SELECT * FROM TEST5 FOR UPDATE NOWAIT; --资源站正忙,无法获取数据，说明SESSION_1 已经加上了锁。
--若SESSION_1 提交了，则 SESSION_2 就能得到数据
4.2.在得知被锁后，退出不执行后续语句
SESSION_1 不提交修改。
--SESSION_2
-----------------------------------------------
DECLARE
E_FAILED_TO_LOCK EXCEPTION;
V_ID NUMBER;
PRAGMA EXCEPTION_INIT (E_FAILED_TO_LOCK,-54);
BEGIN
SELECT ID INTO V_ID FROM TEST5 WHERE ID=1 FOR UPDATE NOWAIT;
EXCEPTION
WHEN E_FAILED_TO_LOCK THEN
RAISE_APPLICATION_ERROR(-20004,'IT'S LOCKED!');
null;
END;
/
-----------------------------------------------
--提示：IT'S LOCKED!
若想执行正确，可以先提交SESSION_1.
4.3. 与上面一样，利用主键，防止重复记录。
若是INSERT INTO 时，主键冲突，则EXCEPTION 执行NULL,忽略异常继续前进。
--此处，一般用MERGE INTO 来解决最好。
4.4.获取机器IP终端号SID等
SELECT USERENV('SESSIONID') FROM DUAL;
SELECT USERENV('TERMINAL') FROM DUAL;
SELECT SYS_CONTEXT('USERENV','IP_ADDRESS') FROM DUAL;
SELECT SYS_CONTEXT('USERENV','CURRENT_USER') FROM DUAL;
SELECT SID FROM V$MYSTAT WHERE ROWNUM=1;
4.5.构造检查机制，防止失败执行报错，给出提示。