实训7 PL_SQL程序设计.docVIP

实训7 PL/SQL程序设计 目标 完成本实验后，将掌握以下内容： （） （） （3）过程和函数的创建 （4）触发器的创建 （5）异常处理 准备工作 建立实训环境。 在进行本实训前，必须先建立实训用环境。请先通过执行练习前创建实训环境的脚本（实训\Ch9\实训练习\建立实训环境.sql）创建相应实训环境。 场景 东升软件公司的人事管理系统数据库，在系统日常运行过程中，员工为了安全原因，可能需要修改自身的登录密码，为了方便应用程序开发人员的开发工作，同时提高系统安全性，需要创建相应的过程，以完成修改登录密码的工作。为实现员工的请假功能，同时简化应用程序的开发，对员工修改其未批准的申请和部门负责人对申请的处理，都需要处理更新员工请假申请记录。由于公司对于员工的请假需要员工所在部门的部门经理批准，在员工提交请假申请时，员工的请假时间已经变更到数据库中，当部门经理对请假申请否决后，需要把这部分的时间再还原到减少前的状态。为了方便应用程序的开发，减少代码的复杂性，通过触发器完成请假时间的还原功能。 实验预估时间：180分钟 练习1 创建过程 本练习中，将创建存储过程，创建的存储过程将完成修改员工登录密码的功能，在更新登录密码时，必须提供对应员工的登录名、原登录密码以及新的登录密码。在存储过程中，将对数据库中当前数据进行查询，以确定对应员工的登录名和登录用密码是否正确，如果有以应的员工存在，则把对应员工的登录密码修改为新的指定的密码。本存储过程创建完成后，在应用程序开发过程中，可直接调用存储过程完成员工密码的修改，简化了应用程序开发的难度，同时提高了数据库安全性。 实验步骤： （） （） /****** 对象: 存储过程 sp_ChangePassword ******/ CREATE OR REPLACE PROCEDURE sp_ChangePassword ( vloginName VARCHAR2, voldPassword VARCHAR2, vnewPassword VARCHAR2 ) AS empID NUMBER; BEGIN select EmployeeID INTO empID from Employee where ELoginName = vloginName and EPassword = voldPassword; IF (empID 0 AND NOT (empID IS NULL)) THEN Update Employee set EPassword = vnewPassword where EmployeeID = empID; END IF; EXCEPTION WHEN PROGRAM_ERROR THEN NULL; WHEN OTHERS THEN NULL; END sp_ChangePassword; / 练习2 创建函数 当员工提交完请假申请后，员工可以修改其申请内容，同时，申请需要员工所在部分负责人处理申请。对请假申请的处理可以批准相关的申请，也可以否决请假申请。为实现此功能，创建对应的函数，返回被影响的行数，如果没有数据行被更新，或发生异常，返回-1。 实验步骤： （） 图9.1 Oracle SQL Developer （） /****** 对象: 函数 sp_ChangeLeaveStatus ******/ CREATE OR REPLACE FUNCTION sp_ChangeLeaveStatus ( vLeaveID NUMBER, vStatus VARCHAR2, vDenyReason VARCHAR2 := ) RETURN NUMBER AS vhours NUMBER; BEGIN update Leave set Status = VStatus, DenyReason = VDenyReason where LeaveID = VLeaveID; SELECT hours INTO vhours FROM Leave WHERE (Leave.LeaveID = vLeaveID); IF vStatus = 已否决 THEN update Employee set EVacationRemain = EVacationRemain + vhours; END IF; RETURN SQL%ROWCOUNT; EXCEPTION WHEN PROGRAM_ERROR THEN RETURN -1; WHEN