基于图书仓库管理系统的数据库设计与实现.docx
- 文档编号:9777951
- 上传时间:2023-02-06
- 格式:DOCX
- 页数:22
- 大小:137.16KB
基于图书仓库管理系统的数据库设计与实现.docx
《基于图书仓库管理系统的数据库设计与实现.docx》由会员分享,可在线阅读,更多相关《基于图书仓库管理系统的数据库设计与实现.docx(22页珍藏版)》请在冰豆网上搜索。
基于图书仓库管理系统的数据库设计与实现
设计题目:
图书仓库管理系统的设计与实现
专业:
计算机科学与技术
姓名:
李海洋王哲
学号:
0825829026,0825829043
指导老师:
邱自华
时间:
2010-6-15
目录
引言4
一、系统分析5
1、需求分析5
二、数据库设计7
1、概念结构设计7
2、数据库逻辑设计8
三、数据库的管理9
四、数据库的实施和维护10
4.1主界面设计10
4.2基本信息管理模块11
五、代码12
六、致谢26
引言
当今时代是飞速发展的信息时代,在各行各业中离不开信息处理,这正是计算机被广泛应用于信息处理系统的环境。
计算机最大的好处在于利用它能够进行信息管理,使用计算机进行信息控制,不仅提高了工作效率,而且大大的提高了其安全性。
尤其对复杂的信息管理,计算机能够充分发挥它的优越性。
计算机进行信息管理与信息管理系统的开发密切相关,系统的开发是系统管理的前提。
仓库管理系统是一个企事业单位不可缺少的一部分,它的内容对于企业的决策者和管理者来说都是至关重要的,因此,仓库管理系统应该能够为用户提供充足的信息和快捷的查询手段,但一直以来人们使用传统的人工方式管理仓库,这种管理方式存在着许多缺点,诸如效率低,保密性差等,而且时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
作为计算机应用的一部分,使用计算机对产品仓库信息进行管理,具有着人工管理无法比拟的优点,它检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等,可减少更多的人力物力,这些都能够极大地提高货品仓库的管理效率,也是企业仓库管理科学化、正规化,与世界接轨的重要条件。
因此,开发一个仓库管理系统是很有必要的,具有其特有的技术意义和管理意义。
一、系统分析
1、需求分析
(1)、本系统要求实现一下功能:
1)、数据录入功能
主要任务是对各种图书信息进行日常的管理,如图书的输入、查询、修改、增加、删除,迅速准确地完成各种图书信息的统计计算,快速打印出报表。
2)、数据修改功能
主要任务是对各种图书进行日常的修改管理!
3)、数据删除功能
主要任务是对各种图书进行日常的删除管理!
(2)流程图:
1)、
2)、
3)、
(3)、系统功能模块图:
二、数据库设计
1、概念结构设计
这一设计阶段是在需求分析的基础上,设计出能够满足用户需求的各种实体,以及它们之间的关系,为后面的逻辑结构设计打下基础。
(1)、据此可以绘出图书仓库管理系统数据库的E-R图如下:
(2)、实体属性列表如下:
实体
属性
图书
ID
书名
作者
出版社
2、数据库逻辑设计
将数据库的概念模型转换为关系模型:
实体转换成的关系模式有:
Book(ID,SM,ZZ,CBS)
三、数据库的管理
备份和还原数据库可以保证数据的安全性,也可以保证数据的不丢失,保证系统的稳定性。
备份和还原数据库是所有数据库应用系统必备的功能。
备份和还原是数据库管理员维护数据库安全性和完整性的重要操作。
备份是还原受损数据库最容易,把意外损失降到最小的保障方法。
没有备份,所有的数据都可能丢失。
备份可以防止因表或数据库遭受破坏、介质失效或用户错误而造成的数据灾难。
还原数据库是在意外发生后,利用备份来还原数据库的造作。
四、数据库的实施和维护
4.1主界面设计
主界面包括系统的主要功能包括即登陆模块;检查登陆模块;管理模块;添加数据模块;删除数据模块;修改数据模块。
主界面设置一个友好的界面,用户可以根据需要点击自己想使用的功能进入功能界面。
在进入主界面之前有一个用户登陆界面,用户键入用户名和密码,系统自行判定是否存在,然后进入主界面。
系统登陆界面如图4-1所示。
图4-1系统登陆界面
4.2基本信息管理模块
基本信息管理模块可以实现以下功能:
●添加、修改、删除;
图4-2操作界面
图4-3操作界面
图4-4修改界面
五、代码
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
'如果管理员名称和密码都正确则设置COOKIES保证全站生效'
';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()
%>