sheettree.asp

学生档案与成绩管理（1）学生档案管理：记录每个学生的档案信息

<!-- #include file = "../../include/asphead.asp" -->
<!-- #include file = "../../include/function.asp" -->
<%CheckUser()%>
<link href="../../include/main.css" rel="stylesheet" type="text/css">
<script src="../../include/tree.js" type="text/javascript"></script>
<script src="../../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--

var toElement
var curSheetID,curSheet;

function window_onload() {
	if(frmData.Admin.value==1)
	{
		btnAdd.disabled =false;
		if(frmData.SheetCount.value>0)
		{
			btnDel.disabled =false;
			btnMod.disabled =false;
		}
	}
}

function NodeClick(ID) 
{
	var IDs;
	IDs=ID.split(",");
	  toElement=window.event.srcElement;

	if(curSheetID!=IDs[0])
	{
		//所点的数据表是未选中的，需设置数据表的背景色
		if (curSheet!=null)
		{
			curSheet.style.backgroundColor ="white";
			for (var i = 0; i < curSheet.children.length; i++)
			  curSheet.children(i).style.backgroundColor ="white";
		}
	}
	toElement.parentElement.style.backgroundColor ="#e0e0e0";
	for (var i = 0; i < toElement.parentElement.children.length; i++)
	  toElement.parentElement.children(i).style.backgroundColor ="#e0e0e0";

	curSheetID=IDs[0];
	curSheet=toElement.parentElement;
	if(IDs.length==1)
	{
		//点在数据表自身上
		frmData.SheetID.value =curSheetID;
		frmData.action ="sheetinfo.asp";
		frmData.target ="RightData";
		frmData.submit();
		frmData.action ="/hcgis/empty.asp";
		frmData.target ="RightHead";
		frmData.submit();
	}
	else if(IDs.length==2)
	{
		toElement.style.backgroundColor ="#c0c0c0";
		if (IDs[1]==SheetInfor_ID)
		{
			//点在相关数据上
			frmData.SheetID.value =curSheetID;
			frmData.action ="sheetinfo.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightHead";
			frmData.submit();
		}
		else if (IDs[1]==SheetStructure_ID)
		{
			//点在字段设置上
			//一般来说RightData可以不submit一个empty.asp，因为listhead将在其中列出list，
			//但为了防止listhead本身失效（例如数据表自身已经不存在），这里还是预先打入
			//一个empty.asp
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="./structure/listhead.asp";
			frmData.target ="RightHead";
			frmData.SheetID.value=curSheetID;
			frmData.submit();
		}
		else if(IDs[1]==SheetRole_ID)
		{
			//点在角色权限设置上
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="./role/listhead.asp";
			frmData.target ="RightHead";
			frmData.SheetID.value=curSheetID;
			frmData.submit();
		}
		else if(IDs[1]==SheetTable_ID)
		{
			//点在表单模板设置上
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="./table/listhead.asp";
			frmData.target ="RightHead";
			frmData.SheetID.value=curSheetID;
			frmData.submit();
		}
		else if (IDs[1]==SheetReport_ID)
		{
			//点在报表设置上
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="./report/listhead.asp";
			frmData.target ="RightHead";
			frmData.SheetID.value=curSheetID;
			frmData.submit();
		}
		else if(IDs[1]==SheetMail_ID)
		{
			//点在提醒模板设置上
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightData";
			frmData.submit();
			frmData.action ="./mail/listhead.asp";
			frmData.target ="RightHead";
			frmData.SheetID.value=curSheetID;
			frmData.submit();
		}
	}
}

function AddRecord() {
	if(window.showModalDialog("frame.asp?target=new.asp", "","dialogwidth:560px;dialogheight:330px;Status:0;center:1;resizable=1;")==true)
	{
		frmData.action ="/hcgis/empty.asp";
		frmData.target ="RightHead";
		frmData.submit();
		frmData.action ="prompt.asp";
		frmData.target ="RightData";
		frmData.submit();
		window.navigate("sheettree.asp");
	}
}

function DelRecord() 
{
	if(curSheetID==null)
	{
		alert("您要删除哪个数据表？请选择。")
	}
	else
	{
		//确定该数据表是否被引用，如被引用则不允许删除
		var MayDel;
		var IDParts;
		MayDel=true;
		IDParts=frmData.ReferencedSheetIDs.value.split(",");
		for(var i=1;i<=IDParts.length;i++)
		{
			if(IDParts[i-1]==curSheetID)
			{
				MayDel=false;
				alert("数据表不能删除。\n为了保证系统完整性，当数据表的字段已经被其它数据表引用时，系统将不允许删除。请查看‘表间关系’，首先处理好这些引用情况，然后再删除。如果您确定清除了这些引用关系，刷新一下屏幕再试试。")
				break;
			}
		}
		if(MayDel)
		{
			if(confirm("警告！\n此操作将彻底清除此数据表的字段设置、数据记录、日志、角色、报表等数据，且无法恢复。如果是暂时不用，可以修改它的状态为停用，一般用户就无法访问了。删除操作要慎重，以免数据丢失。\n您确定要删除这个数据表吗？")==true)
			{
				document.frmData.RowSelect.value =curSheetID;
				document.frmData.target ="SaveArea";
				document.frmData.action="del.asp";
				document.frmData.submit();
			}
		}
	}
}

function EditRecord() 
{
	if(curSheetID==null)
	{
		alert("您要修改哪个数据表？请选择。")
	}
	else
	{
		if(window.showModalDialog ("frame.asp?Target=edit.asp?RowID=" + curSheetID,"","dialogwidth:560px;dialogheight:330px;Status:0;center:1;resizable=1;")==true)
		{
			frmData.action ="/hcgis/empty.asp";
			frmData.target ="RightHead";
			frmData.submit();
			frmData.action ="prompt.asp";
			frmData.target ="RightData";
			frmData.submit();
			window.navigate("sheettree.asp");
		}
		
	}
}

function SetOrder() {
	if(window.showModalDialog("frame.asp?target=chgorder.asp", "","dialogwidth:330px;dialogheight:370px;Status:0;center:1;resizable=1;")==true)
	{
		window.navigate("sheettree.asp");
	}
}

function SetRelation() 
{
	if (curSheet!=null)
	{
		curSheet.style.backgroundColor ="white";
		for (var i = 0; i < curSheet.children.length; i++)
		  curSheet.children(i).style.backgroundColor ="white";
	}
	frmData.action ="/hcgis/empty.asp";
	frmData.target ="RightData";
	frmData.submit();
	frmData.action ="./relation/listhead.asp";
	frmData.target ="RightHead";
	frmData.submit();
}
//-->
</script>
<%
	
	dim WExcel
	set WExcel=server.CreateObject("WExcel.System")

	dim BodyStr,SheetCount
	if Admin="1" then
		WExcel.GetSheetTree cint(UserID),SheetCount,ReferencedSheetIDs,BodyStr
	elseif Admin="2" then
		WExcel.GetSheetTreeForSheetAdmin cint(UserID),SheetCount,ReferencedSheetIDs,BodyStr
	end if
	CheckErr
%>
<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	</head>
	<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" LANGUAGE="javascript" onload="return window_onload()">
		<table width="105%" border="0" cellPadding="0" cellSpacing="1">
			<tr height="300" valign="top">
				<td colspan="2">
					<%=BodyStr%>
				</td>
			</tr>
			<%if Admin="1" then%>
				<tr height=30 valign="bottom">
					<td colspan="2" align=center>
						<input type="button" name="btnAdd" disabled value="新增" style="cursor:hand; WIDTH: 40px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return AddRecord()">
						<input type="button" name="btnDel" disabled value="删除" style="cursor:hand; WIDTH: 40px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return DelRecord()">
						<input type="button" name="btnMod" disabled value="修改" style="cursor:hand; WIDTH: 40px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return EditRecord()">
					</td>
				</tr>
			
				<tr height=30 valign="bottom">
					<td colspan="2" align=center>
						<input type="button" name="btnSetOrder" <%if SheetCount<=1 then%>disabled<%end if%> value="调整顺序" style="cursor:hand; WIDTH: 62px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return SetOrder()">
						<input type="button" name="btnSetRelation" <%if SheetCount<=1 then%>disabled<%end if%> value="表间关系" style="cursor:hand; WIDTH: 62px; HEIGHT: 24px" LANGUAGE="javascript" onclick="return SetRelation()">
					</td>
				</tr>
			<%end if%>
			<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
			</iframe>
		</table>
		<form METHOD="post" name="frmData">
			<input TYPE="hidden" NAME="Admin" value=<%=Admin%>>
			<input TYPE="hidden" NAME="SheetID">
			<input TYPE="hidden" NAME="RowSelect">
			<input TYPE="hidden" NAME="SheetCount" value=<%=SheetCount%>>
			<input TYPE="hidden" NAME="ReferencedSheetIDs" value="<%=ReferencedSheetIDs%>">
		</form>
	</body>                                                                                                           
</html>