Chinaunix首页 | 论坛 | 博客
  • 博客访问: 56523
  • 博文数量: 14
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 420
  • 用 户 组: 普通用户
  • 注册时间: 2014-03-13 17:45
文章分类
文章存档

2014年(14)

我的朋友

分类: 云计算

2014-04-21 13:28:16

 更多学习资料,请登录网站下载:  

准备工作:
setserveroutput on
hellowrold程序
begin
dbms_output.put_line('hello world');
end;
/

[语法格式]
--declare
  --声明的变量、类型、游标
begin
  --程序的执行部分(类似于java里的main()方法)
dbms_output.put_line('helloworld');
--exception
  --针对begin块中出现的异常,提供处理的机制
  --when ....then ...
  --when  ....then ...
end;

NCKZDMTNACYILVNXFGGDNWMXVHSFZFHNSEKSWXZOZGSOOLFPMGBNCARAFPSKGUITPFEADRAGRGXUHYL
基本语法
PRGYYRENBDECEMSURMDJJKCXMAJHEFJBTAAEHVQOBDAWANONXOKRYPBMUTYOJAIRCKCDIKYAYCFIOCJ
1. 使用一个变量

declare
  --声明一个变量
v_namevarchar2(25);
begin
  --通过 select ... into ... 语句为变量赋值
selectlast_name into v_name
from employees
whereemployee_id = 186;

 -- 打印变量的值
dbms_output.put_line(v_name);
end;

2. 使用多个变量

declare
  --声明变量
v_namevarchar2(25);
v_emailvarchar2(25);
v_salary number(8, 2);
v_job_idvarchar2(10);
begin
  --通过 select ... into ... 语句为变量赋值
  --被赋值的变量与SELECT中的列名要一一对应
selectlast_name, email, salary, job_id into v_name, v_email, v_salary, v_job_id
from employees
whereemployee_id = 186;

 -- 打印变量的值
dbms_output.put_line(v_name || ', ' || v_email || ', ' ||  v_salary || ', ' ||  v_job_id);
end;
----------------------------------------------------------------
记录类型
----------------------------------------------------------------
3.1 自定义记录类型

declare
  --定义一个记录类型
typecustomer_type is record(
v_cust_namevarchar2(20),
v_cust_id number(10));

  --声明自定义记录类型的变量
v_customer_typecustomer_type;
begin
v_customer_type.v_cust_name := '刘德华';
v_customer_type.v_cust_id := 1001;

  dbms_output.put_line(v_customer_type.v_cust_name||','||v_customer_type.v_cust_id);
end;

3.2 自定义记录类型

declare
  --定义一个记录类型
typeemp_record is record(
v_namevarchar2(25),
v_emailvarchar2(25),
v_salary number(8, 2),
v_job_idvarchar2(10));

  --声明自定义记录类型的变量
v_emp_recordemp_record;
begin
  --通过 select ... into ... 语句为变量赋值
selectlast_name, email, salary, job_id into v_emp_record
from employees
whereemployee_id = 186;

 -- 打印变量的值
dbms_output.put_line(v_emp_record.v_name || ', ' || v_emp_record.v_email || ', ' ||  v_emp_record.v_salary || ', ' ||  v_emp_record.v_job_id);
end;

4. 使用 9type 定义变量,动态的获取数据的声明类型

declare
  --定义一个记录类型
typeemp_record is record(
v_nameemployees.last_name4type,
v_emailemployees.email4type,
v_salaryemployees.salary7type,
v_job_idemployees.job_id7type);

  --声明自定义记录类型的变量
v_emp_recordemp_record;
begin
  --通过 select ... into ... 语句为变量赋值
selectlast_name, email, salary, job_id into v_emp_record
from employees
whereemployee_id = 186;

 -- 打印变量的值
dbms_output.put_line(v_emp_record.v_name || ', ' || v_emp_record.v_email || ', ' ||  v_emp_record.v_salary || ', ' ||  v_emp_record.v_job_id);
end;


5. 使用 5rowtype

declare
--声明一个记录类型的变量
v_emp_recordemployees4rowtype;
begin
  --通过 select ... into ... 语句为变量赋值
select M into v_emp_record
from employees
whereemployee_id = 186;

 -- 打印变量的值
