alter alter user system identified by systempass;
以system用户身份登陆sqlplus后执行：
Create table test_system(ename varchar2(20), mgrname varchar2(20)); Insert into test_system values(‘员工’,’领导’);
select * from test_system; grant select on test_system to SCOTT; (10) revoke select on test_system from SCOTT; rollback;
现象： 不报错，但回滚没有起作用，revoke操作自动提交； (11) drop table test_system; rollback; 现象同上；
2、数据库对象练习
实验一 PL/SQL语法训练
1. 实验内容与目的
掌握基本的编程语法，编写PL/SQL程序完成简单的任务； 2. 实验步骤
(1) 用PL/SQL将EMP表中职员'SMITH'的工资增加100元，并提交给数据库; (2) 若MARTIN的佣金不足1500元，则将其工资提为1500元;
(3) 查询职业为CLERK，且比他的上司受雇时间早的职工的名字及其上司的
名字，并将存入新建的表NAME中。用两种方法来解答：①用光标WHILE循环实现；②用光标FOR循环实现。 (4) 步骤（3）中，设工作为 CLERK的职员不能是公司中最先受聘的员工，
若发生这种情况，将该职员提升为经理（MANAGER）。 3. 实验答案
(1) 程序如下：
declare
name varchar2(10):=’SMITH’; begin
update emp set sal=sal+100 where ename=name; commit; end;
5
(2) 程序如下:
declare
salary number(7,2); begin select nvl(comm,0) into salary from emp where ename=’MARTIN’; if salary < 1500 then update emp set sal=1500 where ename=’MARTIN’; end if; commit; end; (3) 程序如下:
WHILE循环实现 declare cursor c1 is
select e1.ename, e2.ename from emp e1,emp e2 where e1.job='CLERK' and e1.mgr=e2.empno and e1.hiredate < e2.hiredate; empname emp.ename%TYPE; mgrname emp.ename%TYPE; begin
open c1;
fetch c1 into empname,mgrname; while c1%FOUND loop insert into name values(empname, mgrname); fetch c1 into empname,mgrname; end loop; close c1; end;
FOR循环实现: declare cursor c1 is
select e1.ename empname, e2.ename mgrname from emp e1,emp e2 where e1.job='CLERK' and e1.mgr=e2.empno and e1.hiredate < e2.hiredate; emp_rec c1%ROWTYPE; begin
6
for emp_rec in c1 loop insert into name values(emp_rec.empname, emp_rec.mgrname); end loop; end; (4) 程序如下:
declare edate date; sdate date; begin
select min(hiredate) into edate from emp;
select min(hiredate) into sdate from emp where job='CLERK';
if sdate = edate then update emp set job='MANAGER' where hiredate=sdate and job=’CLERK’; end if; end;
实验二 数据库对象练习
1. 实验内容与目的
掌握创建索引、视图、触发器等数据库对象的办法；
了解相关的数据字典表：user_objects, user_source, user_constraints…… 2. 实验步骤
(1) 根据EMP表建立一个雇员和经理对应表ETAB，所用的列名如下：
? 雇员姓名； ? 经理姓名； ? 部门编号； ? 部门名称；
(2) 对上表的前两列建立素引，并将索引命名为EINDX。
(3) 根据EMP表建立包含上表数据的视图EVIEW，要求没有重复记录; (4) 创建一个序列ESEQ。
(5) 修改ETAB表，增加一列存放序列的取值，并从EMP和DEPT表中将相
应数据填充到ETAB中。 (6) 给ETAB表新增加的列增加主键约束。
7
(7) 在EMP表上编写一个触发器，审计任何对Sal和comm列的修改（将每次
修改此两列的数据库用户，修改的时间，修改的用户，改前和改后此两列的值存入新建的一个审计表中），然后测试其工作是否正常。 3. 实验答案
(1) create table etab(
empname varchar2(10), mgrname varchar2(10), deptno number(2), deptname varchar2(14) );
(2) create index eindx on etab(empname,mgrname);
(3) create view eview as select distinct e1.ename empname,e2.ename
mgrname,e1.deptno deptno,dname deptname from emp e1,emp e2,dept where e1.mgr=e2.empno and e1.deptno=dept.deptno; (4) create sequence eseq increment by 1 start with 10000 maxvalue 19999; (5) alter table etab add( no number(5));
insert into etab select e1.ename empname,e2.ename mgrname,e1.deptno deptno,dname deptname,eseq.nextval from emp e1,emp e2,dept where e1.mgr=e2.empno and e1.deptno=dept.deptno
(6) alter table etab add ( constraint c1 primary key(no)); (7)
create table audit_emp ( database_user modify_date modify_user );
varchar2(30), date,
number(4),
sal_before_update number(7,2), sal_after_update number(7,2), comm_before_update number(7,2), comm_after_update number(7,2)
create or replace trigger audit_emp before update of sal, comm on emp for each row
8
