equi_mtplan_list.inc

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

<%
Function FormSearchPlan()
	dim sTemp
	dim j, sYearOptions
	for j = 2002 to 2052
		sYearOptions = sYearOptions & "<option value=""" & CStr(j) & """>" & CStr(j) & "年</option>" & vbLF
	next
	sTemp = "<form name=""FormSearchPlan"" method=post action=""equi_mtplan_list.asp"">"& _
		"<table border=0 cellspacing=0 cellpadding=5 width=""100%"" align=center style=""table-layout:fixed"">" & _
		"<tr style=""display:none"">" & vbLF & _
		"	<td width=60>保养年份</td><td width=90>保养年份选择框</td>" & vbLF & _
		"	<td width=80>保养周期</td><td width=100>保养周期选择框</td>" & vbLF & _
		"	<td width=80>负责部门</td><td width=120>负责部门选择框</td>" & vbLF & _
		"	<td width=""*"">查询</td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr height=20>" & vbLF & _
		"	<td colspan=7 background=""../images/bg/bnbg.gif"" style=""color:white;font-weight:600"" align=center>系 统 ／ 设 备 维 保 计 划 查 询 条 件</td></tr>" & vbLF & _

		"<tr>" & vbLF & _
		"	<td align=center nowrap>年　份：</td>" & vbLF & _
		"	<td><select name=""year"" style=""width:80px"">" & vbLF & _
				sYearOptions & _
				"</select></td>" & vbLF & _
		"	<td align=right nowrap>周　期：</td>" & vbLF & _
		"	<td><select name=""period"" style=""width:80px"">" & vbLF & _
				"<option value=""-1"">－所有－</option>" & vbLF & _
				"<option value=""1"">每一月</option>" & vbLF & _
				"<option value=""3"">每季度</option>" & vbLF & _
				"<option value=""6"">每半年</option>" & vbLF & _
				"<option value=""12"">每一年</option>" & vbLF & _
				"<option value=""24"">每二年</option>" & vbLF & _
				"</select>" & vbLF & _
				"</td>" & vbLF & _
		"	<td align=right nowrap>部　门：</td>" & vbLF & _
		"	<td><select name=""dept_id"" style=""width=80px"">" & vbLF & _
					"<option value="""" selected>－所有－</option>" & _
					SelectOptions(conn, "select node_id, node_desp from t_node", "node_id", "node_desp", pDeptId) & "</select></td>" & vbLF & _
		"	<td align=left style=""color:blue;cursor:hand"" onclick=""JavaScript:FormSearchPlan.submit();""><img border=0 src=""../images/search.gif"">查询</td>" & vbLF & _
		"</tr>" & vbLF & _

		"<tr height=5><td colspan=5></td></tr>" & vbLF & _
		"</form>" & vbLF & _
		"</table>" & vbLF

	FormSearchPlan = sTemp
End Function







Function ListTableHeader()
	ListTableHeader = _
		"<table id=""tablePlanlist"" cellspacing=0 cellpadding=3 width=""100%"" border=1 align=center bgcolor=silver style=""table-layout:fixed;border-collapse:collapse;border:1px solid silver"">" & vbLF & _
		"<tr style=""display:none;border:0px"" bgcolor=white>" & vbLF & _
		"	<td width=30 nowrap>序号</td>" & vbLF & _
		"	<td width=100>系统设备名－－这一行仅用于控制表格宽度</td>" & vbLF & _
		"	<td width=""*"">内容</td>" & vbLF & _
		"	<td width=18>月份1</td>" & vbLF & _
		"	<td width=18>月份2</td>" & vbLF & _
		"	<td width=18>月份3</td>" & vbLF & _
		"	<td width=18>月份4</td>" & vbLF & _
		"	<td width=18>月份5</td>" & vbLF & _
		"	<td width=18>月份6</td>" & vbLF & _
		"	<td width=18>月份7</td>" & vbLF & _
		"	<td width=18>月份8</td>" & vbLF & _
		"	<td width=18>月份9</td>" & vbLF & _
		"	<td width=18>月份10</td>" & vbLF & _
		"	<td width=18>月份11</td>" & vbLF & _
		"	<td width=18>月份12</td>" & vbLF & _
		"	<td width=50>周期</td>" & vbLF & _
		"	<td width=70>负责部门</td>" & vbLF & _
		"</tr>" & vbLF & _
 
		"<tr><td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20  id=PlanlistTitle>系 统 ／ 设 备 维 保 计 划 查 询 结 果</td></tr>" & vbLF & _

		"<tr bgcolor=""#eeeeee"">" &  vbLF & _
		"	<td nowrap id=HeaderCol1 class=tdHead align=center rowspan=2>序号</td>" & vbLF & _
		"	<td nowrap id=HeaderCol2 class=tdHead align=center rowspan=2><img src=""../images/bg/ar-y.gif"" width=8 height=8>&nbsp;" & _
						TableHeaderField(sFileName, "equi_sys_id", "系统/设备", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"	<td nowrap id=HeaderCol3 class=tdHead align=center rowspan=2>" & _
						TableHeaderField(sFileName, "content", "内容", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"	<td nowrap id=HeaderCol4 class=tdHead align=center colspan=12>计划安排 ( 月份 )</td>" & vbLF & _
		"	<td nowrap id=HeaderCol5 class=tdHead align=center rowspan=2>" & _
						TableHeaderField(sFileName, "period", "周期", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"	<td nowrap id=HeaderCol6 class=tdHead align=center rowspan=2>" & _
						TableHeaderField(sFileName, "department", "负责部门", sFormParams, sSorting, sSorted) & "</td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr bgcolor=""#eeeeee"">" & vbLF & _
		"	<td align=center>1</td>" & vbLF & _
		"	<td align=center>2</td>" & vbLF & _
		"	<td align=center>3</td>" & vbLF & _
		"	<td align=center>4</td>" & vbLF & _
		"	<td align=center>5</td>" & vbLF & _
		"	<td align=center>6</td>" & vbLF & _
		"	<td align=center>7</td>" & vbLF & _
		"	<td align=center>8</td>" & vbLF & _
		"	<td align=center>9</td>" & vbLF & _
		"	<td align=center>10</td>" & vbLF & _
		"	<td align=center>11</td>" & vbLF & _
		"	<td align=center>12</td>" & vbLF & _
		"</tr>" & vbLF 
End Function

Function ListTableTailer()
	ListTableTailer = "<tr bgcolor=white height=25><td colspan=17>带"&"<span style=""color:red"">*</span>"&"号的表示该项目为系统，不带"&"<span style=""color:red"">*</span>"&"号的为设备。</td></tr>" & vbLF
	ListTableTailer = ListTableTailer & "</table>" & vbLF
End Function

Function ListTableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量

	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 0
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim rs	: set rs = Openrs(conn,sSQL)
	dim iPlanId, iEquiSysId, iObjectType, iPeriod, dtNextTime, sContent, iPlanHours, iLimitDays, sRemindMethod, sDept, sRemark
	dim sEquiSysName, sPeriod, sNextTime, sPlanHours
	'' 保养月份
	dim m1, m2, m3, m4, m5, m6, m7, m8, m9, m10, m11, m12
	dim sPlanMonths, arrayMonth

	while not rs.EOF
		iCounter = iCounter + 1
		iPlanId				= GetValue(rs, "plan_id")
		iEquiSysId		= GetValue(rs, "equi_sys_id")
		iObjectType		= GetValue(rs, "object_type")
		iPeriod				= GetValue(rs, "period")
		dtNextTime		= GetValue(rs, "nexttime") 
		sContent			= GetValue(rs, "content")
		iPlanHours		= GetValue(rs, "plan_hours")
		iLimitDays			= GetValue(rs, "limit_days")
		sRemindMethod	= GetValue(rs, "remindmethod")
		sDept				= GetValue(rs, "department")
		sRemark			= GetValue(rs, "remark")

		'' 系统/设备名
		if CStr(iObjectType) = "0" then 
			sEquiSysName = "<span style=""color:red"">*</span>" & _
					DLookUp(conn, "select sys_desc from t_sys where sys_id = " & ToSQL(iEquiSysId, "Number"))
		elseif CStr(iObjectType) = "1" then
			sEquiSysName = DLookUp(conn, "select name from t_equipment where equi_id = " & ToSQL(iEquiSysId, "Number"))
		end if

		'' 保养月份
		sPlanMonths = GetPlanMonth(iPeriod, dtNextTime)
		for j = 1 to 12
			if Instr("," & sPlanMonths & ",", "," & CStr(j) & ",") = 0 then
				Execute("m" & j & "=""""")				'' 如果不包含该月份，则用“”表示
			else
				Execute("m" & j & "=""" & j & """")			'' 如果包含该月份，则用“#”表示
			end if
		next
		
		'' 保养周期
		select case CStr(iPeriod)
		case ""
		case 1
			sPeriod = "每月"
		case 3
			sPeriod = "每季度"
		case 6
			sPeriod = "每半年"
		case 12
			sPeriod = "每年"
		case 24
			sPeriod = "每两年"
		end select

		'' 下次保养时间
		if dtNextTime <> "" then sNextTime = FormatDT(dtNextTime, "yyyy-mm-dd")
		'' 预计工时
		if iPlanHours <> "" then sPlanHours = iPlanHours & " 小时"
		'' 提醒方式
		if sRemindMethod <> "" then sRemindMethod = "提前 " & sRemindMethod & " 天提醒"
		
		sTemp = sTemp & "<tr bgcolor=white>" & vbLF & _
				"	<td align=center>" & iCounter & "</td>" & vbLF & _
				"	<td>&nbsp;" & sEquiSysName & "(" & iEquiSysId & ")</td>" & vbLF & _
				"	<td align=left>" & sContent & "</td>" & vbLF & _
				"	<td align=center>" & m1 & "</td>	<!-- 01月份 -->" & vbLF & _
				"	<td align=center>" & m2 & "</td>	<!-- 02月份 -->" & vbLF & _
				"	<td align=center>" & m3 & "</td>	<!-- 03月份 -->" & vbLF & _
				"	<td align=center>" & m4 & "</td>	<!-- 04月份 -->" & vbLF & _
				"	<td align=center>" & m5 & "</td>	<!-- 05月份 -->" & vbLF & _
				"	<td align=center>" & m6 & "</td>	<!-- 06月份 -->" & vbLF & _
				"	<td align=center>" & m7 & "</td>	<!-- 07月份 -->" & vbLF & _
				"	<td align=center>" & m8 & "</td>	<!-- 08月份 -->" & vbLF & _
				"	<td align=center>" & m9 & "</td>	<!-- 09月份 -->" & vbLF & _
				"	<td align=center>" & m10 & "</td>	<!-- 10月份 -->" & vbLF & _
				"	<td align=center>" & m11 & "</td>	<!-- 12月份 -->" & vbLF & _
				"	<td align=center>" & m12 & "</td>	<!-- 12月份 -->" & vbLF & _
				"	<td align=center>" & sPeriod & "</td>" & vbLF & _
				"	<td align=center>" & sDept & "</td>" & vbLF & _
				"</tr>" & vbLF
		rs.movenext
	wend

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter+1, iRecordsPerPage)

	ListTableRecords = sTemp
End Function


Function GetPlanMonth(iPeriod, dtNextTime)
	dim n, m, sPlanMonths

	sPlanMonths = ""
	n = Month(dtNextTime)		'' 取到下次维保时间中的月份

	select case CStr(iPeriod)
	case "1"
		sPlanMonths = "1,2,3,4,5,6,7,8,9,10,11,12"
	case "3"
		m = n Mod 3	 - 1		'' 取3余
		sPlanMonths = CStr(m+3+1) & _
			"," & CStr(m+6+1) & _
			"," & CStr(m+9+1) & _
			"," & CStr(((m+12) Mod 12) + 1)
	case "6"
		m = (n Mod 6)	- 1		'' 取6余
		sPlanMonths = CStr(m+6+1) & "," & CStr(((m+12) Mod 12) + 1)
	case "12"
		sPlanMonths = CStr(n)
	case "24"
		sPlanMonths = CStr(n)
	case else
		sPlanMonths = ""
	end select
	GetPlanMonth = sPlanMonths
end function
%>