在Oracl测试window里面多表删除

-- Created on 2017/4/25 by ADMINISTRATOR 
declare 
  -- Local variables here
  i integer;
  gids varchar2(50);
  sqlstr varchar2(200);
 
begin
  -- Test statements here
  
  
  gids:='58CB494B-A5FE-4BD3-8B07-DE5911897CE0';
    sqlstr:='delete from db_ccxxb where syz='''||gids||'''';
    execute immediate sqlstr;
    sqlstr:='delete from db_fcxxb where syz='''||gids||'''';
     execute immediate sqlstr;
     sqlstr:='delete from db_SYQKB where  syz='''||gids||'''';
      execute immediate sqlstr;
      
      sqlstr:='delete from db_SRMXB where Gpeopid in(
select pp.gid from d2_peopleinfo pp where pp.syz='''||gids||''')';
dbms_output.put_line(sqlstr);
      execute immediate sqlstr;
      
       sqlstr:='delete from db_bzclb where syz='''||gids||'''';
      execute immediate sqlstr;
        sqlstr:='delete from d2_peopleinfo where syz='''||gids||'''';
      execute immediate sqlstr;
  sqlstr:='delete from d1_familyinfo where syz='''||gids||'''';
   execute immediate sqlstr;
     sqlstr:='delete from d16_peoplemoney d16 where syz= '''||gids||'''';
   execute immediate sqlstr;
   
  exception
    when others then
      dbms_output.put_line(sqlstr);
end;