newrole1.inc

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

<%
'************************************************************************************************
' 函数名　: FormRoleTable(iRoleid)
' 输　入　: iRoleid:角色id，如果是新增角色，那么iRoleid=0，表示一张空的表
' 输　出　: 一张角色信息表（新的或者是旧的供修改的），可以提交
' 功能描述: 根据角色id，将相应的角色信息显示出来
' 调用模块: newrole.inc
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-31
' 版　本　: 
'************************************************************************************************
Function FormRoleTable(iRoleid)
	'------------------------------------
	' 根据iRoleid,显示相应的角色信息，供修改
	'------------------------------------
	dim sSQL, iExecuter, sRoledesp, sSQL1, sSQL2, sSQL3, sSQL_right
	dim sTemp, sTempButtons, rs_temp, crs_temp
	dim crs, rs, sError, crs1, rs_parent, crs2, rs2, crs_item, rs_item, crs_right, rs_right
	'rs:	返回t_role表中关于当前角色的记录
	'rs_parent:	返回t_item表中项目组的名称
	'rs2:	返回t_item表中属于当前项目组的子项目的名称
	'rs_item:返回t_item表中的所有项目
	sSQL = "select * from T_Role where role_id = "& iRoleid
	sSQL1 = "select * from T_item where has_child = 1 order by item_id"
	sSQL3 = "select * from T_item"
	set crs = New CRecordset
	set rs = crs.open(dbLocal,sSQL)
	set crs1 = New CRecordset
	set rs_parent = crs1.open(dbLocal,sSQL1)
	set crs_item = New CRecordset
	set rs_item = crs_item.open(dbLocal,sSQL3)

	if not rs.eof then 
	'存在该角色，显示该角色信息
		sTempButtons=_
		"		<img border=0 src=""../images/button/update.gif"" style=""cursor:hand"" name=btnUpdate>" & _
		"		<img border=0 src=""../images/button/delete.gif"" style=""cursor:hand"" name=btnDelete>" & _
		"		<img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>" 
		FormRoletable=_
		TableTitle("角色管理", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=1 >" & _
		"<form name=""frmnewrole"" method=post action=""newrole.asp"">"  
		FormRoleTable = FormRoleTable & _
		"<tr height=30>" & _
		"	<td width=115 align=right>角色名称：</td>"
		FormRoleTable = FormRoleTable & _
		"	<td width=485 ><input name=""roledesp"" value=""" & TransRole(dbLocal, iRoleid) & """ size=64  type=""text"" maxlength=100></td>"
		FormRoleTable = FormRoleTable & _
		"<tr height=30>" & _
		"	<td width=115 align=right>角色权限：</td>"&_
		"	<td width=485 >&nbsp;</td>"
		do while not rs_parent.eof 
			FormRoleTable = FormRoleTable & _
			"<tr height=30>" & _
			"	<td width=115 align=right>&nbsp;</td>"&_
			"	<td width=485 >&nbsp;"&_
			"	<input  name=quanxian"&crs1.GetValue("item_id") & " type = ""checkbox"""& " id=quanxian"&crs1.GetValue("item_id") &_
			" >"&crs1.GetValue("item_desp")&"</TD></tr>"
			sTemp = "select * from t_item where parent_item ="&crs1.GetValue("item_id")
			set crs_temp = New CRecordset
			set rs_temp = crs_temp.open(dbLocal, sTemp)
			do while not rs_temp.eof
				sSQL_right = "select * from T_Rights where role_id ="&iRoleid&" and item_id ="&crs_temp.GetValue("item_id")
				set crs_right = New CRecordset
				set rs_right = crs_right.open(dbLocal,sSQL_right)
				FormRoleTable = FormRoleTable & _
				"<tr height=30>" & _
				"	<td width=115 align=right>&nbsp;</td>"&_
				"	<td width=485 >&nbsp;&nbsp;&nbsp;"&_
				"	<input  name=quanxian"&crs_temp.GetValue("item_id") & " type = ""checkbox"""& " id=quanxian"&crs1.GetValue("item_id") 
					if crs_right.GetValue("operation_right") = 1 then 
						FormRoleTable = FormRoleTable & "checked" 
					end if
				FormRoleTable = FormRoleTable & _
				">"&crs_temp.GetValue("item_desp")&"</TD></tr>"
				rs_temp.movenext
			loop
			rs_parent.movenext
		loop
		FormRoleTable = FormRoleTable & _
		"<tr height=50>" & _
		"	<td colspan=2 align=center>" & sTempButtons & _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"   <input type=hidden name=formaction>" & _
		"   <input type=hidden name=roleid value="""&iRoleid&""">" & _
		"</tr>" & _
		"</form>" & _
		"</table>" 
	else
	'不存在该角色，显示空的角色信息
		sTempButtons=_
		"		<img border=0 src=""../images/button/submit.gif"" style=""cursor:hand"" name=btnSubmit>" & _
		"		<img border=0 src=""../images/button/clear.gif"" style=""cursor:hand"" name=btnCancel>"
		FormRoletable=_
		TableTitle("角色管理", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center border=1 >" & _
		"<form name=""frmnewrole"" method=post action=""newrole.asp"">"  
		FormRoleTable = FormRoleTable & _
		"<tr height=30>" & _
		"	<td width=115 align=right>角色名称：</td>"
		FormRoleTable = FormRoleTable & _
		"	<td width=485 ><input name=""roledesp"" value=""" & TransRole(dbLocal, iRoleid) & """ size=64  type=""text"" maxlength=100></td>"
		FormRoleTable = FormRoleTable & _
		"<tr height=30>" & _
		"	<td width=115 align=right>角色权限：</td>"&_
		"	<td width=485 >&nbsp;</td>"
		do while not rs_parent.eof 
			FormRoleTable = FormRoleTable & _
			"<tr height=30>" & _
			"	<td width=115 align=right>&nbsp;</td>"&_
			"	<td width=485 >&nbsp;"& vbLF & vbLF & vbLF & _
			"	<input  name=quanxian"&crs1.GetValue("item_id") & " type = ""checkbox"""& " id=quanxian"&crs1.GetValue("item_id") &_
			" >"&crs1.GetValue("item_desp")&"</TD></tr>" & vbLF & vbLF
			sTemp = "select * from t_item where parent_item ="&crs1.GetValue("item_id")
			set crs_temp = New CRecordset
			set rs_temp = crs_temp.open(dbLocal, sTemp)
			do while not rs_temp.eof
				FormRoleTable = FormRoleTable & _
				"<tr height=30>" & _
				"	<td width=115 align=right>&nbsp;</td>"&_
				"	<td width=485 >&nbsp;&nbsp;&nbsp;"&_
				"	<input  name=quanxian"&crs_temp.GetValue("item_id") & " type = ""checkbox"""& " id=childquanxian"&crs1.GetValue("item_id") 
				FormRoleTable = FormRoleTable & _
				">"&crs_temp.GetValue("item_desp")&"</TD></tr>"
				rs_temp.movenext
			loop
			rs_parent.movenext
		loop
		FormRoleTable = FormRoleTable & _
		"<tr height=50>" & _
		"	<td colspan=2 align=center>" & sTempButtons & _
		"	</td>" & _
		"</tr>" & _
		"<tr height=30>" & _
		"   <input type=hidden name=formaction>" & _
		"   <input type=hidden name=roleid value="""&iRoleid&""">" & _
		"</tr>" & _
		"</form>" & _
		"</table>" 
	end if
End Function


'************************************************************************************************
' 函数名　: UpdateRole()
' 输　入　: 
' 输　出　: 
' 功能描述: 	角色数据的维护，包括新增、更新、删除
' 调用模块: newrole.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-07-31
' 版　本　: 
'************************************************************************************************
Sub UpdateRole()
'	定义变量
	dim sSQL, iExecuter, sMeeting_Name, sSubject, sTask, iDepartment, sMeeting_room, sPresider, dStart_time, dApply_time
	dim dStop_time, fBudget, sAttendee, sGuest, iProposer, rt, rm, sError, sFormaction, crs, rs
'   获取表单的数据 
	iExecuter = Getofficer
	iProposer = GetEmpSerial
	sFormaction = GetParam("formaction")
	sMeeting_Name = GetParam("mtName")
	sSubject = GetParam("mtSubject")
	sTask   = GetParam("mtTask")
	iDepartment = GetParam("department")
	sMeeting_room = GetParam("meeting_room")
	sPresider = GetParam("presider")
	dStart_time = GetParam("start_time")
	dStop_time = GetParam("stop_time")
	fBudget = GetParam("budget")
	sAttendee = GetParam("attendee")
	sGuest = GetParam("guest")
	dApply_time = now()
	rt = GetParam("rt")
	rm = GetParam("rm")
'response.write "iRoleid="&iRoleid
'response.end
	select case sFormaction
	case "apply"
		if iRoleid = 0 then
			'定义新增会议的sSQL语句
			sSQL = "insert into T_MeetingPrepare(meeting_name,subject,task,department,proposer,meeting_room,"&_
				"presider,start_time,stop_time,budget,attendee,guest,meeting_status,apply_time) values("&ToSQL(sMeeting_Name,"text")&_
				","&ToSQL(sSubject,"text")&","&ToSQL(sTask,"text")&","&ToSQL(iDepartment,"Number")&","&_
				ToSQL(iProposer,"Number")&","&ToSQL(sMeeting_room,"text")&","&ToSQL(sPresider,"text")&","&_
				ToSQL(dStart_time,"text")&","&ToSQL(dStop_time,"text")&","&ToSQL(fBudget,"number")&","&_
				ToSQL(sAttendee,"text")&","&ToSQL(sGuest,"text")&", 2,"&ToSQL(dApply_time,"text")&")"
			'执行新增会议
			sError = ExecuteSQL(dbLocal, sSQL)
			if sError <> "" then
				response.write "<script language=""javascript"">alert('对不起，添加会议申请失败！')</script>"
			else
				response.write "<script language=""javascript"">alert('会议申请成功！')</script>"
			end if
			response.write "<script language=vbscript>window.navigate(""newrole.asp"")</script>"
		else
			sSQL = "select * from T_MeetingPrepare where meeting_serial = "& iRoleid &" and meeting_status = 1"
			set crs = New CRecordset
			set rs = crs.open(dbLocal,sSQL)
			if not rs.eof then 
				'定义更新会议的sSQL语句
				sSQL = "update T_MeetingPrepare set meeting_name = "& ToSQL(sMeeting_Name,"text") & ", subject = " & ToSQL(sSubject,"text") &_
				", task = " & ToSQL(sTask,"text") & ", department = " & ToSQL(iDepartment,"Number") & ", meeting_room = " &_
				ToSQL(sMeeting_room,"text") & ", presider = " & ToSQL(sPresider,"text") & ", start_time = " & ToSQL(dStart_time,"text") &_
				", stop_time = " & ToSQL(dStop_time,"text") & ", budget = " & ToSQL(fBudget,"number") & ", attendee = " &_
				ToSQL(sAttendee,"text") & ", guest = " & ToSQL(sGuest,"text") & ", meeting_status = 2  where meeting_serial=" & _
				iRoleid & " and meeting_status = 1 " 
				'执行会议申请的更新
				sError = ExecuteSQL(dbLocal, sSQL)
				if sError <> "" then
					response.write "<script language=""javascript"">alert('对不起，会议重新申请失败！')</script>"
				else
					response.write "<script language=""javascript"">alert('会议重新申请成功！')</script>"
				end if
				response.write "<script language=vbscript>window.navigate(""list_renewrole.asp"")</script>"
			else
				response.write "<script language=""javascript"">alert('对不起，不存在该会议或者该会议已经重新申请过了！')</script>"
				response.write "<script language = vbscript>window.navigate(""list_renewrole.asp"")</script>"
			end if
		end if
	case "del"
		sSQL = "delete from T_Meetingprepare where meeting_serial = "&iRoleid
		sError = ExecuteSQL(dbLocal, sSQL)
		if sError <> "" then
			response.write "<script language=""javascript"">alert('对不起，会议删除失败！')</script>"
		else
			response.write "<script language=""javascript"">alert('会议删除成功！')</script>"
		end if
		response.write "<script language=vbscript>window.navigate(""list_renewrole.asp"")</script>"
	end select
End Sub

%>