您现在的位置：毕业论文 >> 论文 >> 正文

ASP销售供应链管理系统(论文+源代码) 第6页

更新时间：2010-4-16: 来源：毕业论文

ASP销售供应链管理系统(论文+源代码) 第6页
删除货品时系统会判断入库记录中是否有该货品，如果有就不能删除，否则可以进行删除。货品删除成功后，被删除的货品从货品列表中消失。
另外，在货品管理页面中，用户可以随时查看当前的系统帮助，也可以返回到系统主界面中。
部分代码如下
<%
''执行删除
if request("act")="del" then
  dim n
  n = 0
  set rs = server.createobject("ADODB.Recordset")
  For Each item in request.form
   if Left(item, 6) = "deltag" then
    if rs.state = 1 then
     rs.close
    end if
    Sqlstr = "Select * from JHRK Where BM='"&trim(request(item))&"'"
    rs.open Sqlstr,cn,3
    if not rs.eof then
     n = n + 1
    else
     cn.execute("delete from HPJL where BM='"&trim(request(item))&"'")
    end if
   end if
  Next
  if n > 0 then
%>
<script language="VBScript">
msgbox "存在入库信息的货品没有删除！"
window.location="HPGL.asp"
</script>
<%
  end if
     Set rs=Nothing
end if

ListPageSize = request("PageSelect")
''默认每页显示15条记录
if ListPageSize = "" then
ListPageSize = 15
end if
ListPageSize = Cint(ListPageSize)

SelectPage = request("SelPage")
''默认显示第一页
if SelectPage = "" then
SelectPage = 1
end if
SelectPage = Cint(SelectPage)
''处理查询字符串
SearchText = request("QueryText")
SqlSearchText = replace(SearchText,"'","''")
SqlSearchText = replace(SearchText,"[","[[]")
SqlSearchText = replace(SearchText,"]","[]]")
SqlSearchText = replace(SearchText,"%","[%]")
SqlSearchText = replace(SearchText,"_","[_]")

''获取数据
Dim Sqlstr
Sqlstr = "Select * From HPJL"
if SearchText <> "" then
        sqlstr=sqlstr&" Where MC like '%"&SqlSearchText&"%'"
  end if

     set rs = server.createobject("ADODB.Recordset")
rs.open Sqlstr,cn,3
%>
<HTML><HEAD><TITLE>杜明金销售供应链管理系统－货品管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Pragma content=no-cache>
</HEAD>
<BODY>
<p align="center"><b><font color="#FF0000" size="5">货品管理</font></b></p>
5.5 进货入库模块
进货入库模块主要用来文护货品入库信息，以及对入库记录的浏览查看。系统提供的功能包括入库信息列表，添加入库记录和删除入库记录。
（1）入库信息列表
进入进货入库页面，可以看到所有入库信息列表，列表中显示货品的编码等基本信息和货品的入库数量及入库日期。当入库记录比较多时，可以翻页浏览。还可以按照货品名称模糊查询，过滤显示希望看到的货品入库信息。
（2）添加入库信息
在进货入库页面，提供添加入库信息的功能，当用户执行添加货品入库功能时，打开货品入库信息页面，用户可以在该页面输入要入库的货品的数量，然后保存饥渴。若添加成功，则入库信息列表中将会有新增的货品入库信息。
入库信息添加时，货品的基本信息自动从货品记录取得，入库日期则自动由系统自动赋值。
（3）删除入库信息
货品管理页面中还提供删除货品的功能，当删除货品信息时，首先在入库信息列表中选择要删除的复选框，然后执行删除功能。
删除货品时系统会判断是否有与之相关的出库信息，如果有就不能删除，否则可以进行删除。货品删除成功后，被删除的货品从入库信息列表中消失。
另外，在入库页面中，用户可以随时查看当前的系统帮助，也可以返回到系统主界面中。
部分代码如下