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; 

转载于:https://www.cnblogs.com/tjy_una/archive/2009/06/30/1514156.html