5.22.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 17 行

DECLARE
  v_deptno employee.departmentno%TYPE;
BEGIN
  v_deptno:=&&n;
  CASE v_deptno
    WHEN '004' THEN
       UPDATE employee SET comm=100 WHERE departmentno=v_deptno;
    when '003' THEN
       UPDATE employee SET comm=80 WHERE departmentno=v_deptno;
    when '005' THEN
       UPDATE employee SET comm=50 WHERE departmentno=v_deptno;
  END CASE;
  EXCEPTION
  WHEN CASE_NOT_FOUND THEN
    dbms_output.put_line('CASE中无满足条件的语句执行！');
END;