5.16.txt

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

DECLARE
  CURSOR emp_cursor IS SELECT employeename,sal,
  departmentname,employee.departmentno FROM employee,department 
  WHERE employee.departmentno=department.departmentno AND sal>2500 
  FOR UPDATE OF employee.sal NOWAIT;
  emp_record emp_cursor%ROWTYPE;
BEGIN
  OPEN emp_cursor;
  LOOP
    FETCH emp_cursor INTO emp_record;
    EXIT WHEN emp_cursor%NOTFOUND;
    IF emp_record.departmentno='003' then
      UPDATE employee SET sal=sal+100 WHERE CURRENT OF emp_cursor;
    END IF;
    dbms_output.put_line('雇员名：'||emp_record.employeename||' ,工资:'||emp_record.sal||' ,部门名:'||emp_record.departmentname);
  END LOOP;
  CLOSE emp_cursor;
END;