updatesysplan.inc

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

<%
'************************************************************************************************
' 函数名　: SelectOptions
' 输　入　: conn            ---- 指名连接到哪个数据库
' 　　　　  table	         ---- 表名，类型为字符串
' 　　　　  ValueField    ---- 字段名，类型为字符串
' 　　　　  DisplayField  ---- 字段名，类型为字符串
' 　　　　  DefaultValue  ---- 缺省选中的值
' 　　　　  sWhere        ---- 条件限定语句
' 输　出　: SelectOptions函数名作为返回值，类型为字符串"<option value='id值'>desp值</option>...."
' 功能描述: 根据限定条件从相应表中选取相应字段值
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-09
' 版　本　: 
'************************************************************************************************
Function SelectOptions(table, ValueField, DisplayField, DefaultValue, sWhere)
	' 定义临时存放函数返回值的内容的变量，并赋初值
	Dim Res : Res = ""

	' 构造SQL语句
	Dim sSQL
	if Trim(sWhere) = "" then	' 没有查询限制条件
		sSQL = "select " & ValueField & " as f1, " & DisplayField & " as f2 from " & table
	else
		sSQL = "select " & ValueField & " as f1, " & DisplayField & " as f2 from " & table & " where " & sWhere
	end if

	' 获取数据库记录集
	dim rs
	Set rs = OpenRs(conn, sSQL)

	' 循环取数据，放入<option>对
  	Dim m_id, m_desp, m_default
	m_default = DefaultValue

	while not rs.EOF 
		m_id   = GetValue(rs,"f1")
		m_desp = GetValue(rs,"f2")     

		' 对取出的每一条记录的值与缺省值比较，相同则选中
		if UCase(CStr(m_id)) = UCase(CStr(m_default)) then
			Res = Res & vbTab & "<option value=""" & m_id & """ selected>" & m_desp & "</option>" & VBLF
		else
			Res = Res & vbTab & "<option value=""" & m_id & """>" & m_desp & "</option>" & VBLF
		end if
		rs.MoveNext
	wend

	''if Res = "" then Res = "<option value=""-1"">(无记录)</option>" & VBLF
	SelectOptions = Res

	' 断开数据库
	Rs.Close()
end function

Function TransDepartment(iDepartment)
	dim rs, sSQL
	sSQL = "select * from T_node where node_id = "&iDepartment
	set rs = OpenRs(conn, sSQL)
	TransDepartment = GetValue(rs,"node_desp")
	rs.Close()
End Function

Function TransNumber(i)
	select case i 
	case 1
		TransNumber = "一"
	case 2
		TransNumber = "二"
	case 3
		TransNumber = "三"
	end select
End Function



Function FormTable()
	dim sTitle, sActionLinks, iRows, sSQL
	dim s:	s = ""
'	response.write "pEquiSysId="&pEquiSysId
'	response.end
	if not IsEmpty(pEquiSysId)	then
		sSQL = "select count(*) from t_maintain where equi_sys_id =" & ToSQL(pEquiSysId, "Number")& " and object_type = "& ToSQL(pObjectType, "Number") 
		iRows = DLookUp(conn, sSQL)
		if iRows = 0 then
			sTitle = sEquiSysDesc&"("&pEquiSysId&")新增维保计划"			'' 显示新增、取消的链接
			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
			sTitle = sEquiSysDesc&"("&pEquiSysId&")维保计划维护"			'' 显示修改、删除的链接
			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 & _
					"	</td>" & vbLF & _
					"</tr>" & vbLF
		end if
	'	定义一系列表单元素变量，当pEquiSysId不为空时，显示该维保计划的内容
		dim iPeriod, dNexttime, iPlanId, sContent, sRemark, iPlanHours, iLimitDays, iDepartment, iRemind
		iPeriod = 1
		dNexttime = date()
		iPlanHours = 0
		iLimitDays = 0
		iDepartment = 1
		iRemind = 1
		sSQL = "select * from t_maintain where equi_sys_id =" & ToSQL(pEquiSysId, "Number")& " and object_type = "& ToSQL(pObjectType, "Number") 
		dim rs	: set rs = Openrs(conn,sSQL)
		if not rs.EOF then
'			response.write "has find "&sSQL
'			response.end
			iPlanId = GetValue(rs,"plan_id")
			iPeriod = GetValue(rs,"period")
			dNexttime = GetValue(rs,"nexttime")
			sContent = GetValue(rs,"content")
			iPlanHours = GetValue(rs,"plan_hours")
			iLimitDays = GetValue(rs,"limit_days")
			iDepartment = GetValue(rs,"department")
			iRemind = GetValue(rs,"remindmethod")
			sRemark = GetValue(rs,"remark")
		end if
		if not rs.EOF then'修改和删除
			s = s &	"<form method=post name=frmMgr action=""updatesysplan.asp"">" & vbLF 
		else'新增
			s = s &	"<form method=post name=frmMgr enctype=""multipart/form-data"" action=""savetodb.asp"">" & vbLF 
		end if
		s = s & "<input type=""hidden"" name=""FormAction"">" & vbLF
		s = s &		"<input type=""hidden"" name=""id"" value=""" & pEquiSysId & """>" & vbLF
		s = s &		"<input type=""hidden"" name=""objecttype"" value=""" & pObjectType & """>" & vbLF
		s = s & "<table cellspacing=0 cellpadding=0 bgcolor=white border=0 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
		s = s &		"<tr height=5><td colspans=2></td></tr>"
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>维保周期：</td>"
		s = s &		"		<td><select name=""period"" style=""width:196px"">" & _
					"			<option value=1>每月一次</option>" & _
					"			<option value=3>每季度一次</option>" & _
					"			<option value=6>每半年一次</option>" & _
					"			<option value=12>每年一次</option>" & _	
					"			<option value=24>每两年一次</option>" & _
					"		</select><script language=""JavaScript"">frmMgr.period.value="&iPeriod&"</Script>"
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>首次维保时间：</td>" 
'		s = s &		"		<td><input type=""text"" name=""nexttime"" value=""" & dNexttime & """ size=31 maxlength=10></td></tr>" & vbLF
		s = s & 	"		<td>" & DrawCal("", dNexttime, "nexttime", "dateimg1") & "</td>"	
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>维保内容：</td>" 
		s = s &		"		<td colspan=3><textarea rows=4 style=""width:196px"" name=""content"">"& sContent & "</textarea></td></tr>" & vbLF
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>预设工时：</td>" 
		s = s &		"		<td><input type=""text"" name=""planhours"" value=""" & iPlanHours & """ size=20 maxlength=10>&nbsp;小时</td>" & vbLF
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td width=150 align=right>完成期限：</td>" 
		s = s &		"		<td><input type=""text"" name=""limitdays"" value=""" & iLimitDays & """ size=20 maxlength=10>&nbsp;天</td></tr>" & vbLF
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>负责部门：</td>" 
		s = s &		"		<td><select name=""department"" style=""width:196px"">"
		s = s &		SelectOptions("t_node", "node_id", "node_desp", iDepartment, "") & "</select></td>"
		s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF
		s = s &		"		<td align=right>提醒方式：</td>"
		s = s &		"		<td><select name=""remind"" style=""width:196px"">" & _
		"			<option value=1>提前一天</option>" & _
		"			<option value=2>提前二天</option>" & _
		"			<option value=3>提前三天</option>" & _
		"		</select><script language=""JavaScript"">frmMgr.remind.value="&iRemind&"</Script>"
		if iRows = 0 then'新增
			s = s &		"<tr bgcolor=""#FFFFFF"">" & vbLF