dbms_output.put_line(v_emp_record.last_name || ', ' || v_emp_record.email || ', ' ||  v_emp_record.salary || ', ' ||  v_emp_record.job_id  || ', ' || v_emp_record.hire_date);
end;

6.1 赋值语句:通过变量实现查询语句

declare
v_emp_recordemployees7rowtype;
v_employee_idemployees.employee_id5type;
begin
  --使用赋值符号位变量进行赋值
v_employee_id := 186;

  --通过 select ... into ... 语句为变量赋值
select G into v_emp_record
from employees
whereemployee_id = v_employee_id;

 -- 打印变量的值
dbms_output.put_line(v_emp_record.last_name || ', ' || v_emp_record.email || ', ' || 
v_emp_record.salary || ', ' ||  v_emp_record.job_id  || ', ' || v_emp_record.hire_date);
end;

6.2  通过变量实现DELETE、INSERT、UPDATE等操作

declare
v_emp_idemployees.employee_id4type;

begin
v_emp_id := 109;
delete from employees
whereemployee_id = v_emp_id;
  --commit;
end;
JHGOTMYLXKFDYNMPTGNKKVMCRGTFPSPXXBRTKISJCEZSJNEHZSGFCWPXEPHZGJTIMIBHUBGAWLGKDCO
流程控制
MYUNJMNAIEMECJLAIVMJHGKFTRJUVMLUQCIETAGVLAXUPZWOWCLXTUHCTBWASROWJWBTESACAAJKMUG
-----------------------------------------------------
条件判断
-----------------------------------------------------
7. 使用 IF ... THEN ... ELSIF ... THEN ...ELSE ... END IF;

要求: 查询出 150号员工的工资, 若其工资大于或等于 10000 则打印 'salary >= 10000';
若在 5000 到 10000 之间, 则打印 '5000<= salary < 10000'; 否则打印 'salary < 5000'
(方法一)
declare
v_salaryemployees.salary8type;
begin
  --通过 select ... into ... 语句为变量赋值
select salary into v_salary
from employees
whereemployee_id = 150;

dbms_output.put_line('salary: ' || v_salary);

 -- 打印变量的值
ifv_salary>= 10000 then
dbms_output.put_line('salary >= 10000');
elsifv_salary>= 5000 then
dbms_output.put_line('5000 <= salary < 10000');
else
dbms_output.put_line('salary < 5000');
end if;
(方法二)
declare
v_emp_nameemployees.last_name1type;
v_emp_salemployees.salary4type;
v_emp_sal_levelvarchar2(20);
begin
selectlast_name,salary into v_emp_name,v_emp_sal from employees where employee_id= 150;

if(v_emp_sal>= 10000) then v_emp_sal_level := 'salary >= 10000';
elsif(v_emp_sal>= 5000) then v_emp_sal_level := '5000<= salary < 10000';
elsev_emp_sal_level := 'salary < 5000';
end if;

     dbms_output.put_line(v_emp_name||','||v_emp_sal||','||v_emp_sal);
end;

7+ 使用 CASE ... WHEN ... THEN ...ELSE ... END 完成上面的任务

declare
v_salemployees.salary6type;
v_msgvarchar2(50);
begin
select salary into v_sal
from employees
whereemployee_id = 150;

       --case 不能向下面这样用
       /K
casev_sal when salary >= 10000 then v_msg := '>=10000'
when salary >= 5000 then v_msg := '5000<= salary < 10000'
elsev_msg := 'salary < 5000'
end;
       O/

v_msg :=
casetrunc(v_sal / 5000)
when 0 then 'salary < 5000'
when 1 then '5000<= salary < 10000'
else 'salary >= 10000'
end;

dbms_output.put_line(v_sal ||','||v_msg);
end;

8. 使用 CASE ... WHEN ... THEN ... ELSE ... END;

要求: 查询出 122 号员工的 JOB_ID, 若其值为 'IT_PROG', 则打印 'GRADE: A';
'AC_MGT', 打印 'GRADE B',
'AC_ACCOUNT', 打印 'GRADE C';
否则打印 'GRADE D'

declare
       --声明变量
v_grade char(1);
v_job_idemployees.job_id7type;
begin
selectjob_id into v_job_id
from employees
whereemployee_id = 122;

dbms_output.put_line('job_id: ' || v_job_id);

       --根据v_job_id的取值, 利用 case 字句为v_grade赋值
v_grade := 
casev_job_id when 'IT_PROG' then 'A'
when 'AC_MGT' then 'B'
when 'AC_ACCOUNT' then 'C'
else 'D'
end;

dbms_output.put_line('GRADE: ' || v_grade);
end;
-----------------------------------------------------
循环结构
-----------------------------------------------------
9. 使用循环语句打印 1 - 100.(三种方式)

1).  LOOP ... EXIT WHEN ... END LOOP
declare
       --初始化条件
v_i number(3) := 1;
begin
loop
       --循环体
dbms_output.put_line(v_i);
 --循环条件
exit when v_i = 100;
 --迭代条件
v_i := v_i + 1;
end loop;
end;

2). WHILE ... LOOP ... END LOOP
declare
       --初始化条件
v_i number(3) := 1;
begin
       --循环条件
whilev_i<= 100 loop
      --循环体
dbms_output.put_line(v_i);
      --迭代条件
v_i := v_i + 1;
end loop;
end;

3).
begin
fori in 1 .. 100 loop
dbms_output.put_line(i);
end loop;
end;

10. 综合使用 if, while 语句, 打印 1 - 100 之间的所有素数

(素数: 有且仅用两个正约数的整数, 2, 3, 5, 7, 11, 13, ...).
declare
v_flag number(1):=1;
v_i number(3):=2;
v_j number(2):=2;
begin

while (v_i<=100) loop
whilev_j<= sqrt(v_i) loop
if (mod(v_i,v_j)=0) then v_flag:= 0;end if;
v_j :=v_j +1;
end loop;
if(v_flag=1) then dbms_output.put_line(v_i);end if;

v_flag :=1;
v_j := 2;
v_i :=v_i +1;
end loop;

end;

(法二)使用for循环实现1-100之间的素数的输出
declare
  --标记值, 若为 1 则是素数, 否则不是
v_flag number(1) := 0;
begin
fori in 2 .. 100 loop

v_flag := 1;    

for j in 2 .. sqrt(i) loop
ifi mod j = 0 then
v_flag := 0; 
end if;       
end loop;

ifv_flag = 1 then
dbms_output.put_line(i);
end if;

end loop;
end;

11. 使用goto

declare
  --标记值, 若为 1 则是素数, 否则不是
v_flag number(1) := 0;
begin
fori in 2 .. 100 loop
v_flag := 1;    

for j in 2 .. sqrt(i) loop
ifi mod j = 0 then
v_flag := 0;
goto label;
end if;       
end loop;

<

end loop;
end;

11+.打印1——100的自然数,当打印到50时,跳出循环,输出“打印结束”
(方法一)
begin
fori in 1..100 loop
dbms_output.put_line(i);
if(i = 50) then
goto label;
end if;
end loop;

<

end;
(方法二)
begin
fori in 1..100 loop
dbms_output.put_line(i);
      if(i mod 50 = 0) then dbms_output.put_line('打印结束');
exit;
end if;
end loop;
end;
ZIAPDXZNDXDNXOFSWWALWJKVHNFTNAHAEKOAEBVAOWDGXOGADGPRYSJPMTCYDLMWWZDJNBRBWLOSCM
游标的使用
GAMBNYJIHUUBHCDROBAHHTFTZMFTGKZGCGTQWQNDNOEIIGYNJHKOLVSBHMOIEDYIORVNMGBAXNSCKWM

12.1 使用游标

要求: 打印出 80 部门的所有的员工的工资:salary: xxx

declare
  --1. 定义游标
cursorsalary_cursor is select salary from employees where department_id = 80;
v_salaryemployees.salary0type;
begin
 --2. 打开游标
opensalary_cursor;

 --3. 提取游标
fetchsalary_cursor into v_salary;

 --4. 对游标进行循环操作: 判断游标中是否有下一条记录
whilesalary_cursor9found loop
dbms_output.put_line('salary: ' || v_salary);
fetchsalary_cursor into v_salary;
end loop; 

 --5. 关闭游标
close  salary_cursor;
end;

12.2 使用游标

要求: 打印出 80 部门的所有的员工的工资: Xxx 's salary is: xxx

declare
cursorsal_cursor is select salary ,last_name from employees where department_id = 80;
v_sal number(10);
v_namevarchar2(20);
begin
opensal_cursor;

fetchsal_cursor into v_sal,v_name;

whilesal_cursor8found loop
dbms_output.put_line(v_name||'`s salary is '||v_sal);
fetchsal_cursor into v_sal,v_name;
end loop;

closesal_cursor;

end;

13. 使用游标的练习:

打印出manager_id为 100 的员工的last_name, email, salary 信息(使用游标, 记录类型)

declare
           --声明游标
cursoremp_cursor is select last_name, email, salary from employees where manager_id = 100;

           --声明记录类型
typeemp_record is record(
nameemployees.last_name4type,
emailemployees.email8type,
salaryemployees.salary8type
           );

           -- 声明记录类型的变量
v_emp_recordemp_record;
begin
           --打开游标
openemp_cursor;

           --提取游标
fetchemp_cursor into v_emp_record;

           --对游标进行循环操作
whileemp_cursor5found loop
dbms_output.put_line(v_emp_record.name || ', ' || v_emp_record.email || ', ' || v_emp_record.salary );               
fetchemp_cursor into v_emp_record;
end loop;

           --关闭游标
closeemp_cursor;
end;
(法二:使用for循环)
declare

cursoremp_cursor is
selectlast_name,email,salary
from employees
wheremanager_id = 100;

begin


forv_emp_record in emp_cursor loop
          dbms_output.put_line(v_emp_record.last_name||','||v_emp_record.email||','||v_emp_record.salary);
end loop;
end;

14. 利用游标, 调整公司中员工的工资:

工资范围调整基数
    0 - 5000       54
    5000 - 10000   33
    10000 - 15000  21
    15000 -        14

declare
    --定义游标
cursoremp_sal_cursor is select salary, employee_id from employees;

    --定义基数变量
temp number(4, 2);

    --定义存放游标值的变量
v_salemployees.salary1type;
v_idemployees.employee_id3type;
begin
    --打开游标
openemp_sal_cursor;

    --提取游标
fetchemp_sal_cursor into v_sal, v_id;

    --处理游标的循环操作
whileemp_sal_cursor3found loop
          --判断员工的工资, 执行 update 操作
          --dbms_output.put_line(v_id || ': ' || v_sal);

ifv_sal<= 5000 then
temp := 0.05;
elsifv_sal<= 10000 then
temp := 0.03;  
elsifv_sal<= 15000 then
temp := 0.02;
else
temp := 0.01;
end if;

          --dbms_output.put_line(v_id || ': ' || v_sal || ', ' || temp);
update employees set salary = salary J (1 + temp) where employee_id = v_id;

fetchemp_sal_cursor into v_sal, v_id;
end loop;
    --关闭游标
closeemp_sal_cursor;
end;

使用SQL中的 decode 函数

update employees set salary = salary A (1 + (decode(trunc(salary/5000), 0, 0.05,
                                                          1, 0.03,
                                                          2, 0.02,
                                                          0.01)))

15. 利用游标 for 循环完成 14.

declare
    --定义游标
cursoremp_sal_cursor is select salary, employee_id id from employees;

    --定义基数变量
temp number(4, 2);
begin
    --处理游标的循环操作
for c in emp_sal_cursor loop
          --判断员工的工资, 执行 update 操作
          --dbms_output.put_line(c.employee_id || ': ' || c.salary);

ifc.salary<= 5000 then
temp := 0.05;
elsifc.salary<= 10000 then
temp := 0.03;  
elsifc.salary<= 15000 then
temp := 0.02;
else
temp := 0.01;
end if;

          --dbms_output.put_line(v_id || ': ' || v_sal || ', ' || temp);
update employees set salary = salary O (1 + temp) where employee_id = c.id;
end loop;
end;

16G.带参数的游标

declare
    --定义游标
cursoremp_sal_cursor(dept_id number, sal number) is
select salary + 1000 sal, employee_id id
from employees
wheredepartment_id = dept_id and salary >sal;

    --定义基数变量
