企业进销存管理系统设计

"&session("sel")&" like '%"&session("qname")&"%' and cgdate between '"&session("sdate")&"' and '"&session("edate")&"'"
  end if
case else
           response.Redirect("cgindex.asp")       '重新定向到指定页面
end select
end if
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
alert("没有找到您要查询的记录!")     '弹出提示对话框
history.back(1)                      '返回上一级页面
</script>
<%response.End()
end if%>
采购查询页面的运行结果如图14、图15所示。

图14 采购查询条件页面运行结果

图15 采购查询结果页面运行结果
9 系统设置主要功能模块详细设计
系统设置页面主要是对操作员的信息进行添加、修改、删除的操作。主要包括添加操作员、更改操作员密码、删除操作员3部分。
9.1 删除操作员设计
用户可以通过单击菜单主导航“系统设置”/“删除操作员”超链接，进入删除操作员页面，用户单击“删除操作员”图片链接进行操作员的删除操作。
删除操作员页面的设计效果如图33所示。

图33 删除操作员页面的设计效果
首先进行判断当前用户是否具备删除操作员的权限，完整代码如下：

<%
set rs=server.createobject("adodb.recordset")
sql="select * from userlist where name='"&session("name")&"' and quan='a'"
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
alert("对不起！您没有这个权限")       //弹出提示对话框
history.back(1)       //返回上一级页面
</script>
<%response.end()
end if
rs.close()            '关闭数据集
set rs=nothing        '将数据集在系统内存中清除
%>
首先通过查询语句检索userlist数据表中的全部数据，并按照权限进行顺序排序，检索数据库表中是否有该操作员的信息，如果没有检索到，则弹出相应的信息提示，代码如下：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from userlist order by quan"       '查询数据
rs.open sql,conn,1,3
if rs.eof then%>
<script language="java script">
  alert("暂无操作员信息!");
  parent.location.href="login.asp";      //跳转到指定页面
</script>
<%response.End()
else%>
<% for i=1 to rs.recordcount%>
<tr bgcolor="#CCE3FF">
    <td align="center"><%=rs("name")%></td>
<%
   if rs("quan")="a" then quan="系统管理员"
   if rs("quan")="c" then quan="普通管理员"
%>
      <td align="center"><%=quan%></td>
        <td align="center"><a href="delczy_deal.asp?id=<%=rs("id")%>"><img src="../images/del.gif" width="22" height="22" border="0"></a></td>
    </tr>
<%rs.movenext
next%>
<%end if%>
从上面的代码中可以看出，首先利用for循环语句来判断变量quan的值，来确定当前操作员的管理权限。如果变量“quan”的值为a，那么权限为系统管理员；如果变量“quan”的值为c，那

首页上一页 8 9 10 11 12 13 下一页尾页 11/13/13

企业进销存管理系统设计(十一)