plandepartments_new.inc

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

		"		<input type=hidden name=formAction value=""quetype"">" & _
		"	</td>" & _
		"	<td width=200><span id=btnSearch style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span></td></tr>" & _
		"<tr height=10><td colspan=3 width=600>&nbsp;</td></tr>" & _
		"</form>" & _
		"</table>"
End Function

'************************************************************************************************
' 函数名　: MonthTableHeader()
' 输　入　: 
' 输　出　: 月度工作计划表的表头显示
' 功能描述: 
' 调用模块: plandepartments.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function MonthTableHeader()
'-----------------------------------------------------------------------------
'月度工作计划表的表头
'------------------------------------------------------------------------------
	Response.Write TableTitle(iOf_year & "年" & iOf_month & "月" &"的月度工作计划表", 600, "", "#0040a0")
	MonthTableHeader = _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist style=""table-layout:fixed"">" & _
		"<tr>" & _
		"<td class=tdHead width=40 align =center>序号</td>" & _
		"<td class=tdHead width=180>&nbsp;" & TableHeaderField(sFileName, "content", "本月计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=160>&nbsp;" & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80	>&nbsp;" & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80 valign=middle >&nbsp;" & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=60>&nbsp;" & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"		
End Function

'************************************************************************************************
' 函数名　: YearTableHeader()
' 输　入　: 
' 输　出　: 年度工作计划表的表头显示
' 功能描述: 
' 调用模块: plandepartments.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function YearTableHeader()
'-----------------------------------------------------------------------------
'年度工作计划表的表头
'------------------------------------------------------------------------------
	Response.Write TableTitle(iOf_year & "年" &"的年度工作计划表", 600, "", "#0040a0")
	YearTableHeader = _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist style=""table-layout:fixed"">" & _
		"<tr>" & _
		"<td class=tdHead width=40 align =center>序号</td>" & _
		"<td class=tdHead width=180>&nbsp;" & TableHeaderField(sFileName, "content", "本年度计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=160>&nbsp;" & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80	>&nbsp;" & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80 valign=middle >&nbsp;" & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=60>&nbsp;" & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"		
End Function

'************************************************************************************************
' 函数名　: SeasonTableHeader()
' 输　入　: 
' 输　出　: 季度工作计划表的表头显示
' 功能描述: 
' 调用模块: plandepartments.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function SeasonTableHeader()
'-----------------------------------------------------------------------------
'季度工作计划表的表头
'------------------------------------------------------------------------------
	Response.Write TableTitle(iOf_year & "年第" & iOf_season & "季度" &"的季度工作计划表", 600, "", "#0040a0")
	SeasonTableHeader = _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist style=""table-layout:fixed"">" & _
		"<tr>" & _
		"<td class=tdHead width=40 align =center>序号</td>" & _
		"<td class=tdHead width=180>&nbsp;" & TableHeaderField(sFileName, "content", "本季度计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=160>&nbsp;" & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80	>&nbsp;" & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=80 valign=middle >&nbsp;" & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead width=60>&nbsp;" & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"		
End Function

'************************************************************************************************
' 函数名　: TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, 
'			sFileName, sFormParams, sSortParams)
' 输　入　: 查询语句，栏目数量，每页记录条数，总记录条数，当前页码，总页数，文件名，查询表单参数，排序参数
' 输　出　: 一张工作计划表的内容部分
' 功能描述: 
' 调用模块: plandepartments.asp
' 作　者　: 蔡晓燕
' 日　期　: 2002-06-14
' 版　本　: 
'************************************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	dim sTemp	: sTemp = ""	' 临时字符串变量
	dim j					' 临时循环变量

	'------------------------------------
	' 分页所需的变量定义
	'------------------------------------
	Dim iCounter		: iCounter = 1
	Dim iPrevPage, iNextPage
	
	'------------------------------------
	' 获取数据库连接
	'------------------------------------
	dim crs	: set crs = New CRecordset
	dim rs	: set rs = crs.open(dbLocal,sSQL)
	dim sContent, sTarget, sProgress, sHandler, sMemo, iSerial, iPlanSerial
	dim iTemp : iTemp = 0
	
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then
'		response.write iCurrentPage & "*" & iRecordsPerPage & "<br>" : response.end
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
		iTemp = (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		sContent			= crs.GetValue("content")
		sTarget 			= crs.GetValue("target")
		sProgress   		= crs.GetValue("progress")
		sHandler			= crs.GetValue("handler")
		sMemo				= crs.GetValue("memo")
		iSerial				= crs.GetValue("serial")
		iPlanSerial			= crs.GetValue("plan_serial")
		iTemp = iTemp + 1
		sTemp = sTemp & "<tr>" & _
				"<td class=tdlist align=center style=""cursor:hand""><a href=plandepartments.asp?formaction=updtype&serial=" & iserial & "&plan_serial=" & iPlanSerial & "&page=" & iCurrentPage & "><img border=0 src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;" & iTemp & "</td>" & _
				"<td class=tdlist nowrap title="""& Tohtml(sContent) & """ >&nbsp;" & ToHTML(sContent) & "&nbsp;</td>" & _
				"<td class=tdlist nowrap title="""& Tohtml(sTarget) & """ >&nbsp;" & ToHTML(sTarget) & "&nbsp;</td>" & _
				"<td class=tdlist nowrap title="""& Tohtml(sProgress) & """ >&nbsp;" & ToHTML(sProgress) & "</td>" & _
				"<td class=tdlist nowrap title="""& Tohtml(sHandler) & """ >&nbsp;" & ToHTML(sHandler)& "&nbsp;</td>" & _
				"<td class=tdlist nowrap title="""& Tohtml(sMemo) & """ >&nbsp;" & ToHTML(sMemo) & "&nbsp;</td>" & _	
				"</tr>"
		iCounter = iCounter + 1			
		rs.movenext
	wend
	crs.Close()

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr><td class=tdlist colspan=" & iCols & " align=right>" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
				"&nbsp;</td></tr>"
	TableRecords = sTemp
End Function

%>