declare
-- Local variables here
i integer;
gids varchar2(50);
sqlstr varchar2(200);
begin
-- Test statements here
gids:='5AF63962-BDD3-4101-9DDD-F21E9547D4C3';
sqlstr:='delete from AA where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from BB where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from CC where Gfamliyid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from EE where Gpeopid in(
select pp.gid from DD pp where pp.gfamliyid='''||gids||''')';
dbms_output.put_line(sqlstr);
execute immediate sqlstr;
sqlstr:='delete from FF where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from !!where gfamliyid='''||gids||'''';
execute immediate sqlstr;
exception
when others then
dbms_output.put_line(sqlstr);
end;
---------------循环---------------------------
declare
i integer;
gids varchar2(50);
sqlstr varchar2(200);
xx integer;
begin
xx:=1;
while (xx<=4)
loop
select f.gid into gids from BB f where f.shzidcard='23110219320226553X' and rownum=1;
sqlstr:='delete from AA where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from CC where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from DD where Gfamliyid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from EE where Gpeopid in(
select pp.gid from FF pp where pp.gfamliyid='''||gids||''')';
dbms_output.put_line(sqlstr);
execute immediate sqlstr;
sqlstr:='delete from HH where gobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from KK where gfamliyid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from MM where gid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from NN d16 where gfamilyid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from QQ w3 where w3.sobjectid='''||gids||'''';
execute immediate sqlstr;
sqlstr:='delete from TT w4 where w4.sobjectid='''||gids||'''';
execute immediate sqlstr;
xx:=xx+1;
end loop ;
exception
when others then
dbms_output.put_line(sqlstr);
end;