实验3PLSQL编程

.

6.

create or replace procedure emp_count as v_total number; begin

select count(*) into v_total from scott.emp; dbms_output.put_line('雇员总数：'||v_total); end; /

SQL> execute emp_count; 雇员总数：15

PL/SQL 过程已成功完成。

SQL> begin

2 emp_count; 3 end; 4 /

雇员总数：15

PL/SQL 过程已成功完成。

.

.

7.

1 CREATE OR REPLACE PROCEDURE EMP_LIST 2 AS

3 CURSOR emp_cursor IS

4 SELECT empno,ename FROM scott.emp; 5 BEGIN

6 FOR Emp_record IN emp_cursor LOOP

7 DBMS_OUTPUT.PUT_LINE(Emp_record.empno||Emp_record.ename); 8 END LOOP; 9 EMP_COUNT; 10* END; SQL> /

过程已创建。

.

.

8.

SQL> CREATE OR REPLACE PROCEDURE select_emp 2 (v_emp_no IN emp.empno%type) 3 IS

4 v_emp_name emp.ename%type; 5 v_dept_name dept.dname%type; 6 BEGIN

7 SELECT EMP.ENAME,DEPT.DNAME 8 INTO v_emp_name, v_dept_name 9 FROM EMP,DEPT

10 WHERE EMP.DEPTNO=DEPT.DEPTNO AND EMPNO = v_emp_no; 11 DBMS_OUTPUT.PUT_LINE(v_emp_name||' '||v_dept_name); 12 END select_emp; 13 /

过程已创建。

SQL> EXECUTE select_emp(7844); TURNER SALES

PL/SQL 过程已成功完成。

SQL> CREATE OR REPLACE TRIGGER update_dept_to_emp 2 AFTER UPDATE ON DEPT FOR EACH ROW 3 BEGIN

4 IF UPDATING THEN

5 UPDATE EMP SET DEPTNO = :new.DEPTNO 6 WHERE DEPTNO=:old.DEPTNO; 7 END IF;

8 END update_dept_to_emp; 9 /

.

.

触发器已创建

9.

CREATE OR REPLACE TRIGGER tr_reg_dep AFTER update OF deptno ON dept

FOR EACH ROW BEGIN

DBMS_OUTPUT.PUT_LINE('旧的deptno值是'||:old.deptno ||'、新的deptno值是'||:new.deptno); UPDATE emp SET deptno = :new.deptno WHERE deptno = :old.deptno; END;

.