图书馆管理系统的图书流通管理本科毕业设计说明书

《图书馆管理系统的图书流通管理本科毕业设计说明书》由会员分享，可在线阅读，更多相关《图书馆管理系统的图书流通管理本科毕业设计说明书（75页珍藏版）》请在装配图网上搜索。

1、 （本科毕业设计说明书本科毕业设计说明书学校代码：学校代码： 学学 号：号： 题题 目目： 图书馆管理系统的图书流通管理图书馆管理系统的图书流通管理学学生生姓姓名名 ：学学 院院 ： 信信 息息 工工 程程 学学 院院系系 别别： 计计 算算 机机 系系专专 业业： 软软 件件 工工 程程班班 级级： 软软 件件0 0 8 8 - - 2 2指指导导教教师师 ：内蒙古工业大学本科毕业设计说明书摘 要随着现代科学技术的进步，人类社会正逐走向信息化。图书馆拥有丰富的文献信息资源，是社会信息系统的重要组成部分，在信息社会中的作用愈来愈重要。我国图书馆计算机等信息技术的应用起步于 20 世纪 70 年

2、代末期，随着改革开放的步伐得以迅速发展，特别是 90 年代以后，我国图书馆信息网络建设取得了较大发展，图书馆信息化建设迈上了一个新台阶。随着国内教育水平的不断进步，我国教育事业发展蒸蒸日上，办学条件日趋改善，随之带来的是学校的数据信息越来越庞大，越来越不易管理，表现比较明显的就在学校的图书馆管理方面。学校的图书馆藏书在规模上越来越大，图书馆的日常管理和维护工作日益繁重，以往传统的人工管理方法是一种封闭式管理，通过卡片登记借阅信息，只能实现有限的流通，而且登记的纸质档案也不利于长期保存，使得图书馆不能发挥应有的作用；即使是实现了正常流通的，也不能提供管理上需要的各种信息，如本馆各种资料分布及借阅

3、（流通）情况。本文介绍了在 Borland Delphi7 Studio Enterprise 环境下开发图书管理信息系统的过程。文章介绍了图书馆管理信息系统的系统分析部分，包括可行性分析、图书借阅流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。内蒙古工业大学本科毕业设计说明书关键词：计算机；图书管理系；数据库设计；Delphi 开发AbstractAlong with the progress of modern science and technology, human society is d

4、riven to informatization. Libraries have abundant literature information resources, social information system is an important part of the role in the information society, more and more important. Chinese library computers started in the application of information technology in the late 1970s, along

5、with the reform and opening-up develop rapidly, especially after 1990s, the library information network construction in China has made great development.Owing to the constantly advancement of domestic education, Chinas education career develops day by day, and managerial condition is improving, thes

6、e changes bring many problems. For 内蒙古工业大学本科毕业设计说明书example, schools information become more and more huge, and its not easy to manage.The school library management is obvious. As we all known, the school library collection is expanding continually in the scale, tasks of day-to-day management and mai

7、ntenance become more and more onerous. However, the traditional artificial management method is a closed management which only realizes the limited circulation through the card borrowing registration information. Whats more, it was not suited to long-term preservation, and cant make libraries play f

8、ull role. Even if realize the normal flow, it also cant provide needs of various information, such as the librarys material distribution and lending (circulation). This paper introduces in Borland Delphi7 Studio Enterprise environment development books management information system process .This pap

9、er introduces the library management information system of analysis parts, including the feasibility analysis, library process analysis. System design part mainly introduced the system function design and database design and code design , System realize part of several major modules illustrates the

10、algorithm, this system friendly interface , the operation is simple, is more practical.内蒙古工业大学本科毕业设计说明书Keywords: Computer ; Library management system ; Database design ;Delphi development内蒙古工业大学本科毕业设计说明书 目 录引 言.1第一章 需求分析.21.1 开发背景.21.2 定义.21.3 用户要求.21.3.1 管理员登录.21.3.2 读者管理 .31.3.3 图书管理 .31.3.4 图书借阅

11、.31.3.5 图书归还 .31.3.6 预约清单 .41.3.7 图书罚款 .41.4 系统开发环境与工具.4第二章 系统设计.52.1 问题分析.52.1.1 读者管理 .52.1.2 图书管理 .52.1.3 图书流通管理 .62.2 系统流程分析.72.2.1 系统业务流程 .72.2.2 系统数据流程： .7内蒙古工业大学本科毕业设计说明书2.3 系统功能分析.82.3.1 读者管理 .82.3.2 图书管理 .92.3.3 图书流通管理 .102.4 数据库设计.112.4.1 静态数据 .112.4.2 动态数据 .112.4.3 数据字典 .122.4.4 数据库逻辑结构设计

