oracle第三天

Posted 2020-08-02 zhaoshuzhan

HelloWorld.sql

set serveroutput on

declare
--说明部分
begin
--程序
dbms_output.put_line(‘Hello World‘);
end;
/

if语句.sql

--判断用户输入的数字

set serveroutput on

--接收键盘输入
--num: 地址值，在该地址上，存了输入的值
accept num prompt ‘请输入一个数字‘;

declare
--定义变量保存输入的数字
--隐式转换
pnum number := #
begin

if pnum = 0 then dbms_output.put_line(‘您输入的是0‘);
elsif pnum = 1 then dbms_output.put_line(‘您输入的是1‘);
elsif pnum = 2 then dbms_output.put_line(‘您输入的是2‘);
else dbms_output.put_line(‘其他数字‘);
end if;
end;
/

带参数的光标.sql

--查询某个部门中员工的姓名

set serveroutput on

declare
--带参数的光标
cursor cemp(dno number) is select ename from emp where deptno=dno;
pename emp.ename%type;
begin
open cemp(20);
loop
fetch cemp into pename;
exit when cemp%notfound;

dbms_output.put_line(pename);

end loop;
close cemp;
end;
/

给员工涨工资.sql

--涨工资 总裁1000 经理800 其他400

set serveroutput on

declare
cursor cemp is select empno,empjob from emp;
pempno emp.empno%type;
pjob emp.empjob%type;
begin
rollback;

open cemp;
loop
--取一个员工 涨工资
fetch cemp into pempno,pjob;
exit when cemp%notfound;

--判断职位
if pjob = ‘PRESIDENT‘ then update emp set sal=sal+1000 where empno=pempno;
elsif pjob = ‘MANAGER‘ then update emp set sal=sal+800 where empno=pempno;
else update emp set sal=sal+400 where empno=pempno;
end if;

end loop;

close cemp;

--事务的隔离级别
commit;

dbms_output.put_line(‘涨工资完成‘);
end;
/

 光标

 

--使用游标查询员工姓名和工资，并打印

/*
1. 光标的属性
%isopen: 是否打开
%rowcount: 行数
%notfound: 没有记录

2. 默认允许一次打开300个光标(修改光标： 第四天 管理方案)
SQL> show parameters cursor

NAME TYPE VALUE
------------------------------------ ----------- -------
cursor_sharing string EXACT
cursor_space_for_time boolean FALSE
open_cursors integer 300
session_cached_cursors integer 20
*/

set serveroutput on

declare
--定义光标代表员工集合
cursor cemp is select ename,sal from emp;
pename emp.ename%type;
psal emp.sal%type;
begin
open cemp;

loop
--取一个员工
fetch cemp into pename,psal;

--退出条件
exit when cemp%notfound;

dbms_output.put_line(pename||‘的薪水是‘||psal);

end loop;

close cemp;
end;
/

 记录型变量

----查询并打印7839的姓名和薪水

set serveroutput on

declare
--记录型变量 代表一行
emp_rec emp%rowtype;
begin

select * into emp_rec from emp where empno=7839;

dbms_output.put_line(emp_rec.ename||‘的薪水是‘||emp_rec.sal);
end;
/

实例1

/*
实例1：统计每年入职的员工个数。

SQL语句
1. select to_char(hiredate,‘RR‘) from emp; --> 光标 --> 循环(notfound)
2. count80 number := 0;
count81 number := 0;
count82 number := 0;
count87 number := 0;
*/
set serveroutput on

declare
cursor cemp is select to_char(hiredate,‘RR‘) from emp;
phiredate varchar2(4);

--计数器
count80 number := 0;
count81 number := 0;
count82 number := 0;
count87 number := 0;
begin
open cemp;
loop
--取一个员工
fetch cemp into phiredate;
exit when cemp%notfound;

--判断年份
if phiredate = ‘80‘ then count80:=count80+1;
elsif phiredate = ‘81‘ then count81:=count81+1;
elsif phiredate = ‘82‘ then count82:=count82+1;
else count87:=count87+1;
end if;

end loop;
close cemp;

dbms_output.put_line(‘Total:‘||(count80+count81+count82+count87));
dbms_output.put_line(‘80:‘||count80);
dbms_output.put_line(‘81:‘||count81);
dbms_output.put_line(‘82:‘||count82);
dbms_output.put_line(‘87:‘||count87);
end;
/

 实例2

