5.9.txt

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

DECLARE
  v_sal employee.sal%TYPE;
  v_ename employee.employeename%TYPE;
BEGIN
  SELECT employeename,sal INTO v_ename,v_sal 
  FROM employee WHERE employeeno=&no;
  CASE
    WHEN v_sal<2000 THEN
      UPDATE employee SET comm=100 WHERE employeename=v_ename;
    when v_sal<3000 then
      UPDATE employee SET comm=80 WHERE employeename=v_ename;
    when v_sal<4000 then
      UPDATE employee SET comm=50 WHERE employeename=v_ename;
  END CASE;
END;