```sql --定义可被SQL语句调用的子程序 create or replace function getempdept( p_empno emp.empno%type )return varchar2 as v_dname dept.dname%TYPE; begin select b.dname into v_dname from emp a,dept b where a.deptno=b.deptno and a.empno=p_empno; return v_dname; exception when no_data_found then return null; end; select empno 员工编号,getempdept(empno) 部门名称 from emp; --嵌套子程序重载 declare procedure getSalary(p_empno in number) is begin dbms_output.put_line('员工编号为'||p_empno); end; procedure getSalary(p_empname in varchar2) is begin dbms_output.put_line('员工名称为'||p_empname); end; procedure getSalary(p_empno in number,p_empname in varchar2) is begin dbms_output.put_line('员工编号为'||p_empno||'员工名称为:'||p_empname); end; begin getsalary(7369); getsalary('史密斯'); getsalary(7369,'史密斯'); end; --自治事务使用示例 在主事务中开启一个独立的事务 create table emp_history as select * from emp where 1=3; select * from emp_history; declare procedure TestAutonomous(p_empno number) AS pragma autonomous_transaction; --标记为自治事务 begin insert into emp_history select * from emp where empno=p_empno; commit; end TestAutonomous; begin insert into emp_history(empno,ename,sal) values(1011,'测试',1000); TestAutonomous(7369); rollback; end; select * from emp; insert into emp select * from emp_copy; delete from emp_history; select * from emp_history; --在PL/SQL 中实现递归阶乘 declare v_result integer; function fac(n positive) return integer is begin if n=1 then dbms_output.put_line('1'); return 1; else dbms_output.put(n||'*'); return n*fac(n-1); end if; end fac; begin v_result:=fac(10); dbms_output.put_line('结果是:'||v_result); end; excel 阶乘函数 fact select floor(2345.67) from dual; FLOOR(2345.67) create table staff (condtion varchar2(30)); select * from staff; select * from emp; --使用递归查找职员列表示例 declare procedure find_staff(mgr_no number, tier number :=1) is boss_name varchar2(10); --定义老板名称 cursor c1 (boss_no number) is select empno,ename from emp where mgr=boss_no; begin select ename into boss_name from emp where empno=mgr_no; if tier =1 then insert into staff values(boss_name||'是老板'); end if; for ee in c1(mgr_no) loop insert into staff values(boss_name||'管理 ' || ee.ename||' 在层次 '||to_char(tier)); find_staff(ee.empno,tier+1); end loop; commit; end find_staff; begin find_staff(7566); end; create or replace procedure find_staff(mgr_no number, tier number :=1) is boss_name varchar2(10); --定义老板名称 cursor c1 (boss_no number) is select empno,ename from emp where mgr=boss_no; begin select ename into boss_name from emp where empno=mgr_no; if tier =1 then insert into staff values(boss_name||'是老板'); end if; for ee in c1(mgr_no) loop insert into staff values(boss_name||'管理 ' || ee.ename||' 在层次 '||to_char(tier)); find_staff(ee.empno,tier+1); end loop; commit; end find_staff; delete from staff; create table staff(emplist varchar2(30)); select * from staff; --查找所有表与emp表具有依赖的对象 select name,type from user_dependencies where referenced_name='EMP'; --查询间接依赖 1.执行app../utldtree.sql 2 exec deptree_fill('TABLE',''SCOTT,''EMP); select nested_level,name,type from deptree where type in ('procedure','function'); --sqllus cmd --查看对象的有效性,当子程序依赖的 alter table emp add emp_desc varchar2(200) null; alter table emp drop column emp_desc; select object_name,object_type,status from user_objects where object_name in ('emp'); --查询调用子程序的依赖关系 --重新编译子程序 alter procedure testsubprog complete; --子程序权限管理 create user userb identified by userb; grant resource,connect to userb; --SCOTT方案 grant execute on find_staff to userb; --创建一个同义词视图,分配userb查询权限 DBA模式创建同义词** create public synonym emp for scott.emp; grant select any table to userb; grant create synonym to scott; begin scott.find_staff(7369); end; select * from scott.emp; select * from staff; delete from staff; create table staff(emplist varchar2(1000)); --修改scott方案下的find_staff子程序,使之按调用者权限处理 authid current_user is --包重载 create or replace package emp_action_pkg_overload is procedure newdept( p_deptno dept.deptno%type, p_dname dept.dname%type, p_loc dept.loc%type ); procedure newdept( p_deptno dept.deptno%type, p_dname dept.dname%type ); function getraisedsalary(p_empno emp.empno%type) return number; function getraisedsalary(p_ename emp.ename%type) return number; end emp_action_pkg_overload; --包含重载子程序包体实现 create or replace package body emp_action_pkg_overload is procedure newdept( p_deptno dept.deptno%type, p_dname dept.dname%type, p_loc dept.loc%type )as v_deptcount number; begin select count(*) into v_deptcount from dept where deptno =p_deptno; if v_deptcount > 0 then raise_application_error(-20002,'出现了相同的员工记录'); end if; insert into dept(deptno,dname,loc) values(p_deptno,p_dname,p_loc); end newdept; procedure newdept( p_deptno dept.deptno%type, p_dname dept.dname%type ) as v_deptcount number; begin select count(*) into v_deptcount from dept where deptno =p_deptno; if v_deptcount>0 then raise_application_error(-20002,'出现了相同的员工记录'); end if; insert into dept(deptno,dname,loc) values(p_deptno,p_dname,'中国'); end newdept; function getraisedsalary (p_empno emp.empno%type) return number is v_job emp.job%type; v_sal emp.sal%type; v_salaryratio number(10,2); begin select job,sal into v_job,v_sal from emp where empno=p_empno; case v_job when 'CLERK' then v_salaryratio :=1.09; when 'SALESMAN' then v_salaryratio :=1.11; when 'MANAGER' then v_salaryratio :=1; end case; if v_salaryratio <>1 then return round(v_sal*v_salaryratio,2); else return v_sal; end if; exception when no_data_found then return 0; end getraisedsalary; function getraisedsalary (p_ename emp.ename%type) return number is v_job emp.job%type; v_sal emp.sal%type; v_salaryratio number(10,2); begin select job,sal into v_job,v_sal from emp where ename=p_ename; case v_job when 'CLERK' then v_salaryratio :=1.09; when 'SALESMAN' then v_salaryratio :=1.11; when 'MANAGER' then v_salaryratio :=1; end case; if v_salaryratio <>1 then return round(v_sal*v_salaryratio,2); else return v_sal; end if; exception when no_data_found then return 0; end getraisedsalary; function checkdeptno(p_deptno dept.deptno%type) return number as v_counter number(2); begin select count(*) into v_counter from dept where deptno=p_deptno; return v_counter; end; end emp_action_pkg_overload; declare v_sal number(10,2); begin emp_action_pkg_overload.newdept(43,' 样品部','东京'); emp_action_pkg_overload.newdept(44,' 纸品部'); v_sal:=emp_action_pkg_overload.getraisedsalary(7369); v_sal:=emp_action_pkg_overload.getraisedsalary('SMITH') end; create or replace type employee_obj as object ( empno number(4), ename varchar2(20), job varchar2(20), sal number(10,2), comm number(10,2), deptno number(4), --定义对象类型方法 MEMBER PROCEDURE Change_sal(p_empno number,p_sal number), member procedure change_comm(p_empno number,p_comm number), member procedure change_deptno(p_empno number,p_deptno number), member function get_sal(p_empno number) return number, member function get_comm(p_empno number) return number, member function get_deptno(p_empno number) return integer ) NOT FINAL --指定该类可以被继承,如果指定final,表示该类无法被继承 create or replace type body employee_obj as member procedure change_sal (p_empno number,p_sal number) is begin update emp set sal=p_sal where empno =p_empno; end; --定义对象成员方法,更改员工提成 member procedure change_comm (p_empno number,p_comm number) is begin update emp set comm = p_comm where empno =p_empno;end; --定义对象成员方法,更改员工部门 member procedure change_deptno (p_empno number,p_deptno number) is begin update emp set deptno =p_deptno where empno =p_empno;end; --定义对象成员方法,获取员工薪资 member function get_sal(p_empno number) return number is v_sal number (10,2); begin select sal into v_sal from emp where empno= p_empno; return v_sal; end; --获取员工提成 member function get_comm(p_empno number) return number is v_comm number(10,2); begin select comm into v_comm from emp where empno = p_empno;return v_comm; end; --获取员工部门 member function get_deptno (p_empno number) return integer is v_deptno int; begin select deptno into v_deptno from emp where empno =p_empno; return v_deptno; end; declare v_emp employee_obj; v_sal v_emp.sal%type; begin v_emp:=employee_obj(7890,'赵五','销售人员',5000,200,20); v_sal :=v_emp.sal; dbms_output.put_line(v_emp.ename||'的薪资是:'|| v_sal); end; --使用member和static成员法 create or replace type employee_method as object( empno number(4), sal number(10,2), comm number(10,2), deptno number(4), --实例方法,可以访问对象本身的属性 member procedure change_sal, member function get_sal return number, --静态方法,不能访问对象本身的属性,只能访问静态数据 static procedure change_deptno(p_empno number,p_deptno number), static function get_sal(p_empno number) return number ) not final; --定义employee_method对象类型体 create or replace type body employee_method as member procedure change_sal is begin self.sal :=self.sal*1.12;end; member function get_sal return number is begin return sal; end; static procedure change_deptno(p_empno number,p_deptno number) is begin update emp set deptno = p_deptno where empno=p_empno;end; static function get_sal(p_empno number) return number is v_sal number(10,2); begin select sal into v_sal from emp where empno=p_empno; return v_sal; end; end; --member和static 方法使用示例 member方法:基于对象实例而不是对象类型调用 static方法:静态方法独立与对象实例,不能在对象主体中引用对象属性 declare v_emp employee_method; begin v_emp:=employee_method(7999,5000,200,20); v_emp.change_sal; dbms_output.put_line('员工编号为:'||v_emp.empno||'的薪资为:'|| v_emp.get_sal); --下面调用static方法更新emp表中员工编号为7369的部门为20 employee_method.change_deptno(7369,20); dbms_output.put_line('员工编号为7369的薪资为:'|| employee_method.get_sal(7369));end; 定义构造函数 当定义了一个对象类型之后,系统会提供一个接收与每个属性相对应的 参数构造函数.因此在多数情况下,都不需要自己编写构造函数 自定义构造函数的目的 1.为对象提供初始化功能,可以通过构造函数进行统一初始化 2.可以在构造函数中为某些属性提供默认值, 3 避免更改调用构造函数的应用代码 --自定义构造函数示例 create or replace type salary_obj as object( percent number(10,4), sal number(10,2), --自定义构造函数 constructor function salary_obj(p_sal number) return self as result) instantiable --可实例化对象 final; --不可以继承 create or replace type body salary_obj as constructor function salary_obj(p_sal number) return self as result as begin self.sal :=p_sal; self.percent:=1.12; return;end; end; declare v_salobj1 salary_obj; v_salobj2 salary_obj; begin v_salobj1 := salary_obj(1.12,3000); v_salobj2 :=salary_obj(2000); end; MAP方法:该函数会将实例根据调用规则返回DATE,NUMBER,VARCHAR2类型的标量类型 定义了MAP函数以后,PLSQL会隐式通过调用MAP函数在多个对象间排序 --定义MAP函数示例 create or replace type employee_map as object( empno number(4), sal number(10,2), comm number(10,2), deptno number(4), map member function convert return real --定义一个map方法,real实数类型 科学计数法 ) not final; --声明一个以map关键字开头的成员函数,该函数返回REAL类型 --convert函数对对象进行由高到低的排序 create or replace type body employee_map as map member function convert return real is begin return sal +comm; --返回标量类型的值 end; end; --创建employee_map类型的对象表 create table emp_map_tab of employee_map; insert into emp_map_tab values(7123,3000,200,20); insert into emp_map_tab values(7124,2000,800,20); insert into emp_map_tab values(7125,5000,800,20); insert into emp_map_tab values(7129,3000,400,20); --order by 1 表示的是第一栏 select value(r) val,r.sal+r.comm from emp_map_tab r order by 1; Order方法之能对两个对象之间进行比较,返回必须是数值类型 返回结果正数,负数或零, 只有2个参数self和另一个比较的类型 --定义order函数示例 create or replace type employee_order as OBJECT( empno number(4), sal number(10,2), comm number(10,2), deptno number(4), order member function match(r employee_order) return integer ) not final; create or replace type body employee_order as order member function match(r employee_order) return integer is begin if ((self.sal+self.comm)<(r.sal+r.comm)) then return -1; elsif((self.sal+self.comm)>(r.sal+r.comm)) then return 1; else return 0; end if; end match; end; declare emp1 employee_order:=employee_order(7112,3000,200,20); emp2 employee_order:=employee_order(7112,3000,200,20); begin if emp1>emp2 then dbms_output.put_line('员工1的薪资加提成比员工2大!'); elsif emp1<emp2 then dbms_output.put_line('员工1的薪资加提成比员工2小!'); else dbms_output.put_line('员工1的薪资加提成与员工2相等!'); end if; end; --使用order成员方法进行排序 create table emp_order_tab of employee_order; insert into emp_order_tab values(7123,3000,200,20); insert into emp_order_tab values(7124,2000,800,20); insert into emp_order_tab values(7129,3000,800,20); insert into emp_order_tab values(7125,5000,400,20); select value(r) val,r.sal+r.comm from emp_order_tab r order by 1; map (1)将同一类型的对象实例映射成(number,date,varchar),之后进行比较。 (2) map成员函数不接受形参; order (1)两个对象实例进行比较 (2)一个对象类型只能有一个map或order ,且不能同时有。 --使用嵌套对象类型 --定义地址对象类型 CREATE OR REPLACE TYPE address_type AS OBJECT ( street_addr1 VARCHAR2(25), street_addr2 VARCHAR(25), city VARCHAR2(30), state VARCHAR2(2), zip_code NUMBER, MEMBER FUNCTION toString RETURN VARCHAR2, MAP MEMBER FUNCTION mapping_function RETURN VARCHAR2 ) CREATE OR REPLACE TYPE BODY address_type AS MEMBER FUNCTION tostring RETURN VARCHAR2 IS BEGIN IF (street_addr2 IS NOT NULL) THEN RETURN street_addr1 || chr(10) || street_addr2 || chr(10) || city || ',' || state || ' ' || zip_code; --chr(10)换行 ELSE RETURN street_addr1 || CHR(10) || city || ',' || state || ' ' || zip_code; END IF; END; MAP MEMBER FUNCTION mapping_function RETURN VARCHAR2 IS BEGIN RETURN TO_CHAR(NVL(zip_code, 0), 'fm00000') --fm00000 去掉前后空格 || LPAD(NVL(city, ''), 30) || LPAD(NVL(street_addr1, ''), 25) || LPAD(NVL(street_addr2, ''), 25); END;END; --定义一个对象规范,该规范中包含order方法 create or replace type employee_addr as object( empno number(4), sal number(10,2), comm number(10,2), deptno number(4), addr address_type, member function get_emp_info return varchar2 ) not final; create or replace type body employee_addr as member function get_emp_info return varchar2 is begin return '员工'||self.empno||'的地址为'||self.addr.toString; end; end; declare o_address address_type; o_emp employee_addr; begin o_address:=address_type('玉兰一街','二巷','深圳','DG',523343); o_emp:=employee_addr(7369,5000,800,20,o_address); dbms_output.put_line('员工信息为'||o_emp.get_emp_info); end; --对象的继承 create or replace type person_obj as object( person_name varchar(20), gender varchar2(2), birthdate date, address varchar2(50), member function get_info return varchar2 --返回员工信息 )not final; create or replace type body person_obj as member function get_info return varchar2 is begin return '姓名:'||person_name|| ',家庭住址:'||address; end; end; create or replace type employee_personobj under person_obj( empno number(6), sal number(10,2),job varchar2(10), member function get_emp_info return varchar2, --定义重载方法 overriding member function get_info return varchar2 ); create or replace type body employee_personobj as member function get_emp_info return varchar2 is begin return '员工编号:' ||self.empno ||'员工名称:'||self.person_name|| '职位:'||self.job; end; --实现重载方法 overriding member function get_info return varchar2 as begin return '员工编号:' ||self.empno||'员工名称:'||self.person_name|| '职位:'||self.job; end; end; declare o_emp employee_personobj; begin o_emp:=employee_personobj('张小五','F', to_date('1983-01-01','yyyy-mm-dd'),'中信',7981,5000,'Programmer'); dbms_output.put_line(o_emp.get_info); dbms_output.put_line(o_emp.get_emp_info); end; --管理对象表 create table emp_obj_table of employee_personobj; select * from emp_obj_table drop type employee_personobj;--绑定表之后无法删除对象 create table emp_addr_table of employee_addr; sql>set desc depth all LINENUM ON --展开层次结构 desc emp_addr_table; insert into emp_obj_table values('张小五','F',to_date('1983-01-01','yyyy-mm-dd'),'中信', 7981,5000,'Programmer' ); insert into emp_addr_table values (7369,5000,800,20, address_type('玉兰一街','二巷','深圳','DG',523343)); --检索对象表 value函数 select value(e) from emp_obj_table e; declare o_emp employee_personobj; begin select value(e) into o_emp from emp_obj_table e where e.person_name='张小五'; dbms_output.put_line(o_emp.person_name||'的职位是:'||o_emp.job); end; create type address as object( street varchar2(35), city varchar2(15), state char(2), zip_code integer ); create table addresses of address; create type person as object( person_name varchar2(15), birthday date, home_address ref address, --使用ref关键字,指定属性为指向另一个对象表的对象 phone_number varchar2(15) ); create table persons of person; insert into addresses values(address('玉兰','深圳','GD','523345')); insert into addresses values(address('黄甫','广州','GD','523000')); insert into persons values (person('王小五', to_date('1983-01-01','yyyy-mm-dd'), (select REF(a) from addresses a where street='玉兰'),'16899188')); select person_name,deref(home_address) as home from persons --更新对象表 update emp_obj_table empobj set empobj.gender='M' where empobj.person_name='张小五'; --删除对象表 delete from emp_obj_table where person_name='张小五'; --定义emp_tbl_obj对象类型 create or replace type emp_tbl_obj as object( empno number(6), ename varchar2(10), job varchar2(18), mgr number(4), hiredate date, sal number(7,2), comm number(7,2), deptno number(2), member function get_emp_info return varchar2 ) instantiable not final; create or replace type body emp_tbl_obj as member function get_emp_info return varchar2 is begin return '员工编号:' || self.empno||'员工名称:'||self.ename||'职位:' ||self.job; end; end; create view emp_view of emp_tbl_obj with object identifier(empno) as select e.empno,e.ename,e.job,e.mgr,e.hiredate,e.sal,e.comm,e.deptno from emp e; --使用对象类型的视图 declare o_emp emp_tbl_obj; begin select value(e) into o_emp from emp_view e where empno=7369; DBMS_OUTPUT.put_line('员工'||o_emp.ename||' 的薪资为'||o_emp.sal); dbms_output.put_line(o_emp.get_emp_info); end; --查看对象类型 attribute对象属性的个数,final指定对象是否可继承 select type_name,attributes,final,typecode from user_types where type_name like 'EMP%' and typecode='OBJECT'; --修改对象类型 alter type employee_personobj add attribute mgr number(6) cascade; --删除sal属性 alter type employee_personobj drop attribute sal cascade; desc employee_personobj; --修改对象类型的成员方法 alter type employee_personobj drop member function get_emp_info return varchar2 cascade; alter type employee_personobj add member function get_employee return varchar2 cascade; create or replace type body employee_persvarchar2 is....end; onobj as member function get_emmloyee return 如果从基类删除一个方法,必须修改覆盖被删除方法的子类 用alter type的casade选择判断是否有子类被影响 (1)先从子类删除方法 (2)从基类删除方法,然后用不带overriding关键字的 alter type把它重新添加进去 ```