/*
为员工长工资。从最低工资调起每人长10％，但工资总额不能超过5万元,
请计算长工资的人数和长工资后的工资总额，并输出输出长工资人数及工资总额。

SQL语句:
1. select empno,sal from emp order by sal;-->光标 -->循环(1. > 5w 2. 涨完)
2. countEmp number := 0;
3. 长工资后的工资总额: *. select sum(sal) from emp
*. 涨后=涨前+sal*0.1 (*)

练习： 工资<5w
*/
set serveroutput on
declare
cursor cemp is select empno,sal from emp order by sal;
pempno emp.empno%type;
psal emp.sal%type;

--人数
countEmp number := 0;

--工资总额
salTotal number;
begin
--初始的工资总额
select sum(sal) into salTotal from emp;

open cemp;
loop
--第一个退出条件
exit when salTotal> 50000;

--取一个员工
fetch cemp into pempno,psal;

--第二个退出条件
exit when cemp%notfound;

--涨工资
update emp set sal =sal *1.1 where empno=pempno;

--人数
countEmp := countEmp+1;


--工资总额
salTotal := salTotal + psal *0.1;
end loop;
close cemp;

commit;

dbms_output.put_line(‘人数:‘||countEmp||‘ 工资总额:‘||salTotal);

end;
/

 

实例3

 

/*
用PL/SQL语言编写一程序，实现按部门分段（6000以上、(6000，3000)、3000元以下)
统计各工资段的职工人数、以及各部门的工资总额(工资总额中不包括奖金)

SQL语句
1. 部门: select deptno from dept; --> 光标 --> 循环
2. 部门中员工的薪水: select sal from emp where deptno=??? --> 带参数的光标 --> 循环
3. count1 number; count2 number; count3 number;
4. 部门工资总额: salTotal number;
select sum(sal) into salTotal from emp where deptno=???
*/
set serveroutput on

declare
--部门
cursor cdept is select deptno from dept;
pdeptno dept.deptno%type;

--部门中员工的薪水
cursor cemp(dno number) is select sal from emp where deptno=dno;
psal emp.sal%type;

--计数器
count1 number; count2 number; count3 number;

--部门的工资总额
salTotal number;
begin
open cdept;
loop
--取一个部门
fetch cdept into pdeptno;
exit when cdept%notfound;

--初始化
count1:=0;count2:=0;count3:=0;

--部门的工资总额
select sum(sal) into salTotal from emp where deptno=pdeptno;

--部门中员工的薪水
open cemp(pdeptno);
loop
--取一个员工的薪水cl
fetch cemp into psal;
exit when cemp%notfound;

--判断
if psal< 3000 then count1:=count1+1;
elsif psal>=3000 and psal<6000 then count2:=count2+1;
else count3:=count3+1;
end if;

end loop;
close cemp;

-- 保存当前结果
insert into msg1 values(pdeptno,count1,count2,count3,nvl(salTotal,0));

end loop;
close cdept;

commit;

dbms_output.put_line(‘完成‘);
end;
/

系统例外

--被0除

set serveroutput on

declare
pnum number;
begin
pnum := 1/0;

exception
when Zero_Divide then dbms_output.put_line(‘1:0不能做被除数‘);
dbms_output.put_line(‘2:0不能做被除数‘);
when Value_error then dbms_output.put_line(‘算术或转换错误‘);
when others then dbms_output.put_line(‘其他例外‘);
end;
/

--打印1~10

set serveroutput on

declare
pnum number := 1;
begin
loop
--退出循环
exit when pnum > 10;

dbms_output.put_line(pnum);

--加一
pnum := pnum + 1;

end loop;
end;
/

引用型变量

--查询并打印7839的姓名和薪水

set serveroutput on

declare
--定义引用型变量
pename emp.ename%type;
psal emp.sal%type;
begin

--查询7839的姓名和薪水
select ename,sal into pename,psal from emp where empno=7839;

-- 打印
dbms_output.put_line(pename||‘的薪水是‘||psal);
end;
/

自定义例外

--查询50号部门的员工

set serveroutput on

