第五章上机课使用PLSQL第五章上机课使用PLSQL.pdfVIP

老二牛车教育 《Oracle 数据库应用 》上机课 使用PLSQL 目标： 理解逻辑比较的定义 能使用各种控制结构能 编写错误处理程序 第一部分：指导 本阶段重点介绍编写程序以进行逻辑比较，使用各种控制结构以及编写错误处理代码的方法。 阶段一：使用条件控制 需求说明： 由于工程取得巨大成功，GITM 公司决定向职员发放奖金。奖金根据职员所在部门的代码来计算。 如果部门代码为“DP01 ”，奖金为2000 元；部门代码为“DP02 ”，奖金为1700 元；部门代码为 “DP03 ”，奖金为1500 元，请设计解决方案。 实现思路： 条件控制根据指定的条件执行一连串语句。单个条件可以使用IF-THEN 语句来指定。条件控制 允许使用IF-THEN-ELSIF 语句给出多个条件语句。 该公司想要根据职员所在的部门代码来更新职员的工资记录。要计算工资，首先需要检查部门 代码。要检查部门代码，可以使用IF-THEN-ELSIF 语句。 此程序声明VARCHAR2 类型的DPTCODE 和EMP-CODE 以及NUMBER 类型的SALARY。 使用IF-THEN-ELSIF 条件语句来验证职员所在的部门。SELECT 语句从SALARY-RECORDS 表 中检索DEPTCODE 、EMPCODE 和 EMPSAL，并将值存储在变量DPTCODE 、EMP-CODE 和 SALARY 中。IF 语句比较DPTCODE 中的值，然后更新SALARY-RECORDS 表中的EMPSAL 。 参考步骤： （1） 启动“ SQL Plus ”。 （2 ） 在SQL 提示中输入“SET SERVEROUTPUT ON”。 （3 ） 在SQL Plus 中输入下列代码。 DECLARE DPTCODE VARCHAR2(15); EMP_CODE VARCHAR2(10); SALARY NUMBER; BEGIN SELECT DEPTCODE, EMPCODE, EMPSAL INTO DPTCODE, EMP_CODE, SALARY FROM SALARY_RECORDS WHERE EMPCODE = EMPID FOR UPDATE OF EMPSAL; IF DPTCODE =DP01 THEN UPDATE SALARY_RECORDS SET EMPSAL = SALARY + 2000 WHERE EMPCODE= EMP_CODE ; ELSIF DPTCODE = DP02 THEN UPDATE SALARY_RECORDS SET EMPSAL = SALARY + 1700 老二牛车教育 《Oracle 数据库应用 》上机课 WHERE EMPCODE = EMP_CODE; ELSIF DPTCODE = DP03 THEN UPDATE SALARY_RECORDS SET EMPSAL = SALARY + 1500 WHERE EMPCODE= EMP_CODE; END IF; COMMIT; END; / 此代码提示用户输入部门代码。代码将显示消息“PL/SQL 过程已成功完成”。使用SELECT 语句可以 检索更新以后的行。 （4 ） 在SQL Plus 中输入SELECT*FROM SALARY-RECORDS 。 更新以后的表如图5.1 所示。 EMPNO EMPCODE DEPTCODE ENAME WORKING_DAYS E