📄 caigou_bulist.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="isManage.asp"-->
<!--#include file="Inc/No.asp"-->
<!--#include file="Inc/Count.asp"-->
<!--#include file="Inc/Print.asp"-->
<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 = '';
	}
}

function CheckNum(){
   if((event.keyCode<48||event.keyCode>57)&&event.keyCode!=46) event.returnValue=false; 
   }
</SCRIPT>
<DIV id=overDiv style="Z-INDEX: 1; POSITION: absolute"></DIV>
<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 dd
Set dd=Conn.Execute("Select Distinct Bu_ID From [BuChuang]")
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close
Set dd=Nothing
%>
          </select><input type="submit" name="Submit" value=" 点 击 查 找 ">
          添补仓采购单</th>
      </FORM>
    </TR>
    <TR class=forumRow> 
      <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
Call HuiAdd
End if
Sub HuiAdd
DIm cc
Dim cai_id,pro_id,ppo
Dim Product_GG,Product_FF,Product_Na
cai_id = Request.Form("selpayer")
Set cc = Conn.Execute("Select * From [BuChuang] Where Bu_ID='"&cai_id&"'")
If cc.Eof Then
Response.Write "没有任何记录!"
Else


%>
        <form name="form1" method="post" action="CaiGou_BuAdd.asp?id=<%=cc("Bu_ID")%>">
          <table width="100%" border="0" cellpadding="6" cellspacing="1" bgcolor="#FFFFFF">
            <tr> 
              <td colspan="7" class=forumrow>制表人：<%=User_Name(cc("KuGuan"))%> 
                采购部主管：
                <%
If cc("Check_CaiGou")=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(cc("Check_CaiGou"))
End if%>
                财务部主管：
                <%
If cc("Check_CaiWu")=0 Then
Response.Write "未审核"
Else
Response.Write User_Name(cc("Check_CaiWu"))
End if%>
              </td>
            </tr>
            <tr> 
              <td height="12" colspan="7" class=forumrow>&nbsp;</td>
            </tr>
            <tr> 
              <td width="10%" class=forumrow> 
                <div align="center">商品代码</div></td>
              <td width="20%" class=forumrow> <div align="center">名称</div></td>
              <td width="10%" class=forumrow> <div align="center">产地 </div></td>
              <td width="10%" class=forumrow> <div align="center">规格</div></td>
              <td width="10%" class=forumrow> <div align="center">补仓个数</div></td>
              <td width="12%" class=forumrow><div align="center">购买单价</div></td>
              <td width="30%" class=forumrow id=upid> <div align="center">备注</div></td>
            </tr>
            <%
Dim u
u=1
Do While Not cc.Eof
pro_id = cc("Product_ID")

Set ppo = Conn.Execute("Select Name,Froms,GuiGe From [Product] Where Product_ID='"&pro_id&"'")
Product_Na = ppo(0)
Product_FF = ppo(1)
Product_GG = ppo(2)
ppo.Close
Set ppo=Nothing
%>
            <tr> 
              <td height="30" class=forumrow><div align="center"><%=pro_id%>
                  <input name="<%Response.Write "pro_id"&u%>" type="hidden" value="<%=pro_id%>">
                </div></td>
              <td class=forumrow><div align="center"><%=Product_Na%></div></td>
              <td class=forumrow><div align="center"><%=Product_FF%></div></td>
              <td class=forumrow><div align="center"><%=Product_GG%></div></td>
              <td class=forumrow><div align="center"><%=cc("Shuliang")%></div></td>
              <td class=forumrow><div align="center"> 
                  <input name="<%Response.Write "danjia"&u%>" type="text" size="10" maxlength="20">
                </div></td>
              <td class=forumrow><div align="center"><%=cc("Mone")%></div></td>
            </tr>
            <%
			u=u+1
cc.MoveNext
Loop
End if
cc.Close
Set cc=Nothing
%>
            <tr> 
              <td colspan="7" class=forumrow> <div align="center">
                  <input name="u" type="hidden" id="u" value="<%=u-1%>">
                  <input type="submit" name="Submit2" value="提交">
                </div></td>
            </tr>
            <tr> 
              <td height="25" colspan="7" class=forumrow><a href="#" onClick="javascript:window.print();"><strong>打印票据</strong></a> 
                <a href="#" onclick="javascript:printpreview();"><strong>打印预览</strong></a></td>
            </tr>
          </table>
        </form>
        <%End Sub%>
      </td>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

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