5.5.txt

delphi renyuanguanlixinxioxitong

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;