PLSQL语言（二）

 

24 比普通员工最高薪水还要高的经理人

select ename from emp where empno in
(select distinct mgr from emp where mgr is not null)
and sal >
(
    select max(sal) from emp where empno not in
    (select distinct mgr from empwhere mgr is not null)
)

/

求部门经理人中平均薪水最低的部门名称



求薪水最高的前5名员工

select ename ,sal from (
select ename,sal from emp order by sal desc)
where rownum <=5


求薪水最高的第6到第10名员工（重点掌握）

select ename,sal from (
select rownum r,ename,sal from
(
select ename,sal from emp order by sal desc
))
where r >5 and r <= 10

1-- backup scott
    exp

2-- create user
    create user jetwu identified by jetwu default tablespace users quota 10M on users
    grant create session--登录权限, create table, create view to jetwu

3-- import the data
    imp


--备份一张表
create table emp2 as select * from emp;

insert into dept2 select * from dept;

rownum
--取15条记录中后5条记录值
select ename from (select rownum r, ename from emp) where r > 10;

--取薪水最高的5个人
select ename, sal from
(select ename,sal from emp order by sal desc) where rownum <=5;

--取薪水最高的6到10
select ename, sal from
(
  select ename, sal, rownum r from
  (
  select ename, sal from emp order by sal desc
  )
)
where r >=6 and r <=10;


3张表S,C,SC
S(SNO,SNAME)
C(CNO,CNAME,CTEACHER)
SC(SNO,CNO,SCGRADE)
1.找出没选过黎明老师的所有学生姓名
2.列出2门以上(含2门)不及格学生姓名及平均成绩
3.即学过1号课又学过2号课所有学生的姓名
1.select ename from s join sc on(s.sno=sc.sno) join c on(c.cno = sc.cno) where c.cteacher <> '黎明';
2.select s.sname sc.avg(scgrade) from s s,sc sc where s.sno = sc.sno and
 sc.scgrade < 60 group by sc.sno having count(*) >=2

3.
select sname from s join sc on (s.sno=(
select sno from sc where cno = 1 and sno in (select distinct sno from sc where cno = 2)));

28 字段约束，是将约束加在字段后面

   非空约束  constraint xxx not null

   唯一约束  unique

   两个空值不认为是重复的

   表级约束,  constraint xxxx(名字随便起) unique(email[字段名],name[字段名])    {表示这两个字段的组合不能为空}

29 主键约束
    primary key (唯一的不可重复的不可为空的)
   外键约束
    references 表名（字段）
    写成表级约束
    constraint xxx foreign key (字段名) references 外表名（外表字段）

如：create table stu(
        id int,
    name varchar(50) constraint aaa not null,
    class1 number(6) ,
    email varchar(30) ,
    constraint stu_class_id foreign key (class1) references class(id),
    constraint xxx unique(name,email)
    );

    create table class(
     id number(6) primary key,
     name varchar2(10)
    )



31 修改表结构 alter

   增加字段
    alter table 表名 add(字段名，参数)
    如：alter table stu add(school,varchar2(20));

   删除字段
    alter table 表名 drop(字段名)
    如：alter table stu drop(school);

   修改字段
    alter table 表名 modify(字段名，参数)
    如：alter table stu modify(email,varchar(50))


33  索引

一个表如果加了 “主键限制”，“唯一限制”，“组合限制”

oracle会自动生成索引

索引创建格式

create index xxx(索引名随便起，最好见名知义) on 表名（字段名）
如：create index index_stu_email on stu(email);

删除索引

drop index xxx;

显示数据库中有什么索引

select index_name from user_indexes;

第一范式-要有主键,列不可分,

第二范式-不能存在部分依赖，不是主键的字段不能部分依赖主键

第三范式-除了主键外的字段不能存在传递依赖


PL SQL显示
pl/sql 面向过程的sql 带有分支和循环的sql

匿名块 ：没有名字的程序

PL/SQL分为四块

declare 定义变量（可有可无）
begin 程序从这里开始（必须）
exception 有异常时执行
end;（必须）

如：
    set serveroutput on;(必须先执行这一命令，因为默认是OFF，如果是OFF的话，就不会输出)
    begin
        dbms_output.put_line('helloworld');
        end;

set serveroutput on;

declare
    v_name varchar2(20);
begin
    v_name := 'myname';
    dbms_output.put_line(v_name);
end;



declare
    v_num number :=0;
begin
    v_num := 2/v_num;
    dbms_output.put_line(v_num);
exception
    when others then
    dbms_output.put_line('error');
end;


--变量声明的规则

1.  变量名不能够使用保留字，如from，select等
2.  第一个字符必须是字母
3.  变量名最多包含30个字符
4.  不要与数据库的表或者列同名
5.  每一行只能声明一个变量