12、.16第三章 主程序及登录窗体设计.173.1 概述.173.2 登录窗体设计.173.2.1 窗体设计 .173.2.2 窗体程序代码 .173.3 主窗体设计.183.3.1 窗体设计 .183.3.2 窗体程序代码 .19第四章 读者管理模块设计.234.1 完成读者类别设置功能.234.1.1 窗体设计 .234.1.2 运行结果 .234.2 完成读者档案管理功能.23内蒙古工业大学本科毕业设计说明书4.2.1 窗体设计 .234.2.2 窗体代码 .244.2.3 运行结果 .26第五章 图书管理模块设计.275.1 完成图书类别设置功能.275.1.1 窗体设计 .275.1.2

13、 运行结果 .275.2 完成图书档案管理功能.275.2.1 窗体设计 .275.2.2 窗体代码 .285.2.3 运行结果 .31第六章 图书流通管理模块设计.326.1 完成图书借阅功能.326.1.1 窗体设计 .326.1.2 窗体程序代码 .326.1.3 运行结果 .356.2 完成图书归还功能.356.2.1 窗体设计 .356.2.2 窗体程序代码 .356.2.3 运行结果 .366.3 完成逾期清单功能.376.3.1 窗体设计 .37内蒙古工业大学本科毕业设计说明书6.3.2 窗体程序代码 .376.3.3 运行结果 .386.4 完成图书罚款功能.386.4.1 窗

14、体设计 .386.4.2 窗体程序代码 .386.4.3 运行结果 .39第七章 系统使用说明.407.1 程序安装.407.2 运行程序.40结 论.41参考文献.42谢 辞.43内蒙古工业大学本科毕业设计说明书图表清单图 2-1 系统业务流程图.7图 2-2 系统数据流程图.8图 2-3 图书管理系统功能模块图.8图 2-4 读者类别设置功能模块图.8图 2-5 读者档案管理功能模块图.9图 2-6 图书档案管理功能模块图.9图 2-7 图书档案管理功能模块图.9图 2-8 图书借阅功能模块图.10图 2-9 图书归还功能模块图.10图 2-10 逾期清单.10图 2-11 图书罚款功能模

15、块图.11图 2-12 数据库表.16图 3-1 登陆截图.17图 3-2 主窗体截图.19图 4-1 读者类别设置截图.23图 4-2 读者档案管理截图.26图 5-1 图书类别设置截图.27图 5-2 图书档案管理截图.31内蒙古工业大学本科毕业设计说明书图 6-1 图书借阅截图.35图 6-2 图书归还截图.36图 6-3 逾期清单截图.38图 6-4 图书罚款截图.39表 2-1 出版社 .12表 2-2 读者类型.12表 2-3 读者信息.12表 2-4 管理员.13表 2-5 书架.13表 2-6 图书罚款.13表 2-7 图书管.14表 2-8 图书归还.14表 2-9 图书借阅

16、.14表 2-10 图书管理.15表 2-11 图书信息.15内蒙古工业大学本科毕业设计说明书1引 言随着电子计算机和通信技术的发展，人类已经逐渐地进入信息化社会。信息和材料、能源一样成为一种社会的基本生产资料，在人类的社会生产活动中发挥着重要的作用。同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，因此，开发相关的管理信息系统已经成为各行各业的必要和必需了，管理信息系统作为一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体，可以解决企业或组织所面临的问题，对内来看，可以提高工作效率；对外来看，获得竞争优势。该图书馆工作大部分还是进行着手工管理

17、，工作起来效率很低，并且不能及时了解图书馆各类图书的存库，学生们比较需求的图书等等，不便于动态及时地调整图书结构，以便更好地适应当前学生的借阅需求。手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。内蒙古工业大学本科毕业设计说明书2第一章 需求分析1.1 开发背景随着科技的发展，计算机应用越来越普及，各行各业配置电脑等计算机设备的所需成本也越来越小。与之相对应的是随着国内教育体制的逐渐完善，学校所承载的信息数据也越来越多，多到已经用人工处理开始不方便起

18、来的地步，这其中又以图书馆最为严重，所以图书馆采取信息化管理势在必行。图书馆的信息化管理给图书馆带来的最显著的改变就是信息录入和图书流通的速度会大大的提高，信息流通的准确性也大大加强。有利的促进了图书馆的图书流通率和服务水平的提高。市面上也有很多图书管理系统，但是大多都是比较小型的管理系统，逻辑功能比较简单，甚至功能模块紊乱，不便于管理，明显已经不能满足现在高校的需求。图书馆管理系统的核心部分也以图书流通为核心。要想增强图书管理系统的功能，使其更强大，操作起来更方便快捷，首先要考虑的是将图书流通功能模块升级。内蒙古工业大学本科毕业设计说明书31.2 定义图书管：存放学校图书，管理学校图书流通的

