图书管理系统论文delphi2BSQL+Server+.docx
《图书管理系统论文delphi2BSQL+Server+.docx》由会员分享，可在线阅读，更多相关《图书管理系统论文delphi2BSQL+Server+.docx（49页珍藏版）》请在冰豆网上搜索。
图书管理系统论文delphi2BSQL+Server+
摘要
随着人类社会的发展，人类对知识的需求也不断增长。
虽然人们可以从网上获得知识，但书本阅读起来却更加方便，所以，在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就理所当然的在人们的生活中占据了一定的位置，如何科学合理的管理图书馆不但关系到读者求知的方便程度，也关系到图书管的发展，因此，开发一套完善的图书管理系统，是必不可少的了。
本文主要是介绍图书管理系统的环境、功能作用、所用到的语言、设计的方案等各方面的内容。
主要是让使用者了解此系统，使他们能更好的运用本系统，使此系统发挥出应有的作用。
关键字图书管理系统Delphi7.0SQLServer2000数据库
目录
第一章绪论4
1.1绪论4
1.2软件设计开发与开发平台4
1.2.1数据库应用系统开发4
1.2.2数据库5
1.2.3数据库管理系统5
第二章系统需求分析6
2.1可行性分析6
2.2需求分析6
2.3功能需求6
2.3.1功能划分6
2.3.2功能描述7
2.4安全性需求7
2.5系统数据流程分析7
2.6功能模块图8
第三章系统数据库设计10
3.1读者实体10
3.2图书实体10
3.3借书实体E-R图11
3.4系统实体E-R图11
3.5数据库设计11
第四章系统实现13
4.1系统数据库模型需分析13
4.2各子系统功能分析与程序代码设计13
4.2.1系统主界面13
4.2.2管理员登录界面15
4.2.3系统管理界面16
4.2.4修改图书类型19
4.2.5图书借阅和归还21
4.2.6新书入库28
4.2.7添加读者30
4.2.8系统密码修改33
4.2.9修改读者信息35
4.2.10读者服务37
4.2.11书目检索界面39
结束语41
参考文献42
第一章绪论
1.1绪论
随着学校规模的不断扩大，图书数量的急剧增加，有关图书的信息量也在不断成倍增长。
面对庞大的信息量，就需要有图书管理系统来提高图书管理工作的效率。
通过这样的系统，我们可以做到信息的规范管理和快速查询，从而减少了管理方面的工作量。
传统手工的图书管理，管理过程繁琐而复杂，执行效率低，并且易于出错。
通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了图书管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。
随着科技的飞跃进步，对信息的管理也是越来越规范，越来越精确。
不仅让信息合理规范的管理，同时也方便管理者方便的快速查询，提高了管理的效率。
对图书信息进行图书入库、借阅登记、借阅查询、过期提示等这些日常业务的需要。
高效性的通过系统的实用，能够改变旧的图书管理模式，使对图书的管理、借阅、查询更加方便有效。
1.2软件设计开发与开发平台
1.2.1数据库应用系统开发
数据库应用系统是针对某个特定目标,建立再数据库管理系统之上的计算机应用系统.组成数据库应用系统的要素:
数据库,数据库管理系统（DBMS）,应用程序和用户.数据库:
强调数据；数据库管理系统:
强调系统软件；数据库应用系统:
强调数据库的整个运行系统,是以,某个特定数据库为基础的计算机应用系统,其作用就是使用户不能直接干预数据库而又方便访问数据库中的资料.数据库应用系统是系统开发员通过调用DBMS提供的编程接口开发出来的.应用程序要使用数据库也必须通过此接口。
在数据库应用系统开发之前，对开发数据库的基本概念应当先做下了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。
这样，有利于开发出一个长期适应于用户的软件产品。
数据库应用系统开发的一般过程：
需求分析；系统设计；系统实现；系统测试与维护。
总的来说就是理解用户的需求，然后，把它们转变为有效的数据库设计。
把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。
1.2.2数据库
数据库由DBMS（数据库管理系统）处理，DBMS则由开发人员和用户通过应用程序直接或间接地使用。
它主要包括四个要素：
用户数据、元数据、索引和应用元数据。
本系统采用的数据库是SQLServer2000.下面即是SQLServer2000介绍：
SQLServer2000是Microsoft公司最新开发的大型关系数据库管理系统，具有强大的关系数据库创建、开发、设计及管理功能。
1.2.3数据库管理系统
数据库管理系统（DBMS）:
强调系统软件,指数据库系统中管理数据的软件系统。
DBMS是数据库系统的核心组成部分。
对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。
DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。
根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。
其中SQLServer2000就是一种关系型数据库管理系统。
数据库管理系统（DatabaseManagementSystem）是一种操纵和管理数据库的大型软件，是用于建立、使用和维护数据库，简称DBMS。
它对数据库进行统一的管理和控制，以保证数据库的安全性和完整性。
用户通过DBMS访问数据库中的数据，数据库管理员也通过DBMS进行数据库的维护工作。
它提供多种功能，可使多个应用程序和用户用不同的方法在同时或不同时刻去建立，修改和询问数据库。
DBMS从其他两个组件接受请求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。
DBMS还涉及事务管理、锁、备份和恢复。
第二章系统需求分析
2.1可行性分析
随着学校与广大企事业单位内部网络的广泛建立，在通用信息平台上构筑高效实用的协同工作和自动化办公应用系统，有效实现内部知识管理，已成为众多用户的共同需求。
图书管理系统，为学校与广大企事业单位自动化办公提供了一个较好的解决方案。
在开发过程中，采用了SQLSERVER2000网络数据库，使得本系统可以方便的和其他子系统进行数据交换。
同时，注意从软件的图形应用界面上优化软件质量，使得本系统具有较强的可操作性。
2.2需求分析
随着学校规模的不断扩大，图书数量的急剧增加，有关图书的信息量也在不断成倍增长。
面对庞大的信息量，就需要有图书管理系统来提高图书管理工作的效率。
通过这样的系统，我们可以做到信息的规范管理和快速查询，从而减少了管理方面的工作量。
传统手工的图书管理，管理过程繁琐而复杂，执行效率低，并且易于出错。
通过这样的系统，我们可以做到信息的规范管理和快速查询，实现了图书管理的系统化、规范化和自动化，这样不仅减少了管理工作量，还提高了管理效率，降低了管理成本。
2.3功能需求
2.3.1功能划分
图书管理系统主要实现以下5方面的功能：
a.图书入库
b.查询
c.修改信息
d.图书借还
e.系统管理
2.3.2功能描述
1．书籍管理功能：
包括书籍类别管理和书籍信息管理两部分。
2．读者管理部分：
这一部分包括对读者信息进行管理的功能。
3．借阅管理部分：
这一部分包括借书信息管理和还书信息管理两部分。
4．系统管理：
包括修改系统用户密码、增加新用户以及退出系统等。
2.4安全性需求
每位用户根据自己的身份不同，进入不同的用户界面。
管理员有权力行使所有的管理功能，普通用户只能进行一般的查询。
2.5系统数据流程分析
图书管理系统数据流程图如图2-1所示。
图2-1系统数据流程图
2.6功能模块图
本系统包括的模块主要有如下几个部分：
图书管理模块、借阅管理模块、读者管理模块、系统管理模块、信息查询模块、用户管理模块
具体的功能描述如下：
图书管理：
其功能是管理书库中图书的记录信息，对入库图书信息进行管理，并进行查询。
借阅管理：
其功能是对读者借阅信息进行查询。
读者管理：
其功能是对读者一般信息进行查询以及维护。
系统管理：
其功能是为系统的使用者进行帐户和密码管理以及基础数据维护。
其子系统描述：
1.图书管理包括图书入库功能，主要整理图书的数量、类别和各种相关的信息等。
2.图书借阅，进行借书操作（此操作由管理员完成）；当用户要查询自己的借阅情况时，可进行借阅查询。
3.读者管理包括读者登记，读者信息管理，添加读者借书和还书信息。
可以记录新加入的读者的信息，并且可以对已经存在于数据库中的读者的信息进行修改，同时可以进行读者借、还书的管理。
4.用户管理包括修改密码、新增用户、删除用户可执行的系统操作等。
5.信息查询包括图书查询、读者查询和用户查询等功能。
通过这些功能，可以通过不同的关键字来对书库中的图书进行查询，同时也可以查询读者的借阅信息。
6.系统管理是用来完成本系统的基本操作，如修改密码、登录系统、退出登录，还有系统简介等功能。
其功能模块图如下所示
图2-2功能模块图
第三章系统数据库设计
E-R模型的“联系”用于刻画实体之间的关联。
一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。
若有联系，进一步确定是1:
N，M:
N，还是1:
1等。
还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。
根据上面的设计可以规划出的实体有：
读者实体、图书实体和借书信息实体。
3.1读者实体
图3-1读者实体
3.2图书实体
图3-2图书实体
3.3借书实体E-R图
图3-3借书实体
3.4系统实体E-R图
图3-4实体E-R图
3.5数据库设计
由数据模型利用SQLsever2000进行数据库的详细设计，本系统设计的数据库名为shop，其基本表的设计如下：
（1）学生信息表
字段名称
数据类型
大小
学号
varchar
50
姓名
varchar
20
性别
varchar
4
系别
varchar
5
联系电话
varchar
50
借书证号
varchar
50
密码
varchar
15
（2）图书明细表
字段名称
数据类型
大小
图书编号
int
50
图书名称
varchar
20
作者
varchar
4
出版社
varchar
5
出版日期
varchar
50
定价
varchar
50
类别编号
varchar
15
状态
char
6
（3）图书类别
字段名称
数据类型
大小
类别编号
smallint
2
图书类别
nvarchar
20
（4）用户
字段名称
数据类型
大小
姓名
varchar
20
性别
varchar
4
类型
varchar
50
联系电话
varchar
15
密码
varchar
50
（5）借出信息
字段名称
数据类型
大小
借出编号
int
4
图书编号
int
4
借书证号
varchar
50
借出日期
smalldatetime
4
借出状态
bit
4
第四章系统实现
4.1系统数据库模型需分析
关系图
图4-1关系图
4.2各子系统功能分析与程序代码设计
4.2.1系统主界面
程序运行程序以后，就可以看到如图4-2的程序的主界面，从这个界面中用户可以根据不同的身份进行不同的操作。
图4-2系统主界面
程序实现相关代码：
procedureTfrmMain.SpeedButton1Click（Sender:
TObject）;
begin
frmAdm.Show;
end;
procedureTfrmMain.SpeedButton2Click（Sender:
TObject）;
begin
frmReaderSer.Show;
end;
procedureTfrmMain.SpeedButton3Click（Sender:
TObject）;
begin
frmLookBook.Show;
end;
procedureTfrmMain.SpeedButton4Click（Sender:
TObject）;
varStr:
string;
begin
Str:
='图书管理系统'+#13;
Str:
=Str+'作者：
李丽丽（L3）'+#13;
Str:
=Str+'这是我的第一次编程,请大家多多指教!
';
ShowMessage（Str）;
end;
procedureTfrmMain.SpeedButton5Click（Sender:
TObject）;
begin
ifmessagedlg（'确定要退出本系统吗?
',mtinformation,[mbyes,mbno],0）=mryesthen
begin
ShowMessage（'谢谢你的使用'）;
//form1.DestroyWnd;
frmMain.Close;
end;
end;
procedureTfrmMain.Timer1Timer（Sender:
TObject）;
begin
StatusBar1.Panels[2].Text:
='日期:
'+DateToStr（Date）;
StatusBar1.Panels[3].Text:
='时间:
'+TimeToStr（Time）;
end;
procedureTfrmMain.SkinData1FormSkin（Sender:
TObject;aName:
String;
varDoSkin:
Boolean）;
begin
skindata1.Active:
=true;
end;
end.
4.2.2管理员登录界面
主程序运行后，点击管理员登录，跳出管理员登录界面，输入用户名和密码即可进入系统管理的后台界面。
功能：
本模块的主要功能是对操作用户身份的验证，只有系统的合法用户才能进入系统。
在进行系统登录过程中，登录模块将调用数据库里的用户表，并对用户名和密码进行验证，只有输入了正确的用户名和密码后，系统登录才会成功。
否则退出登录模块。
并在输入了错误的或者是不存在的用户名和密码时，系统会给出出错信息提示，指明登录过程中的错误输入或错误操作，以便用户进行正确的登录。
其窗体如图4-3所示：
管理员登录窗体：
图4-3管理员登录界面
登录按钮代码：
procedureTfrmAdm.Button1Click（Sender:
TObject）;
begin
withDM.ADOQuery1do
begin
Close;
SQL.Clear;
SQL.Add（'select*from用户where姓名=:
usernameand密码=:
passand类型=:
GLY'）;
Parameters.ParamByName（'username'）.Value:
=Edit1.Text;
Parameters.ParamByName（'pass'）.Value:
=Edit2.Text;
Parameters.ParamByName（'GLY'）.Value:
='管理员';
Open;
ifRecordCount<1then
begin
ShowMessage（'用户名、密码错误或您不是管理员，请重新输入!
'）;
Edit2.Text:
='';
Exit;
end
else
begin
frmAdmin.ShowModal;
end;
end;
end;
4.2.3系统管理界面
管理员登录成功后会进入如图4-4的系统管理界面，本模块的主要功能是实现管理员对系统的维护作用，管理员对读者进行信息查询、修改和删除，对图书进行注销和借阅归还管理。
管理员输入学号或姓名可以查询读者的信息，输入图书编号或作者可以查询图书的信息。
图4-4系统管理界面
程序相关代码：
procedureTfrmAdmin.BitBtn3Click（Sender:
TObject）;
begin
frmAddReader.Show;
end;
procedureTfrmAdmin.Button1Click（Sender:
TObject）;
begin
frmModifyReaderInfo.Show;
end;
procedureTfrmAdmin.Button2Click（Sender:
TObject）;
begin
frmNewBook.Show;
end;
procedureTfrmAdmin.Button4Click（Sender:
TObject）;
begin
frmLendBook.Show;
end;
procedureTfrmAdmin.Button5Click（Sender:
TObject）;
begin
frmYy.Show;
end;
procedureTfrmAdmin.Button6Click（Sender:
TObject）;
begin
frmModifyPsw.Show;
end;
procedureTfrmAdmin.Button7Click（Sender:
TObject）;
begin
ifmessagedlg（'确定要退出吗?
',mtinformation,[mbyes,mbno],0）=mryesthen
Close;
end;
procedureTfrmAdmin.Button9Click（Sender:
TObject）;
begin
ADOTable1.Close;
ADOTable1.Filtered:
=false;
ifComboBox1.Text='学号'then
begin
ADOTable1.Filter:
='学号='''+Edit1.Text+'''';
ADOTable1.Filtered:
=true;
ADOTable1.Open;
end
else
begin
ADOTable1.Filter:
='姓名='''+Edit1.Text+'''';
ADOTable1.Filtered:
=true;
ADOTable1.Open;
end;
end;
procedureTfrmAdmin.Button8Click（Sender:
TObject）;
begin
frmReturnBook.Show;
end;
procedureTfrmAdmin.Button10Click（Sender:
TObject）;
begin
begin
ADOTable2.Close;
ADOTable2.Filtered:
=false;
ifcombobox2.Text='图书编号'then
begin
ADOTable2.Filter:
='图书编号='''+Edit2.Text+'''';
ADOTable2.Filtered:
=true;
ADOTable2.Open;
end
else
begin
ADOTable2.Filter:
='作者='''+Edit2.Text+'''';
ADOTable2.Filtered:
=true;
ADOTable2.Open;
end;
end;
end;
procedureTfrmAdmin.BitBtn4Click（Sender:
TObject）;
begin
ifApplication.MessageBox（'确实要删除记录？
该命令不可取消！
','删除记录',MB_OKCANCEL）=IDOK
then
ADOTable1.Delete
else
abort;
end;
procedureTfrmAdmin.Button3Click（Sender:
TObject）;
var
strBookID:
string;
begin
//更新图书信息表注销标志
ifcombobox2.Text='图书编号'then
begin
strBookID:
=Trim（Edit2.Text）;
DM.QueryReader.Close;
DM.QueryReader.SQL.Clear;
strSql:
='update图书明细表set状态=''注销''where图书编号='+strBookID;
DM.QueryReader.SQL.Text:
=strSql;
DM.QueryReader.ExecSQL;
DM.QueryReader.Close;
ifDM.QueryReader.RowsAffected>0then
ShowMessage（'该书注销成功！
'）
else
ShowMessage（'该书注销失败！
'）;
end;
end;
procedureTfrmAdmin.Button11Click（Sender:
TObject）;
begin
frmBookType.Show;
end;
end.
4.2.4修改图书类型
在系统管理界面中点击修改图书类型可进入如图4-5的编辑图书类别的界面，本模块主要实现管理员对图书类别进行删除和添加的管理功能。
图4-5修改图书类型界面
确定按钮代码：
procedureTfrmBookType.btnSureClick（Sender:
TObject）;
begin
ifedtTypeID.Text=''then
begin
ShowMessage（'类别编号不能为空！
'）;
edtTypeID.SetFocus;
Exit;
end;
ifedtBookType.Text=''then
begin
ShowMessage（'类别名称不能为空！
'）;
edtBookType.SetFocus;
Exit;
end;
DM.QueryBookType.Close;
DM.QueryBookType.SQL.Clear;
DM.QueryBookType.SQL.Text:
='insertinto图书类别（类别编号,图书类别）'+'values（:
id,:
name）';
DM.QueryBookType.Parameters.ParamByName（'id'）.Value:
=Trim（edtTypeID.Text）;DM.QueryBookType.Parameters.ParamByName（'name'）.Value:
=Trim（
升级会员 