📄 check_buchuang.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/No.asp"-->
<%
Dim userdd
userdd = Manage_Level(adl)
%>
<HTML>
<HEAD>
<TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
<BODY text="#000000">
<SCRIPT language=javascript>
function Chk(theForm)
{
if (theForm.selpayer.value == ""){
                alert("请输入申请单编号!");
                theForm.selpayer.focus();
                return (false);
				
    }else{
	        updated.style.display = '';
	}
}
</SCRIPT>
<TABLE cellSpacing=1 cellPadding=0 width="98%" align=center border=0 class="tableBorder">
  <TBODY>
    <TR> 
      <FORM name="Form2" action="?action=go" method="post" onSubmit="return Chk(this);">
        <th align=middle colSpan=6 height=25> 
          <select name="selpayer" id="selpayer">
            <option value="" selected>请选择申请单编号</option>
            <%
DIm th
Set th = Conn.Execute("Select Distinct Bu_ID From [BuChuang]")
Do While Not th.Eof
Response.Write "<option value='"& th(0) &"'>"& th(0) &"</option>"
th.movenext
Loop
th.Close
Set th=Nothing
%>
          </select><input type="submit" name="Submit" value=" 点 击 查 找 ">
          补仓申请单</th>
      </FORM>
    </TR>
    <TR> 
      <td align=middle bgcolor="#f1f3f5"> 
        <DIV id="updated" style="DISPLAY: none" align="center"> 
          <table width="100%" border="0" align="center" cellpadding="4" cellspacing="4">
            <tr> 
              <td height="50"> <div align="center"><b>正在统计，请稍后...<b> <img height="15" alt="Laoding..." src="Image/loading.gif" width="150"></b></b></div></td>
            </tr>
          </table>
        </DIV>
<%If Request.QueryString("action")="go" Then
Dim ord_id
Dim bu,bu_2,bu_3,bu_4
ord_id = Trim(Request.Form("selpayer"))
Set bu = Conn.Execute("Select KuGuan,Bu_ID,Product_ID,Shuliang,Mone,Check_CaiWu,Check_CaiGou From [BuChuang] Where Bu_ID='"&ord_id&"'")

If bu(5)=0 Then
   If userdd<>"财务员" Then
   Response.Write "<script language=javascript>alert('财务部还没有审核，请让该部门主管审核!');"
   Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
   End if
End if
If bu(5)<>0 and bu(6)=0 Then
   If userdd<>"财务员" and userdd<>"采购经理" Then
   Response.Write "<script language=javascript>alert('采购部经理还没有审核，请让该部门主管审核!');"
   Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
   End if
End if
%>
        <form name="form1" method="post" action="Check_BuChuang2.asp?id=<%=bu(1)%>">
          <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
            <tr> 
              <td height="25" colspan="6" class=forumrow> 申请单编号：<%=bu(1)%> 制表人：<%=User_Name(bu(0))%> 
                财务部： 
                <%If bu(5)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(bu(5))
End if
%>
                采购经理： 
                <%If bu(6)=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(bu(6))
End if
%>
              </td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td width="8%" height="25" class=forumrow> 
                <div align="center">商品代码</div></td>
              <td width="20%" class=forumrow> 
                <div align="center">商品名称</div></td>
              <td width="15%" class=forumrow> 
                <div align="center">产地 </div></td>
              <td width="15%" class=forumrow> 
                <div align="center">规格</div></td>
              <td width="10%" class=forumrow> <div align="center">补仓个数</div></td>
              <td class=forumrow> 
                <div align="center">备注</div></td>
            </tr>
<%If bu.Eof Then
Response.Write "<tr><td>没有任何记录!</td></tr>"
Else
Dim pro,pro_1,pro_2,pro_3
Do While Not bu.Eof 
bu_2 = bu(2)
bu_3 = bu(3)
bu_4 = bu(4)
Set pro = Conn.Execute("Select Name,GuiGe,Froms From [Product] Where Product_ID='"&bu_2&"'")
pro_1 = pro(0)
pro_2 = pro(1)
pro_3 = pro(2)
pro.Close
Set pro=Nothing
%>
            <tr bgcolor="#FFFFFF"> 
              <td height="25" class=forumrow> <div align="center"><%=bu_2%></div></td>
              <td class=forumrow><div align="center"><%=pro_1%></div></td>
              <td class=forumrow><div align="center"><%=pro_3%></div></td>
              <td class=forumrow><div align="center"><%=pro_2%></div></td>
              <td class=forumrow><div align="center"><%=bu_3%></div></td>
              <td class=forumrow><div align="center"><%=bu_4%></div></td>
            </tr>
<%
bu.Movenext
Loop
End if
bu.Close
Set bu=Nothing
%>
            <tr bgcolor="#FFFFFF"> 
              <td height="35" colspan="6" class=forumrow>
<div align="center"> 
                  <input type="submit" name="Submit2" value="审 核">
                </div></td>
            </tr>
            <%End if%>
          </table>
        </form>
        
      </td>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -