--Oracle 9i 实例数据脚本地址:$oracle_home/rdbms/admin/utlsampl.sql
CREATE TABLE DEPT
(DEPTNO NUMBER(2) CONSTRAINT PK_DEPT PRIMARY KEY,
DNAME VARCHAR2(14) ,
LOC VARCHAR2(13) ) ;
CREATE TABLE EMP
(EMPNO NUMBER(4) CONSTRAINT PK_EMP PRIMARY KEY,
ENAME VARCHAR2(10),
JOB VARCHAR2(9),
MGR NUMBER(4),
HIREDATE DATE,
SAL NUMBER(7,2),
COMM NUMBER(7,2),
DEPTNO NUMBER(2) CONSTRAINT FK_DEPTNO REFERENCES DEPT);
INSERT INTO DEPT VALUES
(10,'ACCOUNTING','NEW YORK');
INSERT INTO DEPT VALUES (20,'RESEARCH','DALLAS');
INSERT INTO DEPT VALUES
(30,'SALES','CHICAGO');
INSERT INTO DEPT VALUES
(40,'OPERATIONS','BOSTON');
INSERT INTO EMP VALUES
(7369,'SMITH','CLERK',7902,to_date('17-12-1980','dd-mm-yyyy'),800,NULL,20);
INSERT INTO EMP VALUES
(7499,'ALLEN','SALESMAN',7698,to_date('20-2-1981','dd-mm-yyyy'),1600,300,30);
INSERT INTO EMP VALUES
(7521,'WARD','SALESMAN',7698,to_date('22-2-1981','dd-mm-yyyy'),1250,500,30);
INSERT INTO EMP VALUES
(7566,'JONES','MANAGER',7839,to_date('2-4-1981','dd-mm-yyyy'),2975,NULL,20);
INSERT INTO EMP VALUES
(7654,'MARTIN','SALESMAN',7698,to_date('28-9-1981','dd-mm-yyyy'),1250,1400,30);
INSERT INTO EMP VALUES
(7698,'BLAKE','MANAGER',7839,to_date('1-5-1981','dd-mm-yyyy'),2850,NULL,30);
INSERT INTO EMP VALUES
(7782,'CLARK','MANAGER',7839,to_date('9-6-1981','dd-mm-yyyy'),2450,NULL,10);
INSERT INTO EMP VALUES
(7788,'SCOTT','ANALYST',7566,to_date('13-7-87','dd-mm-rr')-85,3000,NULL,20);
INSERT INTO EMP VALUES
(7839,'KING','PRESIDENT',NULL,to_date('17-11-1981','dd-mm-yyyy'),5000,NULL,10);
INSERT INTO EMP VALUES
(7844,'TURNER','SALESMAN',7698,to_date('8-9-1981','dd-mm-yyyy'),1500,0,30);
INSERT INTO EMP VALUES
(7876,'ADAMS','CLERK',7788,to_date('13-7-87', 'dd-mm-rr')-51,1100,NULL,20);
INSERT INTO EMP VALUES
(7900,'JAMES','CLERK',7698,to_date('3-12-1981','dd-mm-yyyy'),950,NULL,30);
INSERT INTO EMP VALUES
(7902,'FORD','ANALYST',7566,to_date('3-12-1981','dd-mm-yyyy'),3000,NULL,20);
INSERT INTO EMP VALUES
(7934,'MILLER','CLERK',7782,to_date('23-1-1982','dd-mm-yyyy'),1300,NULL,10);
CREATE TABLE BONUS
(
ENAME VARCHAR2(10) ,
JOB VARCHAR2(9) ,
SAL NUMBER,
COMM NUMBER
) ;
CREATE TABLE SALGRADE
( GRADE NUMBER,
LOSAL NUMBER,
HISAL NUMBER );
INSERT INTO SALGRADE VALUES (1,700,1200);
INSERT INTO SALGRADE VALUES (2,1201,1400);
INSERT INTO SALGRADE VALUES (3,1401,2000);
INSERT INTO SALGRADE VALUES (4,2001,3000);
INSERT INTO SALGRADE VALUES (5,3001,9999);
COMMIT;
EXIT
select rowid,emp.* from emp;
SELECT emp.empno,dept.deptno from emp,dept where emp.deptno=dept.deptno and dept.deptno>=20;
SELECT * FROM EMP;
DECLARE
v_EmpName VARCHAR2(50);
BEGIN
SELECT EName Into v_EmpName FROM Scott.EMP WHERE empNo=&EmpNo;
DBMS_OUTPUT.PUT_LINE('当前查询的员工编号为：'||&EmpNo||'员工名称为：'||v_EmpName);
END;
--开启屏幕输出显示
--SET SERVEROUTPUT ON;
--显示当前日期与时间
BEGIN
DBMS_OUTPUT.PUT_LINE('现在的日期时间：');
--显示信息不换行
DBMS_OUTPUT.PUT('今天是：');
--显示信息并换行
DBMS_OUTPUT.PUT_LINE(TO_CHAR(SYSDATE,'DAY'));
DBMS_OUTPUT.PUT('现在时间是： ');
DBMS_OUTPUT.PUT_LINE(TO_CHAR(SYSDATE,'YYYY-MM-DD HH24:MI:SS'));
END;
--分支结构示例，演示为员工加薪
DECLARE
--定义加薪比率常量
c_Manager CONSTANT NUMBER:=0.15;
c_SalesMan CONSTANT NUMBER:=0.12;
c_Clerk CONSTANT NUMBER:=0.10;
--定义工种变量
v_Job VARCHAR(100);
empNo1 NUMBER(4):=7369;
BEGIN
--查询指定员工编码的员工信息
SELECT job INTO v_Job FROM emp WHERE empno=empNo1;
--执行分支判断
IF v_Job='CLERK' THEN
UPDATE emp SET SAL=SAL*(1+c_Clerk) WHERE empno=empNo1;
ELSIF v_Job='SALESMAN' THEN
UPDATE emp SET SAL=SAL*(1+c_SalesMan) WHERE empno=empNo1;
ELSIF v_Job='MANAGER' THEN
UPDATE emp SET SAL=SAL*(1+c_Manager) WHERE empno=empNo1;
END IF;
--显示完成信息
DBMS_OUTPUT.PUT_LINE('已经为员工'||empNo1||'成功加薪!');
EXCEPTION
--处理PL/SQL预定义异常
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('没有找到员工数据');
END;
--循环结构示例，演示循环为所有员工加薪
DECLARE
--定义加薪比率常量
c_Manager CONSTANT NUMBER:=0.15;
c_SalesMan CONSTANT NUMBER:=0.12;
c_Clerk CONSTANT NUMBER:=0.10;
v_Job VARCHAR(100); --定义职位变量
v_EmpNo VARCHAR(20); --定义员工编号变量
v_Ename VARCHAR(60); --定义员工名称变量
CURSOR c_Emp IS SELECT job,empno,ename from emp FOR UPDATE;
BEGIN
OPEN c_Emp; --打开游标
LOOP --循环游标
FETCH c_Emp INTO v_Job,v_EmpNo,v_Ename; --提取游标数据
EXIT WHEN c_Emp%NOTFOUND; --如果无数据可提取退出游标
IF v_Job='CLERK' THEN --如果为职员，加薪10%
UPDATE emp SET SAL=SAL*(1+c_Clerk) WHERE CURRENT OF c_Emp;
ELSIF v_Job='SALESMAN' THEN --如果为销售职员，加薪12%
UPDATE emp SET SAL=SAL*(1+c_SalesMan) WHERE CURRENT OF c_Emp;
ELSIF v_Job='MANAGER' THEN --如果为经理，加薪15%
UPDATE emp SET SAL=SAL*(1+c_Manager) WHERE CURRENT OF c_Emp;
END IF;
--显示完成信息
DBMS_OUTPUT.PUT_LINE('已经为员工'||v_EmpNo||':'||v_Ename||'成功加薪!');
END LOOP;
CLOSE c_Emp; --关闭游标
EXCEPTION
WHEN NO_DATA_FOUND THEN --处理PL/SQL预定义异常
DBMS_OUTPUT.PUT_LINE('没有找到员工数据');
END;
CREATE OR REPLACE FUNCTION GetAddSalaryRatio(p_Job VARCHAR2)
RETURN NUMBER AS
v_Result NUMBER(7,2);
BEGIN
IF p_Job='CLERK' THEN --如果为职员，加薪10%
v_Result:=0.10;
ELSIF p_Job='SALESMAN' THEN --如果为销售职员，加薪12%
v_Result:=0.12;
ELSIF p_Job='MANAGER' THEN --如果为经理，加薪15%
v_Result:=0.15;
END IF;
RETURN v_Result;
END;
CREATE OR REPLACE FUNCTION GetAddSalaryRatioCASE(p_Job VARCHAR2)
RETURN NUMBER AS
v_Result NUMBER(7,2);
BEGIN
CASE p_Job --使用CASE WHEN语句进行条件判断
WHEN 'CLERK' THEN --职员
v_Result:=0.10;
WHEN 'SALESMAN' THEN --销售
v_Result:=0.12;
WHEN 'MANAGER' THEN --经理
v_Result:=0.15;
END CASE;
RETURN v_Result; --返回值
END;
BEGIN
DBMS_OUTPUT.PUT_LINE(GetAddSalaryRatio('bc'));
END;