hr.vbs

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

sub Department_id_OnChange()
	dim iDepartmentId, sPositions, arrayDepartments, arrayPositions, arrayOpt, sOpt
	dim i
	sPositions = document.all.department_id.value

	arrayDepartments = Split(sPositions, ":")

	dim sDepartmentName
	sDepartmentName = document.all.department_id.options(document.all.department_id.selectedIndex).innerText
	arrayPositions = Split(arrayDepartments(1), "&")
	if UBound(arrayPositions) = -1 then
		'window.event.returnValue = false
		'exit sub
		msgbox "对不起，『" & sDepartmentName & "』部门尚未设置任何岗位，请选择其它部门或在『" & sDepartmentName & "』部门下设置岗位后再进行员工登记！"
		sOpt = "<option value=""-1"" style=""color:red"">－请选择岗位－</option>"
	else
		for i = LBound(arrayPositions) to UBound(arrayPositions)
			arrayOpt = Split(arrayPositions(i), "?")
			sOpt = sOpt & "<option value=""" & arrayOpt(0) & """>" & arrayOpt(1) & "</option>"
		next
	end if
	document.all.position_id.outerHTML = "<select name=""position_id"" style=""width:106px;color:blue"">" & sOpt & "</select>"
end sub


sub onload(department, position)
	dim i, sPositions
	'msgbox department & " * " & position
	if CStr(department) = ":" then exit sub
	if CStr(position) = "" then exit sub

	'' 分解部门下的岗位
	arrayDepartments = Split(department, ":")
	arrayPositions = Split(arrayDepartments(1), "&")

	i = 0
	for i = LBound(arrayPositions) to UBound(arrayPositions)
		arrayOpt = Split(arrayPositions(i), "?")
		iPositionId = arrayOpt(0)
		if LCase(CStr(iPositionId)) = LCase(CStr(position)) then
			sOpt = sOpt & "<option value=""" & arrayOpt(0) & """ selected>" & arrayOpt(1) & "</option>"
		else
			sOpt = sOpt & "<option value=""" & arrayOpt(0) & """>" & arrayOpt(1) & "</option>"
		end if
	next

	document.all.position_id.outerHTML = "<select name=""position_id"" style=""width:106px;color:blue"">" & sOpt & "</select>"
end sub