表结构说明：
create table employee
(
id number(10) not null, -- 员工工号
salary number(10,2) default 0 not null, --薪水
name varchar2(24) not null --姓名
);
--开启控制台输出
set serverout on;
1.创建序列seq_employee，该序列每次取的时候它会自动增加，从1开始计数，不设最大值，并且一直累加，不循环。
-- Create sequence
create sequence SEQ_EMPLOYEE
minvalue 1
maxvalue 9999999999999999999999999999
start with 1
increment by 1
cache 20;
?
?
1. 写一个PL/SQL块，插入表user.employee中100条数据。插入该表中字段id用序列seq_employee实现，薪水和姓名字段可以任意填写。
?
declare
i number;
begin
for i in 1 .. 100
loop
insert into employee values(seq_employee.nextval,1950+i,'匿名'||to_char(i));
commit;
end loop;
end;
/
3.写一个语句块，在语句块中定义一个显式游标，按id升序排列，打印表employee中前十条数据。
declare
--定义一个显式游标，按id升序排列
cursor c is select id,salary,name from(select * from employee order by id) where rownum<11;
v_record c%rowtype;
begin
open c;
loop
fetch c into v_record;
exit when c%notfound;
dbms_output.put_line(to_char(v_record.id)||','||to_char(v_record.salary)||','||v_record.name);
end loop;
close c;
end;
/
4.创建存储过程p_employee，输入员工薪水范围，返回员工工号、姓名、薪水结果集，结果集按员工薪水升序排列。
create or replace procedure p_employee(iminsalary in number,imaxsalary in number)
is
begin
for x in(select id,salary,name from(select * from employee where salary between iminsalary and imaxsalary) order by salary)
loop
dbms_output.put_line(to_char(x.id)||to_char(x.salary)||x.name);
end loop;
end;
/
--调用存储过程
call p_employee(1951,1956);
exec p_employee(1951,1952);
5.创建函数f_employee实现更新员工薪水的功能，将薪水低于2000且姓王的员工薪水加5%，其他不变，更新成功则返回0，否则返回1。
create or replace function f_employee return number
is
begin
update employee set salary=salary+salary*0.05 where salary<2000 and name like '王%';
commit;
if sql%rowcount=0 then
return 1;
else
return 0;
end if;
end;
/
6.写一个匿名语句块，用于执行函数f_employee，并打印执行该函数的结果。
declare a number;
begin
a:=f_employee();
dbms_output.put_line(to_char(a));
end;
/
7.创建存储过程p_create_emp，用于判断表employee是否存在，如果存在则删除该表。
create or replace procedure p_create_emp
is
v_count number;
begin
select count(*) into v_count from user_tables where table_name='EMPLOYEE';
if v_count=0 then
return;
else
execute immediate 'drop table employee';
end if;
end;
/
8.写一个匿名语句块，用于执行存储过程p_create_emp。
exec p_create_emp;