毕业设计（论文）-Delphi图书馆管理系统.doc

图书馆管理系统目 录一、引 言2二、开发环境介绍2（一）SQL语言介绍2（二）Delphi31、Delphi 6.032、数据库组件3（三）SQL Server简述4三、系统设计分析4（一）应用需求分析4（二）系统功能模块划分51、系统功能分析52、系统模块设计53、数据结构设计74、数据库的实现8四、图书管理系统的实现11（一）系统登录11（二）用户管理11（三）用户密码修改12（四）图书征订12（五）图书编目管理12、图书编目管理窗体的设计13、实现编目检索功能13、实现数据添加/修改功能14（一）图书典藏管理18（二）读者数据管理18（三）图书借阅管理18总结18致 谢19参考文献19图书馆管理系统摘 要 Internet的发展及计算机的普及给人们带来了很大的方便。如今，信息管理系统正以人们无法想象的速度在全球范围内飞快地成长着。建立一个好的图书馆管理系统，给图书管理员和读者带来了很大的方便。本文通过运用Delphi编程语言与SQL Server 2000网络数据库这对黄金搭档为工具，在Windows 2000 Server平台上构造一个简单的图书馆管理系统为例，研究了图书馆管理系统的开发。关键词 图书馆管理系统，SQL Server2000，Delphi一、引 言当今时代是飞速发展的信息时代。各行各业都离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出。基于这些问题，本人认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。二、开发环境介绍（一）SQL语言介绍SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL通常使用于数据库的通讯。ANSI（美国国家标准学会）声称，SQL是关系数据库管理系统的标准语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成绝大多数数据库的操作。所有关系数据库的公共语言：由于所有主要的关系数据库管理系统都支持SQL语言，用户可将使用SQL的技能从一个RDBMS(关系数据库管理系统)转到另一个，所有用SQL编写的程序都是可以移植的。SQL功能强大，是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库中的数据修改和更新，概括起来，它可以分成以下几组：DML（Data Manipulation Language，数据操作语言）：用于检索或者修改数据； DDL（Data Definition Language，数据定义语言）： 用于定义数据的结构，比如 创建、修改或者删除数据库对象； DCL（Data Control Language，数据控制语言）：用于定义数据库用户的权限。DML组可以细分为以下的几个语句：SELECT：用于检索数据；INSERT：用于增加数据到数据库；UPDATE：用于从数据库中修改现存的数据；DELETE：用于从数据库中删除数据。DDL语句可以用于创建用户和重建数据库对象。 （二）Delphi 1、Delphi 6.0Delphi类可以粗略地分成两部分：一部分是组件类，这些组件类通常以某种方式出现在组件面板上，当用户从组件面板上点取一个类的图标后，在程序中就自动生成了该类的对象（非可视组件除外）；另一部分是功能类，这此功能类的对象通常出现在程序代码中，起着不可代替的作用，但是这些功先都是Tobject类,整个类的层次结构就像一棵倒挂的树，在最顶层的树根即为Tobject类。这样，按照面向对象编程的基本思想，就使得用户可用Tobject类这个类型代替任何其它类的数据类型。实际上在Delphi的类库中，Tobject类派生出了为数相当众多的子类，它们形成了一个庞大的体系。2、数据库组件用Delphi6开发数据库应用，重点是和各种数据库组件打交道，能和数据库挂钩的组件对象有5种，它们是：Session（数据库会话）、Database（数据库）、Dataset（数据集）、DataSource（数据源）、Data control（数据控制组件，也叫data-controls即数据感知组件）。其中前面4种统称为数据访问（Data Access）组件。ADO组件 Delphi6.0包含了可以用来访问Microsoft公司的ActiveX Data Objects（ADO）格式数据库的组件。ADO是Microsoft公司关于各种类型数据的高等界面，后来逐渐演变成满足所有数据访问需要的完整解决办法。ADO的对象模型是所有数据访问接口对象模型中最简单的一种。Microsoft公司用来访问ADO数据的应用程序界面技术是OLE DB。OLE DB是一种底层编程接口，用来访问许多不同类型的数据源，其中包括消息、文件系统以及其他一些非传统的数据源。OLE DB是一个由Component Object Model（COM）接口组成的集合，用来隐藏创建数据访问服务过程中的细节。OLEDB提供了访问任何数据资源的方法，包括相能类在组件面板上是找不到的。在Delphi中，每一个类相互关联的数据库和相互不关联的数据库、Email和文件系统、文本和图形以及用户定义的数据对象。Delphi的ADO组件无需依靠BDE而是使用ADO技术，提供了可以通过数据控制组件访问数据的新方法。唯一的要求是在使用ADO组件时必须运行ADO/OLEDB。ADO组件的使用使得DELPHI在访问数据的类型和采用的技术方面都有了很大的突破。数据模块设计窗口 数据模块设计窗口是用来设计和维护数据模块的。数据模块设计窗口中包含了所有以.DTI作为文件扩展名的Data Diagram文件的信息。DTI文件在编译时不起任何作用。（三）SQL Server简述SQL Server 是一个后台数据库管理系统,它功能强大操作简便,日益为广大数据库用户所喜爱。越来越多的开发工具提供了与SQL Server的接口。SQL Server数据库处理的基本结构，采取关系型数据库模式，对于数据库处理方式，则是使用面向对象的操作方式与精神。SQL Server 企业管理器是 SQL Server 的主要管理工具，它提供了一个遵从 MMC 标准的用户界面，使用户得以： 定义 SQL Server 实例组。 将个别服务器注册到组中。 为每个已注册的服务器配置所有 SQL Server 选项。 在每个已注册的服务器中创建并管理所有 SQL Server 数据库、对象、登录、用户和权限。 在每个已注册的服务器上定义并执行所有 SQL Server 管理任务。 通过唤醒调用 SQL 查询分析器，交互地设计并测试 SQL 语句、批处理和脚本。 唤醒调用为 SQL Server 定义的各种向导。三、系统设计分析（一）应用需求分析图书管理系统需要满足来自三方面的需求，这三个方面分别是图书借阅者、图书馆工作人员和图书馆管理人员。图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改；图书馆工作人员对图书借阅者的借阅及还书要求进行操作。图书管理系统的实施，力求使管理人员从繁琐的工作中解脱出来，真正从事管理工作，节省大量的人力，物力和财力，使图书馆管理工作清晰，使管理体系更科学化，规范化。（二）系统功能模块划分1、系统功能分析图书管理涉及图书信息、系统用户信息、读者信息、图书借阅信息等多种数据管理。从管理角度出发将图书管理分为三类：图书信息管理、系统用户管理、读者数据管理。图书信息管理包括图书征订、编目、典藏、借阅和查询操作。系统用户管理包括系统用户类别和用户数据管理。读者数据管理包括读者类别管理和读者个人数据的录入、修改和删除。经过实际考察与分析，图书管理系统主要应具有以下功能：图书征定：包括图书征订数据的录入、修改、删除等功能。图书编目：包括图书数目信息的录入、修改等功能。图书典藏：包括新书分配、库室调配等功能。图书流通：包括图书借阅、续借，图书返还，图书书目查询等功能。系统用户管理：包括系统用户数据的录入、修改与删除等功能。读者数据管理：包括读者类别管理，读者个人数据的录入、修改和删除等功能。2、系统模块设计根据系统功能的分析和图书管理系统的特点，得到图书管理系统功能模块结构图。如图3.1。系统用户管理读者数据管理管理图书征订管理图书编目管理图书典藏管理图书流通管理用户数据录入用户数据修改用户数据删除用户口令修改图书管理系统读者类型管理读者数据输入读者数据编辑征订数据录入征订数据修改征订数据审校书目数据输入数目数据审校数目数据修改新书分配库室调配借阅数据管理借书续借 还书借阅记录查询图书书目查询图3.1 图书管理系统功能模块结构图3、数据结构设计数据库设计可概括为两个步骤：绘制数据流程图与总结数据字典、设计数据库结构。（1）绘制系统数据流图。根据系统功能模块结构和高校图书管理流程，绘制如图3.2所示的系统数据流图。并且根据系统数据流图以及典型图书管理系统的需求，总结下面的数据字典。用户登录系统用户管理读者数据管理图书编目管理图书典藏管理图书征订管理图书流通管理借书 还书 续借借阅记录查询 图书书目查询高级管理员普通管理员普通管理员读者图3.2 数据流图 系统用户数据： 图书馆内部工作人员使用图书管理系统的身份数据，包括的数据项有用户编号、登录口令、权限代码。 读者类型数据：借阅图书读者的类别数据，包括的数据项有读者类别编号、类别名称、借书数量、借书期限、有效期限。读者个人信息：读者个人与图书借阅相关的身份的数据，包括的数据项有借阅证编号、读者类别编号、姓名、部门名称、办证时间 图书数目数据：用于图书编目使用的数目的数据，包括的数据项有索引号、图书条目、书名、作者，出版社、出版日期、字数、页数、内容简介、关键词。 新书书目数据：图书编目产生的书目数据，包括的数据项与图书书目数据项相同。 馆藏书目数据：新书书目经典藏之后形成馆藏图书书目数据，包括的数据项索引书号、图书条目、书名、作者、出版社、出版日期、字数、页数、内容简介、关键词、入馆日期、复本数、可借数、库室名。 图书征订数据：征订图书的相关的数据，包括的数据项有书名、作者、出版社、出版日期、数量、征订日期。 图书借阅数据：包括的数据项有图书条码、借阅证编号、借阅日期、还书日期、图书所在库室编号。 操作的日志数据：包括的数据项有用户名、操作时间、操作动作。（2）数据库结构设计。数据库结构设计要求根据数据字典，使用的数据库管理系统开发工具设计出数据库以及各个数据表的结构。本系统使用 SQL Server 2000作为数据库管理系统，使用SQL Server 2000的企业管理器创建数据库。本例中图书管理系统数据库命名为“lib7”，数据库中的各个数据表名称和结构分别如下所示。4、数据库的实现创建九个基本数据库表如表-系统用户数据表：系统用户数据表命名为“t_user”，其结构如表-所示。其中编号使用五位字符，头两位字符为部门名称头两个字的拼音首字母，例如CB001代表采编部001号用户。权限使用0代表高级管理员，1代表普通用户。 表-“t_user”表结构属性字段名称类型大小索引说明bhchar5是编号passwdchar6否密码qxtinyint1否权限读者个人数据表：读者个人数据表命名为“t_dzb”，其结构如表-所示。其中证号为借阅证编号，类型代码为读者类别编号。 表-“t_dzb”表结构属性 字段名称类型 大小 索引 说明 zh char 5 是证号 lxdm tinyint 1 否 类型代码 xm char 20 否 姓名 bm tinyint 2 否 部门 rq datetime 8 否 日期读者类别数据表：读者类别数据表命名为“t_lxdm”，其结构如表-所示。其中编号用0、1、2、3分别表示特殊读者、馆员、教师、和学生。借书期和有效期以月为单位，可用0表示无期限限制。表-“t_lxdm”表结构属性字段名称类型 大小索引 说明lxdm tinyint 1 是类型代码 lxcm char 10 否类型名称 jsl tinyint 1 否 借书量 jsq tinyint 1 否 借书期 yxq tinyint 1 否 有效期图书书目数据表：图书数目数据表命名为“t_tsb”，其结构如表-所示。图书书目表用于保存图书编目时使用的参考书目数据，条码首字符为书库名称拼音的首字母。 表-“t_tsb”表结构属性字段名称 类型 大小 索引 说明id bigint 8 是自动增长tm char 7 否 条码syh varchar 30 否 索引号sm varchar 60 否 书名zz varchar 30 否 作者cbs varchar 60 否 出版社cbrq datetime 8 否 出版日期zs Int 4 否 字数ys Int 4 否 页数nrjj varchar 200 否 内容简介gjz varchar 100 否 关键字新书书目数据表：新书书目数据表命名为“t_xsb”，其结构如表-所示。新书书目数据表用于保存编目后的书目数据。 表-“t_xsb” 表结构属性字段名称 类型 大小 索引 说明id bigint 8 是自动增长tm char 7 否 条码syh varchar 30 否 索引号sm varchar 60 否 书名zz varchar 30 否 作者cbs varchar 60 否 出版社cbrq datetime 8 否 出版日期zs Int 4 否 字数ys Int 4 否 页数nrjj varchar 200 否 内容简介gjz varchar 100 否 关键字馆藏书目数据表：馆藏书目数据表用于保存新书经过典藏入库后的书目数据，命名为“t_csb”，其结构如表-所示表-“t_csb” 表结构属性字段名称 类型 大小 索引 说明tm char 7 否 条码syh varchar 30 否 索引号sm varchar 60 否 书名zz varchar 30 否 作者cbs varchar 60 否 出版社cbrq datetime 8 否 出版日期zs Int 4 否 字数ys Int 4 否 页数nrjj varchar 200 否 内容简介gjz varchar 100 否 关键字rgrq datetime 8 否 入馆日期jbs smallint 2 否 基本数kjs smallint 2 否 可借数ksm char 20 否 库室名图书征订数据表：图书征订数据表命名为“t_dgb”，其结构如表-所示。 表-“t_dgb”表结构属性字段名称 类型 大小 索引 说明sm varchar 60 否 书名zz varchar 30 否 作者cbs varchar 60 否 出版社cbrq datetime 8 否 出版日期sl Int 4 否 数量dgrq Datetime 8 否 订购日期图书借阅数据表：图书借阅数据表命名为“t_jyb”，其结构如表-所示。 表-“t_jyb” 表结构属性字段名称 类型 大小 索引 说明tm char 7 是 条码zh char 6 否 证号jsrq datetime 8 否 借书日期hsrq datetime 8 否 还书日期yh tinyint 1 否 以还kh tinyint 1 否 库号操作日志数据表：操作日志数据表表命名为“t_log”，其结构如表-所示。 表-“t_log” 表结构属性字段名称 类型 大小 索引 说明name char 10 是用户名czrj datetime 8 否操作时间czlog varchar 200 否操作动作四、图书管理系统的实现 （一）系统登录系统登录功能是在启动图书管理系统后要求用户登录，只有输入合法的用户名和密码，系统才根据其权限来分配可使用的功能。系统登录窗体如下图4.1所示。图4.1 用户登录窗口（二）用户管理系统用户管理包括用户数据（包括编号、密码和权限代码）的添加、修改和浏览等操作。高级管理员可以管理系统中所有的用户数据，而普通用户则只能修改自己的密码。用户权限分配管理的窗体如下图4.2。图4.2 用户权限分配管理的窗体（三）用户密码修改（1）密码修改窗体。用户在登录后可以自己修改密码，这样即能保证系统的安全性，同时又减少了系统管理员的工作量。普通用户的密码修改窗体如图4.3。图4.3 密码修改窗体（四）图书征订图书征订管理主要包括图书征订数据的录入、修改、删除、与审校，其中审校是指检查要征订的图书是否存在馆藏记录，如果存在，则删除该记录。经过审校之后，可以打印征订计划书，以便验收征订回来的图书。在图书征订任务完成之后，可以删除相应的图书征订数据。（五）图书编目管理图书编目管理模块包括新书书目的修改、删除，以及根据参考图书添加新的图书书目等功能。、图书编目管理窗体的设计（1）设计图书编目管理窗体的界面。（2）窗体的初始化。在数据的检索中使用了Tquery对象，因此必须对其进行初始化，使之与数据库连接。、实现编目检索功能根据输入的部分或者全部书名，在图书数据表中进行检索。可以检索出的结果进行修改、删除等操作。单击确定按钮的事件代码如下所示： procedure Tbmgl_Form.cmdokClick(Sender: TObject);var sqlstr,sm:string;begin sm:=trim(sm_LEdit.Text); if length(sm) 0 then begin N1.Enabled:=true; N2.Enabled:=true; N3.Enabled:=true; end else begin N1.Enabled:=true; N2.Enabled:=false; N3.Enabled:=false; end;end;运行后，界面如图4.4。 图4.4 图书编目管理窗体、实现数据添加/修改功能 从弹出菜单中选择添加或者修改时，将弹出相应窗体来实现数据的添加或者修改，这里使用一个窗体来完成数据的添加或者修改。（1）创建“添加/修改图书编目”窗体。（2）窗体的初始化。因为使用同一个窗体来完成图书定购信息的添加和修改，所以必须对窗体进行初始化，表明窗体当前所处的状态。：（3）数据的添加/修改操作实现代码如下：procedure Tmodibmts_Form.cmdokClick(Sender: TObject);var czsj,czdz,ID,sqlstr1,sqlstr,tm,syh,sm,zz,cbs,zs,ys,gjz,nrjj,cbrq:string;begin tm:=trim(tm_LEdit.Text); if length(tm)1 then begin ShowMessage(请输入图书条码); exit; end; syh:=trim(syh_LEdit.Text); if length(syh)1 then begin ShowMessage(请输入图书索引号); exit; end; sm:=trim(sm_LEdit.Text); if length(sm)1 then begin ShowMessage(请输入定购图书书名); exit; end; zz:=trim(zz_LEdit.Text); if length(zz)1 then begin ShowMessage(请输入定购图书作者); exit; end; cbs:=trim(cbs_LEdit.Text); if length(cbs)1 then begin ShowMessage(请输入定购图书出版社); exit; end; zs:=trim(zs_LEdit.Text); if length(zs)1 then begin ShowMessage(请输入图书字数); exit; end; ys:=trim(ys_LEdit.Text); if length(ys)1 then begin ShowMessage(请输入图书页数); exit; end; gjz:=trim(gjz_LEdit.Text); if length(gjz)1 then begin ShowMessage(请输入图书关键字); exit; end; nrjj:=trim(nrjj_LEdit.Text); if length(nrjj)1 then begin ShowMessage(请输入定购内容简介); exit; end; cbrq:=datetostr(cbrq_DTP.Date); if bmgl_form.modi then begin id:=bmgl_form.Query1.fieldbyname(id).AsString; czdz:=修改图书编目:+sm+,+zz; sqlstr:=update t_tsb set sm=+sm+,zz=+zz+,cbs=+cbs; sqlstr:=sqlstr+,tm=+tm+,syh=+syh+,zs=+zs; sqlstr:=sqlstr+,cbrq=+cbrq+,ys=+ys+,gjz=+gjz; sqlstr:=sqlstr+nrjj=+nrjj+ where (id=+id+); sqlstr1:=select * from t_tsb where(sm=+sm+)and(zz=+zz+)or(tm=+tm+)and(id+id+); end else begin czdz:=添加图书编目:+sm+,+zz; sqlstr:=insert into t_tsb(tm,syh,sm,zz,cbs,cbrq,zs,ys,gjz,nrjj)values(+tm+,; sqlstr:=sqlstr+syh+,+sm+,+zz+,+cbs+,+cbrq+,+zs; sqlstr:=sqlstr+,+ys+,+gjz+,+nrjj+); sqlstr1:=select * from t_tsb where(sm=+sm+)and(zz=+zz+)or(tm=+tm+); end; with tquery.Create(nil) do begin try Close; SessionName:=mainform.Database1.SessionName; DatabaseName:=mainform.Database1.DatabaseName; SQL.Clear; SQL.Add(sqlstr1); Open; if recordcount 0 then begin ShowMessage(输入的书名和作者有重复或者是条码有重复，请重新输入); exit; end; Close; SQL.Clear; SQL.Add(sqlstr); ExecSQL; finally Free; end; end; czsj:=mainform.getnettime; mainForm.addlog(mainform.dlname,czsj,czdz); bmgl_form.cmdok.Click; close;end;（4）实现窗体关闭。procedure Tbmgl_Form.cmdcloseClick(Sender: TObject);begin Close;end;第四步，实现弹出菜单功能。procedure Tbmgl_Form.N1Click(Sender: TObject);begin modi:=false; xcaption:=添加图书编目; Application.CreateForm(Tmodibmts_Form, modibmts_Form); modibmts_form.ShowModal;end;在弹出的菜单中选择“修改”，修改图书编目数据记录。procedure Tbmgl_Form.N2Click(Sender: TObject);begin modi:=true; xcaption:=修改图书编目; Application.CreateForm(Tmodibmts_Form, modibmts_Form); modibmts_form.ShowModal;end;在弹出的菜单中选择“删除”，删除图书编目数据记录。procedure Tbmgl_Form.N3Click(Sender: TObject);var id:string;begin id:=Query1.fieldbyname(id).AsString; if MessageDlg(确认要删除选中的记录吗?,mtConfirmation, mbYes, mbNo, 0) = mrYes then begin with tquery.Create(nil) do begin try Close; SQL.Clear; SQL.Add(delete from t_tsb where id=+id+); ExecSQL; finally Free; end; end; end;end;第五步，实现关闭窗体操作。procedure Tmodibmts_Form.cmdcloseClick(Sender: TObject);begin Close;End（5）运行界面如图4.5。图4.5 添加图书编目窗口（一）图书典藏管理图书典藏管理包括新书分配和馆藏书库室调配等功能。（二）读者数据管理读者数据管理包括读者数据的添加修改。删除。当选择“添加”时，可将某读者信息从数据库中删除。当选择“删除”时，可将某读者的信息加进数据库。（三）图书借阅管理图书借阅管理包括借书、续借和还书。在执行图书借阅操作时，首先输入读者的借阅证号，根据借阅证号显示读者的借书信息，包括读者类别、以借书数目和清单、可借数、是否存在超期借书等信息。如果存在超期借书，则不能执行借书操作，必须经系统高级管理员执行借书超期处理后才能借书。总结本人结合开放式图书馆的要求，对SQL Server2000数据库管理系统、SQL语言原理、Delphi应用程序设计，以及Delphi数据库技术进行了较深入的学习和应用，主要完成了对图书管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。系统运行结果证明，本文所设计的图书管理系统可以满足借阅者、图书馆工作人员和高级管理员三方面的需要。设计充分利用Delphi 6、SQL Server 2000数据库技术的强大力量，提高了编程效率和可靠性。通过本次图书管理系统的开发，本人基本掌握了综合数据库管理系统设计中的系统功能分析、功能模块设计、开发与运行环境的选择；设计管理系统数据库，包括绘制数据流程图和设计数据库结构；根据系统功能模块和数据库设计方案分别开发管理系统的各个功能模块，以及各个功能模块的集成方式。本次毕业论文的完成，前后历时2个月，经过了前期参考文献的查询，程序设计，系统仿真运行，初稿编写和整理、校对、装订几个阶段，可以说是对大学四年学习生活的一个好的考验和总结，也将对毕业以后的工作学习生活起到一定的作用。由于本人平有限，不当之处在所难免，文中的疏漏和错误之处在所难免，恳请各位老师和同学批评指正。致 谢参考文献1 萨师煊 、王珊，数据库系统概论，高等教育出版社，2000，2；2 许振伍，轻松学习Delphi for windows，北京，北京大学出版社，2002，3；3 黄超 、罗宏宇，Borland Delphi网络应用开发技术与实例，清华大学出版社，2002，3； 4 增强，Delphi7入