用友BQ商业智能构建树形控件.doc

function buildMenuTree(folderGUID, frmname, level, parentLines)var obj, objChild, objNode;obj = new ActiveXObject(SunBI.SunObject);obj.LoadFromRepository(folderGUID, false);obj.QueryChildObjects();objChild = new ActiveXObject(SunBI.SunObject);var levelBegin, levelEnd, item, objLabel, i, count, id, idSub, type, extype, url, objFlag;var count = obj.ChildObjectCount;var subMenuCall, childGUID;for(objFlag = 0; objFlag 2; objFlag +)for(i = 0; i count; i +)objChild.ObjectNode = obj.ChildObjectNode(i);type = objChild.Type;extype = objChild.ExType;if(type != Folder & type != Dataset & type != DynaReport & type != MReport &type != FReport & type != WordReport & type != Form & type != File & type != Url)continue;idStart = idStart + 1;objLabel = objChild.ShowName;childGUID = objChild.GUID;if(objLabel = )objLabel = objChild.Name;id = MENU_ + idStart.toString();idSub = id + d;if(objFlag = 0 & type = Folder)writeLine();writeLine( );writeLine( );for(j = 1; j level; j +)if(parentLines.charAt(j-1) = 1)writeLine();elsewriteLine();if(i = count-1)subMenuCall = buildSubMenu( + idSub + , + childGUID + , + frmname + , + (level+1) + , + parentLines + 0);elsesubMenuCall = buildSubMenu( + idSub + , + childGUID + , + frmname + , + (level+1) + , + parentLines + 1);if(i = count-1)writeLine( );elsewriteLine( );if(extype = undefined | extype = )writeLine( );elsewriteLine( );writeLine(   + objLabel + );writeLine( );writeLine( );writeLine();/sub menuwriteLine();writeLine( );writeLine( );writeLine( );/buildMenuTree(childGUID,frmname,level+1);writeLine( );writeLine( );writeLine( );writeLine();else if(objFlag = 1 & type != Folder)writeLine(); writeLine( ); writeLine( ); for(j = 1; j level; j +)if(parentLines.charAt(j-1) = 1)writeLine();elsewriteLine(); if(i = count-1)writeLine( );elsewriteLine( );if(extype = undefined | extype = | type = Dataset |type = DynaReport | type = MReport | type = FReport |type = WordReport | type = Form | type = Url)writeLine( );elsewriteLine( );