produceTestDate

set serveroutput on
--使用基本变量类型
declare
  --定义基本变量；类型
  --基本数据类型
  pnumber number(7, 2);
  pname   varchar2(20);
  pdate   date;
begin
  pnumber := 1;
  dbms_output.put_line(pnumber);
  dbms_output.put_line(‘hello‘);
  pname :=‘tom‘;
  dbms_output.put_line(pname);
  pdate := sysdate;
  dbms_output.put_line(pdate);
  --明天的日期
  dbms_output.put_line(pdate + 1);
end;
/


--引用型变量
set serveroutput on

declare
--定义引用型变量，查询并打印7839的姓名和薪水
--pname varchar2(20);
--psal number(7,2);
       pname EMP_bch.Ename%type;
       psal EMP_bch.Sal%type;
begin
--得到7839的姓名和薪水
     select ename,sal into pname,psal from EMP_bch where empno=7839;
     --打印姓名和薪水
     dbms_output.put_line(pname||‘的薪水是‘||psal);

end;
/


--记录型变量，查询并打印7839的姓名和薪水
set serveroutput on 

declare
    --定义记录型变量：注意代表一行
    EMP_bch_rec EMP_bch%rowtype;
begin
    --得到7839的一行信息
    select * into EMP_bch_rec from EMP_bch where empno=7839; 
    --打印姓名和薪水
    dbms_output.put_line(EMP_bch_rec.ename||‘的薪水是‘||EMP_bch_rec.sal);   
end;
/


--IF语句练习
/*
*判断用户从键盘输入的数字
1.如何使用IF语句
2.如何接受几个键盘输入（字符串）
*/
set serveroutput on

--接受键盘输入
--num是一个地址值：在该地址上保存了输入的值
accept num prompt‘请输入一个数字‘;


declare

--定义变量保存用户从键盘输入的数字
pnum number:=# 
begin
--执行IF语句进行条件判断
     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;
/




--使用while循环 循环打印1——10
--打开输出
set serveroutput on

declare 
    --定义循环变量
pnum  number:=1;
begin 
  while pnum<=10 loop
  --循环体
   dbms_output.put_line(pnum);
  --使变量自增
  pnum := pnum + 1;
  end loop;
end;
/
    
--推荐使用！！！
--使用loop循环打印1——10
set serveroutput on

declare
--定义循环变量，并赋初始值为1
pnum number:=1;

begin 
     loop
     --退出条件，循环变量大于10
     exit when pnum >10;
     
     --打印该变量的值
     dbms_output.put_line(pnum);
     
     --变量自增一
     pnum := pnum +1;
     
     end loop;
end;
/


--使用循环FOR循环打印1——10
set serveroutput on
 declare
 --定义循环变量并赋初值为1
 pnum number:=1;

begin
  for pnum in 1..10 loop
  dbms_output.put_line(pnum); 
  end loop;
end;
/

--游标的练习
set serveroutput on
declare
    --定义一个游标
    --游标属性 %found 取到值为true,取不到为false，%notfound相反
cursor cemp is select ename,sal from EMP_bch;
    pname EMP_bch.ename%type;
    psal  EMP_bch.sal%type;
begin 
    --打开游标
open cemp;
loop
     --取一条记录
 fetch cemp into pname,psal;
     --1.循环什么时候退出？ 
     --fetch 不一定能取到记录 
exit when cemp%notfound;
     --打印结果
dbms_output.put_line(pname||‘的薪水是‘||psal); 
end loop;
    --关闭游标
close cemp;
end;
/    
    

