node_oe.vbs

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

sub btnAdd_OnClick()
	if Trim(frmNode.node_name.value = "") then
		frmNode.node_name.focus()
		if frmNode.node_level.value = "2" then
				msgbox "对不起，请输入部门名称！"
				exit sub
		else
				msgbox "对不起，请输入岗位名称！"
				exit sub
		end if
	end if

	frmNode.FormAction.value = "add"
	frmNode.submit()
end sub

sub btnUpdate_OnClick()
	if Trim(frmNode.node_name.value = "") then
		frmNode.node_name.focus()
		if frmNode.node_level.value = "2" then
				msgbox "对不起，请输入部门名称！"
				exit sub
		else
				msgbox "对不起，请输入岗位名称！"
				exit sub
		end if
	end if

	frmNode.FormAction.value = "update"
	frmNode.submit()
end sub

sub btnDelete_OnClick()
	dim iRtn
	if CStr(frmNode.node_level.value) = "2" then
		'' 删除部门
		iRtn = msgbox("您确认要删除部门“" & frmNode.node_name.value & "”" & "吗?", 305, "删除确认")
	else
		'' 删除岗位
		iRtn = msgbox("您确认要删除岗位“" & frmNode.node_name.value & "”" & "吗?", 305, "删除确认")
	end if
	if iRtn = vbOK then
		frmNode.FormAction.value = "delete"
		frmNode.submit()
	end if
end sub

sub btnReset_OnClick()
	frmNode.reset()
end sub