📄 equi_mtplan_list_print.inc
字号:
<%
Function DeptName(conn, dept_id)
dim sName
if CStr(dept_id) <> "-1" then
sName = DLookUp(conn, "select node_desp from t_node where node_id =" & ToSQL(dept_id, "Number"))
end if
'' 负责部门
if sName <> "" then
sName = "<br><div style=""text-align:left;font-size:11pt;font-weight:400;"">负责部门: " & sName & "</div>"
end if
DeptName = "<table width=""95%"" align=center><tr><td>" & sName & "</td></tr></table>" & vbLF
End Function
Function ListTableHeader()
ListTableHeader = _
"<table cellspacing=0 cellpadding=3 width=""95%"" border=1 align=center style=""table-layout:fixed;border-collapse:collapse;border:1px solid black"">" & 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 & _
" <td width=50>备注</td>" & vbLF & _
"</tr>" & vbLF & _
"<tr height=30><td colspan=" & iCols & " bgcolor=white align=center style=""color:black;font-size:14pt;font-weight:600;"">" & pYear & "年度维保计划</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>系统/设备</td>" & vbLF & _
" <td nowrap id=HeaderCol3 class=tdHead align=center rowspan=2>内容</td>" & vbLF & _
" <td nowrap id=HeaderCol4 class=tdHead align=center colspan=12>计划安排 ( 月份 )</td>" & vbLF & _
" <td nowrap id=HeaderCol5 class=tdHead align=center rowspan=2>周期</td>" & vbLF & _
" <td nowrap id=HeaderCol6 class=tdHead align=center rowspan=2>负责部门</td>" & vbLF & _
" <td nowrap id=HeaderCol6 class=tdHead align=center rowspan=2>备注</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> " & 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 & _
" <td align=center nowrap>" & sRemark & "</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -