📄 reportpersonal.inc
字号:
<%
'************************************************************************************************
' 函数名 : TableSearch()
' 输 入 :
' 输 出 : 一张用于查询工作计划的表单，包括查询的条件和查询按钮
' 功能描述:
' 调用模块: reportpersonal.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-19
' 版 本 :
'************************************************************************************************
Function TableSearch()
'' 汇报分类，1为月度汇报表，2为季度汇报表，3为年度汇报表
'' 年份从2002到2102年，缺省值为当年
'' 月份从1到12月，缺省值为当月
'' 季度从1到4
TableSearch = _
TableTitle("设置查询条件", 600, "", "") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name=""frmSearchReport"" method=post action=""reportpersonal.asp"">" & _
"<tr height=30>" & _
" <td width=200>类型：<select name=""type"" style=""width:86px"">" & _
" <option value=1>月度</option>" & _
" <option value=2>季度</option>" & _
" <option value=3>年度</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.type.selectedIndex=" & (iType-1)& "</script>" & _
" </td>" & _
" <td width=200>年份：<select name=""of_year"" style=""width:86px"">" & _
" <option value=2002>2002年</option>" & _
" <option value=2003>2003年</option>" & _
" <option value=2004>2004年</option>" & _
" <option value=2005>2005年</option>" & _
" <option value=2006>2006年</option>" & _
" <option value=2007>2007年</option>" & _
" <option value=2008>2008年</option>" & _
" <option value=2009>2009年</option>" & _
" <option value=2010>2010年</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_year.selectedIndex=" & (iOf_year-2002) & "</script>" & _
" </td>" & _
" <td width=200> </td></tr>" & _
"<tr height=30>" & _
" <td width=200>季度：<select name=""of_season"" "
if iType <> 2 then
TableSearch = TableSearch & "disabled=true"
else
TableSearch = TableSearch & "enabled=true"
end if
TableSearch = TableSearch & " style=""width:86px"">" & _
" <option value=1>第1季度</option>" & _
" <option value=2>第2季度</option>" & _
" <option value=3>第3季度</option>" & _
" <option value=4>第4季度</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_season.selectedIndex=" & (iOf_season-1) & _
" </script>" & _
" </td>" & _
" <td width=200>月份：<select name=""of_month"" "
if iType <> 1 then
TableSearch = TableSearch & "disabled=true"
else
TableSearch = TableSearch & "enabled=true"
end if
TableSearch = TableSearch & "style=""width:86px"">" & _
" <option value=1>1月份</option>" & _
" <option value=2>2月份</option>" & _
" <option value=3>3月份</option>" & _
" <option value=4>4月份</option>" & _
" <option value=5>5月份</option>" & _
" <option value=6>6月份</option>" & _
" <option value=7>7月份</option>" & _
" <option value=8>8月份</option>" & _
" <option value=9>9月份</option>" & _
" <option value=10>10月份</option>" & _
" <option value=11>11月份</option>" & _
" <option value=12>12月份</option>" & _
" </select>" & _
" <script language=""javascript"">document.all.of_month.selectedIndex=" & (iOf_month-1) & "</script>" & _
" <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> </td></tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : FormUpdateReport()
' 输 入 :
' 输 出 : 一个用于新添或者更新工作计划的表单，包括相应的按钮，以及有关的工作计划的参数
' 功能描述:
' 调用模块: reportpersonal.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-19
' 版 本 :
'************************************************************************************************
Function FormUpdatereport()
'--------------------------------------------------------------------------
' 新添或者更新个人工作汇报所采用的表单，根据formAction的值来判断是何种类型的表单
'-------------------------------------------------------------------------------
dim sTemp, sFormAction, sTempButtons, sFinished, sUnfinished, sSelf_evaluation, sProject, sMemo, iSerial
dim crs, rs, sSQL
sFormAction = GetParam("formaction")
iSerial = GetParam("serial")
if sFormAction = "updtype" then
sSQL = "select * from T_report_Detail where serial = "& iSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
sFinished = crs.GetValue("finished")
sUnfinished = crs.GetValue("unfinished")
sProject = crs.GetValue("project")
sSelf_evaluation = crs.GetValue("self_evaluation")
sMemo = crs.GetValue("memo")
sTemp = TableTitle("个人工作汇报维护", 600, "#FFFFFF", "#0040a0")
sTempButtons = _
" <img border=0 src=""../images/button/update.gif"" style=""cursor:hand"" name=btnUpdate>" & _
" " & _
" <img border=0 src=""../images/button/reset.gif"" style=""cursor:hand"" name=btnReset>" & _
" " & _
" <img border=0 src=""../images/button/delete.gif"" style=""cursor:hand"" name=btnDelete>" & _
" " & _
" <img border=0 src=""../images/button/cancel.gif"" style=""cursor:hand"" name=btnCancel>"
else
sFinished = ""
sUnfinished = ""
sProject = ""
sSelf_evaluation = ""
sMemo = ""
sTemp = TableTitle("个人工作汇报登记", 600, "#FFFFFF", "#0040a0")
sTempButtons = _
" <img border=0 src=""../images/button/add.gif"" style=""cursor:hand"" name=btnAdd>" & _
" " & _
" <img border=0 src=""../images/button/clear.gif"" style=""cursor:hand"" name=btnClear>"
end if
sTemp = sTemp & _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0 class=tableform>" & _
"<form name=""frmUpdateReport"" method=post action=""reportpersonal.asp"">" & _
"<tr height=20>" & _
" <input type=""hidden"" name=""serial"" value=""" & iSerial & """>" & _
" <input type=hidden name=formAction>" & _
" <input type=hidden name=type value="&iType&">" & _
" <input type=hidden name=of_year value="&iOf_year&">" & _
" <input type=hidden name=of_month value="&iOf_month&">" & _
" <input type=hidden name=of_season value="&iOf_season&">" & _
" <input type=hidden name=page value="&iCurrentPage&">"
select case iType
case 1
sTemp = sTemp & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">本月度完成工作：</span><input type=""text"" name=""finished"" value=""" & sFinished & """ size=80 maxlength=100 style=""text-align:left""> </td>"
case 2
sTemp = sTemp & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">本季度完成工作：</span><input type=""text"" name=""finished"" value=""" & sFinished & """ size=80 maxlength=100 style=""text-align:left""> </td>"
case 3
sTemp = sTemp & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">本年度完成工作：</span><input type=""text"" name=""finished"" value=""" & sFinished & """ size=80 maxlength=100 style=""text-align:left""> </td>"
end select
sTemp = sTemp & _
"<tr height=4><td width=600 ></td></tr>" & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">尚未完成的工作：</span><input type=""text"" name=""unfinished"" value=""" & sUnfinished & """ size=80 maxlength=100 style=""text-align:left""> </td></tr>" & _
"<tr height=4><td width=600 ></td></tr>" & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">如何打算： </span><input type=""text"" name=""project"" value=""" & sProject & """ size=80 maxlength=100 style=""text-align:left""> </td></tr>" & _
"<tr height=4><td width=600 ></td></tr>" & _
"<tr height=20><td width=600 ><span style=""vertical-align:middle"">自我评价： </span><input type=""text"" name=""self_evaluation"" value=""" & sSelf_evaluation & """ size=80 maxlength=100 style=""text-align:left""> </td></tr>" & _
"<tr height=4><td width=600 ></td></tr>" & _
"<tr ><td width=600 ><span style=""vertical-align:top"">备注： </span><textarea name=""memo"" rows=3 cols=78 style=""font-family:宋体;font-size:9pt;border:1px solid gray;"">" & sMemo & "</textarea></td></tr>" & _
"<tr height=30px><td width=600 align=center>" & _
sTempButtons & _
" </td></tr>" & _
"<tr height=30>" & _
"</form>" & _
"</table>"
FormUpdatereport = sTemp
End Function
'************************************************************************************************
' 函数名 : MonthTableHeader()
' 输 入 :
' 输 出 : 月度工作计划表的表头显示
' 功能描述:
' 调用模块: reportpersonal.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-19
' 版 本 :
'************************************************************************************************
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=50 align =center><img src=""../images/bg/ar-y.gif"" width=8 height=8> 序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "finished", "本月度工作完成情况", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "unfinished", "未完成的工作及原因", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "project", "如何打算", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 valign=middle > " & TableHeaderField(sFileName, "self_evaluation", "自我评价", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=50> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : YearTableHeader()
' 输 入 :
' 输 出 : 年度工作计划表的表头显示
' 功能描述:
' 调用模块: reportpersonal.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-19
' 版 本 :
'************************************************************************************************
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=50 align =center><img src=""../images/bg/ar-y.gif"" width=8 height=8> 序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "finished", "本年度工作完成情况", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "unfinished", "未完成的工作及原因", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "project", "如何打算", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 valign=middle > " & TableHeaderField(sFileName, "self_evaluation", "自我评价", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=50> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : SeasonTableHeader()
' 输 入 :
' 输 出 : 季度工作计划表的表头显示
' 功能描述:
' 调用模块: reportpersonal.asp
' 作 者 : 蔡晓燕
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -