state.inc.bak

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

<%
'#############################################################################################
'#
'#	文件名	 : state.inc
'#
'#
'#	创建人	 : zhouyun
'# 　	日　期	 : 2002-05-13
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**********************************************
'#
'#	功能描述	 : 流程状态函数文件
'# 　	版  　本	 :
'#	
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#############################################################################################


'*********************************************************************************************
'	Name		: FlowMaintain
'	Function	: Insert, Modify, Delete According to the Post Action
'	In		: No
'	Out		: No
'	Return		: No
'	Comment		: No
'
'---------------------------------------------------------------------------------------------

Sub StateMaintain()

	'-------------------------------------------------------
	'Declares
	'-------------------------------------------------------
	Dim sNameOld, sNameNew, sAction, sSQL, sError,id,sDeptNew,sTimeNew,sStartNew,sEndNew,sTypeNew

	Dim sName,sTemplate,sAuthor,sMethod
	Dim tid
	Dim fid

	'-------------------------------------------------------
	'Get parameters
	'--------------------------------------------------------
'	tid	= GetParam("tid")
	fid	= GetParam("fid")
	sAction = GetParam("formAction")
	sAction = LCase(sAction)

	'---------------------------------------------------------
	' Operate according to sAction
	'---------------------------------------------------------

	select case sAction
	case "addtype"
		'------------------------------------------
		' add ---- insert
		'------------------------------------------

		sName			= GetParam("newname")
		sTemplate		= GetParam("newtemplate")
		sAuthor			= GetParam("newauthor")
		sMethod			= GetParam("newmethod")


		sSQL = "proc_submitflow " & _
						ToSQL(sName,"Text")	& "," & _
						ToSQL(sTemplate,"Number")	& "," & _
						ToSQL(sAuthor,"Number")	& "," & _
						"'file'," & ToSQL(sMethod,"Text")
'	response.write(sSQL)
'	response.end

	case "updtype"
		'------------------------------
		' upd --- modify
		'------------------------------

			
		dim op: op=GetParam("newop")
		FlowStateChange fid,op
'		response.write (sSQL)
'		response.end

	case "deltype"
		'-------------------------------
		' del --- delete
		'-------------------------------
	dim s : s= "select count(*) num from t_flow_step where flow_id=" & GetParam("fid")
	dim crs	: set crs = New CRecordset
	dim rs	: set rs = crs.open(dbLocal,s)
	dim cur 
	if Not rs.EOF then	
		 cur=crs.GetValue("num")
	end if

	crs.Close()


	if CInt(cur) > 0 then
		Response.Write "<script language=""javascript"">alert('该流程还有步骤,不能删除;请先删除流程中的所有步骤,再执行删除流程操作！')</script>"
		exit sub
	end if

		sSQL = "delete from T_Flow where flow_id =" & ToSQL(fid, "Number")
		sError = ExecuteSQL(dbLocal, sSQL)
	end select

	
	'-----------------------------------------
	' error handling
	'-----------------------------------------
	if sError <> "" then
		if sAction = "addtype" then
			Response.Write "<script language=""javascript"">alert('对不起，新建流程不成功！')</script>"
			exit sub
		end if
		if sAction = "deltype" then
			Response.Write "<script language=""javascript"">alert('对不起，制度名称下存在制度，不能删除该名称！')</script>"
			exit sub
		end if
		Response.Write "<script language=""javascript"">alert('对不起，操作中发生错误，请查阅帮助文件！')</script>"
	end if
End Sub
'***************************************************************************************************


'***************************************************************************************************
'	Name		: TableAdd
'	Function	: Form Table to Implement Insert, Modify, Delete According to the Post Action
'	In		: No
'	Out		: No
'	Return		: Table Add, Modify, Delete
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableAdd()

	'---------------------------------------------------
	' declares
	'---------------------------------------------------
	Dim sNameText,sFormName, sTemp,id,sDeptText,sTimeText,sStartText,sEndText,sTypeText

	Dim sDocType, sDocSubject, sDocNumber, sDocUrgent, sDocSecret, sDocPages, sDocKeywords, sDocReports, sDocSends, sDocSender,sDocSentDate,sDocRegman,sDocRegDate

	Dim sName,sStatus,sAuthor,sTemplate,sMethod,sFlow,stid
	
	Dim fid

	'---------------------------------------------------
	' get parameters
	'---------------------------------------------------

	fid = GetParam("fid")

	'---------------------------------------------------
	' construct a table contains all buttons
	'---------------------------------------------------
	sTemp = "<td width=400 align=center><table width=300 cellspacing=0 cellpadding=0 border=0><tr><td width=300 align=center>"

	'---------------------------------------------------
	' show buttons
	'---------------------------------------------------
	if IsEmpty(fid) then
		' --------------------------------
		' add
		'---------------------------------
'			sType				= 0
			sName				= ""
'			sAuthor				= 0

		sTemp = sTemp & _
			"<span id=btnAdd style=""cursor:hand"" title=""制度信息，点击新增按钮""><img border=0 src=""../images/button/add.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnClear style=""cursor:hand"" title=""清空""><img border=0 src=""../images/button/clear.gif"" style=""vertical-align:bottom""></span>"

	else
		'----------------------------------
		' upd and del
		'----------------------------------
		dim crs	: set crs = New CRecordset
		dim sSQL : sSQL = "select * from T_Flow_stat,t_flow where flow_stat=stat_id and flow_id=" & ToSQL(fid, "Number")
		dim rs	: set rs = crs.open(dbLocal,sSQL)
		
'		response.write(sSQL)
'		response.end
		If not rs.EOF then
			sName			= crs.GetValue("stat_name")
			sFlow			= crs.GetValue("flow_name")
			stid			= crs.GetValue("stat_id")
			rs.movenext
		end If
		rs.Close()
'		crs.Close()
		''get sNameText end

		If sName="终止" Or sName="结束" Then
			Response.Write "<script language=""javascript"">alert('对不起，不能修改当前状态！')</script>"
			Response.Redirect "flow.asp"
			Exit Function
		End If

		dim s: s="select count(*) as num from t_flow_step where flow_id=" & fid
'		response.write(s & "<br>")
'		set crs = New CRecordset
		set rs=crs.open(dbLocal,s)
		'If Not rs.EOF Then
			dim num:num=crs.GetValue("num")
'			response.write "num=" & num & "<br>"
		'	rs.movenext
		'End If
		crs.Close()

'		response.write "stid=" & stid
'		response.end

		dim op
		op=""
		If stid=2 Then
			If CInt(num) >0 Then
				op=op & "<option value=1>启动流程</option>"
			End If
		ElseIf stid=1 Then
				op=op & "<option value=2>暂停流程</option>"

		Else
			'do nothing
		End If

		op=op & "<option value=3>终止流程</option>"



		sTemp = sTemp & _
			"<span id=btnMod style=""cursor:hand"" title=""修改流程状态，点击更新按钮""><img border=0 src=""../images/button/update.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnRes style=""cursor:hand"" title=""重置""><img border=0 src=""../images/button/reset.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnCancel style=""cursor:hand"" title=""返回""><img border=0 src=""../images/button/return.gif"" style=""vertical-align:bottom""></span>"
	end if

	sTemp = sTemp & "</td></tr></table></td>"

	'----------------------------------------------------
	' draw add table and return
	'----------------------------------------------------
	TableAdd = _
		TableTitle("修改流程状态", 500, "", "") & _
		"<table cellspacing=20 cellpadding=0 width=500 align=left border=0>" & _

		"<form name=frmInfoMgr method=post action=""state.asp"">"  & _
		
		"<tr height=60 valign=center>" & _
		"	<td width=400 align=center colspan=3>" & _
		"		<br>流程名称：<input type=text name=newname value='" & sFlow & "'  readonly style=""width:80px;text-align=center"">" & _
		"		<br>当前状态: <input type=text name=newname value='" & sName & "'  readonly style=""width:80px;text-align=center"">" & _
		"		<br>修改操作: <select name=""newop"" style=""width:80px"">" & op & "</select>" & _
		"		<input type=hidden name=fid value='" & fid & "'>" & _
		"		<input type=hidden name=formAction>" & _
		"	</td>" & _
		"   </tr>" & _
		"<tr height=40 align=center>" & _
			sTemp & _
		"</tr>" & _
		"<tr height=10><td colspan=3 width=500>&nbsp;</td></tr>" & _
		"</form>" & _
		"</table>"

End Function
'***************************************************************************************************


'***************************************************************************************************
'	Name		: TableHeader
'	Function	: Table head for Record Table
'	In		: No
'	Out		: No
'	Return		: Table head of table record
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableHeader()
	sFileName = "infomgr.asp"
	TableHeader = _
		TableTitle("流程列表", 300, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=300 align=center class=tablelist>" & _
		"<tr>" & _
		"<td class=tdHead align=center width=180>&nbsp;" & TableHeaderField(sFileName, "flow_name", "流程名称", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center width=120>&nbsp;" & TableHeaderField(sFileName, "stat_name", "流程状态", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"
End Function
'***************************************************************************************************
'		"<td class=tdHead align=center width=50>&nbsp;" & TableHeaderField(sFileName, "template_type_name", "模板类型", sFormParams, iSort, iSorted) & "</td>" & _
'		"<td class=tdHead align=center width=120>&nbsp;" & TableHeaderField(sFileName, "author_name", "创 建 人", sFormParams, iSort, iSorted) & "</td>" & _

'***************************************************************************************************
'	Name		: TableRecords
'	Function	: Table List the Records
'	In		: 9 parameters
'			  sSQL			---	sql statement
'			  iCols			---	columns
'                         iRecordsPerPage	---	records per page
'                         iTotalRecords		---	total records
'                         iCurrentPage		---	current page
'                         iTotalPages		---	total pages
'			  sFileName		---	file name
'			  sFormParams		---	form parameters
'			  sSortParam		---	sort parameters
'	Out		: No
'	Return		: Table head of table record
'	Comment		: No
' 
'---------------------------------------------------------------------------------------------------

Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	
	'-------------------------------------------------------------
	' declares
	'-------------------------------------------------------------
	Dim sTemp	: sTemp = ""		' 临时字符串变量
	Dim j					' 临时循环变量

	'------------------------------------