5.2.txt

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

DECLARE
  v_ename VARCHAR2(20);
  v_sal NUMBER(6,2);
  c_tax_rate CONSTANT NUMBER(3,2):=0.03;
  v_tax_sal NUMBER(6,2);
BEGIN
  SELECT employeename,sal INTO v_ename,v_sal
  FROM employee WHERE employeeno=&eno;
  v_tax_sal:=v_sal*c_tax_rate;
  dbms_output.put_line('雇员名：'||v_ename);
  dbms_output.put_line('雇员工资：'||v_sal);
  dbms_output.put_line('所得税：'||v_tax_sal);
END;