删除子结点

//删除所有子结点的方法
Procedure TCT_WJJG.DelAllChildrenNode(FNodeID:string);
var
  sqlStr: String;
begin
    sqlStr:=' delete GY_SB_WJJG where id in('
             +' select id from GY_SB_WJJG'
             +' start with id ='''+FNodeID+''''
             +' connect by prior  id= fid'
             +'  )';
    if (TZYJ_SJJCZHS.executeSqlWithReturn(sqlStr)) then
     begin
        DataSetBroker_WJJGS.DataSet.Refresh ;
     end;
end;