📄 plancompany.inc
字号:
<%
'************************************************************************************************
' 函数名 : BtnRelease(iType)
' 输 入 : iType : 指明是哪种类型的工作计划（1:月度2:季度3:年度）
' 输 出 : 一个发布工作计划的按钮，以及一个隐藏的表单，用于更新数据库，将相应的工作计划表的发布状态置为1，表示已发布
' 功能描述: 根据输入的工作计划的类型参数，给出相应的按钮以及表单
' 调用模块: plancompany.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-18
' 版 本 :
'************************************************************************************************
Function BtnRelease(iType)
Dim sTempBtn
select case iType
case 1
sTempBtn = "<img border=0 src=""../images/button/issue_month_plan.gif"" style=""cursor:hand"" name=btnRelease>"
case 2
sTempBtn = "<img border=0 src=""../images/button/issue_season_plan.gif"" style=""cursor:hand"" name=btnRelease>"
case 3
sTempBtn = "<img border=0 src=""../images/button/issue_year_plan.gif"" style=""cursor:hand"" name=btnRelease>"
end select
BtnRelease = _
"<table cellspacing=0 cellpadding=0 width=600 align=center border=0>" & _
"<form name = frmReleasePlan method=post action=""plancompany.asp"">" & _
"<tr height=30px><td width=600 align=center>" & _
sTempbtn & _
" </td></tr>" & _
"<tr height=20>" & _
" <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&">" & _
" <input type=hidden name=release value="&iRelease&">" & _
"</tr>" & _
"</form>" & _
"</table>"
End Function
'************************************************************************************************
' 函数名 : TableSearch()
' 输 入 :
' 输 出 : 一张用于查询工作计划的表单，包括查询的条件和查询按钮
' 功能描述:
' 调用模块: plancompany.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-18
' 版 本 :
'************************************************************************************************
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=""frmSearchPlan"" method=post action=""plancompany.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>"
TableSearch = TableSearch & _
" <td width=200> </td>" & _
" <td width=200> </td></tr>"
TableSearch = TableSearch & _
"<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
'************************************************************************************************
' 函数名 : FormUpdatePlan()
' 输 入 :
' 输 出 : 一个用于新添或者更新工作计划的表单，包括相应的按钮，以及有关的工作计划的参数
' 功能描述:
' 调用模块: plancompany.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-18
' 版 本 :
'************************************************************************************************
Function FormUpdatePlan()
'--------------------------------------------------------------------------
' 新添或者更新公司工作计划所采用的表单，根据formAction的值来判断是何种类型的表单
'-------------------------------------------------------------------------------
dim sTemp, sFormAction, sTempButtons, sContent, sTarget, sHandler, sProgress, sMemo, iSerial
dim crs, rs, sSQL
sFormAction = GetParam("formaction")
iSerial = GetParam("serial")
if sFormAction = "updtype" then
sSQL = "select * from T_Plan_Detail where serial = "& iSerial
set crs = New CRecordset
set rs = crs.open(dbLocal,sSQL)
sContent = crs.GetValue("content")
sTarget = crs.GetValue("target")
sProgress = crs.GetValue("progress")
sHandler = crs.GetValue("handler")
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
sContent = ""
sTarget = ""
sProgress = ""
sHandler = ""
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=""frmUpdatePlan"" method=post action=""plancompany.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&">" & _
" <input type=hidden name=release value="&iRelease&">"
select case iType
case 1
sTemp = sTemp & _
"<tr height=20><td colspan=2 width=600 ><span style=""vertical-align:middle"">本月度工作计划：</span><input type=""text"" name=""content"" value=""" & sContent & """ size=80 maxlength=100 style=""text-align:left""> </td>"
case 2
sTemp = sTemp & _
"<tr height=20><td colspan=2 width=600 ><span style=""vertical-align:middle"">本季度工作计划：</span><input type=""text"" name=""content"" value=""" & sContent & """ size=80 maxlength=100 style=""text-align:left""> </td>"
case 3
sTemp = sTemp & _
"<tr height=20><td colspan=2 width=600 ><span style=""vertical-align:middle"">本年度工作计划：</span><input type=""text"" name=""content"" value=""" & sContent & """ size=80 maxlength=100 style=""text-align:left""> </td>"
end select
sTemp = sTemp & _
"<tr height=4><td width=600 ></td></tr>" & _
"<tr ><td colspan=2 width=600 ><span style=""vertical-align:top"">实施目标和措施：</span><textarea name=""target"" rows=3 cols=78 style=""font-family:宋体;font-size:9pt;border:1px solid gray;"">" & sTarget & "</textarea></td>" & _
"<tr height=30>" & _
" <td width=300><span style=""vertical-align:middle"">完成进度： </span><input type=""text"" name=""progress"" value="""&sProgress&""" size=20 maxlength=50 > </td>" & _
" <td width=300 align=right>责任人：</span><input type=""text"" name=""handler"" value="""&sHandler&""" size=20 maxlength=50 > </td>" & _
" </td>" & _
"<tr ><td colspan=2 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 height=30px><td colspan=2 width=600 align=center>" & _
sTempButtons & _
" </td></tr>" & _
"<tr height=30>" & _
"</form>" & _
"</table>"
FormUpdatePlan = sTemp
End Function
'************************************************************************************************
' 函数名 : MonthTableHeader()
' 输 入 :
' 输 出 : 月度工作计划表的表头显示
' 功能描述:
' 调用模块: plancompany.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-18
' 版 本 :
'************************************************************************************************
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>"
if GetEmpSerial = GetOfficer then
MonthTableHeader = MonthTableHeader & "<img src=""../images/bg/ar-y.gif"" width=8 height=8> "
end if
MonthTableHeader = MonthTableHeader & "序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "content", "本月计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=70 valign=middle > " & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=60> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'************************************************************************************************
' 函数名 : YearTableHeader()
' 输 入 :
' 输 出 : 年度工作计划表的表头显示
' 功能描述:
' 调用模块: plancompany.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-18
' 版 本 :
'************************************************************************************************
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>"
if GetEmpSerial = GetOfficer then
YearTableHeader = YearTableHeader & "<img src=""../images/bg/ar-y.gif"" width=8 height=8> "
end if
YearTableHeader = YearTableHeader & "序号</td>" & _
"<td class=tdHead width=180> " & TableHeaderField(sFileName, "content", "本年度计划完成的主要工作", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=160> " & TableHeaderField(sFileName, "target", "实施目标和措施", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=80 > " & TableHeaderField(sFileName, "progress", "完成进度", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=70 valign=middle > " & TableHeaderField(sFileName, "handler", "责任人", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead width=60> " & TableHeaderField(sFileName, "memo", "备注", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -