---------------------------------------阶段3----------------------------------------------------------------------------------------------
declare
v_dept dept%rowtype;
begin
v_dept.deptno:=&deptno;
V_dept.dname:='&deptname';
V_dept.loc:='&loc';
if instr(v_dept.dname,' ')>0 then
raise_application_error(-2100,'部门名称不能包含空格');
else
insert into dept values v_dept;
end if;
end;
/
declare
v_dept dept%rowtype;
begin
v_dept.deptno:=&deptno;
V_dept.dname:='&deptname';
V_dept.loc:='&loc';
if instr(v_dept.dname,' ')>0 then
raise_application_error(-2100,'部门名称不能包含空格');
else
insert into dept values v_dept;
end if;
end;
/
---------------------------------------阶段3练习----------------------------------------------------------------------------------------------
declare
v_order tb_orders%rowtype;
begin
v_order.ORDERID:=&ORDERID;
v_order.SUBSCRIBEDATE:='&SUBSCRIBEDATE';
v_order.PAYMENTDATE:='&PAYMENTDATE';
v_order.custid:=&custid;
select max(id) into v_order.id from tb_orders;
select id into v_order.custid from tb_cust where id=v_order.custid;
if v_order.custid!=null then
raise_application_error(-2100,'客户编号不存在');
else
insert into tb_orders values v_order;
end if;
end;
/