posts - 84,  comments - 54,  trackbacks - 0

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;

posted on 2006-09-05 21:42 JavaCoffe 阅读(1095) 评论(1)  编辑  收藏 所属分类: Oralce&&PL/SQL


FeedBack:
# re: PLSQL小例子
2006-09-09 16:13 | 徐海东
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;  回复  更多评论
  

只有注册用户登录后才能发表评论。


网站导航:
 
<2006年9月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

常用链接

留言簿(5)

随笔分类(80)

收藏夹(1)

最新随笔

积分与排名

  • 积分 - 57487
  • 排名 - 898

最新评论

阅读排行榜