Oracle 函数 “判断数据表中不存在的数据，才允许通过”

 create or replace function mca_detail_material_val(p_material_code VARCHAR2,  --实参
                                                    p_material_name VARCHAR2,
                                                    p_mca_no VARCHAR2
                                                   )
        RETURN varchar2 AS

  --物料编码/名称的验证，数据表（MATERIAL）中 不存在 该物料编码/名称，允许通过，填其他值都不允许通过

        v_count1   NUMBER; -- 形参
        v_count2   NUMBER;
        v_count3   NUMBER;
        v_count4   NUMBER;

        CURSOR get_wl_material_code1 IS
               SELECT count(m.material_code)  -- count()函数：查询出来的记录条数（记录数）
               FROM   MATERIAL m
               WHERE  m.material_code = p_material_code;

        CURSOR get_wl_material_code2 IS
               SELECT count(material_code)
               FROM   mca_detail m
               WHERE  m.material_code = p_material_code AND m.mca_no <> p_mca_no;
                                                      -- m.mca_no <> p_mca_no:在编辑时，排除此单号(不做比较)---物料编码
        CURSOR get_wl_material_name1 IS
               SELECT count(m.material_name)
               FROM   MATERIAL m
               WHERE  m.material_name = p_material_name;

        CURSOR get_wl_material_name2 IS
               SELECT count(m.material_name)
               FROM   mca_detail m
               WHERE  m.material_name = p_material_name AND m.mca_no <> p_mca_no;
 BEGIN                                                -- m.mca_no <> p_mca_no:在编辑时，排除此单号(不做比较)---物料名称
       OPEN get_wl_material_code1;
       FETCH get_wl_material_code1 INTO v_count1;
       CLOSE get_wl_material_code1;

       OPEN get_wl_material_code2;
       FETCH get_wl_material_code2 INTO v_count3;
       CLOSE get_wl_material_code2;

       OPEN get_wl_material_name1;
       FETCH get_wl_material_name1 INTO v_count2;
       CLOSE get_wl_material_name1;

       OPEN get_wl_material_name2;
       FETCH get_wl_material_name2 INTO v_count4;
       CLOSE get_wl_material_name2;

       IF v_count1+v_count3 <> 0 THEN
          RETURN ''; -- 错误信息码（信息码表）     该信息码对应的内容：物料编码已存在，不允许出现相同值，请确认该编码的真确性！
       ELSIF v_count2+v_count4 <> 0 THEN
          RETURN ''; -- 错误信息码（信息码表）     该信息码对应的内容：物料名称已存在，不允许出现相同值，请确认该编码的真确性！
       END IF;

       RETURN '';

 end mca_detail_material_val;

注：如需测试该函数，请复制到Oracle数据库中，右击函数名“mca_detail_material_val”，选择“test” 进行测试，测试时记得把相应的表名及字段换成自己建立的

原创作者：DSHORE

出处：http://www.cnblogs.com/dshore123/

欢迎转载，转载务必说明出处。（如果本文对你有用，可以点击一下右下角的 推荐，谢谢！）