19、部门。图书管理系统：用户通过这个信息管理软件实现对学校图书及用户信息的信息化管理。管理员：通过图书管理系统管理图书流通的用户，通过用户名，密码可登录图书管理系统后台，对图书管的信息流通进行管理。用户：指一般用户，能在图书管借阅书籍，根据用户类型不同，借书权限也不相同。1.3 用户要求1.3.1 管理员登录管理员输入用户名，密码后能进入图书管理系统，具有对图书管理系统的信息的处理功能。1.3.2 读者管理读者管理具有读者类别设置，读者档案管理两个功能。1.读者类别设置(1)读者类别设置能够定义读者的类型，读者能借阅的图书册数，期刊册数，续借次数，还能设置读者的阅读范围（图书，期刊）；(2)读者类

20、别设置必须有读者类别的搜索功能，且支持模糊搜索；读者类别设置窗口具有增删改查基本功能。内蒙古工业大学本科毕业设计说明书42.读者档案管理(1)读者档案管理记录着所有读者的基本信息（姓名，性别，联系方式，读者类型，等等） ；(2)读者档案管理具有对档案的增，删，改，查功能，且支持模糊查询。1.3.3 图书管理图书管理具有图书类别设置和图书档案管理两个功能。1.图书类别设置(1)设置图书类别的基本信息（类型名称，可借天数，类型名称） ；(2)具有对图书类别信息的增，删，改，查的基本功能；(3)对图书类别信息的搜索支持模糊查询。2.图书档案管理(1)设置图书档案的基本信息（作者，书名条形码，出版社，

21、等等） ；(2)具有对图书档案信息的增，删，改，查的基本功能(3)对图书档案信息的搜索支持模糊查询。1.3.4 图书借阅1.图书借阅需要输入读者信息和图书借阅信息，才能借书；内蒙古工业大学本科毕业设计说明书52.输入读者信息和图书信息时，既可以按条形码输入查询，也可以按编号输入查询。1.3.5 图书归还1.图书归还能查询所有未归还的图书；2.图书归还的查询功能支持模糊查询；图书归还能将指定的图书归还，如果逾期还会对其读者应该罚款的数目写入数据库；图书归还页左上角显示所有借出的图书数量。1.3.6 预约清单1.逾期清单能查询所有借出的书籍过期未归还的书籍信息和读者信息；2.查询可根据读者编号或者

22、图书编号或者读者姓名综合查询，根据单独条件查询，模糊查询；3.在逾期清单功能页面左上角显示借阅逾期数量。1.3.7 图书罚款1.图书罚款具有查询所有读者借阅图书逾期未还的信息；2.查询功能支持按读者编号，图书编号，读者姓名单独查询，也可综合查询，也支持模糊查询；3.图书罚款功能可收回读者因为逾期借阅所应该缴纳的费用。内蒙古工业大学本科毕业设计说明书61.4 系统开发环境与工具1.硬件环境：奔腾 4 处理器，主频 2G 以上，内存要求 512M 以上，网卡 100M。2.软件环境：Win7 操作系统，SQL-SERVER2005。3.开发工具：Boland-Delphi7，Microsoft-V

23、isio，SQL-SERVER2005。第二章 系统设计2.1 问题分析2.1.1 读者管理读者管理包括：读者类型设置，读者档案管理。1.读者类型设置：搜索，新增，删除，保存，退出。搜索：根据读者类型搜索，搜索的结果包括（类型，图书册书，期刊册书，续借次数，限制图书，限制期刊） ；内蒙古工业大学本科毕业设计说明书7新增：新增读者类型，包括字段（类型，图书册书，期刊册书，续借次数，限制图书，限制期刊） ，单击“保存” ；修改：可修改数据库中的读者类型信息（类型，图书册书，期刊册书，续借次数，限制图书，限制期刊） ；删除：删除读者类型信息；退出：退出读者类型设置窗口。2.读者档案管理：搜索，新增，

24、删除，保存，退出。搜索：可根据条形码搜索，可根据编码搜索，也可根据姓名搜索，或者输入多个条件综合搜索，搜索结果包括（条形码，编号，姓名，性别，类型，联系方式，有效证件，证件号码，借阅次数，出生日期，登记日期，有效期至，期刊借阅数，操作员） ；新增：输入项（条形码，编号，姓名，性别，类型，联系方式，有效证件，证件号码，借阅次数，出生日期，登记日期，有效期至，期刊借阅数，操作员） ；修改：输入项（条形码，编号，姓名，性别，类型，联系方式，有效证件，证件号码，借阅次数，出生日期，登记日期，有效期至，期刊借阅数，操作员） ；删除：删除图书档案管理。2.1.2 图书管理图书管理包括：图书类型设置和图书档

