PLSQL小例子
1、 编写一个程序块，从emp表中显示名为’SMITH’的雇员的薪水和职位。
SET SERVEROUTPUT ON
declare
v_sal emp.sal%type;
v_job emp.job%type;
begin
select sal,job into v_sal,v_job from emp where ename = 'SMITH';
DBMS_OUTPUT.put_line(v_sal||' '||v_job);
END;
提示用户输入'SMITH'
SET SERVEROUTPUT ON
declare
v_sal emp.sal%type;
v_job emp.job%type;
v_name emp.ename%type:='&v_name';--此处在外面加入单引号,这样在输入的时候就直接可以输入字符串了
begin
select sal,job into v_sal,v_job from emp where ename = v_name;
DBMS_OUTPUT.put_line(v_sal||' '||v_job);
END;
2、 编写一个程序块，接受用户输入的一个部门号，从dept表中显示该部门的名称与所在的位置。
SET SERVEROUTPUT ON
declare
v_dname dept.dname%type;
v_loc dept.loc%type;
v_deptno dept.deptno%type:=&v_deptno;
begin
select dname,loc into v_dname,v_loc from dept where deptno = v_deptno;
DBMS_OUTPUT.put_line(v_dname||'+'||v_loc);
EXCEPTION
WHEN no_data_found THEN
DBMS_OUTPUT.put_line('您输入的部门号不存在！');
end;
3、 接受两个数相除并且显示结果，如果第二个数为0，则显示消息“除数不能为0”。
SET SERVEROUTPUT ON
DECLARE
v_divsor REAL:=&v_divsor;--除数
v_dividend REAL:=&v_dividend;--被除数
v_result REAL;
BEGIN
v_result := v_dividend/v_divsor;
DBMS_OUTPUT.put_line('结果为'||v_result);
EXCEPTION
WHEN ZERO_DIVIDE THEN
DBMS_OUTPUT.put_line('除数不能为零');
END;
4、 编写一个程序块，接受一个雇员名，从emp表中显示该雇员的工作岗位与薪水，若输入的雇员名不存在，显示“该雇员不存在”信息。
SET SERVEROUTPUT ON
DECLARE
v_job emp.job%type;
v_sal emp.sal%type;
v_ename emp.ename%type:='&v_ename';--输入员工姓名
BEGIN
select job,sal into v_job,v_sal from emp where ename = v_ename;
DBMS_OUTPUT.put_line('员工工作'||v_job||'员工薪水'||v_sal);
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.put_line('您要查找的员工不存在.');
END;
5、 编写一个程序块，利用％type属性，接受一个雇员号，从emp表中显示该雇员的整体薪水（即，薪水＋佣金）
SET SERVEROUTPUT ON
DECLARE
v_empno emp.empno%type:=&v_empno;--输入员工编号
v_saladdcomm emp.sal%type;
v_sal emp.sal%type;
v_comm emp.comm%type;
BEGIN
select sal,comm into v_sal,v_comm from emp where empno = v_empno;
v_saladdcomm := v_sal + NVL(v_comm,0);--这里需要用到NVL函数,如果v_comm为NULL的话则设为0
--否则如果v_comm为空的话，计算出来的值则为空
DBMS_OUTPUT.put_line(v_empno||'的整体薪水是:'||v_saladdcomm);
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.put_line('您要查找的员工编号不存在！');
END;
6、 编写一个程序块，将emp表中前5人的名字显示出来。
不知道不使用游标的方法能否做出来
以下为使用游标的方法
1>使用for 循环实现
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
BEGIN
FOR v_emp IN c_emp LOOP
DBMS_OUTPUT.put_line(v_emp.ename);
END LOOP;
END;
2>使用while方法
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;
v_count number:=1;
BEGIN
OPEN c_emp;
while v_count < 6 loop
fetch c_emp into v_ename;
DBMS_OUTPUT.put_line(v_ename);
v_count := v_count+1;
end loop;
close c_emp;
end;
使用while的第二种用法
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;
BEGIN
OPEN c_emp;
fetch c_emp into v_ename;
--刚开始要让游标向下移动一行接下来才能判断是否已经
--取道到一行纪录
while c_emp%found loop
DBMS_OUTPUT.put_line(v_ename);
fetch c_emp into v_ename;
end loop;
close c_emp;
end;
3>使用LOOP循环的方法
set serveroutput on
DECLARE
CURSOR c_emp IS select ename from emp where rownum < 6;
v_ename emp.ename%type;
BEGIN
OPEN c_emp;
LOOP
fetch c_emp into v_ename;
DBMS_OUTPUT.put_line(v_ename);
EXIT WHEN c_emp%notfound;
END LOOP;
CLOSE c_emp;
END;
7、 某公司要根据雇员的职位来加薪，公司决定按如下列加薪结构处理：
Designation Raise
Clerk 500
Salesman 1000
Analyst 1500
Otherwise 2000
编写一个程序块，接受一个雇员名，从emp表中实现上述加薪处理。
set serveroutput on
DECLARE
v_ename emp.ename%type:='&v_ename';
v_job emp.job%type;
v_addSal emp.sal%type;--额外增加的工资
v_sal emp.sal%type;
BEGIN
select job into v_job from emp where ename = v_ename;
select sal into v_sal from emp where ename = v_ename;
IF v_job = 'Clerk' then
v_addSal := 500;
elsif v_job = 'Salesman' then
v_addSal := 1000;
elsif v_job = 'Analyst' then
v_addSal := 1500;
else
v_addSal := 2000;
END IF;
v_addSal := v_addSal + v_sal;
UPDATE emp SET sal = v_addSal where ename = v_ename;
END;
8、 使用For循环游标，接受一个部门号，从emp表中显示该部门的所有雇员的姓名，工作和薪水。
set serveroutput on
DECLARE
v_deptno emp.deptno%type:=&v_deptno;
v_ename emp.ename%type;
v_job emp.job%type;
v_sal emp.sal%type;
CURSOR c_emp IS select ename,job,sal from emp where deptno = v_deptno;
BEGIN
DBMS_OUTPUT.put_line('deptno'||' '||'ename'||' '||'job'||' '||'sal');
for v_emp IN c_emp LOOP
DBMS_OUTPUT.put_line(v_deptno||' '||v_emp.ename||' '||v_emp.job||' '||v_emp.sal);
END LOOP;
END;
