PL/SQL：如何仅在激活银行卡取款函数时触发触发器？

核心思路 #

要实现"仅Visa卡DAP取款时检查卡过期，网点取款不触发"的需求，关键是让触发器能识别当前执行的是哪种取款操作。这里通过会话级包变量传递操作标识，触发器仅在标记为DAP取款时执行过期检查。

1. 创建操作标记包 #

用于存储当前操作类型及关联卡号，变量为会话隔离，不会相互干扰：

CREATE OR REPLACE PACKAGE 取款操作标记 AS
    -- 标记是否为Visa DAP取款操作
    是DAP取款 BOOLEAN := FALSE;
    -- 存储当前DAP取款使用的银行卡号
    当前卡号 CARTE.NUMEROCARTE%TYPE;
END 取款操作标记;
/

2. 实现两个取款函数 #

网点传统取款函数

仅检查账户余额，不涉及银行卡状态：

CREATE OR REPLACE FUNCTION 网点取款(
    p_numero_compte COMPTE.NUMEROCOMPTE%TYPE,
    p_montant NUMBER
) RETURN BOOLEAN IS
    v_solde COMPTE.SOLDE%TYPE;
BEGIN
    -- 查询账户余额
    SELECT SOLDE INTO v_solde FROM COMPTE WHERE NUMEROCOMPTE = p_numero_compte;
    
    -- 余额不足校验
    IF v_solde < p_montant THEN
        RAISE_APPLICATION_ERROR(-20001, '账户余额不足，无法完成取款');
        RETURN FALSE;
    END IF;
    
    -- 更新账户余额
    UPDATE COMPTE SET SOLDE = SOLDE - p_montant WHERE NUMEROCOMPTE = p_numero_compte;
    COMMIT;
    RETURN TRUE;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
        RAISE_APPLICATION_ERROR(-20002, '指定账户不存在');
        RETURN FALSE;
END 网点取款;
/

Visa卡DAP取款函数

设置操作标记并绑定卡号，执行完成后重置标记：

CREATE OR REPLACE FUNCTION DAP_Visa取款(
    p_numero_carte CARTE.NUMEROCARTE%TYPE,
    p_montant NUMBER
) RETURN BOOLEAN IS
    v_numero_compte COMPTE.NUMEROCOMPTE%TYPE;
    v_solde COMPTE.SOLDE%TYPE;
BEGIN
    -- 标记当前为DAP取款操作，并绑定卡号
    取款操作标记.是DAP取款 := TRUE;
    取款操作标记.当前卡号 := p_numero_carte;
    
    -- 获取银行卡关联的账户
    SELECT NUMEROCOMPTE INTO v_numero_compte FROM CARTE WHERE NUMEROCARTE = p_numero_carte;
    
    -- 查询账户余额
    SELECT SOLDE INTO v_solde FROM COMPTE WHERE NUMEROCOMPTE = v_numero_compte;
    
    -- 余额不足校验
    IF v_solde < p_montant THEN
        RAISE_APPLICATION_ERROR(-20003, '账户余额不足，无法完成DAP取款');
        RETURN FALSE;
    END IF;
    
    -- 更新账户余额
    UPDATE COMPTE SET SOLDE = SOLDE - p_montant WHERE NUMEROCOMPTE = v_numero_compte;
    COMMIT;
    
    -- 重置操作标记
    取款操作标记.是DAP取款 := FALSE;
    取款操作标记.当前卡号 := NULL;
    RETURN TRUE;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
        RAISE_APPLICATION_ERROR(-20004, '银行卡不存在或关联账户无效');
        -- 异常时必须重置标记
        取款操作标记.是DAP取款 := FALSE;
        取款操作标记.当前卡号 := NULL;
        RETURN FALSE;
    WHEN OTHERS THEN
        -- 全局异常处理，确保标记重置
        取款操作标记.是DAP取款 := FALSE;
        取款操作标记.当前卡号 := NULL;
        RAISE;
END DAP_Visa取款;
/

3. 创建过期卡检查触发器 #

仅在DAP取款操作触发账户余额更新时，执行银行卡过期校验：

CREATE OR REPLACE TRIGGER 检查DAP取款卡过期
BEFORE UPDATE OF SOLDE ON COMPTE
FOR EACH ROW
DECLARE
    v_date_expiration CARTE.DATEEXPIRATION%TYPE;
BEGIN
    -- 仅当标记为DAP取款时执行检查
    IF 取款操作标记.是DAP取款 THEN
        -- 查询当前银行卡的过期日期
        SELECT DATEEXPIRATION INTO v_date_expiration 
        FROM CARTE 
        WHERE NUMEROCARTE = 取款操作标记.当前卡号;
        
        -- 校验是否过期
        IF SYSDATE > v_date_expiration THEN
            RAISE_APPLICATION_ERROR(-20005, '银行卡已过期，无法完成DAP取款');
        END IF;
    END IF;
EXCEPTION
    WHEN NO_DATA_FOUND THEN
        -- 卡号不存在的情况已在DAP函数中处理，此处无需额外操作
        NULL;
END 检查DAP取款卡过期;
/

关键说明 #

1. 包变量的作用：会话级变量确保每个用户的操作状态独立，不会出现不同会话间的标记混乱。
2. 异常处理中的标记重置：无论DAP取款成功还是失败，都必须重置操作标记，避免后续操作误触发校验逻辑。
3. 权限隔离：网点取款函数不会设置任何标记，触发器会自动跳过过期检查，满足"过期卡仍可使用网点取款"的需求。

内容的提问来源于stack exchange，提问作者jaouadi