oracle 挺急的

8．编写PL/SQL程序，输出30号部门的部门名称和地点。

9．输入员工编号，获取emp表中的员工工资，当工资>3000时，输出员工的姓名和工资，当小于3000时，输出语句“该员工工资小于3000元”。

8

<span class="hljs-keyword">DECLARE</span>
   <span class="hljs-keyword">TYPE</span> T_DEPT <span class="hljs-keyword">IS</span> <span class="hljs-type">RECORD</span>(
        t_dname dept.dname<span class="hljs-meta">%TYPE</span>,
        t_loc dept.loc<span class="hljs-meta">%TYPE</span> );
   V_DEPT T_DEPT;
<span class="hljs-keyword">BEGIN</span>
   <span class="hljs-keyword">SELECT</span> dname,loc <span class="hljs-keyword">INTO</span> V_DEPT <span class="hljs-keyword">FROM</span> DEPT <span class="hljs-keyword">WHERE</span> deptno=<span class="hljs-number">30</span>;
   DBMS_OUTPUT.PUT_LINE
    (V_DEPT.t_dname||<span class="hljs-string">'  '</span> ||V_DEPT.t_loc);
<span class="hljs-keyword">END</span>;
/

9

<span class="hljs-keyword">DECLARE</span>
    t_empno emp.empno<span class="hljs-meta">%TYPE</span>;
    t_ename emp.ename<span class="hljs-meta">%TYPE</span>;
    t_sal emp.sal<span class="hljs-meta">%TYPE</span>;
<span class="hljs-keyword">BEGIN</span>
    t_empno := &请输入工号;
<span class="hljs-keyword">SELECT</span> empno,ename,sal <span class="hljs-keyword">INTO</span> t_empno,t_ename,t_sal <span class="hljs-keyword">FROM</span> emp <span class="hljs-keyword">WHERE</span> empno = t_empno;
<span class="hljs-keyword">IF</span> t_sal < <span class="hljs-number">3000</span> <span class="hljs-keyword">THEN</span>
      DBMS_OUTPUT.PUT_LINE(<span class="hljs-string">'该员工工资小于3000元'</span>);
<span class="hljs-keyword">ELSIF</span> t_sal > <span class="hljs-number">3000</span> <span class="hljs-keyword">THEN</span>
    DBMS_OUTPUT.PUT_LINE(t_ename||<span class="hljs-string">'雇员的工资是'</span>||t_sal);
<span class="hljs-keyword">ELSE</span>
    DBMS_OUTPUT.PUT_LINE(t_ename||<span class="hljs-string">'雇员的工资是3000'</span>);
<span class="hljs-keyword">END</span> <span class="hljs-keyword">IF</span>;
<span class="hljs-keyword">END</span>;
/

img

img