系統(tǒng)管理:系統(tǒng)通用設(shè)置、倉(cāng)庫(kù)管理(添加倉(cāng)庫(kù)、修改刪除倉(cāng)庫(kù))、會(huì)員管理(添加會(huì)員、修改刪除會(huì)員)、類別管理(添加大類、大類管理、添加小類、小類管理);
4 系統(tǒng)關(guān)鍵部分實(shí)現(xiàn)
(1)登錄密碼保護(hù)及身份識(shí)別
<%
nowusername=request.form("username")
nowpassword=request.form("password")
sql="select * from login where username='"&nowusername&"' and password='"&nowpassword&"'"
set rs=conn.execute(sql)
if rs.eof then
%>
<script language=javascript>
alert('用戶名稱或口令錯(cuò)誤!')
window.history.go(-1)
</script>
<%
response.end
end if
session("username")=nowusername
response.redirect "main.asp"
%>
(2)本單位倉(cāng)庫(kù)管理限制
sql="select * from ku order by id"
set rs_ku=conn.execute(sql)
<select name="ku">
<%
do while rs_ku.eof=false
if rs_ku("login")=session("username") then
%>
<option value="<%=rs_ku("id")%>" selected="selected"><%=rs_ku("ku")%></option>
<%
end if
%>
<% rs_ku.movenext
loop
%>
</select>
(3)權(quán)限管理(對(duì)系統(tǒng)一級(jí)菜單設(shè)置訪問(wèn)權(quán)限)
sql="select * from login where username='"&session("username")&"'"
set rs_login=conn.execute(sql)
quanxian=rs_login("quanxian")
qx=split(quanxian,",")
qx0=qx(0)
qx1=qx(1)
qx2=qx(2)
qx3=qx(3)
<%
if qx2="0" then
%>
<font color="#FF0000">你不具備此權(quán)限!</font>
5 系統(tǒng)界面示例
6 結(jié)束語(yǔ)
本系統(tǒng)的使用提升了物資管理水平,系統(tǒng)操作方便、運(yùn)行可靠、簡(jiǎn)單實(shí)用。