收藏

下载资源 加入VIP,免费下载

基于图书仓库管理系统的数据库设计与实现.docx

上传人：b****8 文档编号：9777951 上传时间：2023-02-06 格式：DOCX 页数：22 大小：137.16KB

下载 相关 举报

第1页 / 共22页

第2页 / 共22页

第3页 / 共22页

第4页 / 共22页

第5页 / 共22页

点击查看更多>>

下载资源

资源描述

基于图书仓库管理系统的数据库设计与实现.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（""&rs（"ID"）&""）

%>

shuming=<%=rs（"SM"）%>'TARGET='_blank'>

<%=rs（"SM"）%>

<%

Response.Write（""&rs（"ZZ"）&""）

Response.Write（""&rs（"CBS"）&""）

%>

id=<%=rs（"ID"）%>">修改

id=<%=rs（"ID"）%>">删除

<%

Response.Write（""）

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

%>

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（）

%>

<%=rs（"ID"）%>的信息为:

<%

'输出表内容

Ifnotrs.EOFThen

%>

">

书名:

">

作者:

">

出版社:

">

<%

EndIf

%>

successed.html

执行操作成功

• 登录
• 首页
• 资源分类
• 升级会员
• 通知公告
• 帮助中心