📄 forminfo.inc
字号:
<%
'#############################################################################################
'#
'# 文件名 : forminfo.inc
'# Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'# 创建人 : BinZha
'# 日 期 : 2002-07-19
'#
'# 修改历史 : ****年**月**日 ****** 修改内容:**********************************************
'#
'# 功能描述 : 新增材料设备采购申请单函数文件
'# 版 本 :
'#
'#############################################################################################
' ====================================================================================
' 实现页面生成的功能函数
' FormDetail()
' TableLink()
' TableHeader()
' TableRecords()
' FormNew()
' FormSubmit()
' FormPass()
' FormBack()
' FormGet()
' ====================================================================================
Function FormDetail()
dim sSQL2, crs, rs
dim sApplicant, sApplyDate, sHandler, sStatus, sSigner, sOperator, sUserName
dim pSerial, pName, pType, pUnit, pAmount
dim sLink, sTopHead
dim ActionStatus
if not IsEmpty(iFormID) then
sSQL2 = "select * from T_FormList where ID = " & iFormID
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL2)
if rs.EOF then
Server.Transfer("../common/error.asp")
Response.end
end if
'' 获取任务信息的各种数据
sApplicant = crs.GetValue("Applicant")
sApplyDate = crs.GetValue("ApplyDate")
sHandler = crs.GetValue("Handler")
sStatus = crs.GetValue("Status")
sSigner = crs.GetValue("Signer")
if sStatus = "审批通过" or sStatus = "已经领取" then sOperator = crs.GetValue("Operator")
if sStatus = "已经领取" then sUserName = crs.GetValue("UserName")
'' 普通用户不能察看别人的申请单
if not (IsOfficer() or sOperator = sEmpName) then
if sSigner <> sEmpName then
Server.Transfer("../common/error.asp")
Response.end
end if
end if
'' 如果审批以后就不能添加记录
if not (sStatus = "尚未提交" or sStatus = "不通过！") then
if sAction = "add" then
Server.Transfer("../common/error.asp")
Response.end
end if
end if
crs.Close()
if not IsEmpty(iItem) then
sSQL2 = "select * from T_FormInfo where ID = " & iItem
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL2)
if rs.EOF then
Server.Transfer("../common/error.asp")
Response.end
end if
'' 获取任务信息的各种数据
pSerial = crs.GetValue("Serial")
pName = crs.GetValue("Name")
pType = crs.GetValue("Type")
pUnit = crs.GetValue("Unit")
pAmount = crs.GetValue("Amount")
sTopHead = "修改采购材料设备"
sLink = _
"<tr bgcolor=white height=20>" & _
" <input type=""hidden"" name=""item"" value=""" & iItem & """>" & _
" <td colspan=4 align=center>"
'' 如果申请单尚未提交或则审批不通过， 则显示更新、删除按钮
if sStatus = "尚未提交" or sStatus = "不通过！" then
sLink = sLink & _
" <img border=0 src=""../images/button/update.gif"" onclick=""btnUpDateDetail_OnClick()"" style=""cursor:hand""> " & _
" <img border=0 src=""../images/button/delete.gif"" onclick=""btnDeleteDetail_OnClick()"" style=""cursor:hand""> "
end if
'' 采购员输入单价备注确认按钮
if sStatus = "审批通过" and sOperator = sEmpName then
sLink = sLink & _
" <img border=0 src=""../images/button/buy.gif"" onclick=""btnUpDateBuy_OnClick()"" style=""cursor:hand""> "
end if
sLink = sLink & _
" <img border=0 src=""../images/button/cancel.gif"" onclick=""btnCancel_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>"
else
sTopHead = "添加采购材料设备"
sLink = _
"<tr bgcolor=white height=20>" & _
" <input type=""hidden"" name=""RsCounter"" value=""" & CountRS & """>" & _
" <td colspan=4 align=center>"
'' 如果申请单尚未提交或则审批不通过， 则显示添加按钮
if sStatus = "尚未提交" or sStatus = "不通过！" then
sLink = sLink & _
" <img border=0 src=""../images/button/ok.gif"" onclick=""btnAddDetail_OnClick()"" style=""cursor:hand""> " & _
" <img border=0 src=""../images/button/reset.gif"" onclick=""btnReset_OnClick()"" style=""cursor:hand""> "
end if
sLink = sLink & _
" <img border=0 src=""../images/button/cancel.gif"" onclick=""btnCancel_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>"
end if
FormDetail = TableHeader(sApplicant,sApplyDate) & _
TableRecords(sUserName,sHandler,sOperator,sSigner,sStatus)
'' 如果对材料设备进行处理的话，就不显示表单处理菜单
if sAction = "edit" or sAction = "add" then
FormDetail = FormDetail & "</table>"
else
FormDetail = FormDetail & _
"<form method=post name=frmSubmit action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""RsCounter"" value=""" & CountRS & """>" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<tr>" & _
" <input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
" <td colspan=4 align=center>"
'' 如果申请单尚未提交或则审批不通过， 则显示添加按钮
if sStatus = "尚未提交" or sStatus = "不通过！" then
'' 如果记录数小于10条，则可以添加新的记录
if CountRS < 10 then
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/add.gif"" onclick=""btnNewDetail_OnClick()"" style=""cursor:hand""> "
end if
end if
'' 如果申请单尚未提交， 则显示提交按钮
if sStatus = "尚未提交" or sStatus = "不通过！" then
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/goon.gif"" onclick=""btnSubmit_OnClick()"" style=""cursor:hand""> "
end if
'' 如果申请单尚未提交或则审批不通过， 则显示删除按钮
if sStatus = "尚未提交" or sStatus = "不通过！" then
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/delete.gif"" onclick=""btnDelete_OnClick()"" style=""cursor:hand""> "
end if
'' 办公室主任操作菜单
if sStatus = "等待审批" and IsOfficer() then
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/pass.gif"" onclick=""btnPass_OnClick()"" style=""cursor:hand""> " & _
" <img border=0 src=""../images/button/back.gif"" onclick=""btnBack_OnClick()"" style=""cursor:hand""> "
end if
'' 采购员提交采购单按钮
if sStatus = "审批通过" and sOperator = sEmpName then
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/put.gif"" onclick=""btnSubmitBuy_OnClick()"" style=""cursor:hand""> "
end if
FormDetail = FormDetail & _
" <img border=0 src=""../images/button/preview.gif"" onclick=""btnPreview_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"</form>" & _
"</table>"
end if
'' 如果对材料设备记录进行处理的话，显示记录处理界面和菜单
if (sAction = "add" or (sAction = "edit" and (not IsEmpty(iItem)))) and IsEmpty(sOperator) then
FormDetail = FormDetail & _
TableTitle(sTopHead, 600, "", "") & _
"<table cellspacing=0 cellpadding=0 bgcolor=white border=0 width=600><tr><td class=tdlist>" & _
"<table cellspacing=1 cellpadding=0 bgcolor=white border=0 width=600>" & _
"<form method=post name=frmAddDetail action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value='" & iFormID & "'>" & _
"<tr height=10><td></td></tr>" & _
"<tr bgcolor=white height=20>" & _
" <td width=100 align=right>编号：</td>" & _
" <td> <input type=text name='serial' value='" & pSerial & "'></td>" & _
" <td></td>" & _
" <td></td>" & _
"</tr>" & _
"<tr bgcolor=white height=20>" & _
" <td width=100 align=right>材料设备名称：</td>" & _
" <td> <input type=text name='name' value='" & pName & "'></td>" & _
" <td width=100 align=right>单位：</td>" & _
" <td> <input type=text name='unit' value='" & pUnit & "'></td>" & _
"</tr>" & _
"<tr bgcolor=white height=20>" & _
" <td width=100 align=right>规格型号：</td>" & _
" <td> <input type=text name='type' value='" & pType & "'></td>" & _
" <td width=100 align=right>数量：</td>" & _
" <td> <input type=text name='amount' value='" & pAmount & "'></td>" & _
"</tr>" & _
"<tr height=20><td></td></tr>" & _
sLink & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
else
if sAction = "edit" and (not IsEmpty(iItem)) and sOperator = sEmpName and sStatus = "审批通过" then
FormDetail = FormDetail & _
TableTitle("填写《" & pName & "》单价和备注", 600, "", "") & _
"<table cellspacing=0 cellpadding=0 bgcolor=white border=0 width=600><tr><td class=tdlist>" & _
"<table cellspacing=1 cellpadding=0 bgcolor=white border=0 width=600>" & _
"<form method=post name=frmAddDetail action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value='" & iFormID & "'>" & _
"<tr height=10><td></td></tr>" & _
"<tr bgcolor=white height=20>" & _
" <td width=200 align=right>单价：</td>" & _
" <td> <input type=text name='danjia' size=34> 元</td>" & _
"</tr>" & _
"<tr bgcolor=white height=20>" & _
" <td width=200 align=right>备注：</td>" & _
" <td> <input type=text name='remark' size=34></td>" & _
"</tr>" & _
"<tr height=20><td></td></tr>" & _
sLink & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
end if
end if
else
FormDetail = FormNew
end if
End Function
Function TableLink()
TableLink = _
"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & _
"<tr height=10>" & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
"</tr>" & _
"<tr height=20>" & _
" <td width=600> " & _
" <img src=""../images/goto.gif""> <a href=""formlist.asp"">返回申请单列表</a></td>" & _
"</tr>" & _
"</table>"
End Function
Function TableHeader(sApplicant,sApplyDate)
TableHeader = _
"<table border=""0"">" & _
"<tr>" & _
"<td colspan=""4"" bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"" height=20>材料设备采购、领用单</td>" & _
"</tr>" & _
"<tr height=15><td colspan=""4""></td></tr>" & _
"<tr>" & _
"<td colspan=""2"">申请部门： " & sApplicant & "</td>" & _
"<td colspan=""2"">日期： " & sApplyDate & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td colspan=""4""><table width=""600"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000""><tr><td><table width=""600"" border=""0"" cellpadding=""0"" cellspacing=""1"">" & _
"<tr>" & _
"<td class=tdHead align=center width=50>编号</td>" & _
"<td class=tdHead align=center width=110>材料设备名称</td>" & _
"<td class=tdHead align=center width=110>规格型号</td>" & _
"<td class=tdHead align=center width=35>单位</td>" & _
"<td class=tdHead align=center width=65>数量</td>" & _
"<td class=tdHead align=center width=50>单价</td>" & _
"<td class=tdHead align=center width=80>金额</td>" & _
"<td class=tdHead align=center width=100>备注</td>" & _
"</tr>"
End Function
Function TableRecords(sUserName,sHandler,sOperator,sSigner,sStatus)
dim sTemp : sTemp = ""
'' 获取数据库连接
dim crs : set crs = New CRecordset
dim rs : set rs = crs.open(dbLocal,sSQL)
dim iCounter : iCounter = 1
dim sID, sSerial, sName, sType, sUnit, sAmount, sDanjia, sMoney, sRemark, AllAmount, AllMoney
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.Move (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF
sID = crs.GetValue("ID")
sSerial = crs.GetValue("Serial")
sName = crs.GetValue("Name")
sType = crs.GetValue("Type")
sUnit = crs.GetValue("Unit")
sAmount = crs.GetValue("Amount")
sDanjia = crs.GetValue("Danjia")
sMoney = crs.GetValue("Money")
sRemark = crs.GetValue("Remark")
AllAmount = AllAmount + sAmount
if sMoney <> "" then AllMoney = AllMoney + sMoney
sTemp = sTemp & _
"<tr bgcolor=white>" & _
" <td class=tdlist align=center title=""" & sSerial & """"
if sStatus <> "已经领取" then
sTemp = sTemp & _
" style=""cursor:hand"" onclick=""javascript:location.href='forminfo.asp?action=edit&id=" & iFormID & "&item=" & sID & "';""> <img src=""../images/bg/ar-g.gif"" width=8 height=8>"
else
sTemp = sTemp & ">"
end if
sTemp = sTemp & _
" " & Bref(sSerial,8) & " </td>" & _
" <td class=tdlist title=""" & sName & """ align=center> " & Bref(sName,10) & " </td>" & _
" <td class=tdlist title=""" & sType & """ align=center> " & Bref(sType,10) & " </td>" & _
" <td class=tdlist title=""" & sUnit & """ align=center> " & sUnit & " </td>" & _
" <td class=tdlist title=""" & sAmount & """ align=center> " & sAmount & " </td>" & _
" <td class=tdlist title=""" & sDanjia & """ align=center> " & sDanjia & " </td>" & _
" <td class=tdlist title=""" & sMoney & """ align=center> " & sMoney & " </td>" & _
" <td class=tdlist title=""" & sRemark & """ align=center> " & Bref(sRemark, 10) & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
sTemp = sTemp & _
"<tr> " & _
"<td class=tdlist colspan=""4"" align=center>合 计</td>" & _
"<td class=tdlist align=center> " & AllAmount & " </td>" & _
"<td class=tdlist> </td>" & _
"<td class=tdlist align=center> " & AllMoney & " </td>" & _
"<td class=tdlist> </td>" & _
"</tr>" & _
"<tr>" & _
"<td class=tdlist colspan=""8"" align=left> 人民币（大写）： " & TranMoney(AllMoney) & "</td>" & _
"</tr>" & _
"</table></td></tr></table></td>" & _
"</tr>" & _
"<tr> " & _
"<td>领用人： " & sUserName & "</td>" & _
"<td>申请部门负责人： " & sHandler & "</td>" & _
"<td>采购人： " & sOperator & "</td>" & _
"<td>登记人： " & sSigner & "</td>" & _
"</tr>" & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -