Oracle学习笔记-包_综合

1、概念：包实际是一种封装，里面可以包含常量、函数、存储过程等。

1.1、声明一个包

CREATE OR REPLACE PACKAGE packageAboutCicle
IS--声明常量PI CONSTANT NUMBER:=3.14;--声明函数FUNCTION f_getC(r NUMBER)RETURN NUMBER;--声明存储过程PROCEDURE proc_area(r NUMBER);
END;

1.2、定义一个主体，也就是包体，实现包体要求的内容

CREATE OR REPLACE PACKAGE BODY packagebodyCicle
ASFUNCTION f_getC(r NUMBER) RETURN NUMBERISBEGINEND;PROCEDURE proc_area(r NUMBER)ISBEGINEND;
END;

2、实例

银行转账

--2.1、声明一个包
CREATE OR REPLACE PACKAGE packageAcount
IS--声明函数FUNCTION get_remaining(name VARCHAR2)RETURN NUMBER;--声明存储过程PROCEDURE transfer(fromName in varchar2, money in number, toName varchar2);
END;
--2.2、为包定义一个包体
CREATE OR REPLACE PACKAGE BODY packageAcount
ASFUNCTION get_remaining(name VARCHAR2) RETURN NUMBERISleft_money NUMBER;BEGINSELECT f_money INTO left_moneyFROM t_accountWHERE f_name = name;RETURN left_money;END;PROCEDURE transfer(fromName in varchar2, money in number, toName in varchar2)ISBEGINIF money > get_remaining(fromName) THENdbms_output.put_line('余额不足');raise_application_error(-10001,'余额不足');ELSIF money<1 THENdbms_output.put_line('转账金额要大于1元');raise_application_error(-10002,'转账金额要大于1元');ELSEUPDATE t_account SET f_money = f_money + money WHERE f_name = toName;UPDATE t_account SET f_money = f_money - money WHERE f_name = fromName;COMMIT;END IF;EXCEPTIONWHEN OTHERS THENdbms_output.put_line('转账异常');ROLLBACK;END;
END;
--2.3、调用包
DECLAREt_fromName varchar2(10);t_money number;t_toName varchar2(10);
BEGINt_fromName :='&请输入转账人';t_money :='&请输入转账金额';t_toName :='&请输入转账接收人';packageAcount.transfer(t_fromName,t_money,t_toName);
END;