5.8.txt

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

DECLARE
  v_deptno employee.departmentno%TYPE;
BEGIN
 v_deptno:=&&n;
 CASE  v_deptno
   WHEN '001' THEN
     UPDATE employee SET comm=100 WHERE departmentno=v_deptno;
   WHEN '002' THEN
    UPDATE employee SET comm=80 WHERE departmentno=v_deptno;
   WHEN '003' THEN
    UPDATE employee SET comm=100 WHERE departmentno=v_deptno;
 ELSE
      dbms_output.put_line('不存在该部门！');
 END CASE;
END;