5.3.txt

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

DECLARE
  v_ename employee.employeename%TYPE;--记录员工姓名
  v_sal   employee.sal%TYPE;--记录员工工资
  c_tax_rate CONSTANT NUMBER(3,2):=0.03;--设置所得税税率
  v_tax_sal v_sal%TYPE;--计算后的所得税
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;