采用过程实现数据库约束完整性

      约束的完整性,是数据库所具有的一大特性,但在最近的一个数据库转换项目中,确要通过程序的方式,人为的去实现.有些不太明白设计者的想法.需求是这样的,若省市表中的记录被别的表引用,则不能进行删除操作(表之间未建立任何约束).无奈之举,最后决定用存贮过程的方式去实现,效率会高一些,减少开发量,也有利于日后的维护.

CREATE OR REPLACE PROCEDURE p_isCityUsed(
    citycode  varchar,
    ret_code  out int      /*100--存在;99--不存在*/
  ) 
AS
total number;
BEGIN  
    BEGIN   --成员单位表--
      select COUNT(T.CMP_ID) INTO total from bs_company t WHERE T.CITY = citycode ;
      IF  total > 0 THEN
          ret_code:= 100 ;
          RETURN ;
      END IF;    
    END;

    BEGIN   --往来客户信息表--
      select COUNT(T.CUSTOMER_ID) INTO total from bs_Customer t WHERE T.CITY = citycode ;
      IF  total > 0 THEN
          ret_code:= 100 ;
          RETURN ;
      END IF;    
    END;  
    
    BEGIN   --分支机构信息表--
      select COUNT(T.ORGAN_ID) INTO total from pm_Organ t WHERE T.CITY_ID = citycode ;
      IF  total > 0 THEN
          ret_code:= 100 ;
          RETURN ;
      END IF;    
    END; 

    BEGIN   --业务申请单--
      select COUNT(T.BILL_ID) INTO total from bk_BillRequest t WHERE T.PAYEE_CITY = citycode ;
      IF  total > 0 THEN
          ret_code:= 100 ;
          RETURN ;
      END IF;    
    END;  
    
    BEGIN   --银行账号表--
      select COUNT(T.BANKACC_ID) INTO total from ac_bankaccount t WHERE T.BANK_CITY = citycode ;
      IF  total > 0 THEN
          ret_code:= 100 ;
          RETURN ;
      END IF;    
    END; 

   IF total = 0 THEN
        ret_code:= 99 ; 
        RETURN ;
   END IF;  
   
   EXCEPTION
     WHEN OTHERS THEN
        ret_code:= 101 ;  --执行失败--       
   
 END ; 

 测试存贮过程:

    方式一(按位置传递):

   

   SQL>variable a1 number;
   SQL>exec p_isCityUsed('0123',:a1);

 

    方式二(按名称传递):

   

   SQL>DECLARE
   SQL>citycode VARCHAR2(100);
   SQL>ret_code NUMBER ;
   SQL>BEGIN
   SQL>p_isCityUsed(citycode => citycode ,ret_code => ret_code);
   SQL>END ;

   目前这种方式只能将返回值通过控制台输出:

      --SET SERVEROUTPUT ON ;
      --DBMS_OUTPUT.PUT_LINE('共有记录'||total||'条!'||',返回值为:'||ret_code);

 

   方式三:在PL/SQl Dev 中, 通过"测试"选项来做(推荐).