task.inc

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

<script language="VBScript">
'---------------------------------------------------------------
' VBScript函数CheckTaskData()检查输入的任务信息
'---------------------------------------------------------------
function CheckTaskData()
	Dim sSubject : sSubject = ""
	Dim sDoFrom	: sDoFrom = ""
	Dim sDoEnd	: sDoEnd = ""
	CheckTaskData = ""				' 缺省总是认为数据是正确的
	if Trim(formTask.subject.value) = "" then
		msgbox "对不起，请输入任务标题！"
		formTask.subject.focus()
	end if
'	if checkString("Subject", "任务标题") = -1 then CheckTaskData = "Error" : exit function		' 任务标题
'	if checkString("Content", "任务描述") = -1 then CheckTaskData = "Error" : exit function		' 任务描述
'	if checkString("DoFrom", "开始时间") = -1 then CheckTaskData = "Error" : exit function		' 任务开始时间
	sDoFrom = formTask.DoFrom.value
	if Not IsDate(sDoFrom) then																	' 日期格式
		msgbox "对不起，〈 开始时间 〉的日期格式不正确！"
		formTask.DoFrom.focus()
		CheckTaskData = "Error"
		exit function
	end if
	if checkString("DoEnd", "完成时间") = -1 then CheckTaskData = "Error" : exit function			' 任务完成期限
	sDoEnd = formTask.DoEnd.value
	if Not IsDate(sDoEnd) then																	' 日期格式
		msgbox "对不起，〈 完成时间 〉的日期格式不正确！"
		formTask.DoEnd.focus()
		CheckTaskData = "Error"
		exit function
	end if
end function

'---------------------------------------------------------------
' VBScript函数CheckExecutorData()检查任务执行人员（创建新任务时必须选择任务执行人员）,并设置Executors的值，以便提交
'---------------------------------------------------------------
function CheckExecutorData()
	CheckExecutorData = ""		' 缺省总是认为成功
	
	Dim executorCount : executorCount = formTask.Executors.length	' 任务执行人员的个数
	if executorCount = 0 then
		msgbox "对不起，请选择任务执行人员！"
		formTask.Employee.focus()
		CheckExecutorData = "Error"
		exit function
	else
		Dim sExecutors : sExecutors = ""
		Dim i : i = 0
		for i = 0 to executorCount - 1 
	       sExecutors = sExecutors & formTask.Executors.options(i).value & ","
		   formTask.Executors.options(i).selected = true
		next
		sExecutors = left(sExecutors, len(sExecutors) - 1)
		formTask.Executors.value = sExecutors
	end if
end function

'---------------------------------------------------------------
' VBScript函数CheckRemindData()检查提醒数据是否正确并设置提醒数据Remind_Method和Remind_Time
'---------------------------------------------------------------

function CheckRemindData()
	' 调用FirstRemindTime函数根据提醒方式和任务开始时间算出第一次提醒时间
	formTask.remind_time.value = FirstRemindTime(sRemindMethod, formTask.doFrom.value)
end function
</script>