--常用变量类型

1.  binary_interger:整数，主要用来计数而不是用来表示字段类型
2.  number：数字类型
3.  char：定长字符串
4.  varchar2:变长字符串
5.  date：日期
6.  long：长字符串，最长2GB
7.  boolean：布尔类型，可以取值为true，false和null值


--变量声明
declare
    v_temp number(1);
    v_count binary_integer := 0;
    v_sal number(7,2) := 4000.00;
    v_date date := sysdate;
    v_pi constant number(3,2) := 3.14;
    v_valid boolean := false;
    v_name varchar(20) not null := 'MyName';
begin
    dbms_output.put_line('v_temp value:' || v_count);
end;
当变量声明为boolean类型时，该变量能不直接打印
如上面变量不能写成
    dbms_output.put_line(v_valid);

--变量声明，使用%type属性
declare
    v_empno number(4);
    v_empno2 emp.empno%type;
    v_empno3 v_empno2%type;
begin
    dbms_output.put_line('Test');
end;
当使用“%type” 声明变量时，该变量变得灵活，会随着表的字段的修改而自动修改


--Table变量类型    Table复合变量（相当于java中的数组）
declare
    type(关键字,说明是定义的新类型) type_table_emp_empno is table of emp.empno%type index by binary_integer;
    v_empnos type_table_emp_empno;
begin
    v_empnos(0) := 7369;
    v_empnos(2) := 7839;
    v_empnos(-1) := 9999;
    dbms_output.put_line(v_empnos(-1));
end;

--Record变量类型 （record变量相当于java中的类）
declare
    type type_record_dept is record
    (
        deptno dept.deptno%type,
        dname dept.dname%type,
        loc dept.loc%type
    );
    v_temp type_record_dept;
begin
    v_temp.deptno := 50;
    v_temp.dname := 'aaaa';
    v_temp.loc := 'bj';
    dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);
end;

--使用%rowtype声明record变量 （record变量相当于java中的类）可以随着表的改动自动更新变量
declare
    v_temp dept%rowtype;
begin
    v_temp.deptno := 50;
    v_temp.dname := 'aaaa';
    v_temp.loc := 'bj';
    dbms_output.put_line(v_temp.deptno || ' ' || v_temp.dname);
end;

--SQL语句的运用
在PL/SQL里面用select 必须加 “into”,且在select语句里面必须有且只能返回一条语句
declare
    v_ename emp.ename%type;
    v_sal emp.sal%type;
begin
    select ename,sal into v_ename,v_sal from emp where empno = 789;
    dbms_output.put_line(v_ename || ' ' || v_sal);
end;


declare
    v_ename emp.ename%type;
    v_sal emp.sal%type;
begin
    select ename,sal into v_ename,v_sal from emp where deptno = 10
    dbms_output.put_line(v_ename || ' ' || v_sal);
end;

--ddl在PL/SQL中的运用

创建表

在PL/SQL中创建表时，前面必须加“execute immediate” ，然后后面的建表语句用单引号引上
如果在单引号中，又出现单引号，则内部单引号用 （‘’）代表（‘）；
begin
    execute immediate 'create table t (nnn varchar2(20) default ''aaa'')';
end;


--游标 cursor

declare
    cursor c is
        select * from emp;
    v_emp c%rowtype;
begin
    open c;
    fetch c into v_emp;
    dbms_output.put_line(v_emp.ename);
    close c;
end;




declare
    cursor c is
        select * from emp;
    v_emp c%rowtype;
begin
    open c;
    loop

       fetch c into v_emp;
       exit when (c%notfound);
       dbms_output.put_line(v_emp.ename);
    end loop;
    close c;
end;


--循环遍历
declare
    cursor c is
        select * from emp;
    v_emp c%rowtype;
begin
    open c;
    loop

       fetch c into v_emp;
       dbms_output.put_line(v_emp.ename);
       exit when (c%notfound);

    end loop;
    close c;
end;

--IF语句

取出7369的薪水，如果 <1200 ，则输出‘low’，如果 <2000则输出‘middle’,否则'hign'

declare
    v_sal emp.sal%type;
begin
    select sal into v_sal from emp where empno = 7369;
    if(v_sal < 1200) then
        dbms_output.put_line('low');
    elsif(v_sal <2000) then                          //elsif这里中间的E是没有的
        dbms_output.put_line('middle');
    else
        dbms_output.put_line('hign');
    end if;
end;

循环 PL/SQL里面的循环一定是以LOOP 开始，以END LOOP结束

下面这个相当于 DO WHILE
declare
    i binary_integer := 1;
begin
    loop
        dbms_output.put_line(i);
        i := i + 1;
        exit when( i >= 11);
    end loop;
end;



