【编者按】网学网ASP类作品频道为大家收集整理了“ASP中小型企业进销存系统“提供大家参考，希望对大家有所帮助!
8 采购管理主要功能模块详细设计 采购管理可以有效管理整个企业的采购业务，用以提高采购经营事务的效率，提高企业的经济效益，确保采购工作质量高效率、低成本执行，使企业具有最佳的供货状态。主要包括商品采购和采购查询两部分。 8.1 商品采购管理设计 用户可以通过单击菜单主导航“采购管理”/“商品采购”超链接，进入商品采购管理页面。该页面主要完成商品采购信息的添加功能。 商品采购管理页面设计效果如图11所示。 图11 商品采购页面设计效果 商品采购页面中涉及的HTML表单重要元素如表5所示。 表5 商品采购页面中涉及的HTML表单重要元素
生成采购单号的相关代码如下： <% set conn=server.CreateObject("adodb.connection") ''创建数据库对象 set rs=server.CreateObject("adodb.recordset") ''创建记录集对象 set myrs=server.CreateObject("adodb.recordset") ''创建记录集对象 set rec=server.CreateObject("adodb.recordset") ''创建记录集对象 conn.open application("dsn") ''打开数据库 sql="select id from tab_cgdan" rs.open sql,conn,1,3 ''打开记录集 str=myrs("id") cgid=cint(mid(str,7,5))+1 cgid="cg"&year(date())&cstr(cgid) else cgid="cg"&year(date())&"10001" end if session("auto")=cgid ''生成采购单号 %> 采购信息添加时的数据处理页主要是将用户提交的表单信息保存到数据库中，数据处理页的程序代码如下： <% if request("id")<>""then cgid=request("id") spname=request("spname") cs=request("cs") gg=request("gg") bz=request("bz") dw=request("dw") dj=request("dj") sl=request("sl") je=request("je") cgdate=request("cgdate") memo=request("memo") dj=cstr(dj)&"元" sl=cstr(sl)&dw je=cstr(je)&"元" if spname="" or cs="" or gg="" or bz="" or dw="" or dj="0" or sl="0" or je="0" then ''判断表单元素是否为空 %> <script language="javascript"> alert("您必须全部填写") //弹出提示对话框 history.back(1) //返回上一级页面 </script> <%response.end end if set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open application("dsn") sql="insert into tab_cgdan(id,spname,cs,gg,bz,dw,dj,sl,je,cgdate,memo) values(''"&cgid&"'',''"&spname&"'',''"&cs&"'',''"&gg&"'',''"&bz&"'',''"&dw&"'',''"&dj&"'',''"&sl&"'',''"&je&"'',''"&cgdate&"'',''"&memo&"'')" ''插入新记录 rs.open sql,conn,1,3 end if %> <script language="javascript"> alert("采购信息保存成功！"); ''弹出提示对话框 window.location.href="spcg.asp"; ''重新定向页面 </script> | ||||||||||||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | ||||||||||||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
