5.5.txt

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

DECLARE
  TYPE ename_table_type IS TABLE OF employee.employeename%TYPE
  INDEX BY BINARY_INTEGER;
  ename_table ename_table_type;
BEGIN
  SELECT employeename INTO  ename_table(-1) FROM employee
  WHERE employeeno='1990-001';
  dbms_output.put_line('雇员名：'||ename_table(-1));
END;