摘 要：目前我公司各供电单位都按照规范化要求建设完成了备品备件（材料）仓库、工器具（仪器仪表）仓库，但传统的粗放式管理不但效率很低，而且对生产物资的使用不能进行有效的监控。为了进一步提高生产物资的管理水平，按照简单实用的原则，我们开发了一套生产物资管理系统。该系统能通过网络方式进行访问，实现物资入库、出库管理，方便高效地对历史数据进行查询和检索，并具备最低库存自动报警、自动打印出入库清单等功能。
关键词：物资管理 asp Access SQL
0 引言
传统的生产物资管理比较粗放，一是生产物资无专人专库管理，物资使用随意性较大，管理部门投入大量资金采购物资仍不能满足供电单位的需求；二是入库、出库清单采用手工填写，费时、容易出错和丢失，对仓库进行盘存时，工作人员需要一张张的单据进行统计，效率低下；三是不能随时掌握各类物资的库存情况，库存不够的情况不能及时发现。因此，开发一套生产物资管理系统，运用计算机网络技术对生产物资进行科学、系统的管理，提高管理效率是十分必要的。
1 开发系统的可行性
本系统采用asp网页编程语言作为主要开发工具，选择Acess作为数据库操作语言，系统能够在Windows98/2000/xp等系统下运行；在硬件方面，本系统没有特殊要求，系统开销很小。本系统采用的只是asp访问Access数据库的比较常见的技术，如SQL语言中的Select、Insert、Update等功能，所以开发本系统是可行的。
2 系统需求分析
（1）系统需提供仓库管理功能，实现仓库添加、修改、删除等功能；
（2）系统需提供会员管理功能，实现会员添加、修改、删除及会员操作口令、权限设置等功能；
（3）系统需对仓库管理员进行身份识别，并限制只能对本单位仓库进行出入库管理；
（4）系统需提供货品类别管理功能，对货品进行分类管理，实现类别添加、修改、删除等功能；
（5）系统需提供货品出入库管理功能，同时考虑货品出库后退回及报废等情况；
（6）系统需提供库存查询及出入库查询等功能；
（7）系统需提供最低库存自动报警、自动打印出入库清单等功能；
（8）系统需提供数据选取功能，以方便数据录入；
（9）系统需提供必要的提醒功能，以指导使用。
3 系统菜单结构及数据结构
系统菜单含三级目录
入库管理：货品入库、入库记录查询；
出库管理：货品出库、货品退回、货品报废、出库记录查询、退货记录查询、报废记录查询；
库存管理：库存查询、库存报警；
系统管理：系统通用设置、仓库管理（添加仓库、修改删除仓库）、会员管理（添加会员、修改删除会员）、类别管理（添加大类、大类管理、添加小类、小类管理）；
退出。
系统数据存放在一个
Access数据库中，该数据库由不同的工作表组成，如会员表login等，每个工作表含有不同的字段信息，如login表含名称、登录密码、访问权限等信息；工作表之间的字段信息存在关联情况，如会员表的名称字段与仓库表的管理员字段。
|
序号 |
字段名称 |
数据类型 |
说明 |
|
1 |
username |
文本 |
会员名称 |
|
2 |
password |
文本 |
登录密码 |
|
3 |
quanxian |
备注 |
访问权限 |
|
4 |
xinbie |
文本 |
性别 |
|
5 |
tel |
文本 |
联系电话 |
4 系统关键部分实现
(1)登录密码保护及身份识别
<%
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('用户名称或口令错误！')
window.history.go(-1)
</script>
<%
response.end
end if
session("username")=nowusername
response.redirect "main.asp"
%>
(2)本单位仓库管理限制
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)权限管理（对系统一级菜单设置访问权限）
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">你不具备此权限！</font>
5 系统界面示例
6 结束语
本系统的使用提升了物资管理水平，系统操作方便、运行可靠、简单实用。
