图书仓库管理系统的设计与实现.docx
- 文档编号：9863252
- 上传时间：2023-05-21
- 格式：DOCX
- 页数：18
- 大小：44.01KB
图书仓库管理系统的设计与实现.docx
《图书仓库管理系统的设计与实现.docx》由会员分享，可在线阅读，更多相关《图书仓库管理系统的设计与实现.docx（18页珍藏版）》请在冰点文库上搜索。
图书仓库管理系统的设计与实现
设计题目：
图书仓库管理系统的设计与实现
专业：
班级：
姓名：
学号：
摘要：
随着现代工业的发展，计算机信息管理系统越来越受到企业重视。
本文主要分析了图书仓库管理系统的一些基本功能和组成情况，包括系统的需求分析、系统结构，功能模块划分以及数据库模式分析等，重点对应用程序的实际开发实现作了介绍。
达到了数据的一致性和安全性，且应用程序功能完备，符合了库存管理系统作为典型的信息管理系统（MIS）的要求。
图书仓库管理系统的设计与实现，通过ASP技术，设计出了一个简单方便的仓库管理系统，能让图书管理员从繁重的工作中解脱，有助于提高图书入库，查询，出库，提高了管理员的工作效率！
使用计算机对产品仓库信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品库存的管理效率，也是企业库存管理科学化、正规化，与世界接轨的重要条件。
因此，开发一个仓库管理系统是很有必要的，具有其特有的技术意义和管理意义。
本课题开发的图书仓库管理系统分为6个大模块，即登陆模块；检查登陆模块；管理模块；添加数据模块；删除数据模块；修改数据模块。
本系统与管理员手工记载管理要方便的多！
关键字：
ASP;图书仓库管理系统；添加；删除；修改
环境：
SQLserver2000,Dreamweaver
1、引言：
当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息处理系统的环境。
计算机最大的好处在于利用它能够进行信息管理，使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。
尤其对复杂的信息管理，计算机能够充分发挥它的优越性。
计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。
仓库管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的，因此，仓库管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统的人工方式管理仓库，这种管理方式存在着许多缺点，诸如效率低，保密性差等，而且时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。
作为计算机应用的一部分，使用计算机对产品仓库信息进行管理，具有着人工管理无法比拟的优点，它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等，可减少更多的人力物力，这些都能够极大地提高货品仓库的管理效率，也是企业仓库管理科学化、正规化，与世界接轨的重要条件。
因此，开发一个仓库管理系统是很有必要的，具有其特有的技术意义和管理意义。
2、功能：
1）、数据录入功能:
主要任务是对各种图书信息进行日常的管理，如图书的输入、查询、修改、增加、删除，迅速准确地完成各种图书信息的统计计算，快速打印出报表。
2）、数据修改功能:
主要任务是对各种图书进行日常的修改管理！
3）、数据删除功能:
主要任务是对各种图书进行日常的删除管理！
3、代码部分：
login.asp：
用户名称
管理密码
type="reset"value="重填"name="cmdReset">
manage.asp
<%
ifSession（"zhanghao"）<>"admin"then
response.redirect"login.asp"
endif
%>
<%Response.Write（Session（"zhanghao"））%>
<%Response.Write（Date（））%>
<%
setconn=Server.CreateObject（"ADODB.Connection"）
conn.open"Driver={SQLServer};server=（local）;uid=sa;pwd=123456;database=ckguanlixitong;"
setrs=Server.CreateObject（"ADODB.Recordset"）
sql="SELECT*FROMbook"
rs.Opensql,conn,3'rs.open"sql语句,conn,打开方式,锁定方式"
rs.PageSize=4
'第一次显示没有页码，默认显示第一页
IfRequest（"page"）<>""Then
iPage=Cint（Request（"page"））
IfiPage<1TheniPage=1'页码小于1，则显示第一页
'当大于总页数的时候，显示最后一页
IfiPage>rs.PageCountTheniPage=rs.PageCount
Else
iPage=1
EndIf
Response.Write（"当前第"&iPage&"页，共"&rs.PageCount&"页"）
rs.AbsolutePage=iPage
%>
#AAAADD;">ID 书名 作者 出版社
<%
ForI=0Tors.PageSize-1
Ifrs.EOFORrs.BOFThenExitFor
'设置奇数和偶数行显示不同的背景颜色
IfIMod2=1Then
Response.Write（" #FFFFCD;'>"） Else Response.Write（" Endif Response.Write（" %> shuming=<%=rs（"SM"）%>'TARGET='_blank'> <%=rs（"SM"）%> <% Response.Write（" Response.Write（" %> id=<%=rs（"ID"）%>">修改 id=<%=rs（"ID"）%>">删除 <% Response.Write（""） "）"&rs（"ID"）&" "）"&rs（"ZZ"）&" "）"&rs（"CBS"）&" "）
rs.movenext（）
Next
%>
<%'当前是第一页的时候，不显示"第一页"
IfiPage<>1Then%>
page=1">第一页 page=<%=iPage-1%>">上一页 <%EndIf '当前是最后一页的时候，不显示"最后页" IFiPage<>rs.PageCountThen%> page=<%=iPage+1%>">下一页 page=<%=rs.pageCount%>">最后页 <%EndIf conn.close（） %>
checklogin.asp
<%
dimsql
dimrs
dimseekerrs
dimfounduser
dimusername
dimcompanyid
dimpassword
dimerrmsg
dimfounderr
founderr=false
FoundUser=false
username=Request.Form（"username"）
password=Request.Form（"password"）
'如果管理员帐号为空'
ifusername=""then
Response.Redirect（"false.html"）
Endif
ifpassword=""then
Response.Redirect（"false.html"）
Endif
ifusername="admin"andpassword="admin"then
'如果管理员名称和密码都正确则设置Session保证全站生效'
';Response.Cookies（"name"）="admin"
Session（"zhanghao"）="admin"
Response.Redirect（"manage.asp"）
else
Response.Redirect（"false.html"）
Endif
%>
del.asp
<%
ifSession（"zhanghao"）<>"admin"then
response.redirect"login.asp"
endif
%>
<%
str=Request（"id"）
setconn=Server.CreateObject（"ADODB.Connection"）
conn.open"Driver={SQLServer};server=（local）;uid=sa;pwd=123456;database=ckguanlixitong;"
setcmd=Server.CreateObject（"ADODB.Command"）
cmd.ActiveConnection=conn
sql="DELETEFROMbookWHEREID="&str
Response.Write（sql）
cmd.CommandText=sql
cmd.Execute（）
Response.Redirect（"successed.html"）
%>
do_add.asp
<%
ifSession（"zhanghao"）<>"admin"then
Response.redirect"login.asp"
endif
%>
<%
str=Request.Form（"int_id"）
shuming=Request.Form（"shuming"）
zuozhe=Request.Form（"zuozhe"）
chubanshe=Request.Form（"chubanshe"）
setconn=Server.CreateObject（"ADODB.Connection"）
conn.open"Driver={SQLServer};server=（local）;uid=sa;pwd=123456;database=ckguanlixitong;"
setcmd=Server.CreateObject（"ADODB.Command"）
cmd.ActiveConnection=conn
sql="insertintobook（ID,SM,ZZ,CBS）values（"&str&",'"&shuming&"','"&zuozhe&"','"&chubanshe&"'）;"
Response.Write（sql）
cmd.CommandText=sql
cmd.Execute（）
Response.Redirect（"successed.html"）
%>
do_uppdat.asp
<%
ifSession（"zhanghao"）<>"admin"then
response.redirect"login.asp"
endif
%>
<%
str=Request.Form（"int_id"）
shuming=Request.Form（"shuming"）
zuozhe=Request.Form（"zuozhe"）
chubanshe=Request.Form（"chubanshe"）
setconn=Server.CreateObject（"ADODB.Connection"）
conn.open"Driver={SQLServer};server=（local）;uid=sa;pwd=123456;database=ckguanlixitong;"
setcmd=Server.CreateObject（"ADODB.Command"）
cmd.ActiveConnection=conn
'sql="updatebookset书名='c'whereID=1"
'sql="UPDATEbookSET书名="&shuming&",作者="&zuozhe&",出版社="&chubanshe&"whereID="&str
sql="UPDATEbookSETSM="&"'"&shuming&"'"&",ZZ="&"'"&zuozhe&"'"&",CBS="&"'"&chubanshe&"'"&"whereID="&str
Response.Write（sql）
cmd.CommandText=sql
cmd.Execute（）
Response.Redirect（"successed.html"）
%>
false.html
show_add.asp
<%
ifSession（"zhanghao"）<>"admin"then
response.redirect"login.asp"
endif
%>
ID： | |
| 书名: | |
| 作者: | |
| 出版社: |
show_uppdat.asp
<%
ifSession（"zhanghao"）<>"admin"then
response.redirect"login.asp"
endif
%>
<%
str=Request（"id"）
setconn=Server.CreateObject（"ADODB.Connection"）
conn.open"Driver={SQLServer};server=（local）;uid=sa;pwd=123456;database=ckguanlixitong;"
setcmd=Server.CreateObject（"ADODB.Command"）
cmd.ActiveConnection=conn
sql="SELECT*FROMbookWHEREID="&str
cmd.CommandText=sql
setrs=cmd.Execute（）
%>
《城市经济学》考试考点及复习题总结.docx