25、案管理。1.图书类型设置：搜索，新增，修改，删除。内蒙古工业大学本科毕业设计说明书8搜索：可模糊搜索，也可按条件精确搜索（搜索条件：类型编号，类型名称） ，搜索结果显示字段（类型编号，类型名称，可借天数） ；新增：新增信息包含字段（类型编号，类型名称，可借天数） ；修改：修改信息包含字段（类型编号，类型名称，可借天数） ； 删除：删除图书类型信息。2.图书档案管理：搜索，新增，修改，删除。搜索：搜索图书档案信息包含字段（条形码，编码，书名，作者，译者，ISBN，类型，出版社，页码，价格，操作员，书架名称，是否注销，简介） ；新增：新增图书档案信息；修改：修改图书档案信息；删除：删除图书档案信息

26、。2.1.3 图书流通管理图书流通管理包括：图书借阅，图书归还，逾期清单，图书罚款。1.图书借阅：输入读者信息（可选输入项为：编码，条形码） ，以及借阅图书信息（可选输入项为：编码，条形码） ，回车键匹配内蒙古工业大学本科毕业设计说明书9借阅信息，单击“确定借阅” ，完成图书的借阅。生成借阅信息包括（编号，书名，借出时间，状态，应还时间，出版社，书架）2.图书归还：搜索，归还所选图书搜索：检索的图书信息包括（借阅编号，图书借阅，姓名，续借次数，读者编号，操作员，状态，借阅时间，书名，应还时间） ；归还图书：归还图书时判断是否逾期，并根据逾期时间计算罚款费用且保存应罚款费用。3.图书罚款：搜索，

27、图书罚款搜索：检索图书罚款信息包括（罚款编号，姓名，读者编号，图书编号，书名，罚款金额，罚款日期，实收金额，应付金额，是否交付，备注） ；收回罚款：收回逾期罚款金额。2.2 系统流程分析2.2.1 系统业务流程1.系统业务说明(1)管理员往图书管理系统里采集读者，图书信息； (2)读者借书，找管理员登记借阅信息；(3)读者还书，找管理员登记还书信息，若逾期，交纳逾期罚款；内蒙古工业大学本科毕业设计说明书10(4)借阅图书，逾期清单，图书罚款，归还图书等信息，都保存在数据库表里。2.系统业务流程图图 2-1 系统业务流程图2.2.2 系统数据流程：1.系统主要数据包括：读者信息，管理员信息，图书

28、信息，图书借阅信息，图书归还信息，图书罚款信息，逾期清单信息；所有信息都由管理员操作图书管理系统完成，把相应信息写入数据库保存起来。内蒙古工业大学本科毕业设计说明书112.系统数据流程图图 2-2 系统数据流程图2.3 系统功能分析图书管理系统功能模块图图 2-3 图书管理系统功能模块图2.3.1 读者管理管理：读者类别设置，读者档案管理。1.读者类别设置功能模块：搜索，新增，修改，删除功能。图书管理系统读者管理图书管理图书借阅图书归还逾期清单图书罚款内蒙古工业大学本科毕业设计说明书12功能模块图图 2-4 读者类别设置功能模块图2.读者档案管理功能模块 功能模块图图 2-5 读者档案管理功能

29、模块图2.3.2 图书管理图书管理：图书类别设置，图书档案管理。1.图书类别设置功能模块：搜索，新增，修改，删除功能。读者类别设置搜索新增修改删除读者档案管理搜索新增修改删除内蒙古工业大学本科毕业设计说明书13 功能模块图图 2-6 图书档案管理功能模块图2.图书档案管理功能模块功能模块图图 2-7 图书档案管理功能模块图2.3.3 图书流通管理图书流通管理：图书借阅，图书归还，逾期清单，图书罚款。1.图书借阅：借阅图书，搜索。图书类别设置搜索新增修改删除图书档案管理搜索新增修改删除图书借阅搜索借阅退出内蒙古工业大学本科毕业设计说明书14功能模块图图 2-8 图书借阅功能模块图2.图书归还：搜

30、索，归还图书。功能模块图图 2-9 图书归还功能模块图3.逾期清单：搜索。功能模块图图 2-10 逾期清单4.图书罚款：搜索，归还图书。图书归还搜索归还图书逾期清单搜索内蒙古工业大学本科毕业设计说明书15功能模块图图 2- 11 图书罚款功能模块图2.4 数据库设计2.4.1 静态数据1.读者类别：类型，图书册数，期刊册数，续借次数，限制图书，限制期刊；2.读者信息：条形码，编号，姓名，性别，类型，出生日期，有效证件，证件号码，联系方式，登记日期，有效期至；3.图书信息：条形码，编号，书名，类型，作者，译者，ISBN，出版社，价格，页码，书架名称；4.书架：编号，书架名称；5.图书类型：类型编

31、号，类型名称，可借天数；6.管理员：编号，姓名，密码。2.4.2 动态数据1.图书借阅：状态，编号，书名，借出时间，应还时间，出版社，书架；图书罚款搜索归还图书内蒙古工业大学本科毕业设计说明书162.图书归还：读者编号，图书编号，读者姓名，借阅号，书名，借阅时间，应还时间；3.图书罚款：罚款编号，读者编号，姓名，图书编号，书名，罚款日期，应罚金额，实收金额，是否交款，备注；4.逾期清单：借阅编号，书名，图书编号，借阅时间，应还时间，续借次数，读者编号，状态，操作员。2.4.3 数据字典表 2-1 出版社信息表序号属性名类型长度主键NULL备注1出版社编号int15否2ISBNvarchar40

32、3出版社名称varchar200表 2-2 读者类型表序号属性名类型长度主键NULL备注1类型varchar15否2图书册数smallint153期刊册数smallint304续借次数int10内蒙古工业大学本科毕业设计说明书175限制图书bit6限制期刊bit表 2-3 读者信息表序号属性名类型长度主键NULL备注1条形码varchar402编号varvhar20否3姓名varvhar204性别varvhar85类型varchar20否外键6类型bit7出生日期smalldatetime8有效证件varvhar609证件号码varvhar6010联系方式varvhar10011登记日期sma

33、lldatetime12有效期至smalldatetime内蒙古工业大学本科毕业设计说明书1813操作员varvhar2014备注varvhar10015期刊借阅次数int16图书借阅次数int17是否挂失bit表 2-4 管理员表序号属性名类型长度主键NULL备注1编号varchar100否2名称varchar203密码varchar1004图书管理bit否5期刊管理bit否6读者管理bit否7图书借还bit否8期刊借还bit否9系统设置bit否10系统查询bit否11系统排行bit否12排行榜bit否13系统维护bit否表 2-5 书架表序号属性名类型长度主键NULL备注1编号varcha

34、r50否2书架名称varvhar200否表 2-6 图书罚款表序号属性名类型长度主键NULL备注内蒙古工业大学本科毕业设计说明书191罚款编号int否2图书编号varchar50否外键3读者编号varvhar20否外键4罚款日期smalldatetime5应罚金额money6实收金额money7是否交款bit8备注varchar100表 2-7 图书馆表序号属性名类型长度主键NULL备注1名称varchar200否2馆长vhar2003负责人varchar104电话varchar305地址varchar2006说明varchar2007备注varchar200表 2-8 图书归还表序号属性名类

35、型长度主键NULL备注1归还编号int否2图书编号varvhar50否外键3读者编号varchar404退还押金money5归还时间smalldatetime6操作员varchar20内蒙古工业大学本科毕业设计说明书207确定归还bit表 2-9 图书借阅表序号属性名类型长度主键NULL备注1借阅编号int否2图书编号varvhar50否外键3读者编号varvhar404借阅时间smalldatetime5应还时间smalldatetime6续借次数int7操作员varvhar208状态varvhar10表 2-10 图书类型表序号属性名类型长度主键NULL备注1类型编号varchar50否2

36、类型名称varvhar100可借天数int表 2-11 图书信息表内蒙古工业大学本科毕业设计说明书21序号属性名类型长度主键NULL备注1条形码varchar402编号varvhar50否3书名varchar2004类型varchar1005作者varchar1006译者varchar1007ISBNvarchar408出版社varchar1009价格money10页码int11书架名称varchar20012现存量int13库存总量int14入库时间smalldatetime15操作员varchar2016简介varchar100内蒙古工业大学本科毕业设计说明书2217借出次数int18是否

37、注销bit否2.4.4 数据库逻辑结构设计图书管理系统的所有数据存储在 11 张表中，打开 SQL SERVER 2005,在其中新建数据库 libbook，如下图 2-12 所示。图 2-12 数据库表内蒙古工业大学本科毕业设计说明书23第三章 主程序及登录窗体设计3.1 概述前期的逻辑设计已经完成，现在根据前期的逻辑结构，设计图书管理系统的界面，以及内部代码实现。为了给图书管理系统设置权限管理，设置一个图书管理员登录窗口是有必要的，管理员通过输入用户名，密码可以登录到图书管理系统主窗体。主窗体有读者管理，图书管理，图书流通管理（图书借阅，图书归还，逾期清单，图书罚款） 。3.2 登录窗体设