--给员工涨工资 总裁：1000，经理：800，其他：400
set serveroutput on
declare
--定义游标给哪些员工涨工资
cursor cemp is select empno,job  from EMP_bch;
pempno EMP_bch.Empno%type;
pjob   EMP_bch.Job%type;
begin
rollback;
 --打开游标
 open cemp;
 if cemp%isopen then 
    dbms_output.put_line(‘游标已经打开‘);
    else
    dbms_output.put_line(‘游标没有打开‘);
 loop
 fetch cemp into pempno,pjob;
 exit when cemp%notfound;
 --判断员工的职位
  if pjob =‘PRESIDENT‘ then update EMP_bch set sal = sal+1000 where empno=pempno;
     elsif pjob =‘MANAGER‘ then update EMP_bch set sal = sal+800 where empno=pempno;
     else update EMP_bch set sal = sal+400 where empno=pempno;
 end if;
 end loop;
 --关闭游标
 close cemp;
 --对于oracle,默认的事物隔离级别是read committed
 commit;
 dbms_output.put_line(‘涨工资完成‘); 
end;
/



/*
游标的属性
%found %motfound
%isopen：判断游标是否打开
%rowcount:影响的行数
有标的限制：默认情况下只允许在同一个会话中打开300个游标

*/
set  serveroutput on

declare

--定义游标

cursor cemp is select empno,job from Emp_Bch;
pempno Emp_Bch.Empno%type;
pjob   Emp_Bch.Job%type;
begin 
loop
open cemp;
--取出一条记录
fetch cemp into pempno,pjob;
cemp%notfound;
exit when cemp%notfound;
--if pjob=‘PRESIDENT‘ then 
dbms_output.put_line(‘rowcount‘||cemp%rowcount);

--end if;
close cemp;
end loop;
end;
/


--带参数的游标
set serveroutput on

declare
--带参数的游标
cursor cemp(dno number) is select ename from EMP_BCH where deptno = dno;
pename EMP_BCH.ENAME%TYPE;
begin
--打开游标
open cemp(10);
loop
fetch cemp into pename; 
exit when cemp%notfound;
dbms_output.put_line(pename);


end loop;
close cemp;
end;
/ 


--系统异常：no_data_found
set serveroutput on
declare
pename EMP_BCH.ENAME%TYPE;

begin 
SELECT ENAME into pename FROM EMP_BCH WHERE EMPNO=1234;
exception 
       when no_data_found then dbms_output.put_line(‘没有找到员工‘);
       when others then dbms_output.put_line(‘其他异常‘);
end;
/



--系统异常  too_many_rows
set serveroutput on

declare
    pename EMP_bch.ename%type;
    
begin
    --查询所有员工的姓名
    select ename INTO pename from EMP_BCH WHERE DEPTNO=10;
    exception
    when too_many_rows then dbms_output.put_line(‘select into 匹配了多行‘);
    when others then dbms_output.put_line(‘其他异常‘);
end;
/



--系统异常  zero_devide
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(‘1;0不能做被除数‘);
     when others then dbms_output.put_line(‘其他例外‘);
end;
/


--系统异常   value_error
set serveroutput  on
declare
    --定义一个number类型的变量
    pnum number;
begin
    pnum:=‘abc‘;
    exception
    when value_error then dbms_output.put_line(‘算数或转换错误‘);
    when others then dbms_output.put_line(‘其他错误‘);
end;
/

--自定义异常：查询50号部门的员工
set serveroutput on
declare 
cursor cemp is select ename from EMP_BCH where DEPTNO=50;
pename EMP_BCH.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;
/
/*
loop
exit when cemp%notfound;
end loop;
*/



--瀑布模型
/*
sql语句
SELECT TO_CHAR(HITEDATE,‘yyyy‘) from EMP_bch;
-->游标-->循环-->退出条件：notfound
变量：1.初始值 2.如何得到
每年入职的员工数
count80 number：=0；
count81 number：=0；
count82 number：=0；
count87 number：=0；
*/
set serveroutput on
declare
    --定义游标
    cursor cemp
    is
    select to_char(hiredate,‘yyyy‘) from EMP_bch;
    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=‘1980‘  then  count80:=count80+1;
elsif phiredate=‘1981‘ then  count81:=count81+1;
elsif phiredate=‘1982‘ 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(‘1980:‘||count80); 
dbms_output.put_line(‘1981:‘||count81); 
dbms_output.put_line(‘1982:‘||count82); 
dbms_output.put_line(‘1987:‘||count87); 
end;
/