dotask.inc

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

<%
Function FormUpdateTask()
	dim sTemp, sProgressPercent, sMemo
	sProgressPercent = DLookUp(dbLocal, "T_PersonalTask", "Progress_Percent", "serial = " & iPTaskSerial)
	sMemo = DLookUp(dbLocal, "T_PersonalTask", "memo", "serial = " & iPTaskSerial)
	sTemp = _
		TableTitle("更新任务执行进度", 600, "#FFFFFF", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tableform>" & _
		"<form name=""frmUpdateTask"" method=post>" & _
		"<tr height=30>" & _
		"	<td width=80>&nbsp;执行进度：</td>" & _
		"	<td width=520>" & _
		"		<input type=""hidden"" name=""ptask_serial"" value=""" & iPTaskSerial & """>" & _
		"		<input type=""text"" name=""progress_percent"" value=""" & sProgressPercent & """ size=5 maxlength=3 style=""text-align:right""><span style=""font-family:verdana,arial,courier;"">%</span>&nbsp;</td>" & _
		"<tr><td width=80 valign=top>&nbsp;补充说明：</td>" & _
		"	<td width=520>" & _
		"		<textarea name=""memo"" rows=12 cols=82 style=""font-family:宋体;font-size:9pt;border:1px solid gray;"">" & sMemo & "</textarea></td>" & _
		"<tr height=30px><td width=600 colspan=2 align=center>" & _
		"		<img border=0 src=""../images/button/update.gif"" style=""cursor:hand"" name=btnUpdate>" & _
		"		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
		"		<img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>" & _
		"		&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & _
		"		<img border=0 src=""../images/button/cancel.gif"" style=""cursor:hand"" name=btnCancel>" & _
		"	</td></tr>" & _
		"</form>" & _
		"</table>"' & _
	FormUpdateTask = sTemp
End Function

Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=20>" & _
		"	<td width=600>&nbsp;" & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""tasktodo.asp"">待办事宜</a>" & _
		"&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""tasks.asp"">我安排的任务</a>" & _
		"&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""task_a.asp"">安排新任务</a></td>" & _
		"</tr>" & _
		"</table>"
End Function

Sub UpdateTask()
	dim sSQL, iPTaskSerial, iProgressPercent, sMemo, dRecordTime, sError

	iPTaskSerial = GetParam("ptask_serial")
	iProgressPercent = GetParam("progress_percent")
	sMemo = GetParam("memo")
	dRecordTime = now

	'' T_TaskHistory表增加一条记录
	sSQL = "insert into T_TaskHistory(emp_serial, ptask_serial, progress_percent, memo, record_time)" & _
		" values(" & ToSQL(GetEmpSerial, "Number") & _
		", " & ToSQL(iPTaskSerial,"Number") & _
		", " & ToSQL(iProgressPercent,"Number") & _
		", " & ToSQL(sMemo,"Text") & _
		", " & ToSQL(dRecordTime,"Text") & ")"
'	response.write sSQL : response.end
	sError = ExecuteSQL(dbLocal, sSQL)

	'' 更新T_PersonalTask表
	sSQL = "update T_PersonalTask" & _
		" set progress_percent = " & ToSQL(iProgressPercent, "Number") & _
		", finish_time = " & ToSQL(dRecordTime, "Text") & _
		", memo = " & ToSQL(sMemo,"Text") & _
		" where serial = " & ToSQL(iPTaskSerial,"Number")
	sError  = ExecuteSQL(dbLocal, sSQL)
End Sub
%>