38、计3.2.1 窗体设计1.登陆窗体要求输入信息：用户名，密码。 2.窗体运行截图如图 3-1 所示。内蒙古工业大学本科毕业设计说明书24图 3-1 登陆截图3.2.2 窗体程序代码$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);var tuser,tpwd:string;begin tuser:=trim(eduser.Text); tpwd:=trim(edpwd.text); if(tuser=) or (tpwd=) then Begin ShowMessage(用户名或密码不能为空!); end else Begin ADO

39、Query1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(select * from 管理员 where 名称=+tuser+ and 密码=+ tpwd+); ADOQuery1.Open; if adoquery1.eof then begin内蒙古工业大学本科毕业设计说明书25 ShowMessage(用户名或密码不正确请确认!); ADOQuery1.Close; end else Begin ADOQuery1.Close; Main.ShowModal; Self.Hide; end; end;end;procedure TForm1

40、.Button2Click(Sender: TObject);begin Application.Terminate;end;end.3.3 主窗体设计3.3.1 窗体设计管理员登陆成功后，就进入了主窗体。内蒙古工业大学本科毕业设计说明书26主窗体截图如图 3-2 所示图 3-2 主窗体截图3.3.2 窗体程序代码$R *.dfmuses UserSettingForm, BookSettingForm, UserDocuForm,BookDocuForm, BookBorrowForm, BookOrderForm,BookReturnForm,BookOverdueForm,Forfeit

41、Form;/-通过用户定义的函数，判断窗体是否已存在-function TMain.FindForm(caption: string): bool;var i:integer;begin for i:=0 to main.MDIChildCount do内蒙古工业大学本科毕业设计说明书27 begin / 通过对窗体标题判断窗体是否存在 if main.MDIChildreni.Caption=caption then begin /如果窗体已存在，则恢复窗体，并返回 true SendMessage(mdichildreni.Handle, WM_SYSCOMMAND, SC_Maximiz

42、e, 0); mdichildreni.Enabled:=true; mdichildreni.Show; mdichildreni.SetFocus; result:=true; break; end else /如窗体不存在，则返回 false，程序将创建窗体 result:=false; endend;/-打开读者类别设置窗体-procedure TMain.N2Click(Sender: TObject);内蒙古工业大学本科毕业设计说明书28Var newform:TUserSetting;begin if FindForm(读者类别设置)=false then begin newfo

43、rm:=TUserSetting.Create(application); newform.Caption:=读者类别设置; end;end;/-打开读者档案管理窗体-procedure TMain.N3Click(Sender: TObject);Var newform:TUserDocu;begin if FindForm(读者档案管理)=false then begin newform:=TUserDocu.Create(application); newform.Caption:=读者档案管理; end;end;/-打开图书类别设置窗体-内蒙古工业大学本科毕业设计说明书29proced

44、ure TMain.N5Click(Sender: TObject);Var newform:TBookSetting;begin if FindForm(图书类别设置)=false then begin newform:=TBookSetting.Create(application); newform.Caption:=图书类别设置; end;end;/-打开图书档案管理窗体-procedure TMain.N6Click(Sender: TObject);Var newform:TBookDocu;begin if FindForm(图书档案管理)=false then begin ne

45、wform:=TBookDocu.Create(application); newform.Caption:=图书档案管理; end;end;内蒙古工业大学本科毕业设计说明书30/-打开图书借阅窗体-procedure TMain.N9Click(Sender: TObject);Var newform:TBookBorrow;begin if FindForm(图书借阅)=false then begin newform:=TBookBorrow.Create(application); newform.Caption:=图书借阅; end;end;/-打开图书归还窗体-procedure

46、TMain.N10Click(Sender: TObject);var newform:TBookReturn;begin if FindForm(图书归还)=false then begin newform:=TBookReturn.Create(application); newform.Caption:=图书归还; end;内蒙古工业大学本科毕业设计说明书31end;/-查看逾期图书-procedure TMain.N11Click(Sender: TObject);var newform:TBookOverdue;begin if FindForm(逾期清单)=false then b

47、egin newform:=TBookOverdue.Create(application); newform.Caption:=逾期清单; end;end;/-收回图书罚款-procedure TMain.N12Click(Sender: TObject);var newform:TForfeit;begin if FindForm(图书罚款)=false then begin newform:=TForfeit.Create(application); newform.Caption:=图书罚款;内蒙古工业大学本科毕业设计说明书32 end;end;procedure TMain.N13C

48、lick(Sender: TObject);beginApplication.Terminate;end;procedure TMain.FormCreate(Sender: TObject);begin if not Assigned(form1) then form1:= TForm1.Create(Application); Form1.ShowModal;end;end.第四章 读者管理模块设计4.1 完成读者类别设置功能4.1.1 窗体设计读者类别设置窗体要输入的信息有：读者类型，图书册数，期刊册数，续借次数，借阅范围（单选框） ，该窗体还能修改已经录入的数据，且支持检索原有信息。内

49、蒙古工业大学本科毕业设计说明书334.1.2 运行结果 运行结果截图如图 4-1 所示。图 4-1 读者类别设置截图4.2 完成读者档案管理功能4.2.1 窗体设计窗体功能：能搜索读者档案信息，并将搜索结果总数显示在左上角，右侧以报表形式显示搜索结果。下侧显示具体所指的那条信息。该页面对读者信息具有新增，修改，删除的功能。4.2.2 窗体代码$R *.dfm内蒙古工业大学本科毕业设计说明书34/-根据读者类型表中的数据更新本窗体中【类型】的下拉列表框-procedure TUserDocu.FormActivate(Sender: TObject);var name:string;begin

50、inherited; /获得读者类型表中【类型】字段的信息 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select distinct 类型 from 读者类型); adoquery2.Open; /清空本窗体中的【类型】下拉列表框的内容 dbcombobox2.Items.Clear; /根据查询到的信息重新添加下拉列表框选项 while not adoquery2.Eof do begin name:=adoquery2.fieldbyname(类型).AsString; dbcombobox2.Items.Add(nam

51、e); adoquery2.Next;内蒙古工业大学本科毕业设计说明书35 end;end;/-以下是在新增记录时的默认输入值-/标识用户是否选择了【是否挂失】单选框procedure TUserDocu.ToolButton6Click(Sender: TObject);varmaxnum:integer;newnum:string;begin isChecked:=0; /自动确定新用户编号 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select max(编号) 最大编号 from 读者信息); adoquery2.Op

52、en; maxnum:=adoquery2.FieldByName(最大编号).AsInteger; maxnum:=maxnum+1; newnum:=inttostr(maxnum); if length(newnum)=1 then dbedit2.Text:=000+newnum;内蒙古工业大学本科毕业设计说明书36 if length(newnum)=2 then dbedit2.Text:=00+newnum; if length(newnum)=3 then dbedit2.Text:=0+newnum; /确定默认的类型 dbcombobox2.SelText:=dbcombo

53、box2.Items.Strings0; end;procedure TUserDocu.DBCheckBox1Click(Sender: TObject);begin inherited; isChecked:=(isChecked)or(1);/表示已经选择了是否挂失end;procedure TUserDocu.ToolButton10Click(Sender: TObject);begin if isChecked=0 then begin showmessage(未选择是否挂失，请重新选择); exit; end; inherited; ischecked:=0;内蒙古工业大学本科毕

54、业设计说明书37end;end.4.2.3 运行结果 运行结果截图如图 4-2 所示。图 4-2 读者档案管理截图内蒙古工业大学本科毕业设计说明书38第五章 图书管理模块设计5.1 完成图书类别设置功能5.1.1 窗体设计模块功能：可搜索图书类别信息，并将搜索结果总数显示在左上角，右侧报表显示所有搜索结果，报表指针所指的一条信息被单独显示在窗体下方。窗体，还具有新增，修改，删除等功能。5.1.2 运行结果运行结果截图如图 5-1 所示。图 5-1 图书类别设置内蒙古工业大学本科毕业设计说明书395.2 完成图书档案管理功能5.2.1 窗体设计模块功能：可搜索图书档案管理信息，并将搜索结果总数显

55、示在左上角，右侧报表显示所有搜索结果，报表指针所指的一条信息被单独显示在窗体下方。窗体，还具有新增，修改，删除等功能。5.2.2 窗体代码$R *.dfmprocedure TBookDocu.FormActivate(Sender: TObject);varname:string;begin inherited; /设置【出版社】下拉列表框中下拉列表项目 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select 出版社名称 from 出版社); adoquery2.Open;内蒙古工业大学本科毕业设计说明书40 dbcomb

56、obox2.Items.Clear; while not adoquery2.Eof do begin name:=adoquery2.fieldbyname(出版社名称).AsString; dbcombobox2.Items.Add(name); adoquery2.Next; end;/设置【类型】下拉列表框中下拉列表项目 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select 类型名称 from 图书类型); adoquery2.Open; dbcombobox1.Items.Clear; while not ado

57、query2.Eof do begin name:=adoquery2.fieldbyname(类型名称).AsString; dbcombobox1.Items.Add(name); adoquery2.Next; end; /设置【书架名称】下拉列表框中下拉列表项目 adoquery2.Close;内蒙古工业大学本科毕业设计说明书41 adoquery2.SQL.Clear; adoquery2.SQL.Add(select 书架名称 from 书架); adoquery2.Open; dbcombobox3.Items.Clear; while not adoquery2.Eof do

58、begin name:=adoquery2.fieldbyname(书架名称).AsString; dbcombobox3.Items.Add(name); adoquery2.Next; end;end;procedure TBookDocu.ToolButton6Click(Sender: TObject);var maxnum:integer; newnum:string; begin inherited; /自动确定新用户编号 adoquery2.Close; adoquery2.SQL.Clear;内蒙古工业大学本科毕业设计说明书42 adoquery2.SQL.Add(select

59、 max(编号) 最大编号 from 图书信息); adoquery2.Open; maxnum:=adoquery2.FieldByName(最大编号).AsInteger; maxnum:=maxnum+1; newnum:=inttostr(maxnum); if length(newnum)=1 then dbedit2.Text:=000000+newnum; if length(newnum)=2 then dbedit2.Text:=00000+newnum; if length(newnum)=3 then dbedit2.Text:=0000+newnum; if lengt

60、h(newnum)=4 then dbedit2.Text:=000+newnum; if length(newnum)=5 then dbedit2.Text:=00+newnum; if length(newnum)=6 then dbedit2.Text:=0+newnum; /确定默认的类型 dbcombobox2.SelText:=dbcombobox2.Items.Strings0; /标识用户是否选择了【是否注销】单选框内蒙古工业大学本科毕业设计说明书43 isChecked:=0; end;procedure TBookDocu.DBCheckBox1Click(Sender:

61、 TObject);begin inherited; ischecked:=(ischecked)or(1);end; /判断在【页码】和【价格】文本框中输入的是否是数字procedure TBookDocu.DBEdit11KeyPress(Sender: TObject; var Key: Char);var input:char;begin inherited; input:=key; if (key=#30)and(key=#30)and(key=0 then begin showmessage(达到借书数量上限，请先归还图书再借书); exit; end; adoquery2.Clo

62、se; adoquery2.SQL.Clear; adoquery2.SQL.Add(select * from 图书信息 where +name+=+edit5.Text+); adoquery2.Open; if adoquery2.FieldByName(编号).AsString then begin /判断是否读者已借有该书，如果已有，则不允许再借 for i:=1 to 12 do内蒙古工业大学本科毕业设计说明书48 if stringgrid1.Cells1,i=adoquery2.FieldByName(编号).AsString then begin showmessage(读者

63、已借有该书，不允许再借); edit5.Clear; exit; end; /输入图书信息 stringgrid1.Cells0,booknum+1:=新借; stringgrid1.Cells1,booknum+1:=adoquery2.fieldbyname (编号).AsString; stringgrid1.Cells2,booknum+1:=adoquery2.fieldbyname (书名).AsString; stringgrid1.Cells5,booknum+1:=adoquery2.fieldbyname (出版社).AsString; stringgrid1.Cells6

64、,booknum+1:=adoquery2.fieldbyname内蒙古工业大学本科毕业设计说明书49 (价格).AsString; booktype:=adoquery2.fieldbyname(类型).AsString; /计算图书的借书时间和归还时间 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select * from 图书类型 where 类型名称=+booktype+); adoquery2.Open; keeptime:=adoquery2.fieldbyname(可借天数).AsInteger; stringg

65、rid1.Cells3,booknum+1:=datetostr(date); stringgrid1.Cells4,booknum+1:=datetostr(date+keeptime); /更新借书信息 booknum:=booknum+1; thisbook:=thisbook+1; label6.Caption:=已借书+inttostr(booknum)+本; label7.Caption:=本次借书+inttostr(thisbook)+本; /清空文本框，以便输入下一本书内蒙古工业大学本科毕业设计说明书50 edit5.Clear; /允许保存或者取消新借书的记录 toolbut

66、ton1.Enabled:=true; toolbutton2.Enabled:=true; end; end;end;/-确定借书，向数据库中插入新记录-procedure TBookBorrow.ToolButton1Click(Sender: TObject);var i:integer; maxnum:integer;begin /自动确定借阅编号 adoquery2.Close; adoquery2.SQL.Clear; adoquery2.SQL.Add(select max(借阅编号) 最大编号 from 图书借阅); adoquery2.Open; maxnum:=adoquery2.FieldByName(最大编号).AsInteger;内蒙古工业大学本科毕业设计说明书51 maxnum:=maxnum+1; /插入所有状态为新借的图书 for i:=1 to 12 do if stringgrid1.Cells0,i=新借 then begin adocommand1.CommandText:=insert into 图书借阅(借阅编号, 图书编号, 读者编号, 借