oracle 中代码块,oracle 中使用 pl/sql代码块

最新推荐文章于 2023-09-07 08:00:00 发布

陈文贞

最新推荐文章于 2023-09-07 08:00:00 发布

阅读量329

点赞数 1

文章标签： oracle 中代码块

1、写匿名块，输入三角形三个表的长度。在控制台打印三角形的面积。

declare

-- (p=(a+b+c)/2)

--声明三角形的面积三条边的

v_a number (10,2):=&no1;

v_b number (10,2):=&no2;

v_c number (10,2):=&no3;

v_p number (10,2);

begin

v_p:=1/4*sqrt((v_a+v_b+v_c)*(v_a+v_b-v_c)*(v_a+v_c-v_b)*(v_b+v_c-v_a));

--打印输出

dbms_output.put_line('三角形面积是:'||v_p);

end;

2、输入部门编号，在控制台打印这个部门的名称，总人数，平均工资(基本工资+奖金)

declare

--声明部门编号

type emp_record_type is record(

dname dept.dname%type,

empno emp.empno%type,

sal emp.sal%type

);

v_emp emp_record_type;

v_depton emp.deptno%type;

v_avg emp.sal%type;

v_count number(8,2);

begin

--查询这个部门的总人数计算出这个部门的平均工资平均工资是(基本工资+奖金)

select dname,count(*),avg(sal+nvl(comm,0))into v_emp from emp e inner join dept d on e.deptno=d.deptno where e.deptno=&no group by e.deptno,dname;

--打印输出

dbms_output.put_line('部门名称:'||v_emp.dname||',平均工资'||v_emp.sal||'总数'||v_emp.empno);

end;

3、编写一个PL/SQL块，输出所有员工的员工姓名、员工号、工资和部门号

declare

--定义记录类型

type emp_record_type is record(

ename emp.ename%type,

empno emp.empno%type,

sal emp.sal%type,

deptno emp.deptno%type

);

type emp_table_type is table of emp_record_type index by binary_integer;

--定义表变量

v_emp emp_table_type;

--定义循环变量

v_num number(8);

begin

select count(empno) into v_num from emp;

for i in 1 .. v_num

loop

select ename,empno,sal,deptno into v_emp(i) from (select e.*,rownum r from emp e where rownum<=14) where r=i;

end loop;

for i in 1 .. v_num

loop

dbms_output.put_line('员工姓名：'||v_emp(i).ename||',员工号：'||v_emp(i).empno||',工资：'||v_emp(i).sal||'部门号：'||v_emp(i).deptno);

end loop;

end;

4，编写一个PL/SQL块,输出所有比本部门平均工资高的员工信息。

declare

v_sal emp.sal%type;

--在控制台输入部门编号

v_deptno emp.deptno%type :=&no;

--查询所有比本部门平均工资高的员工信息

cursor query_info is select e.empno, e.ename,e.sal,e.deptno

from emp e where sal>(

select avg(sal+nvl(comm,0)) from emp where deptno=v_deptno);

sal emp.sal%TYPE;

empno dbms_sql.Number_Table;

ename dbms_sql.Varchar2_Table;

deptno dbms_sql.Number_Table;

begin

--遍历打印

for v_count in query_info loop

dbms_output.put_line('员工编号'||v_count.empno ||'员工姓名 '||v_count.ename ||' 基本工资'||v_count.sal ||'部门编号 '||v_count.deptno);

end loop ;

end;

5、编写一个PL/SQL块,输出所有员工及其部门领导的姓名、员工号及部门号。

declare

v_emp emp%rowtype;

cursor a is select a.empno,a.ename,a.deptno,m.ename mname from emp a inner join emp m on a.empno=m.mgr;

begin

for v_emp in a

loop

dbms_output.put_line('员工编号：'||v_emp.empno||'员工姓名：'||v_emp.ename||'部门编号：'||v_emp.deptno||' 领导姓名 '||v_emp.mname);

end loop;

end;

6，查询姓为“SMITH”的员工信息，并输出其员工号、姓名、工资、部门号。如果该员工不存在，则插入一条新记录，员工号为2012，员工姓名为“Smith”,工资为7500元，入职日期为“2002年3月5日”，部门号为50。如果存在多个名“Smith”的员工，则输出所有名为“Smith”的员工号、姓名、工资、入职日期、部门号L。

declare

v_emp emp%rowtype;

begin

select * into v_emp from emp where ename='Smith';

dbms_output.put_line('工号：'||v_emp.empno||',姓名：'||v_emp.ename||'，工资：'||v_emp.sal||'，部门号：'||v_emp.deptno);

exception

when no_data_found then

insert into emp(empno,ename,sal,deptno) values(2016,'Smith',7500,50);

commit;

when too_many_rows then

for v_emp in (select * from emp where ename='Smith') loop

dbms_output.put_line('工号：'||v_emp.empno||',姓名：'||v_emp.ename||'，工资：'||v_emp.sal||'，部门号：'||v_emp.deptno);