📄 forminfo.inc
字号:
"<tr>" & _
"<td colspan=4 height=20></td>" & _
"</tr>"
TableRecords = sTemp
end Function
Function FormNew()
FormNew = _
TableTitle("新建材料设备采购申请单", 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=frmAddnew action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""status"" value=""尚未提交"">" & _
"<tr height=20><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td width=200 align=right>申请单标识名称：</td>" & _
" <td> <input type=text name='form_name' size=31></td>" & _
"</tr>" & _
"<tr bgcolor=white height=30>" & _
" <td width=200 align=right>申请部门：</td>" & _
" <td> <select name=""applicant"" style=""width:200"">" & selectOptions(dbLocal, "t_node", "node_name", "node_name","","node_level=2") & "</select></td>" & _
"</tr>" & _
"<tr height=150><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td colspan=2 align=center><img border=0 src=""../images/button/add.gif"" onclick=""btnAdd_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
End Function
Function FormSubmit()
FormSubmit = _
TableTitle("提交材料设备采购申请单", 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=frmSubmit action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
"<input type=""hidden"" name=""status"" value=""等待审批"">" & _
"<tr height=20><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td width=200 align=right>申请部门负责人：</td>" & _
" <td> <select name=""handler"" style=""width:200"">" & selectOptions(dbLocal, "t_employee", "name", "name","","co_id=" & GetCoId & " and isdummy=0 and dismissed=0") & "</select></td>" & _
"</tr>" & _
"<tr height=180><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td colspan=2 align=center><img border=0 src=""../images/button/submit.gif"" onclick=""btnOK_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
End Function
Function FormPass()
FormPass = _
TableTitle("审批通过材料设备采购申请单", 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=frmSubmit action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
"<input type=""hidden"" name=""status"" value=""审批通过"">" & _
"<tr height=20><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td width=200 align=right>指定采购人：</td>" & _
" <td> <select name=""operator"" style=""width:200"">" & selectOptions(dbLocal, "t_employee", "name", "name","","co_id=" & GetCoId & " and isdummy=0 and dismissed=0") & "</select></td>" & _
"</tr>" & _
"<tr height=180><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td colspan=2 align=center><img border=0 src=""../images/button/ok.gif"" onclick=""btnToBuy_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
End Function
Function FormBack()
FormBack = _
TableTitle("退回材料设备采购申请单", 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=frmSubmit action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
"<tr height=20><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td align=center>退回留言：</td>" & _
"</tr>" & _
"<tr height=100>" & _
" <td align=center> <textarea name=""backmsg"" rows=10 cols=60></textarea></td>" & _
"</tr>" & _
"<tr height=20>" & _
" <td></td>" & _
"</tr>" & _
"<tr bgcolor=white height=30>" & _
" <td align=center><img border=0 src=""../images/button/ok.gif"" onclick=""btnBackOK_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
End Function
Function FormGet()
FormGet = _
TableTitle("领取材料设备", 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=frmSubmit action=""forminfo.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
"<input type=""hidden"" name=""status"" value=""已经领取"">" & _
"<tr height=20><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td width=200 align=right>领用人：</td>" & _
" <td> <select name=""username"" style=""width:200"">" & selectOptions(dbLocal, "t_employee", "name", "name","","co_id=" & GetCoId & " and isdummy=0 and dismissed=0") & "</select></td>" & _
"</tr>" & _
"<tr height=180><td></td></tr>" & _
"<tr bgcolor=white height=30>" & _
" <td colspan=2 align=center><img border=0 src=""../images/button/get.gif"" onclick=""btnFinBuy_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"<tr height=15><td></td></tr>" & _
"</form>" & _
"</table>" & _
"</td></tr></table>"
End Function
' ====================================================================================
' 实现数据库操作的功能函数
' AddForm()
' SubmitForm()
' DeleteForm()
' PassForm()
' BackForm()
' AddDetail()
' UpdateDetail()
' DeleteDetail()
' ====================================================================================
Function AddForm()
dim strSQL
dim sFormName : sFormName = GetParam("form_name")
dim sApplicant : sApplicant = GetParam("applicant")
dim sApplyDate : sApplyDate = date
dim sStatus : sStatus = GetParam("status")
strSQL = "insert into T_FormList(FormName, Applicant, ApplyDate, Signer, Status)" & _
" values(" & ToSQL(sFormName, "Text") & ", " & ToSQL(sApplicant, "Text") & ", " & ToSQL(sApplyDate,"Text") & _
", " & ToSQL(sEmpName, "Text") & ", " & ToSQL(sStatus, "Text") & ")"
call ExecuteSQL(dbLocal, strSQL)
iFormID = DLookUp(dbLocal, "T_FormList", "max(ID)", "Signer=" & ToSQL(sEmpName, "Text"))
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
End Function
Function SubmitForm()
dim strSQL, sFormName
dim sStatus : sStatus = GetParam("status")
dim sHandler : sHandler = GetParam("handler")
if CountRS <= 0 then
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
end if
strSQL = "update T_FormList" & _
" set Status = " & ToSQL(sStatus, "Text") & _
", Handler = " & ToSQL(sHandler, "Text") & _
" where ID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
sFormName = DLookUp(dbLocal, "T_FormList", "FormName", "ID=" & iFormID)
call CommonSendMsg(MSG_APPROVE,"","请审批：" & sFormName,"请审批我提交的购买材料设备申请单！",iEmpSerial,GetOfficer())
Response.Redirect "formlist.asp"
Response.end
End Function
Function DeleteForm()
dim strSQL
strSQL = "delete from T_Formlist where ID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
strSQL = "delete from T_FormInfo where FormID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
Response.Redirect "formlist.asp"
Response.end
End Function
Function PassForm()
dim strSQL, sFormName, sSigner, iSigner, iOpt
dim sStatus : sStatus = GetParam("status")
dim sOperator : sOperator = GetParam("operator")
strSQL = "update T_FormList" & _
" set Status = " & ToSQL(sStatus, "Text") & _
", Operator = " & ToSQL(sOperator, "Text") & _
" where ID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
sFormName = DLookUp(dbLocal, "T_FormList", "FormName", "ID=" & iFormID)
sSigner = DLookUp(dbLocal, "T_FormList", "Signer", "ID=" & iFormID)
iSigner = DLookUp(dbLocal, "T_Employee", "Serial", "Name='" & sSigner & "'")
iOpt = DLookUp(dbLocal, "T_Employee", "Serial", "Name='" & sOperator & "'")
call CommonSendMsg(MSG_APPROVE,"","审批已通过：" & sFormName,"你提交的购买材料设备申请单已获批准，现由" &sOperator & "负责采购！",GetOfficer(),iSigner)
call CommonSendMsg(MSG_TASK,"","请购买：" & sFormName,"现指派你负责进行采购！",GetOfficer(),iOpt)
Response.Redirect "formlist.asp"
Response.end
End Function
Function BackForm()
dim strSQL, sFormName, sSigner, iSigner, sBackMsg
sBackMsg = GetParam("backmsg")
if not IsEmpty(sBackMsg) then sBackMsg = "理由是：" & sBackMsg
strSQL = "update T_FormList set Status = '不通过！' where ID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
sFormName = DLookUp(dbLocal, "T_FormList", "FormName", "ID=" & iFormID)
sSigner = DLookUp(dbLocal, "T_FormList", "Signer", "ID=" & iFormID)
iSigner = DLookUp(dbLocal, "T_Employee", "Serial", "Name='" & sSigner & "'")
call CommonSendMsg(MSG_APPROVE,"","审批未通过：" & sFormName,"对不起，你提交的购买材料设备申请单未获批准！" & sBackMsg,GetOfficer(),iSigner)
Response.Redirect "formlist.asp"
Response.end
End Function
Function AddDetail()
dim strSQL, CountRS
dim sSerial : sSerial = GetParam("serial")
dim sName : sName = GetParam("name")
dim sType : sType = GetParam("type")
dim sUnit : sUnit = GetParam("unit")
dim sAmount : sAmount = GetParam("amount")
if CountRS >= 10 then
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
end if
strSQL = "insert into T_FormInfo(FormID, Serial, Name, Type, Unit, Amount)" & _
" values(" & iFormID & ", " & ToSQL(sSerial, "Text") & ", " & ToSQL(sName, "Text") & ", " & _
ToSQL(sType, "Text") &", " & ToSQL(sUnit, "Text") & ", " & sAmount & ")"
call ExecuteSQL(dbLocal, strSQL)
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
End Function
Function UpdateDetail()
dim sSQL
dim sSerial : sSerial = GetParam("serial")
dim sName : sName = GetParam("name")
dim sType : sType = GetParam("type")
dim sUnit : sUnit = GetParam("unit")
dim sAmount : sAmount = GetParam("amount")
sSQL = "update T_FormInfo" & _
" set Serial = " & ToSQL(sSerial, "Text") & _
", Name = " & ToSQL(sName, "Text") & _
", Type = " & ToSQL(sType, "Text") & _
", Unit = " & ToSQL(sUnit, "Text") & _
", Amount = " & ToSQL(sAmount, "Number") & _
" where ID = " & ToSQL(iItem, "Number")
call ExecuteSQL(dbLocal, sSQL)
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
End Function
Function DeleteDetail()
dim sSQL
sSQL = "delete from T_FormInfo where ID = " & ToSQL(iItem, "Number")
call ExecuteSQL(dbLocal, sSQL)
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
End Function
Function AddDanjia()
dim sSQL
dim iDanjia : iDanjia = GetParam("danjia")
dim sRemark : sRemark = GetParam("remark")
dim iMoney
iMoney = DLookUp(dbLocal, "T_FormInfo", "Amount", "ID=" & iItem) * iDanjia
sSQL = "update T_FormInfo" & _
" set Danjia = " & ToSQL(iDanjia, "Number") & _
", Money = " & ToSQL(iMoney, "Number") & _
", Remark = " & ToSQL(sRemark, "Text") & _
" where ID = " & ToSQL(iItem, "Number")
call ExecuteSQL(dbLocal, sSQL)
Response.Redirect "forminfo.asp?id=" & iFormID & "&"
Response.end
End Function
Function SubmitBuy()
dim strSQL
dim sStatus : sStatus = GetParam("status")
dim sUserName : sUserName = GetParam("username")
strSQL = "update T_FormList" & _
" set Status = " & ToSQL(sStatus, "Text") & _
", UserName = " & ToSQL(sUserName, "Text") & _
" where ID = " & ToSQL(iFormID, "Number")
call ExecuteSQL(dbLocal, strSQL)
Response.Redirect "formlist.asp"
Response.end
End Function
Function TranMoney(iMoney)
dim i, iTemp, iLen, iDot
dim sNum(9), sSig(16)
sNum(0) = "零" : sNum(1) = "壹" : sNum(2) = "贰" : sNum(3) = "叁" : sNum(4) = "肆"
sNum(5) = "伍" : sNum(6) = "陆" : sNum(7) = "柒" : sNum(8) = "捌" : sNum(9) = "玖"
sSig(1) = "元" : sSig(2) = "拾" : sSig(3) = "佰" : sSig(4) = "仟" : sSig(5) = "万" : sSig(6) = "拾"
sSig(7) = "佰" : sSig(8) = "仟" : sSig(9) = "亿" : sSig(10) = "拾" : sSig(11) = "佰"
sSig(12) = "仟" : sSig(13) = "兆" : sSig(14) = "拾" : sSig(15) = "佰" : sSig(16) = "仟"
iLen = len(iMoney)
if iLen = 0 then exit function
iDot = InStr(1,iMoney,".")
if iDot = 0 then
for i = 1 to iLen
iTemp = iTemp & sNum(mid(iMoney,i,1))
iTemp = iTemp & sSig(iLen + 1 - i)
next
iTemp = iTemp & "整"
else
for i = 1 to iDot - 1
iTemp = iTemp & sNum(mid(iMoney,i,1))
iTemp = iTemp & sSig(iDot - i)
next
if iLen < iDot + 2 then
iTemp = iTemp & sNum(mid(iMoney,iDot+1,1)) & "角整"
else
iTemp = iTemp & sNum(mid(iMoney,iDot+1,1)) & "角" & sNum(mid(iMoney,iDot+2,1)) & "分整"
end if
end if
TranMoney = iTemp
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -