程序博客网 > 中电科大数据院

示例14 开发程序包

来源：互联网 发布：中电科大数据院 编辑：程序博客网 时间：2024/05/21 14:50


/*============================================================
                       示例5 程序包
  ============================================================*/
--需求：程序包完成以下业务需求
--    1.添加雇员信息
--    2.通过雇员编号修改薪水
--    3.通过雇员名称修改薪水
--    4.通过雇员编号查询薪水
/*********************************************************
  包规范 EMP_PACKAGE 
变量minsal  ----------------------全局变量
变量maxsal  ----------------------全局变量
过程add_employee------------------公用过程
过程upd_sal(eno,sal)--------------公用过程
过程upd_sal(name,sal)-------------公用过程
  函数get_sal-----------------------公用函数
  
  包主体 EMP_PACKAGE
   构造函数--------------------------在运行包组件时将雇员的最低和最高工资赋给全局变量
/*********************************************************/
--程序包规范
create or replace package emp_package is
    minsal emp.sal%type;
    maxsal emp.sal%type;
    --    1.添加雇员信息
    procedure add_employee(eno number,name varchar2,salary number,dno number);
    --    2.通过雇员编号修改薪水
    procedure upd_sal(eno number,salary number);
    --    3.通过雇员名称修改薪水
    procedure upd_sal(name varchar2,salary number);
    --    4.通过雇员编号查询薪水
    function get_sal(eno number) return number;
end emp_package;

--程序包主体
create or replace package body emp_package is
--    1.添加雇员信息
procedure add_employee(eno number,name varchar2,
             salary number,dno number)
IS
begin
     if salary between minsal and maxsal  then
        insert into emp (empno,ename,sal,deptno)values (eno,name,salary,dno);
     else
         raise_application_error(-20010,'工资不在范围内');
     end if;
exception
        when DUP_VAL_oN_INDEX then
            raise_application_error(-20011,'该雇员已存在');
end;

--    2.通过雇员编号修改薪水
procedure upd_sal(eno number,salary number)
IS
begin
    if salary between minsal and maxsal  then
        update emp set sal=salary where empno=eno;
        if sql%notfound then
           raise_application_error(-20011,'该雇员不存在');
        end if;
    else
       raise_application_error(-20010,'工资不在范围内');
    end if;     
end;

--    3.通过雇员名称修改薪水
procedure upd_sal(name VARCHAR2,salary number)
IS
begin
     if salary between minsal and maxsal  then
      update emp set sal=salary where UPPER(ename)=UPPER(name);
      if sql%notfound then
         raise_application_error(-20011,'该雇员不存在');
      end if;
     else
       raise_application_error(-20010,'工资不在范围内');
     end if;     
end;

--    4.通过雇员编号查询薪水
function get_sal(eno number) return number
is
v_sal emp.sal%type;
begin
     select sal into v_sal from emp where empno=eno;
     return v_sal;
exception
         when no_data_found then
              raise_application_error(-20012,'该雇员不存在');
end;
begin
  --构造函数
SELECT  MIN(sal),MAX(sal) INTO minsal,maxsal FROM emp;
end emp_package;

--调用添加雇员存储过程
declare
   emp_20010 EXCEPTION;
   PRAGMA EXCEPTION_INIT(emp_20010, -20010);
   emp_20011 EXCEPTION;
   PRAGMA EXCEPTION_INIT(emp_20011, -20011);
begin
   emp_package.add_employee(5111,'mary',3000,20);
   dbms_output.put_line('添加成功！');
   commit;
exception 
        when emp_20010 then
            dbms_output.put_line('工资不在范围内！');
            rollback;
        when emp_20011 then
            dbms_output.put_line('该雇员已存在！');               
            rollback;
end;

--调用查询薪水函数
declare
    v_sal number;
begin
    v_sal:=emp_package.get_sal(7788);
    dbms_output.put_line(v_sal);
end;

/*============================================================
                       示例5 程序包
  ============================================================*/
--需求：程序包完成以下业务需求
--    1.添加雇员信息
--    2.通过雇员编号修改薪水
--    3.通过雇员名称修改薪水
--    4.通过雇员编号查询薪水
/*********************************************************
  包规范 EMP_PACKAGE 
变量minsal  ----------------------全局变量
变量maxsal  ----------------------全局变量
过程add_employee------------------公用过程
过程upd_sal(eno,sal)--------------公用过程
过程upd_sal(name,sal)-------------公用过程
  函数get_sal-----------------------公用函数
  
  包主体 EMP_PACKAGE
   构造函数--------------------------在运行包组件时将雇员的最低和最高工资赋给全局变量
/*********************************************************/
--程序包规范
create or replace package emp_package is
    minsal emp.sal%type;
    maxsal emp.sal%type;
    --    1.添加雇员信息
    procedure add_employee(eno number,name varchar2,salary number,dno number);
    --    2.通过雇员编号修改薪水
    procedure upd_sal(eno number,salary number);
    --    3.通过雇员名称修改薪水
    procedure upd_sal(name varchar2,salary number);
    --    4.通过雇员编号查询薪水
    function get_sal(eno number) return number;
end emp_package;

--程序包主体
create or replace package body emp_package is
--    1.添加雇员信息
procedure add_employee(eno number,name varchar2,
             salary number,dno number)
IS
begin
     if salary between minsal and maxsal  then
        insert into emp (empno,ename,sal,deptno)values (eno,name,salary,dno);
     else
         raise_application_error(-20010,'工资不在范围内');
     end if;
exception
        when DUP_VAL_oN_INDEX then
            raise_application_error(-20011,'该雇员已存在');
end;

--    2.通过雇员编号修改薪水
procedure upd_sal(eno number,salary number)
IS
begin
    if salary between minsal and maxsal  then
        update emp set sal=salary where empno=eno;
        if sql%notfound then
           raise_application_error(-20011,'该雇员不存在');
        end if;
    else
       raise_application_error(-20010,'工资不在范围内');
    end if;     
end;

--    3.通过雇员名称修改薪水
procedure upd_sal(name VARCHAR2,salary number)
IS
begin
     if salary between minsal and maxsal  then
      update emp set sal=salary where UPPER(ename)=UPPER(name);
      if sql%notfound then
         raise_application_error(-20011,'该雇员不存在');
      end if;
     else
       raise_application_error(-20010,'工资不在范围内');
     end if;     
end;

--    4.通过雇员编号查询薪水
function get_sal(eno number) return number
is
v_sal emp.sal%type;
begin
     select sal into v_sal from emp where empno=eno;
     return v_sal;
exception
         when no_data_found then
              raise_application_error(-20012,'该雇员不存在');
end;
begin
  --构造函数
SELECT  MIN(sal),MAX(sal) INTO minsal,maxsal FROM emp;
end emp_package;

--调用添加雇员存储过程
declare
   emp_20010 EXCEPTION;
   PRAGMA EXCEPTION_INIT(emp_20010, -20010);
   emp_20011 EXCEPTION;
   PRAGMA EXCEPTION_INIT(emp_20011, -20011);
begin
   emp_package.add_employee(5111,'mary',3000,20);
   dbms_output.put_line('添加成功！');
   commit;
exception 
        when emp_20010 then
            dbms_output.put_line('工资不在范围内！');
            rollback;
        when emp_20011 then
            dbms_output.put_line('该雇员已存在！');               
            rollback;
end;

--调用查询薪水函数
declare
    v_sal number;
begin
    v_sal:=emp_package.get_sal(7788);
    dbms_output.put_line(v_sal);
end;

0 0
中电科大数据院 中电科大数据院
原创粉丝点击
热门IT博客
focusky mac与winfocusky mac与win
网络著作权侵权认定网络著作权侵权认定
给淘宝店铺添加客服
比特币高频交易编程
怎样注册淘宝会员名
网游辅助软件代理
linux ssh 端口
python私有变量
yum安装mysql5.7
汉唐古钱币交易所软件
职场霸凌 知乎
怎么让淘宝店铺商品排名靠前
国际政治经济学 知乎
安卓人工智能计算器
读懂php wsdl中方法
当前统计模型算法
淘宝梦幻挤线器
java高级架构师实战
java 在服务器生成pdf
企业淘宝店铺转让
热门问题 老师的惩罚 人脸识别 我在镇武司摸鱼那些年 重生之率土为王 我在大康的咸鱼生活 盘龙之生命进化 天生仙种 凡人之先天五行 春回大明朝 姑娘不必设防，我是瞎子 制黄精的功效与作用 黄精的价格 野生黄精价格 黄精的图片 黄精怎么吃 黄精多少钱一斤 黄精的功效与作用及禁忌 山黄精的功效与作用 什么是黄精 黄精种植前景如何 酒黄精的功效与作用 生黄精和熟黄精的区别 炙黄精 鸡头参 黃精 黄精酒 黄精酒的功效与作用 黄惊 太阳草 龟板功效与作用 龟板胶 龟板的功效与作用 龟板怎么吃 龟板价格每克多少钱 自动换ip刷网页点击量 安卓自动换ip刷网址点击app 换ip刷网页软件 刷网站ip访问量 在线刷网页ip 华东师范大学oj 西南科技大学oj 闽南师范大学oj 东北师范大学oj 湖南科技大学oj 浙江理工大学oj 郑州轻工业大学oj 杭州电子科技大学oj 免费刷qb软件100成功 刷qb软件下载 免费刷qb软件 刷qb的软件

程序博客网，程序员的互联网技术博客家园。csdn论坛精品 msdn技术资料都在这里