eaddeq.inc

物业管理和办公自动化系统

	for each i in Array(3,4,13,14,15,16)
		ev2(i) = ToSQL(GetParam(ev(i)),"Number")
	Next

	ev2(0)=gSid

	mev=Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
	
	sql= "insert into t_equipment (" & wj(mev,ev,",") & ")" & _
		"values ("& wj(mev,ev2,",") & ")"
'	response.write sql
	conn.Execute(sql)
'	ww "<script language=javascript> parent.location = ""eaddeq.asp""</script>"
End Sub


Sub AddChildEq()
	dim ev2(18)
	dim i,j
	dim sql
	dim mev
	
	for each i in Array(1,2,5,6,7,8,9,10,11,12,17,18)
		ev2(i) = ToSQL(GetParam(ev(i)),"Text")
	Next
	for each i in Array(3,4,13,14,15,16)
		ev2(i) = ToSQL(GetParam(ev(i)),"Number")
	Next

	ev2(0)=gSid

	mev=Array(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)
	
	sql= "insert into t_equipment (" & wj(mev,ev,",") & ",parent_equi_id)" & _
		"values ("& wj(mev,ev2,",") & ","& gPid &")"
'	response.write sql
	conn.Execute(sql)
		
End Sub

Sub UpdateEq()
	dim ev3(18),ev4(18)
	dim i,j
	dim sql
	dim mev
	mev = null
	


	for each i in Array(1,2,5,6,7,8,9,10,11,12,17,18)
		ev4(i) = ev(i) & "=" & ToSQL(GetParam(ev(i)),"Text")
	Next
	for each i in Array(3,4,13,14,15,16)
		ev4(i) = ev(i) & "=" & ToSQL(GetParam(ev(i)),"Number")
	Next


	mev=Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18)

	sql= "update t_equipment set " & wj(mev,ev4,",") & " where equi_id=" & gEid 

	conn.Execute(sql)
		
End Sub

Sub DeleteEq()
	' LookUp sub equipment
	dim sSQL, iRows

	iRows = DLookUp(conn, "select count(*) from t_equipment where parent_equi_id =" & gEid)
	if iRows > 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，该设备有" & iRows & "个子设备，该设备不能删除！"");" & vbLF & _
				"</script>" & vbLF
		exit Sub
	end if
'	sSQL = "delete from t_equipment where equi_id = " & gEid
	sSQL = "update t_equipment set discarded=1, discarded_date='"& Date & "' where equi_id=" & gEid
'	ww(sSQL)
	conn.Execute(sSQL)

'	gEid = empty
'	Server.Transfer "equipmgr.asp"
'	response.end

End Sub

Sub ReplaceEq()
	dim s
	dim rn
	 
	s = "proc_ChangeEquipment "& ToSQL(gEid,"Number")
	ww s
	rn  = ExecuteSP(conn,s)
	ww rn
	If rn < 0 Then
		werr "替换设备发生错误,错误代码为"&rn
		response.end
	End If
	ww "<script language=javascript>parent.location.href='etabs.asp?eid="& rn &"'</script>"
	
End Sub

Function FormTable1()
	dim sTitle, sActionLinks
'	sSysDesc = DLookUp(conn, "select sys_desc from t_sys where sys_id = " & ToSQL(pSysId, "Number"))
	if IsEmpty(pSysId) then
		sTitle = "新增根系统"			'' 显示新增、取消的链接
		sActionLinks = _
				"<tr bgcolor=white height=30>" & vbLF & _
				"	<td colspan=8 align=center>" & vbLF & _
				"		<img border=0 src=""../images/button/add.gif"" onclick=""btnAdd_OnClick()"" style=""cursor:hand"">" & vbLF & _
				"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
				"		<img border=0 src=""../images/button/clear.gif"" onclick=""btnClear_OnClick()"" style=""cursor:hand"">" & vbLF & _
				"	</td>" & vbLF & _
				"</tr>" & vbLF
	else
		if sAddType = "addchild" then
			sTitle = "新增子系统"			'' 显示新增、取消的链接
			sActionLinks = _
					"<tr bgcolor=white height=30>" & vbLF & _
					"	<td colspan=8 align=center>" & vbLF & _
					"		<img border=0 src=""../images/button/add.gif"" onclick=""btnAddChild_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
					"		<img border=0 src=""../images/button/clear.gif"" onclick=""btnClear_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"	</td>" & vbLF & _
					"</tr>" & vbLF
		else
			sTitle = "系统信息维护"			'' 显示修改、删除、取消的链接
			sActionLinks = _
					"<tr bgcolor=white height=30>" & vbLF & _
					"	<td colspan=8 align=center>" & vbLF & _
					"		<img border=0 src=""../images/button/update.gif"" onclick=""btnUpdate_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
					"		<img border=0 src=""../images/button/delete.gif"" onclick=""btnDelete_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"		&nbsp;&nbsp;&nbsp;&nbsp;" & vbLF & _
					"		<img border=0 src=""../images/button/cancel.gif"" onclick=""btnCancel_OnClick()"" style=""cursor:hand"">" & vbLF & _
					"	</td>" & vbLF & _
					"</tr>" & vbLF
		end if
	end if
dim s:	s = ""
	s = s &	"<form method=post name=frmMgr action=""updatesys.asp"">" & vbLF 
	s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
	s = s &		"<input type=""hidden"" name=""id"" value=""" & pSysId & """>" & vbLF
	s = s & "<table cellspacing=0 cellpadding=3 bgcolor=white border=1 width=""100%"" height=""100%"">" & vbLF 
	s = s & 		"<tr height=20>" & vbLF
	s = s &		"		<td colspan=2  bgcolor=""#0040a0"" style=""color:white;font-weight:600"" align=center>" & sTitle & "</td></tr>" & vbLF
	if sTitle = "新增子系统" then 
		s = s & 		"<tr height=20><td></td></tr>" & vbLF
		s = s &		"<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
		s = s &		"		<td width=80 align=right>父系统名称：</td><td>"& sSysDesc & "</td>" 
		s = s &		"<input type=""hidden"" name=""parent_id"" value=""" & pSysId & """>" & vbLF
		sSysDesc = ""
		sRemark = ""
	end if
	s = s & 		"<tr height=20><td></td></tr>" & vbLF
	s = s &		"<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
	s = s &		"		<td width=80 align=right>系统名称：</td>" 
	s = s &		"		<td><input type=""text"" name=""description"" value=""" & sSysDesc & """ size=31 maxlength=10></td></tr>" & vbLF
	s = s &		"<tr bgcolor=""#FFFFFF"" height=60>" & vbLF
	s = s &		"		<td width=80 align=right>系统说明：</td>" 
	s = s &		"		<td><input type=""text"" name=""remark""  value=""" & sRemark & """size=31 maxlength=25></td></tr>" & vbLF

	s = s & 		sActionLinks & vbLF
	s = s &		"<tr height=180><td></td></tr>" & vbLF
	s = s & 		"</form>"
	s = s &		"</table>" & vbLF &	""

	FormTable = s
End Function



sub AddSys()
	dim sSQL, iRows
	sSysDesc = Trim(GetParam("description"))
	sRemark = Trim(GetParam("remark"))
	'' 系统名称不能为空
	if sSysDesc = "" then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，请输入系统名称"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if

	'' 检查是否存在重复的系统名称
	iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc =" & ToSQL(sSysDesc, "Text"))
	if iRows > 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，已经存在名称为“" & sSysDesc & "”的系统，系统名称不能重复！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	'添加根系统
		sSQL = "insert into t_sys(sys_desc, remark ) values(" & ToSQL(sSysDesc, "Text") & "," & ToSQL(sRemark, "Text") & ")"
	conn.Execute(sSQL)
	pSysId = empty		'' 重新置成新增状态
	sSysDesc = ""
	sRemark = ""
end sub

sub AddChildSys()
	dim sSQL, iRows, iParentId, sSQL1, sSysDesc
	sSysDesc = Trim(GetParam("description"))
	sRemark = Trim(GetParam("remark"))
	iParentId = GetParam("parent_id")
	'' 系统名称不能为空
	if sSysDesc = "" then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，请输入系统名称"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if

	'' 检查是否存在重复的系统名称
	iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc =" & ToSQL(sSysDesc, "Text"))
	if iRows > 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，已经存在名称为“" & sSysDesc & "”的系统，系统名称不能重复！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	'添加子系统，令父系统的has_child字段值为1
		sSQL = "insert into t_sys(sys_desc, remark, parent_id) values(" & ToSQL(sSysDesc, "Text") & "," & ToSQL(sRemark, "Text") & "," & ToSQL(iParentId, "Number") & ")"
		sSQL1 = "update t_sys set has_child = 1 where sys_id = "& iParentId 
	conn.Execute(sSQL)
	conn.Execute(sSQL1)
	sAddType = "addchild"		'' 重新置成新增子系统状态
'	sSysDesc = ""
'	sRemark = ""
end sub

sub UpdateSys()
	dim sSQL, iRows
	sSysDesc = Trim(GetParam("description"))
	sRemark = Trim(GetParam("remark"))
	'' 系统名称不能为空
	if sSysDesc = "" then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，请输入系统名称"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if

	'' 检查是否存在重复的系统名称
	iRows = DLookUp(conn, "select count(*) from t_sys where sys_desc=" & ToSQL(sSysDesc, "Text") & " and sys_id<>" & ToSQL(pSysId,"Number"))
	if iRows > 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，系统名称不能重复！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	sSQL = "update t_sys set sys_desc = " & ToSQL(sSysDesc, "Text") &"," & "remark = "& ToSQL(sRemark, "Text") &" where sys_id = " & ToSQL(pSysId, "Number")
'	response.write sSQL
'	response.end
	conn.Execute(sSQL)
	pSysId = empty	'' 重新置成新增状态
	sSysDesc = ""
	sRemark = ""
end sub

sub DeleteSys()
	sSysDesc = Trim(GetParam("description"))
	dim sSQL, iRows

	'' 检查是否存在使用中的系统名称
	iRows = DLookUp(conn, "select count(*) from t_equipment where is_child = 0 and sys_parent_id =" & ToSQL(pSysId, "Number"))
	if iRows > 0 then
		Response.Write _
				"<script language=""javascript"">" & vbLF & _
				"		alert(""对不起，系统中有" & iRows & "个属于“" & sSysDesc & "”系统的设备，该系统名称不能删除！"");" & vbLF & _
				"</script>" & vbLF
		exit sub
	end if
	sSQL = "delete from t_sys where sys_id = " & ToSQL(pSysId, "Number")
	conn.Execute(sSQL)
	pSysId = empty		'' 重新置成新增状态
	sSysDesc = ""
	sRemark = ""
end sub
%>