emprint.inc

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

<%

Function VarTable(eid)
	dim en(14),ev(14)
	dim en1(14),ev1(14)
	dim sql
	dim rs
	dim s1,s2,s3
	dim i,j

	for i = 1 to 15
		en(i-1) = "sd" & i & "n"
		ev(i-1) = "sd" & i
	Next

	sql = "select * from t_equipment where equi_id= "& eid
	set rs = openrs(conn,sql)

	If not rs.eof Then
		for i = 1 to 15
			en1(i-1) = getvalue(rs,en(i-1))
			ev1(i-1) = getvalue(rs,ev(i-1))
			if(en1(i-1)="") Then
				en1(i-1)="&nbsp;"
			End If
			if(ev1(i-1)="") Then
				ev1(i-1)="&nbsp;"
			End If

		Next
	Else
		for i = 1 to 15
			en1(i-1) = ""
			ev1(i-1) = ""
		Next
	End If

	closers(rs)

	for i = 1 to 15
		en1(i-1) = wdas(en1(i-1)," width=100 align=center class=tdHead")
		ev1(i-1) = wdas(ev1(i-1)," width=100 align=center ")
	Next	
	s3 = ""
	For i = 1 to 13 step 3
		s2=""
		For each j in Array(i,i+1,i+2)
			
			s1 = en1(j-1) & ev1(j-1)
			s2 = s2 & s1
		Next

		s3 = s3 & wra(s2)
	
	Next
	
	s3 = ModifyTable

	dim sTemp
	sTemp = "<table width=600 cellspacing=0  rules=none cellpadding=2 border=1 align=center >"
	sTemp = sTemp & "<tr><td>" & EqTable(eid) &"</td></tr>"
	sTemp = sTemp & "<tr><td>" & TableHeader & "</td></tr>"
	sTemp = sTemp & "<tr><td>" & s3 & "</td></tr>"

	sTemp = sTemp & "</table>"
	VarTable = TitleTable(eid) & sTemp & ToolTable	
	
'	VarTable = TitleTable(eid) & EqTable(eid) & TableHeader & s3 & wtbe & ToolTable
End Function
' 

Function TitleTable(eid)
	dim f1,f2,f3
	dim sql

	TitleTable= wtbas(wra(wdas("上海信息大楼设备台帐（设备电机）","style=""font:20px"" width=600 align=center")),"border=0 align=center ")
	
	sql = "select department from t_equipment where equi_id=" & eid
	f1 = DLookup(conn,sql)
	f1 = "部门: " & f1 
	

	sql = "select sys_desc from t_sys a,t_equipment b where a.sys_id=b.sys_id and b.equi_id=" & eid
	f2 = DLookup(conn,sql)

	f2 = "系统: "  & f2

'	sql = "select sys_desp from t_sys a,t_equipment b where a.sys_id=b.sys_id and equi_id=" & eid
	f3 = "设备代码:" & eid & " "

	f1 = wdas(f1," width=100 ")
	f2 = wdas(f2," width=100 ")
	f3 = wdas(f3," width=400 align=right ")
	
	
	TitleTable = TitleTable & wtbas(wra(f1&f2&f3),"border=0 align=center ")

	
	
End Function
Function EqTable(eid)
	dim up : up = 6
	dim en,ev
	dim en1(6),ev1(6)
	dim i,j
	dim sql,rs
	dim s1,s2,s3

	up=6

	en = Array("设备名称","型号规格","机房","设备编号","控制对象","安装位置")
	ev = Array("name","model","room_no","number","control","site")

	sql = "select * from t_equipment where equi_id= "& eid
	set rs = openrs(conn,sql)

	If not rs.eof Then
		for i = 1 to up
			en1(i-1) = en(i-1)
			ev1(i-1) = getvalue(rs,ev(i-1))
			if(IsEmpty(ev1(i-1))) Then
				ev1(i-1)="&nbsp;"
			End If
		Next
	Else
		werr("系统中不存在该设备！")
	End If
	closers(rs)
	for i = 1 to up
		en1(i-1)=wdas(en1(i-1)," class=tdHead width=100 ")
		if(ev1(i-1) = "" ) tHEN
			ev1(i-1) = "&nbsp;"
		End if
		ev1(i-1)=wdas(ev1(i-1)," align=center width=100 ")
	Next
	
	s3 = ""
	For i = 1 to 4 step 3
		s2=""
		For each j in Array(i,i+1,i+2)
			
			s1 = en1(j-1) & ev1(j-1)
			s2 = s2 & s1
		Next

		s3 = s3 & wra(s2)
	
	Next
	
	s3 = wras(wdas("基本信息列表"," width=600 colspan=6 class=tdHead")," align=center ") & s3

	EqTable = "<center>" & wtbas(s3," width=600 cellspacing=0 cellpadding=3 width=600 border=1 align=center style=""table-layout:fixed"" bgcolor=""white"" border=1 ")
	

End Function
	
'************************************************************************************************
' 函数名　: TableHeader()
' 输　入　: 
' 输　出　: 一个用于显示角色列表的表头
' 功能描述: 
' 调用模块: list_role.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-08-01
' 版　本　: 
'		wras(TableTitle("技术参数列表", 600, "", "#0040a0")," colspan=5 ") & _

'************************************************************************************************
Function TableHeader()
	TableHeader = _
		"<table cellspacing=0 cellpadding=3 width=100% align=center rules=none style=""table-layout:fixed"" bgcolor=""white"" border=1>" & _
		"<tr align=center  >" & _
		"<td colspan=6 class=tdHead width=600 align=center>设备电机列表</td>" & _
		"</tr>" & wtbe
End Function

Function FormHead()
	dim s : s=""
	s = s &	"<form method=post name=frmMgr action=""evar.asp"">" & vbLF 
	s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
	s = s &	"<input type=""hidden"" name=""eid"" value=""" & gEid & """>" & vbLF
	FormHead = s

End Function


Function ToolTable()
	dim sActionLinks
	sActionLinks = _
			"<tr bgcolor=white height=30 > "& vbLF & _
			wdas("仲量联行上海信息大楼物业管理中心<br>"," colspan=6 align=right ") & wre &_
			"<tr bgcolor=white height=30>" & vbLF & _
			"	<td colspan=6 align=center>" & vbLF & _
		"		<img border=0 src=""../images/button/preview.gif"" class=""noprint"" style=""cursor:hand"" OnClick=""JavaScript:doPrintPreview();"" name=btnPreview>" & _
		"		<img border=0 src=""../images/button/return.gif"" class=""noprint"" style=""cursor:hand"" onclick=""javascript:window.close();"">"  & _
			"	</td>" & vbLF & _
			"</tr>" & vbLF
	ToolTable = "<center>" & wtbas(sActionLinks,"  width=600 ")

End Function

Function ModifyTable()
	dim s : s = ""
	dim i
	dim n1			:	n1		= Array("名  称","产  地","数  量","额定电压","额定电流","功  率","启用时间","频  率","转  速","保养商","控制柜编号","备  件")
	dim a1			:	a1		= Array("name","origin","quantity","rating_voltage","rating_current","power","starttime","frequency","speed","maintainer","controller","spareparts")
	dim sDelimiter		:	sDelimiter	= "*"
	dim l			:	l		= LBound(n1)
	dim u			:	u		= UBound(a1)
	dim s1 : s1= ""
	dim sql
	dim ee : ee = a1
	dim el		: el = Array(0,1,2,3)

	s1 =	"<tr style=""display:none"">" & vbLF & _
		"	<td width=60>这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=140></td>" & vbLF & _
		"	<td width=80></td>" & vbLF & _
		"	<td width=140></td>" & vbLF & _
		"	<td width=40></td>" & vbLF & _
		"	<td width=*></td>" & vbLF 

	
	sql = "select * from t_machinery where equi_id = " & ToSQL(gEid, "Number")
'	ww(sql)
	dim rs : set rs = openrs(conn,sql)

	while not rs.eof 

		for i = l to u
			ee(i) = getvalue(rs,a1(i))
		Next
		if ee(9) = 0 then
		ee(9)="未知"
		else
		ee(9) = DLookup(conn,"select name from t_firm where id=" & ee(9))
		end if
	


		

	for i = l to u
		if ee(i)="" Then
			ee(i)="&nbsp;"
		End If
		ee(i) = wdas(n1(i)," class=tdHead ")  & wdas(ee(i), " align=center")
	Next

	for i = 0 to 3
		i = cint(i)
		el(i) = wra(ee(i*3) & ee(i*3+1) & ee(i*3+2))
	Next
	s = s & "<table cellspacing=0 cellpadding=2 width=""100%"" border=1 align=center  style=""table-layout:fixed"" bgcolor=""white"">" & vbLF 
	s = s & s1 
	s= s & JOin(el," ")
	s = s & wtbe & "</td></tr><tr><td>"
	rs.movenext
	wend
	closers(rs)


	ModifyTable =  s 	

End Function

%>