Oracle EBS之Oracle Forms中的“WHEN-LEAVE-RECORD”觸發(fā)器

在開發(fā)Oracle Forms時，有沒有碰到這樣的需求，我需要在每次離開一行記錄時執(zhí)行某個操作。用WHEN-VALIDATE-RECORD，不過實際測試的時候，怎么有時行有時不行？那你有沒有嘗試過WHEN-LEAVE-RECORD呢？什么？還有WHEN-LEAVE-RECORD？從來沒有聽說過……

在請出WHEN-LEAVE-RECORD前，讓我們先來分析分析下見過的幾個WHEN觸發(fā)器：
-
 

WHEN-NEW-RECORD-INSTANCE
鼠標每次進入新的一行時觸發(fā)。

WHEN-CREATE-RECORD
每次插入一行時觸發(fā)，沒輸入任何數(shù)據(jù)時SYSTEM.RECORD_STATUS為NEW，輸入數(shù)據(jù)后SYSTEM.RECORD_STATUS變?yōu)镮NSERT。

WHEN-VALIDATE-RECORD
當鼠標離開當前行，且當前行在上一次WHEN-VALIDATE-RECORD到當前離開該行的時刻止，該行數(shù)據(jù)發(fā)生過變換時觸發(fā)。

當新插入一行數(shù)據(jù)，SYSTEM.RECORD_STATUS變?yōu)镮NSERT時，移出會觸發(fā)一次。但是，當鼠標再次進入該行并打算移出，而這段時間內(nèi)該行并沒有發(fā)生改變時，盡管此時該行的SYSTEM.RECORD_STATUS仍為INSERT（未保存的情況下），但不會再觸發(fā)WHEN-VALIDATE-RECORD事件。

同理，當修改了一行數(shù)據(jù)，SYSTEM.RECORD_STATUS變?yōu)镃HANGED時，移出該行會觸發(fā)一次。但是，當鼠標再次進入該行并打算移出，而該段時間內(nèi)該行并沒有發(fā)生改變時，盡管此時該行的SYSTEM.RECORD_STATUS仍為CHANGED（未保存的情況下），將不會再觸發(fā)WHEN-VALIDATE-RECORD事件。

好了，時機也差不多成熟了，是時候WHEN-LEAVE-RECORD出馬啦，當當當當……

我們?nèi)绾尾拍茉诿看我瞥瞿承袝r執(zhí)行某個操作？從上面的分析我們知道WHEN-VALIDATE-RECORD并不是每次離開行時都會觸發(fā)，而似乎又沒有類似WHEN-leave-RECORD之類的觸發(fā)器，那碰到這類需求時是不是就沒有其他辦法了呢？
當然不是，我們只需仔細想想WHEN-VALIDATE-RECORD的觸發(fā)條件就不難發(fā)現(xiàn)，當且僅當該行數(shù)據(jù)發(fā)生了改變WHEN-VALIDATE-RECORD便會觸發(fā)。這樣的話，我們通過人為改變行上的數(shù)據(jù)來引起WHEN-VALIDATE-RECORD。例如，在BLOCK（BLK_DUMMY）上加一個非數(shù)據(jù)庫的ITEM（就叫ITM_DUMMY吧，為了后面敘述方便，這里設(shè)為數(shù)值型，初始值為1），然后在WHEN-NEW-RECORD-INSTANCE（因為WHEN-NEW-RECORD-INSTANCE會在每次進入一行時無條件的觸發(fā)）中改變這個ITEM的值（可以這樣做：:BLK_DUMMY.ITM_DUMMY := NVL(:BLK_DUMMY.ITM_DUMMY, 1) + 1;），到此便大功告成了，WHEN-VALIDATE-RECORD已經(jīng)被我們改造成了我們自己的WHEN-LEAVE-RECORD觸發(fā)器。

怎么樣，簡單吧？趕緊去開發(fā)咱自己的WHEN-LEAVE-RECORD觸發(fā)器吧。

服務(wù)器租用/服務(wù)器托管中國五強！虛擬主機域名注冊頂級提供商！15年品質(zhì)保障！--億恩科技[ENKJ.COM]