5.4.txt

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

DECLARE
  TYPE emp_record_type IS RECORD 
     (name     employee.ename%TYPE,
      salary   employee.sal%TYPE,
      workdate employee.workdate%TYPE);
  emp_record emp_record_type;
BEGIN
  SELECT employeename,sal,workdate INTO emp_record
  FROM employee WHERE empno='1990-001';
  dbms_output.put_line('雇员名:'||emp_record.name||
              '参加工作时间:'||emp_record.workdate);
END;