/*给emp表添加记录的存储过程*/ create or replace procedure ins_table_emp(p_emp_id number,p_emp_name varchar2,p_emp_salary number) as v_emp_id number:=p_emp_id; v_emp_name varchar2(20):=p_emp_name; v_emp_salary number:=p_emp_salary; begin insert into emp values (v_emp_id,v_emp_name,v_emp_salary); end ins_table_emp;
/*给dept表添加记录的存储过程*/ create or replace procedure ins_table_dept(p_dept_id number,p_dept_name varchar2,p_emp_id number) as v_dept_id number:=p_dept_id; v_dept_name varchar2(20):=p_dept_name; v_emp_id number:=p_emp_id; begin insert into dept values (v_dept_id,v_dept_name,v_emp_id); end ins_table_emp;
/*调用相应的存储过程实现记录添加*/ begin ins_table_emp(10000,'',4000); ins_table_emp(10001,'??èy',2300); ins_table_emp(10002,'3?t',3500); ins_table_emp(10003,'à???',3500); ins_table_emp(10004,'á?ò?',3500);
create or replace procedure add_salary(p_dept_name varchar2) as v_dept_name varchar2(20):=p_dept_name; begin update emp set emp.EMP_SALARY=emp.EMP_SALARY*1.2 where emp.EMP_ID in (select emp.EMP_ID from emp,dept where emp.EMP_ID=dept.EMP_ID and dept.DEPT_ID='??ê?2?'); end add_salary; 要求3：
/*包头部分*/ create or replace package debug as procedure debug(v_description varchar2,v_valueOfvariable varchar2) procedure reset; v_numberOfLine number; end debug; /*包体部分*/ create or replace package body debug as procedure debug(v_description varchar2,v_valueOfvariable varchar2) is begin insert into debugtable values(v_numberOfLine,v_description,v_valueOfvariable); v_numberOfLine:=v_numberOfLine+1; end debug; procedure reset is begin v_numberOfLine:=1; delete from debugtable; end reset; /*初始化部分*/ begin reset; end debug; 三．小结
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
