common.inc

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

End Sub

'************************************************************************************************
' 函数名　: GetOfficer
' 输　入　: (无)
' 输　出　: (无)
' 功能描述: 给出办公室主任的序列号
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
function GetOfficer()
	'' 从表 t_specialpost 中取出办公室主任的emp_serial
	GetOfficer = EmpSerialOfSpecialPost(ID_OFFICER)
end function


'************************************************************************************************
' 函数名　: IsAdministrator
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 当前用户是否是系统管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
function IsAdministrator()
	if GetUserId = "admin" then
		IsAdministrator = true
	else
		IsAdministrator = false
	end if
end function

'************************************************************************************************
' 函数名　: GetAdminLevel
' 输　入　: (无)
' 输　出　: 整型，1公司领导级；2部门经理级；3普通员工级
' 功能描述: 取到当前用户的管理级别：1公司领导级；2部门经理级；3普通员工级
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function GetAdminLevel()
	dim sSQL, crs, rs, sTemp
	sSQL = "select admin_level from t_position where position_id = (select pos from t_employee where serial = " & GetEmpSerial & ")" 
	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)
	sTemp = crs.GetValue("admin_level")
	crs.Close()

	GetAdminLevel = sTemp
end function

'************************************************************************************************
' 函数名　: IsOfficer
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是办公室主任，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsOfficer()
	if CStr(GetEmpSerial) = CStr(GetOfficer) then
		IsOfficer = true
	else
		IsOfficer = false
	end if
end function

'************************************************************************************************
' 函数名　: IsHrAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是人事管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsHrAdmin()
	'' 从表 t_specialpost 中取出人事管理员的emp_serial
	dim HrAdminEmpSerial
	HrAdminEmpSerial = EmpSerialOfSpecialPost(ID_HRADMIN)
	if CStr(HrAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsHrAdmin = true
	else 
		IsHrAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsDocAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是公文管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsDocAdmin()
	'' 从表 t_specialpost 中取出人事管理员的emp_serial
	dim DocAdminEmpSerial
	DocAdminEmpSerial = EmpSerialOfSpecialPost(ID_DOCADMIN)
	if CStr(DocAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsDocAdmin = true
	else 
		IsDocAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsRuleAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是制度管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsRuleAdmin()
	'' 从表 t_specialpost 中取出制度管理员的emp_serial
	dim RuleAdminEmpSerial
	RuleAdminEmpSerial = EmpSerialOfSpecialPost(ID_RULEADMIN)
	if CStr(RuleAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsRuleAdmin = true
	else 
		IsRuleAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsHotspotAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是大事管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsHotspotAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim HotspotAdminEmpSerial
	HotspotAdminEmpSerial = EmpSerialOfSpecialPost(ID_HOTSPOTADMIN)
	if CStr(HotspotAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsHotspotAdmin = true
	else 
		IsHotspotAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsLibraryAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是图书管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-12
' 版　本　: 
'************************************************************************************************
function IsLibraryAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim LibraryAdminEmpSerial
	LibraryAdminEmpSerial = EmpSerialOfSpecialPost(ID_LIBRARYADMIN)
	if CStr(LibraryAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsLibraryAdmin = true
	else 
		IsLibraryAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsCustomerAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是单位名录管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function IsCustomerAdmin()
	'' 从表 t_specialpost 中取出大事管理员的emp_serial
	dim CustomerAdminEmpSerial
	CustomerAdminEmpSerial = EmpSerialOfSpecialPost(ID_CUSTOMERADMIN)
	if CStr(CustomerAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsCustomerAdmin = true
	else 
		IsCustomerAdmin = false
	end if
end function

'************************************************************************************************
' 函数名　: IsNewsAdmin
' 输　入　: (无)
' 输　出　: 布尔型 true 或 false
' 功能描述: 判断当前用户是不是大楼动态新闻管理员，是返回true，否返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-26
' 版　本　: 
'************************************************************************************************
function IsNewsAdmin()
	'' 从表 t_specialpost 中取出大楼动态新闻管理员的emp_serial
	dim NewsAdminEmpSerial
	NewsAdminEmpSerial = EmpSerialOfSpecialPost(ID_NEWSADMIN)
	if CStr(NewsAdminEmpSerial) = CStr(GetEmpSerial) then 
		IsNewsAdmin = true
	else 
		IsNewsAdmin = false
	end if
end function


'************************************************************************************************
' 函数名　: EmpSerialOfSpecialPost
' 输　入　: post_id
' 输　出　: 整型，员工序列号
' 功能描述: 根据特殊角色的post_id取到相应员工的emp_serial
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-26
' 版　本　: 
'************************************************************************************************
function EmpSerialOfSpecialPost(post_id)
	dim sSQL, iEmpSerial

	'' special post 中指定的必须是在职员工
	iEmpSerial = DLookUp(dbLocal, "t_specialpost", "emp_serial", "post_id = " & ToSQL(post_id,"Number") & " and emp_serial in (select serial from t_employee where co_id = 1 and dismissed=0 and isdummy = 0)")
	EmpSerialOfSpecialPost = iEmpSerial
end function

'************************************************************************************************
' 函数名　: HasRightToDocInfor
' 输　入　: (无)
' 输　出　: 布尔型，有为true，无为false
' 功能描述: 员工相对应的角色是否有公文查询的权限，有返回true，无返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function HasRightToDocInfor()
	dim iRight
	iRight = DLookUp(dbLocal, "t_rights", "operation_right", "item_id = " & ToSQL(ID_DOCINFOR,"Text") & _
			" and role_id = (select role_id from t_account where emp_serial = " & GetEmpSerial & ")")

	if CStr(iRight) = "1" then
		HasRightToDocInfor = true
	else
		HasRightToDocInfor = false
	end if
end function

'************************************************************************************************
' 函数名　: HasRightToHrInfor
' 输　入　: (无)
' 输　出　: 布尔型，有为true，无为false
' 功能描述: 员工相对应的角色是否有人事信息查询的权限，有返回true，无返回false
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-08-14
' 版　本　: 
'************************************************************************************************
function HasRightToHrInfor()
	dim iRight
	iRight = DLookUp(dbLocal, "t_rights", "operation_right", "item_id = " & ToSQL(ID_HRINFOR,"Text") & _
			" and role_id = (select role_id from t_account where emp_serial = " & GetEmpSerial & ")")
	if CStr(iRight) = "1" then
		HasRightToHrInfor = true
	else
		HasRightToHrInfor = false
	end if
end function
%>