📄 k_dqkctj.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页






<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"--> 
<%
 '得到入库仓库下拉单
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='storehouse'"            
 AdoRS3.Open lcSql,PubConn,1,1            
 HYvalue=Adors3("NumValue")            
 if not isNull(HYvalue) then            
 	storemc=Split(HYValue,",") 					            
 end if            
 Set Adors3=Nothing

username=Getuser()

ckxh=request("ckxh")
spxh=request("spxh")
    set rssp=Server.Createobject("ADODB.recordset")
    sql="select *  from A_ProductInfo where ProdCode='"&spxh&"'"
    rssp.open sql,Pubconn,1
    if not rssp.eof then
       spmc=rssp("ProdName")
       ggxh=rssp("Model")+"-"+rssp("stanDard")
    end if 

%>
<%
set rst=server.createobject("adodb.recordset")
str="select sum(dqzkc) as total1,sum(dqkkdk) as total2 ,spxh,ckxh from TblsysckspNowDay where 1=1 "

if ckxh<>"" then
      str=str&" and ckxh='"&ckxh&"'"
end if 
if spxh<>"" then
    str=str&" and spxh='"&spxh&"'"
end if 
str=str&" group by spxh,ckxh order by ckxh desc "
rst.open str,pubconn,1
'response.write str

%>                                     
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
//商品名称响事件  
  var Pcount;
  Pcount=0;
  shang2 = new Array();
 
   <%count = 0
     set rst1=server.CreateObject("adodb.recordset")
     mysql="select ProdName,model,prodcode,standard from  A_ProductInfo "
     rst1.open mysql,Pubconn,1,3
    if rst1.recordcount> 0 then

       do while not rst1.eof %>
         
           shang2[<%=count%>]=new Array("<%= trim(rst1("prodcode"))%>","<%= trim(rst1("ProdName"))%>","<%= trim(rst1("model"))%>","<%= trim(rst1("standard"))%>");
      <%  count = count + 1
        rst1.movenext
        loop
   end if 
     rst1.close
     set rst1=nothing
      %>
   Pcount=<%=count%>;
   function key2()
     {
     //取商品名称 
      for (t=0;t<Pcount;t++)
         { 
            if(document.myform.spxh.value==shang2[t][0])
            {
               document.myform.spmc.value=shang2[t][1]+"/"+shang2[t][2]+"-"+shang2[t][3]
               break;          
            }
            else
             {
              
               document.myform.spmc.value=""; 
                  
             }
          }  
          
          
            
   }    //key2事件响完成
 

</script>
<script language="vbscript">
   sub GoPage()

        page1=document.myform.page1.value
        ckxh=document.myform.ckxh.value
        spxh=document.myform.spxh.value
        a="k_dqkctj.asp?page="+page1+"&spxh="+spxh+"&ckxh="+ckxh
        window.location=a
   end sub
   sub cpmc()
    '选择产品时，新开一个窗口
     aa="K_zkccp.asp"
     window.open aa,"产品信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
end sub 

</script>  
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif"></font>&nbsp;<font size="2">   当前库存统计查询       
     </font>       
     </b><hr width="40%" size="1" align="left">                                
                                      
    </td>                                
  </tr>                                
</table>                                     
<form method="post" action="k_dqkctj.asp" name="myform">                                                                      
                                                                 
<table border="0" cellspacing="0" width="574" align="center" width="630" width="636">                                                                            
 <tr>                
  <td width="71" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" >                
                
                  
     <font size="2">商品编码    
     </font>    
                        
                       
  </td><td width="230" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">            
  <font size="2">    
  <input type="text" name="spxh" size="12"   value="<%=spxh%>"  onkeyup="key2()">    
    
    <input type="button" value="..." name="cmdsearch1" onclick="cpmc()"    class="hand"  style="background-color: #D1D1D1; border-style: solid; border-width: 1" >                                                                                    
            
  　    
  </font>    
  </td>    
  <td width="229" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">            
  <font size="2">品名规格<input type="text" name="spmc" size="20" <%if spxh<>"" then%>  value="<%=spmc%>-<%=ggxh%>" <%end if%> readonly style="background-color: #edefef">    
    
  </font>    
  </td>    
 </tr>    
 <tr>    
  <td width="71" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" align="right">    
    
      
   <font size="2">    
    
      
   仓库    
   </font>    
  </td>    
   <td width="176" align="right" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" >    
    
    <p align="left">    
    <font size="2">    
    <select size="1" name="ckxh" style="width: 131; height: 23">    
   <option value="">全部</option>           
           <%for i=0 to UBound(storemc) %>           
             <option value="<%=storemc(i)%>" <%if ckxh=storemc(i)  then%> selected <%end if %>><%=storemc(i)%></option>                                                         
           <%next %>                          </select>      
      
      
    </font>      
      
      
  </td>
12 下一页
⌨️ 快捷键说明

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