declare
cursor
c_job
is
select
empno,ename,job,sal
from
emp
where
job=
'MANAGER'
;
c_row
c_job%rowtype;
begin
for
c_row
in
c_job
loop
dbms_output.put_line(c_row.empno||
'-'
||c_row.ename||
'-'
||c_row.job||
'-'
||c_row.sal);
end
loop;
end
;
declare
cursor
c_job
is
select
empno,ename,job,sal
from
emp
where
job=
'MANAGER'
;
c_row
c_job%rowtype;
begin
open
c_job;
loop
fetch
c_job
into
c_row;
exit
when
c_job%notfound;
dbms_output.put_line(c_row.empno||
'-'
||c_row.ename||
'-'
||c_row.job||
'-'
||c_row.sal);
end
loop;
close
c_job;
end
;
begin
update
emp
set
ENAME=
'ALEARK'
WHERE
EMPNO=7469;
if
sql%isopen
then
dbms_output.put_line(
'Openging'
);
else
dbms_output.put_line(
'closing'
);
end
if;
if
sql%found
then
dbms_output.put_line(
'遊標指向了有效行'
);
else
dbms_output.put_line(
'Sorry'
);
end
if;
if
sql%notfound
then
dbms_output.put_line(
'Also
Sorry'
);
else
dbms_output.put_line(
'Haha'
);
end
if;
dbms_output.put_line(sql%rowcount);
exception
when
no_data_found
then
dbms_output.put_line(
'Sorry
No data'
);
when
too_many_rows
then
dbms_output.put_line(
'Too
Many rows'
);
end
;
declare
empNumber
emp.EMPNO%TYPE;
empName
emp.ENAME%TYPE;
begin
if
sql%isopen
then
dbms_output.put_line(
'Cursor
is opinging'
);
else
dbms_output.put_line(
'Cursor
is Close'
);
end
if;
if
sql%notfound
then
dbms_output.put_line(
'No
Value'
);
else
dbms_output.put_line(empNumber);
end
if;
dbms_output.put_line(sql%rowcount);
dbms_output.put_line(
'-------------'
);
select
EMPNO,ENAME
into
empNumber,empName
from
emp
where
EMPNO=7499;
dbms_output.put_line(sql%rowcount);
if
sql%isopen
then
dbms_output.put_line(
'Cursor
is opinging'
);
else
dbms_output.put_line(
'Cursor
is Closing'
);
end
if;
if
sql%notfound
then
dbms_output.put_line(
'No
Value'
);
else
dbms_output.put_line(empNumber);
end
if;
exception
when
no_data_found
then
dbms_output.put_line(
'No
Value'
);
when
too_many_rows
then
dbms_output.put_line(
'too
many rows'
);
end
;
declare
cursor
csr_dept
is
select
DNAME
from
Depth;
row_dept
csr_dept%rowtype;
begin
for
row_dept
in
csr_dept
loop
dbms_output.put_line(
'部門名稱:'
||row_dept.DNAME);
end
loop;
end
;
declare
cursor
csr_TestWhile
is
select
LOC
from
Depth;
row_loc
csr_TestWhile%rowtype;
begin
open
csr_TestWhile;
fetch
csr_TestWhile
into
row_loc;
while
csr_TestWhile%found loop
dbms_output.put_line(
'部門地點:'
||row_loc.LOC);
fetch
csr_TestWhile
into
row_loc;
end
loop;
close
csr_TestWhile;
end
;
select
*
from
emp
declare
CURSOR
c_dept(p_deptNo
number)
is
select
*
from
emp
where
emp.depno=p_deptNo;
r_emp
emp%rowtype;
begin
for
r_emp
in
c_dept(20)
loop
dbms_output.put_line(
'員工號:'
||r_emp.EMPNO||
'員工名:'
||r_emp.ENAME||
'工資:'
||r_emp.SAL);
end
loop;
end
;
select
*
from
emp
declare
cursor
c_job(p_job
nvarchar2)
is
select
*
from
emp
where
JOB=p_job;
r_job
emp%rowtype;
begin
for
r_job
in
c_job(
'CLERK'
)
loop
dbms_output.put_line(
'員工號'
||r_job.EMPNO||
'
'
||
'員工姓名'
||r_job.ENAME);
end
loop;
end
;
SELECT
*
FROM
EMP
create
table
emp1
as
select
*
from
emp;
declare
cursor
csr_Update
is
select
*
from
emp1
for
update
OF
SAL;
empInfo
csr_Update%rowtype;
saleInfo
emp1.SAL%TYPE;
begin
FOR
empInfo
IN
csr_Update
LOOP
IF
empInfo.SAL<1500
THEN
saleInfo:=empInfo.SAL*1.2;
elsif
empInfo.SAL<2000
THEN
saleInfo:=empInfo.SAL*1.5;
elsif
empInfo.SAL<3000
THEN
saleInfo:=empInfo.SAL*2;
END
IF;
UPDATE
emp1
SET
SAL=saleInfo
WHERE
CURRENT
OF
csr_Update;
END
LOOP;
END
;
declare
cursor
csr_AddSal
is
select
*
from
emp1
where
ENAME
LIKE
'A%'
OR
ENAME
LIKE
'S%'
for
update
OF
SAL;
r_AddSal
csr_AddSal%rowtype;
saleInfo
emp1.SAL%TYPE;
begin
for
r_AddSal
in
csr_AddSal
loop
dbms_output.put_line(r_AddSal.ENAME||
'原來的工資:'
||r_AddSal.SAL);
saleInfo:=r_AddSal.SAL*1.1;
UPDATE
emp1
SET
SAL=saleInfo
WHERE
CURRENT
OF
csr_AddSal;
end
loop;
end
;
declare
cursor
csr_AddComm(p_job
nvarchar2)
is
select
*
from
emp1
where
JOB=p_job
FOR
UPDATE
OF
COMM;
r_AddComm
emp1%rowtype;
commInfo
emp1.comm%type;
begin
for
r_AddComm
in
csr_AddComm(
'SALESMAN'
)
LOOP
commInfo:=r_AddComm.COMM+500;
UPDATE
EMP1
SET
COMM=commInfo
where
CURRENT
OF
csr_AddComm;
END
LOOP;
END
;
declare
cursor
crs_testComput
is
select
*
from
emp1
order
by
HIREDATE
asc
;
top_two
number:=2;
r_testComput
crs_testComput%rowtype;
begin
open
crs_testComput;
FETCH
crs_testComput
INTO
r_testComput;
while
top_two>0 loop
dbms_output.put_line(
'員工姓名:'
||r_testComput.ENAME||
'
工作時間:'
||r_testComput.HIREDATE);
top_two:=top_two-1;
FETCH
crs_testComput
INTO
r_testComput;
end
loop;
close
crs_testComput;
end
;
declare
cursor
crs_UpadateSal
is
select
*
from
emp1
for
update
of
SAL;
r_UpdateSal
crs_UpadateSal%rowtype;
salAdd
emp1.sal%type;
salInfo
emp1.sal%type;
begin
for
r_UpdateSal
in
crs_UpadateSal
loop
salAdd:=
r_UpdateSal.SAL*0.2;
if
salAdd>300
then
salInfo:=r_UpdateSal.SAL;
dbms_output.put_line(r_UpdateSal.ENAME||
':
加薪失敗。'
||
'薪水維持在:'
||r_UpdateSal.SAL);
else
salInfo:=r_UpdateSal.SAL+salAdd;
dbms_output.put_line(r_UpdateSal.ENAME||
':
加薪成功.'
||
'薪水變爲:'
||salInfo);
end
if;
update
emp1
set
SAL=salInfo
where
current
of
crs_UpadateSal;
end
loop;
end
;
declare
cursor
crs_WorkDay
is
select
ENAME,HIREDATE,
trunc(months_between(sysdate, hiredate) / 12)
AS
SPANDYEARS,
trunc(mod(months_between(sysdate,
hiredate), 12))
AS
months,
trunc(mod(mod(sysdate
- hiredate, 365), 12))
as
days
from
emp1;
r_WorkDay
crs_WorkDay%rowtype;
begin
for
r_WorkDay
in
crs_WorkDay
loop
dbms_output.put_line(r_WorkDay.ENAME||
'已經工作了'
||r_WorkDay.SPANDYEARS||
'年,零'
||r_WorkDay.months||
'月,零'
||r_WorkDay.days||
'天'
);
end
loop;
end
;
declare
cursor
crs_caseTest
is
select
*
from
emp1
for
update
of
SAL;
r_caseTest
crs_caseTest%rowtype;
salInfo
emp1.sal%type;
begin
for
r_caseTest
in
crs_caseTest
loop
case
when
r_caseTest.DEPNO=10
THEN
salInfo:=r_caseTest.SAL*1.05;
when
r_caseTest.DEPNO=20
THEN
salInfo:=r_caseTest.SAL*1.1;
when
r_caseTest.DEPNO=30
THEN
salInfo:=r_caseTest.SAL*1.15;
when
r_caseTest.DEPNO=40
THEN
salInfo:=r_caseTest.SAL*1.2;
end
case
;
update
emp1
set
SAL=salInfo
where
current
of
crs_caseTest;
end
loop;
end
;
select
*
from
emp1
DECLARE
CURSOR
crs_testAvg
IS
select
EMPNO,ENAME,JOB,SAL,DEPNO,
AVG
(SAL)
OVER (PARTITION
BY
DEPNO
)
AS
DEP_AVG
FROM
EMP1
for
update
of
SAL;
r_testAvg
crs_testAvg%rowtype;
salInfo
emp1.sal%type;
begin
for
r_testAvg
in
crs_testAvg
loop
if
r_testAvg.SAL>r_testAvg.DEP_AVG
then
salInfo:=r_testAvg.SAL-50;
end
if;
update
emp1
set
SAL=salInfo
where
current
of
crs_testAvg;
end
loop;
end
;