task_a.vbs

来自「物业管理和办公自动化系统」· VBS 代码 · 共 65 行

sub btnOK_OnClick()
	'' 任务标题
	if Trim(formTask.subject.value) = "" then
		msgbox "对不起，请输入任务标题！"
		formTask.subject.focus()
		exit sub
	end if

	if len(formTask.content.value) > 3000 then
		msgbox "对不起，任务内容不能超过3000字！" & vbLF & "（目前有" & len(formTask.content.value) & "字）"
		formTask.content.focus()
		exit sub
	end if

	'' 任务执行人员
	if Trim(formTask.executor_serial.value) = "" then
		msgbox "对不起，请选择任务相关人员！"
		exit sub
	end if

	'' 开始时间
	if Trim(formTask.DoFrom.value) = "" then
		msgbox "对不起，请输入开始时间！"
		formTask.DoFrom.focus()
		exit sub
	end if

	if Not IsDate(formTask.DoFrom.value) then							' 日期格式
		msgbox "对不起，〈 开始时间 〉的日期格式不正确！"
		formTask.DoFrom.focus()
		exit sub
	end if

	'' 完成时间
	if Trim(formTask.DoEnd.value) = "" then
		msgbox "对不起，请输入完成时间！"
		formTask.DoEnd.focus()
		exit sub
	end if

	if Not IsDate(formTask.DoEnd.value) then							' 日期格式
		msgbox "对不起，〈 完成时间 〉的日期格式不正确！"
		formTask.DoEnd.focus()
		exit sub
	end if

	'' 开始时间和完成时间相比较，如果开始时间>完成时间，则提示出错
	if CDate(formTask.DoFrom.value) > CDate(formTask.DoEnd.value) then
		msgbox "对不起，完成时间应在开始时间之后！"
		formTask.DoEnd.focus()
		exit sub
	end if

	'' 计算第一次提醒时间
	dim sRemindMethod, sBaseTime
	sRemindMethod = formTask.remind_method.value
	sBaseTime = formTask.DoFrom.value
	formTask.remind_time.value = FirstRemindTime(sRemindMethod, sBaseTime)

	formTask.submit()
end sub

sub btnCancel_OnClick()
	location.href = "tasks.asp"
end sub