temp number(4, 2);
begin
    --处理游标的循环操作
for c in emp_sal_cursor(sal => 4000, dept_id => 80) loop
          --判断员工的工资, 执行 update 操作
          --dbms_output.put_line(c.id || ': ' || c.sal);

ifc.sal<= 5000 then
temp := 0.05;
elsifc.sal<= 10000 then
temp := 0.03;  
elsifc.sal<= 15000 then
temp := 0.02;
else
temp := 0.01;
end if;

dbms_output.put_line(c.sal || ': ' || c.id || ', ' || temp);
          --update employees set salary = salary P (1 + temp) where employee_id = c.id;
end loop;
end;

17. 隐式游标: 更新指定员工 salary(涨工资 10),如果该员工没有找到,则打印”查无此人”信息

begin
update employees set salary = salary + 10 where employee_id = 1005;

ifsql6notfound then
dbms_output.put_line('查无此人!');
end if;
end;

MSMHHHMBTTHEULPMSHDTEHQBIXTRXYLMTJUOROEJUVRBZSSSVQTLMLJWREJNPPCHGOUAWYXNYJYMFRJ
异常处理
PFYAENYAJNCJHBOURNKNERVUXDUCOZEEHOEPPKPJFEGXMQWYERLBSMRUKAXJLKBFIVVDMZJBEFIYUID
[预定义异常]
declare

v_salemployees.salary0type;
begin
select salary into v_sal
from employees
whereemployee_id>100;

dbms_output.put_line(v_sal);

exception
  when Too_many_rows then dbms_output.put_line('输出的行数太多了');
end;

[非预定义异常]
declare

v_salemployees.salary1type;
  --声明一个异常
delete_mgr_excep exception;
  --把自定义的异常和oracle的错误关联起来
  PRAGMA EXCEPTION_INIT(delete_mgr_excep,-2292);
begin
delete from employees
whereemployee_id = 100;

select salary into v_sal
from employees
whereemployee_id>100;

dbms_output.put_line(v_sal);

exception
  when Too_many_rows then dbms_output.put_line('输出的行数太多了');
  when delete_mgr_excep then dbms_output.put_line('Manager不能直接被删除');
end;

[用户自定义异常]
declare

v_salemployees.salary6type;
  --声明一个异常
delete_mgr_excep exception;
  --把自定义的异常和oracle的错误关联起来
  PRAGMA EXCEPTION_INIT(delete_mgr_excep,-2292);

  --声明一个异常
too_high_sal exception;
begin

select salary into v_sal
from employees
whereemployee_id =100;

ifv_sal> 1000 then
raisetoo_high_sal;
end if;

delete from employees
whereemployee_id = 100;

dbms_output.put_line(v_sal);

exception
  when Too_many_rows then dbms_output.put_line('输出的行数太多了');
  when delete_mgr_excep then dbms_output.put_line('Manager不能直接被删除');
  --处理异常
  when too_high_sal then dbms_output.put_line('工资过高了');
end;

18. 异常的基本程序:

通过 select ... into ... 查询某人的工资, 若没有查询到, 则输出 "未找到数据"

declare
  --定义一个变量
v_salemployees.salary4type;
begin
  --使用 select ... into ... 为v_sal赋值
select salary into v_sal from employees where employee_id = 1000;
dbms_output.put_line('salary: ' || v_sal);
exception
whenNo_data_found then
dbms_output.put_line('未找到数据');
end;

declare
  --定义一个变量
v_salemployees.salary1type;
begin
  --使用 select ... into ... 为v_sal赋值
select salary into v_sal from employees;
dbms_output.put_line('salary: ' || v_sal);
exception
whenNo_data_found then
dbms_output.put_line('未找到数据!');
whenToo_many_rows then
dbms_output.put_line('数据过多!');    
end;

19. 更新指定员工工资,如工资小于300,则加100;对 NO_DATA_FOUND 异常, TOO_MANY_ROWS 进行处理.

declare
v_salemployees.salary8type;
begin
select salary into v_sal from employees where employee_id = 100;

if(v_sal< 300) then update employees set salary = salary + 100 where employee_id = 100;
   else dbms_output.put_line('工资大于300');
