📄 plandepartments_new.inc
字号:
<%
'************************************************************************************************
' 函数名 : FormUpdatePlan()
' 输 入 :
' 输 出 : 一个用于新添或者更新工作计划的表单，包括相应的按钮，以及有关的工作计划的参数
' 功能描述:
' 调用模块: plandepartment.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
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=""plandepartment.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 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=30>" & _
"</form>" & _
"</table>"
FormUpdatePlan = sTemp
End Function
'************************************************************************************************
' 函数名 : TableSearch()
' 输 入 :
' 输 出 : 一张用于查询工作计划的表单，包括查询的条件和查询按钮
' 功能描述:
' 调用模块: plandepartments.asp
' 作 者 : 蔡晓燕
' 日 期 : 2002-06-14
' 版 本 :
'************************************************************************************************
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=""plandepartments.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>部门：<select name=""node"" style=""width:86px"">"
'第一次进入本页面的时候，iDepartmentId = 0(缺省值)，使部门下拉列表选项选中值为空
if iDepartmentId = 0 then TableSearch = TableSearch & "<option value=0 selected>请选择部门 </option>"
TableSearch = TableSearch & OwnerLevel2DepartmentSelectOptions(iDepartmentId) &_
" </select>" & _
" </td>" & _
"<tr height=30>" & _
" <td width=200>季度：<select name=""of_season"" 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"" 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>" & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -