Oracle PL/SQL 过程与游标实战分享：马拉松赛事管理系统

一、引言

在企业级数据库应用开发中，PL/SQL 作为 Oracle 数据库的过程化扩展语言，承担着业务逻辑封装、数据操作优化和系统性能提升的重要角色。本文基于一个完整的马拉松赛事管理系统的 PL/SQL 实现，分享过程、游标、函数等核心技术的实战应用。

二、PL/SQL 过程：业务逻辑的封装艺术

2.1 选手报名流程封装

在 sp_register_runner 存储过程中，我们看到了一个完整的业务事务处理范例：

sql 复制代码

CREATE OR REPLACE PROCEDURE sp_register_runner(...)

设计亮点：

事务完整性：报名与物资初始化在同一事务中完成
智能编号生成 ：根据性别自动生成 M/F 前缀的号码布
数据验证：身份证号唯一性检查防止重复报名
批量初始化：自动创建号码布、T恤、计时芯片三条物资记录

2.2 物资领取的业务处理

sp_collect_material 过程展示了状态驱动型业务逻辑：

sql 复制代码

CREATE OR REPLACE PROCEDURE sp_collect_material(...)

关键特性：

状态联动更新：当选手所有物资领取完成后，自动更新选手状态为"已领物"
异常处理：完善的错误处理机制，包括"已领取"、"未找到记录"等业务异常
操作审计：记录领取时间、操作员 ID，便于追溯

三、游标：数据遍历与处理的利器

3.1 显式游标的精细控制

sql 复制代码

DECLARE
    CURSOR cur_runners_details IS ...
    v_runner_rec cur_runners_details%ROWTYPE;
BEGIN
    OPEN cur_runners_details;
    LOOP
        FETCH ... INTO ...;
        EXIT WHEN ...;
        -- 业务处理
    END LOOP;
    CLOSE cur_runners_details;
END;

应用场景：

分页式处理 ：通过 v_counter 控制只显示前5条记录
嵌套游标：外层游标遍历选手，内层游标查询每个选手的物资详情
资源管理 ：显式的 OPEN、CLOSE 确保游标资源及时释放

3.2 游标 FOR 循环的简洁之美

sql 复制代码

FOR material_rec IN (
    SELECT material_type, item_code, ...
    FROM Material_Collection
    GROUP BY ...
) 
LOOP
    -- 自动打开、获取、关闭游标
END LOOP;

优势：

代码简洁：无需显式声明、打开、关闭游标
异常安全：自动处理游标生命周期
性能优化：适合数据量适中的批量处理

3.3 参数化游标的灵活应用

sql 复制代码

CURSOR cur_runners_by_status(p_status VARCHAR2) IS
    SELECT ... FROM Runners WHERE status = p_status;

使用价值：

代码复用：同一游标结构处理不同状态的数据
动态查询：根据传入参数改变查询条件
封装性：隐藏查询细节，提供统一接口

四、PL/SQL 块的业务统计应用

4.1 选手信息统计分析

在匿名 PL/SQL 块中，我们看到多种统计技术的综合应用：

sql 复制代码

-- 基本聚合统计
SELECT COUNT(*) INTO v_total_runners FROM Runners;

-- 条件统计
SELECT COUNT(*) INTO v_male_count FROM Runners WHERE gender = 'M';

-- 分组统计游标
FOR status_rec IN (SELECT status, COUNT(*) as cnt FROM Runners GROUP BY status)
LOOP
    DBMS_OUTPUT.PUT_LINE('状态 ' || status_rec.status || ': ' || status_rec.cnt || '人');
END LOOP;

4.2 物资领取率分析

sql 复制代码

-- 比率计算
v_collection_rate := ROUND((v_collected_count / v_total_collections) * 100, 2);

-- 多维度分组统计
SELECT material_type, 
       COUNT(*) as total,
       SUM(CASE WHEN is_collected = 'Y' THEN 1 ELSE 0 END) as collected,
       ROUND(SUM(CASE WHEN is_collected = 'Y' THEN 1 ELSE 0 END) * 100.0 / COUNT(*), 2) as rate
FROM Material_Collection 
GROUP BY material_type;

五、实战技巧与最佳实践

5.1 异常处理的层次化设计

sql 复制代码

EXCEPTION
    WHEN OTHERS THEN
        IF cur_runners_details%ISOPEN THEN
            CLOSE cur_runners_details;
        END IF;
        DBMS_OUTPUT.PUT_LINE('错误: ' || SQLERRM);

建议：

在游标操作中始终检查游标状态后再关闭
使用 SQLERRM 记录具体错误信息
事务操作中确保异常时执行 ROLLBACK

5.2 动态 SQL 的灵活应用

sql 复制代码

v_sql := 'SELECT runner_id, name FROM Runners WHERE status = :1 AND gender = :2';
EXECUTE IMMEDIATE v_sql INTO v_runner_id, v_name USING v_status, v_gender;

适用场景：

查询条件动态变化
表名或列名需要动态确定
构建通用的报表查询接口

5.3 自定义函数的业务抽象

sql 复制代码

CREATE OR REPLACE FUNCTION func_calculate_age(p_birth_date DATE) RETURN NUMBER

价值体现：

业务逻辑复用：年龄计算在多处统计中重复使用
计算一致性：确保所有年龄计算使用相同逻辑
维护性：年龄计算逻辑变更只需修改一处