excel进销存添加网页模块，可手机开单

最新推荐文章于 2025-12-13 10:38:42 发布

原创最新推荐文章于 2025-12-13 10:38:42 发布 · 206 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#html5

Excel+asp 专栏收录该内容

1 篇文章

订阅专栏

这是一个使用VBA在Excel中创建的进销存管理系统，通过ADO连接数据库进行数据操作。用户可以进行手机开单，系统提供编辑、新增和查询功能。网页端展示表格数据，允许用户修改各项库存信息，如货物名称、规格型号、单位、单价、数量等，并通过按钮控制上下行切换和数据保存。

库管易EXCEL进销存一款优秀的VBA编程,使用的用户很多,我想实现手机开单,在网上找到类似功能
在这里插入图片描述

<%
dim conn,rs,sysConfig,db
Set conn =Server.CreateObject(“ADODB.Connection”)
StrConn=“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=”&Server.MapPath(“book1.xls”)&";Extended Properties="“Excel 8.0;HDR=YES;IMEX=0"”"
conn.Open StrConn

action=Request(“action”)
if action=“yes” Then
id=Request(“id”)
n=Request(“dh”)
‘Response.write “"
'Response.Write(action&id&Request(“xx0”)&"–"&Request(“hh”))

set rs=server.createobject(“adodb.recordset”)
if id="" then
set rsCheck = conn.execute(“select * from [Data$] where 凭证单号=’”&trim(Request(“dh”))&"’")
if not (rsCheck.bof and rsCheck.eof) then
response.write “”
response.end
end if
set rsCheck=nothing

sql=“select * from [Data $] " r s . o p e n s q l, c o n n, 3, 3 r s . a d d n e w e l s e s q l = " s e l e c t * f r o m [D a t a$ ] where 凭证单号=”&id
rs.open sql,conn,1,2
end If
for iii=0 to 15
rs(iii)=Request(“x”&iii)
Next

rs.update
rs.close
set rs=nothing
Response.Redirect “?action=”
end if
%>

自适应表单

function check()
{
if (document.add.id.value=="")
{
alert(“请填写信息！”)
document.add.id.focus()
document.add.id.select()
return
}

 document.add.submit()

}

function addsave(){
document.add.id.value=""
document.add.submit()
}

<%if action=“edit” or action="" then
set rs=server.createobject(“adodb.recordset”)
if Request(“n”)<>"" then
n=int(Request(“n”))
sql=“select * from [Data $] " r s . o p e n s q l, c o n n, 1, 1 r s . M o v e (n) e l s e s q l = " s e l e c t * f r o m [D a t a$ ]”
rs.open sql,conn,1,1
rs.Move(0)
end if

if not rs.eof Then
%>

  <table width="355" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#aec3de">
    <form name="add" id="add" method="post" action="../index.asp">
    <tr align="center" bgcolor="#F2FDFF">
	  <td>
	  <input type="radio" name="CRK" value="入库" checked="checked"><a style="color:blue;">入库</a>
	   <input type="radio" name="CRK" value="出库"><a style="color:red;">出库</a>
	   </td>
      <td class="optiontitle">更新数据</td>
	  
    </tr>
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">编号</td>
		
		<td align="left"><input name="xx0" type="text" id="xx0" size="18" value="<%=rs(0)%>"><a style="font-size:12px;color:red;">&nbsp; <%=n+1%></a></td>
	    </tr>
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">货物名称</td>
		
		<td align="left"><input name="xx1" type="text" id="xx1" value="<%=rs(1)%>"  size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">规格型号</td>
		
		<td align="left"><input name="xx2" type="text" id="xx2" value="<%=rs(2)%>" size="20"></td>
	    </tr>
				
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单位</td>
		
		<td align="left"><input name="xx3" type="text" id="xx3" value="<%=rs(3)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单价</td>
		
		<td align="left"><input name="xx4" type="text" id="xx4" value="<%=rs(4)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">数量</td>
		
		<td align="left"><input name="xx5" type="text" id="xx5" value="<%=rs(5)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">金额</td>
		
		<td align="left"><input name="xx6" type="text" id="xx6" value="<%=rs(6)%>" size="20"></td>
	    </tr>
		
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">分类</td>
		
		<td align="left"><input name="xx7" type="text" id="xx7"  value="<%=rs(7)%>" size="20"></td>
	    </tr>
			
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">出入类别</td>
		
		<td align="left"><input name="xx8" type="text" id="xx8" size="20" value="<%=rs(8)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">单据类型</td>
		
		<td align="left"><input name="xx9" type="text" id="xx9" value="<%=rs(9)%>" size="20"></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">进出日期</td>
		
		<td align="left"><input name="xx10" type="text" id="xx10" size="20" value="<%=rs(10)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">供领单位</td>
		
		<td align="left"><input name="xx11" type="text" id="xx11" size="20"  value="<%=rs(11)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">供领人</td>
		
		<td align="left"><input name="xx12" type="text" id="xx12" size="20" value="<%=rs(12)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">经办人</td>
		
		<td align="left"><input name="xx13" type="text" id="xx13" size="20" value="<%=rs(13)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">凭证单号</td>
		
		<td align="left"><input name="xx14" type="text" id="xx14" size="20" value="<%=rs(14)%>" ></td>
	    </tr>
		
		
	
		<tr align="center" bgcolor="#ebf0f7">
	    <td width="40%" align="center">备注</td>
		
		<td align="left"><input name="xx15" type="text" id="xx15" size="20" value="<%=rs(15)%>"></td>
	    </tr>
		
		
	
	
	
	
    <tr align="center" bgcolor="#ebf0f7">
	 <td>
	  <a href="?action=edit&n=<%if n>=1 then Response.Write(n-1) else Response.Write(n)  end if%>" style="color:blue;"><u>上一行</u></a>&nbsp;&nbsp;
	  <a href="?action=edit&n=<%if n<rs.recordcount-1 then Response.Write(n+1) else Response.Write(n)  end if%>" style="color:red;" ><u>下一行</u></a>
	 </td>
      <td>
        <input type="button" name="Submit" value="修改" onclick="check()">
		<input type="button" name="Submit" value="新增" onclick="addsave()">
      	<input type="button" name="Submit2" value="返回" onclick="history.back(-1)">
		<input type="hidden" name="action" value="yes">
		<input name="id" type="hidden" id="id" value="<%=rs(14)%>"></td>
		<input name="dh" type="hidden" id="dh" value="<%=rs(14)%>"></td>
	</td>
    </tr>
	

          </form></table>

<%
rs.close
set rs=nothing
end if
end if
%>