下面相当于while循环
declare
    j binary_integer := 1;
begin
    while j < 11 loop
        dbms_output.put_line(i);
        j := j + 1;
    end loop;
end

--for循环
declare
    cursor c is
        select * from emp;
begin
    for v_emp in c loop
    dbms_output.put_line(v_emp.ename);
    end loop;
end;


--带参数的游标

declare
    cursor c(v_deptno emp.deptno%type, v_job emp.job%type)
    is
    select ename,sal from emp where deptno = v_deptno and job = v_job;
begin
    for v_temp in c(30,'CLERK') loop
        dbms_output.put_line(v_temp.ename);
    end loop;
end;


--可更新的游标
declare
    cursor c
    is
    select * from emp2 for update;
begin

    for v_temp in c loop
       if(v_temp.sal < 2000) then
        update emp2 set sal = sal*2 where current of c;
        elsif (v_temp.sal = 5000) then
            delete form emp2 where current of c;
        end if;
    end loop;
    commit;
end;


--存储过程
create or replace procedure p
is
--上面的替代declare，其他都一样
    cursor c is
        select * from emp2 for update;
begin
    for v_emp in c loop
        if (v_emp.deptno = 10) then
            update emp2 set sal = sal + 10 where current of c;
        elsif (v_emp.deptno = 20)
            update emp2 set sal = sal + 20 where current of c;
        else
            update emp2 set sal = sal + 50 where current of c;
        end if;
    end loop;
    commit;
end;

--执行存储过程
exec p;
另外一种执行方式
begin
p;
end;


--带参数的存储过程
create or replace procedure p
    (v_a in number, v_b number, v_ret out number,v_temp in out number )
is

begin
    if(v_a > v_b) then
        v_ret := v_a;
    else
        v_ret := v_b;
    end if;
    v_temp := v_temp + 1;
end;


declare
    v_a number := 3;
    v_b number := 4;
    v_ret number;
    v_temp number := 5;
begin
    p(v_a,v_b,v_ret,v_temp);
    dbms_output.put_line(v_ret);
    dbms_output.put_line(v_temp);
end;

--函数
create or replace function sax_tax
    (v_sal number)
    return number
is
begin
    if(v_sal < 2000) then
        return 0.10;
    elsif(v_sal < 2750) then
        return 0.15;
    else
        return 0.20;
    end if;
end;

--执行函数
select lower(ename), sal_tax(sal) from emp;


--触发器 当做一个件事的时候，一触动就会触发另一事件
create table emp2_log
(
uname varchar2(20),
action varchar2(10),
atime date
);

create or replace trigger trig
    after insert or delete or update on emp2 for each row
begin
    if inserting then
        insert into emp2_log values (USER, 'insert',sysdate);
    elsif updateing then
        insert into emp2_log values (USER, 'update',sysdate);
    elsif deleting then
        insert into emp2_log values (USER, 'delete',sysdate);
    end if;
end;

--触发器用于更新关联

create or replace trigger trig
    after update on dept
    for each row
begin
    update emp set deptno = :NEW.deptno where deptno = :OLD.deptno;
end;

应用
update dept set deptno = 99 where deptno = 10;--NEW.deptno:99  OLD.deptno:10


--树状结构的存储与展示
drop talbe article;

create table article
(
id number primary key,
cont varchar2(4000),
pid number,
isleaf number(1),    --0 代表非叶子节点,1代表叶子节点
alevel number(2)
);

insert into article values (1,'蚂蚁大战大象',0,0,0);
insert into article values (2,'大象被打趴下了',1,0,1);
insert into article values (3,'蚂蚁也不好过',2,1,2);
insert into article values (4,'瞎说',2,0,2);
insert into article values (5,'没有瞎说',4,1,3);
insert into article values (6,'怎么可能',1,0,1);
insert into article values (7,'怎么没有可能',6,1,2);
insert into article values (8,'可能性是很大的',6,1,2);
insert into article values (9,'大象进医院了',2,0,2);
insert into article values (10,'护士是蚂蚁',9,1,3);

蚂蚁大战大象
    大象被打趴下了
    蚂蚁也不好过
    瞎说
        没有瞎说
    大象进医院了
        护士是蚂蚁
    怎么可能
    怎么没有可能
    可能性是很大的


create or replace procedure p(v_pid article.pid%type, v_level binary_integer)
is
cursor c is select * from article where pid = v_pid;
v_preStr varchar2(1024) := '';
begin
    for i in 1..v_level loop
        v_preStr := v_preStr || '   |';
    end loop;

    for v_article in c loop
        dbms_output.put_line(v_preStr || v_article.cont);
        if(v_article.isleaf=0) then
            p(v_article.id,v_level + 1);
        end if;
    end loop;
end;