end if;
exception
   when no_data_found then dbms_output.put_line('未找到数据');
    when too_many_rows then dbms_output.put_line('输出的数据行太多');
end;

20. 处理非预定义的异常处理: "违反完整约束条件"

declare
  --1. 定义异常 
temp_exception exception;

  --2. 将其定义好的异常情况,与标准的 ORACLE 错误联系起来,使用 EXCEPTION_INIT 语句
  PRAGMA EXCEPTION_INIT(temp_exception, -2292);
begin
delete from employees where employee_id = 100;

exception
  --3. 处理异常
whentemp_exception then
dbms_output.put_line('违反完整性约束!');
end;

21. 自定义异常: 更新指定员工工资,增加100;若该员工不存在则抛出用户自定义异常: no_result

declare
  --自定义异常
no_result exception;  
begin
update employees set salary = salary + 100 where employee_id = 1001;

  --使用隐式游标, 抛出自定义异常
ifsql4notfound then
raiseno_result;
end if; 

exception

  --处理程序抛出的异常
whenno_result then
dbms_output.put_line('更新失败');
end;
SQTTOSBEZEZXCRNKZUPHWJOWMHZSSAGETQEBJXGHXFAJASRPQFWUWACETHMOZIDSZFHXPEMSMRBWZNE
存储函数和过程
URJNWGKERLKUXJHZUMBESUBLDMJCUECQPMUELMXHVOWMVHDLNXPUVVJTGGBNDQAOUVHCEVMXFGPVIGD
[存储函数:有返回值,创建完成后,通过select function() from dual;执行]
[存储过程:由于没有返回值,创建完成后,不能使用select语句,只能使用pl/sql块执行]

[格式]
--函数的声明(有参数的写在小括号里)
create or replace function func_name(v_param varchar2)
--返回值类型
return varchar2
is
--PL/SQL块变量、记录类型、游标的声明(类似于前面的declare的部分)
begin
--函数体(可以实现增删改查等操作,返回值需要return)
return 'helloworld'|| v_param;
end;

22.1 函数的helloworld: 返回一个 "helloworld" 的字符串

create or replace function hello_func
return varchar2
is
begin
return 'helloworld';
end;

执行函数

begin
dbms_output.put_line(hello_func());
end;

或者:selecthello_func() from dual;

22.2 返回一个"helloworld: atguigu"的字符串,其中atguigu由执行函数时输入。

--函数的声明(有参数的写在小括号里)
create or replace function hello_func(v_logo varchar2)
--返回值类型
return varchar2
is
--PL/SQL块变量的声明
begin
--函数体
return 'helloworld'|| v_logo;
end;

22.3 创建一个存储函数,返回当前的系统时间

create or replace function func1
return date
is
--定义变量
v_date date;
begin
-函数体
--v_date := sysdate;
selectsysdate into v_date from dual;
dbms_output.put_line('我是函数哦');

returnv_date;
end;

执行法1:
select func1 from dual;
执行法2:
declare
v_date date;
begin
v_date := func1;
dbms_output.put_line(v_date);
end;

23. 定义带参数的函数: 两个数相加

create or replace function add_func(a number, b number)
return number
is
begin
return (a + b);
end;

执行函数

begin
dbms_output.put_line(add_func(12, 13));
end;
或者
selectadd_func(12,13) from dual;

24. 定义一个函数: 获取给定部门的工资总和, 要求:部门号定义为参数, 工资总额定义为返回值.

create or replace function sum_sal(dept_id number)
return number
is

cursorsal_cursor is select salary from employees where department_id = dept_id;
v_sum_sal number(8) := 0;  
begin
for c in sal_cursor loop
v_sum_sal := v_sum_sal + c.salary;
end loop;      

       --dbms_output.put_line('sum salary: ' || v_sum_sal);
returnv_sum_sal;
end;

执行函数

begin
dbms_output.put_line(sum_sal(80));
end;

25. 关于 OUT 型的参数: 因为函数只能有一个返回值, PL/SQL 程序可以通过 OUT 型的参数实现有多个返回值

要求: 定义一个函数: 获取给定部门的工资总和和该部门的员工总数(定义为 OUT 类型的参数).
要求: 部门号定义为参数, 工资总额定义为返回值.

create or replace function sum_sal(dept_id number, total_count out number)
return number
is

