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

在開(kāi)發(fā)Oracle Forms時(shí)，有沒(méi)有碰到這樣的需求，我需要在每次離開(kāi)一行記錄時(shí)執(zhí)行某個(gè)操作。用WHEN-VALIDATE-RECORD，不過(guò)實(shí)際測(cè)試的時(shí)候，怎么有時(shí)行有時(shí)不行？那你有沒(méi)有嘗試過(guò)WHEN-LEAVE-RECORD呢？什么？還有WHEN-LEAVE-RECORD？從來(lái)沒(méi)有聽(tīng)說(shuō)過(guò)……

在請(qǐng)出WHEN-LEAVE-RECORD前，讓我們先來(lái)分析分析下見(jiàn)過(guò)的幾個(gè)WHEN觸發(fā)器：
-
 

WHEN-NEW-RECORD-INSTANCE
鼠標(biāo)每次進(jìn)入新的一行時(shí)觸發(fā)。

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

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

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

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

好了，時(shí)機(jī)也差不多成熟了，是時(shí)候WHEN-LEAVE-RECORD出馬啦，當(dāng)當(dāng)當(dāng)當(dāng)……

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

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

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