declare
cursor cemp is select ename from emp where deptno=50;
pename emp.ename%type;

--自定义例外
no_emp_found exception;
begin
open cemp;

--取一个员工
fetch cemp into pename;

if cemp%notfound then
--抛出例外
raise no_emp_found;
end if;

--当抛出例外，自动关闭
close cemp;

exception
when no_emp_found then dbms_output.put_line(‘没有找到员工‘);
when others then dbms_output.put_line(‘其他例外‘);
end;
/

out参数

/*
create [or replace] PROCEDURE 过程名(参数列表)
AS
PLSQL子程序体；
查询并返回某个员工的姓名 月薪和职位

思考: out参数太多???
*/
create or replace procedure queryEmpInfo(eno in number,
pename out varchar2,
psal out number,
pjob out varchar2)
as
begin
select ename,sal,empjob into pename,psal,pjob from emp where empno=eno;

end;
/

触发器应用场景二

/*
数据确认

涨后的薪水不能少于涨前的薪水
CREATE [or REPLACE] TRIGGER 触发器名
{BEFORE | AFTER}
{DELETE | INSERT | UPDATE [OF 列名]}
ON 表名
[FOR EACH ROW [WHEN(条件) ] ]
PLSQL 块

*/
create or replace trigger checksal
before update
on emp
for each row
begin
--if 涨后的薪水< 涨前的薪水 then
if :new.sal < :old.sal then
raise_application_error(-20002,‘涨后的薪水不能少于涨前的薪水.涨前:‘||:old.sal||‘ 涨后:‘||:new.sal);
end if;
end;
/

触发器应用场景一

/*
实施复杂的安全性检查

禁止在非工作时间 往emp表中插入数据
CREATE [or REPLACE] TRIGGER 触发器名
{BEFORE | AFTER}
{DELETE | INSERT | UPDATE [OF 列名]}
ON 表名
PLSQL 块

周末:to_char(sysdate,‘day‘) in (‘星期六‘,‘星期日‘)
上班前 下班后: to_number(to_char(sysdate,‘hh24‘)) not between 9 and 18
*/
create or replace trigger securityEmp
before insert
on emp
begin
if to_char(sysdate,‘day‘) in (‘星期六‘,‘星期日‘) or
to_number(to_char(sysdate,‘hh24‘)) not between 9 and 18 then

raise_application_error(-20001,‘不能在非工作时间插入数据‘);

end if;
end;
/

存储函数

/*
CREATE [OR REPLACE] FUNCTION 函数名(参数列表)
RETURN 函数值类型
AS
PLSQL子程序体；

查询某个员工的年收入

*/
create or replace function queryEmpIncome(eno in number)
return number
as
psal emp.sal%type;
pcomm emp.comm%type;
begin

select sal,comm into psal,pcomm from emp where empno=eno;

return psal*12+nvl(pcomm,0);
end;
/

带参数的存储过程

/*
create [or replace] PROCEDURE 过程名(参数列表)
AS
PLSQL子程序体；

为指定的员工涨100块钱 并打印涨前和涨后的薪水
*/
create or replace procedure raiseSalary(eno in number)
as
psal emp.sal%type;
begin
--涨前薪水
select sal into psal from emp where empno=eno;

--涨100
update emp set sal=sal+100 where empno=eno;

--要不要commit???

dbms_output.put_line(‘涨前:‘||psal||‘ 涨后:‘||(psal+100));

end;
/

第一个触发器

/*
成功插入员工后，自动输出“成功插入一个新员工”
CREATE [or REPLACE] TRIGGER 触发器名
{BEFORE | AFTER}
{DELETE | INSERT | UPDATE [OF 列名]}
ON 表名
PLSQL 块

*/
create or replace trigger sayNewEmp
after insert
on emp
begin
dbms_output.put_line(‘成功插入一个新员工‘);
end;
/

第一个存储过程

/*
create [or replace] PROCEDURE 过程名(参数列表)
AS
PLSQL子程序体；

打印Hello World

调用存储过程
1. exec sayHelloWorld();
2. begin
sayHelloWorld();
sayHelloWorld();
end;
/
*/

create or replace procedure sayHelloWorld
as
--说明部分
begin
dbms_output.put_line(‘Hello World‘);

end;
/