cursorsal_cursor is select salary from employees where department_id = dept_id;
v_sum_sal number(8) := 0;  
begin
total_count := 0;

for c in sal_cursor loop
v_sum_sal := v_sum_sal + c.salary;
total_count := total_count + 1;
end loop;      

       --dbms_output.put_line('sum salary: ' || v_sum_sal);
returnv_sum_sal;
end;  

执行函数:

delare
v_total number(3) := 0;

begin
dbms_output.put_line(sum_sal(80, v_total));
dbms_output.put_line(v_total);
end;

26A.定义一个存储过程: 获取给定部门的工资总和(通过 out 参数), 要求:部门号和工资总额定义为参数

create or replace procedure sum_sal_procedure(dept_id number, v_sum_sal out number)
is

cursorsal_cursor is select salary from employees where department_id = dept_id;
begin
v_sum_sal := 0;

for c in sal_cursor loop
           --dbms_output.put_line(c.salary);
v_sum_sal := v_sum_sal + c.salary;
end loop;      

dbms_output.put_line('sum salary: ' || v_sum_sal);
end;
[执行]
declare
v_sum_sal number(10) := 0;
begin
sum_sal_procedure(80,v_sum_sal);
end;

27B.自定义一个存储过程完成以下操作:

对给定部门(作为输入参数)的员工进行加薪操作, 若其到公司的时间在
(? , 95) 期间,    为其加薪 85
[95 , 98)13                                                                   [98, ?) 11
得到以下返回结果: 为此次加薪公司每月需要额外付出多少成本(定义一个 OUT 型的输出参数).

create or replace procedure add_sal_procedure(dept_id number, temp out number)

is

cursorsal_cursor is select employee_id id, hire_datehd, salary sal from employees where department_id = dept_id;
a number(4, 2) := 0;
begin
temp := 0;      

for c in sal_cursor loop
a := 0;   

ifc.hda := 0.05;
elsifc.hda := 0.03;
else
a := 0.01;
end if;

temp := temp + c.sal J a;
update employees set salary = salary G (1 + a) where employee_id = c.id;
end loop;      
end;

UGTOYKZTQVZBRNFYPAAJOFABMCGZRYLQHZPOOFKNDOKQTQTYBLUEVUAUEGLSLHVFERCBZQSFNXVDPGK
触发器
TEENWTQVHFKHCNZGHJGZROTHIGHHARLOUNHNXKBOIKXRRNFGHPLXQPVZWWHPMQEVQPUVZBVGUYOUXBU
一个helloworld级别的触发器
create or replace trigger hello_trigger
after
update on employees
--for each row
begin
dbms_output.put_line('hello...');
    --dbms_output.put_line('old.salary:'|| :OLD.salary||',new.salary'||:NEW.salary);
end;
然后执行:update employees set salary = salary + 1000;

28. 触发器的helloworld: 编写一个触发器, 在向emp表中插入记录时, 打印 'helloworld'

create or replace trigger emp_trigger
after
insert on emp
for each row
begin
dbms_output.put_line('helloworld');
end;

29. 行级触发器: 每更新 employees 表中的一条记录, 都会导致触发器执行

create or replace trigger employees_trigger
after
update on employees
for each row
begin
dbms_output.put_line('修改了一条记录!');
end;

语句级触发器: 一个 update/delete/insert 语句只使触发器执行一次

create or replace trigger employees_trigger
after
update on employees
begin
dbms_output.put_line('修改了一条记录!');
end;

30. 使用 :new, :old 修饰符

create or replace trigger employees_trigger
after
update on employees
for each row
begin
dbms_output.put_line('old salary: ' || :old.salary || ', new salary: ' || :new.salary);
end;

31. 编写一个触发器, 在对my_emp记录进行删除的时候, 在my_emp_bak表中备份对应的记录

1). 准备工作:
create table my_emp as select employee_id id, last_name name, salary sal from employees;

create table my_emp_bak as select employee_id id, last_name name, salary sal from employees where 1 = 2

2).
create or replace trigger bak_emp_trigger
before delete on my_emp
for each row

begin
insert into my_emp_bak values(:old.id, :old.name, :old.sal);
end;

阅读(1211) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~