图书管理系统系统说明书.doc

第一章 引言1.1系统概述图书管理信息系统是典型的信息管理系统（MIS），其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强，数据安全性好的库。而对于后者则要求应用程序的功能完备，易用等特点。经过分析，我们使用了MICROSOFT公司的VISUAL BASIC 6.0开发工具，利用其提供的面向对象的开发工具，尤其是数据库窗口这一功能方便而简捷操作数据库的智能化对象。首先短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修改和改进，直到形成用户满意的可行系统。1.2项目开发背景为了适应现代社会人们强烈的时间观念，提高效率，管理信息系统在各个领域得到了广泛应用。管理信息系统是一个以人为主导，利用计算机硬件，软件，网络通信设备以及其他办公设备，进行信息的收集，传输，加工，储存，更新和维护的有机系统。图书管理系统将会给图书管理带来极大的方便。该软件是以VB编程语言为实现语言，具有完善的数据库功能。通过软件文档可以使使用者了解本软件的基本工作原理。操作人员只需输入一些简单的汉字、数字，即可达到自己的目标。该软件是专门针对图书馆管理而开发的专业软件，适用于图书馆的图书管理、读者借书管理，还书管理及查询。软件集成了图书馆工作数据的录入、维护、统计、查询等一系列功能，对于帮助图书馆提高管理水平大有裨益。1.3. 运行环境模块采用Visual Basic 6.0为编程语言，在数据库连接上采用了数据库系统Microsoft office Access 2003。第二章 可行性分析2.1技术可行性根据现有的技术条件，我们以基本达到图书管理系统的要求，物理资源已基本具备，具备实时处理能力和批处理能力，有足够的数据库管理系统的功能。2.2经济可行性系统已基本达到资金可得性和经济合理性的双重要求。2.3社会可行性在当前操作环境下能正常运行，所建立信息系统能在图书馆内实现。新系统的组织结构图已基本画出，其目标是最短的时间内建立新系统的逻辑模型。要求本系统具有较强的功能，较高的可靠性，安全性和易维护性，具有较高的伸缩性和可移植性。 第三章系统分析3.1 组织结构图图书馆采编部流通部信息部书库3.2 业务流程图（1）借书业务流程图：借书读者管理员借阅文檔管理员存档录入借书证号查看借阅文檔续借读者批准借阅文檔管理员存档管理员管理员图书出库图书信息存档管理员（2） 还书业务流程图：还书读者录入借书证号查看借阅文檔借阅文檔管理员存档罚款管理员借阅文檔管理员图书入库存档图书信息存档管理员管理员管理员3.3 数据流程图库管理员工作人员读者有效性检验处理要求处理要求处理查询入库表图书情况读者情况处理要求无效输入，返回查询要求有效还书/借书要求有效查询要求显示显示读者管理要求产生表顶层数据流程图有效性检验图书管理人员读者图书馆里要求查询要求图书情况读者情况借书证图书管理系统书库查询要求书库有效图书馆里要求图书管理要求还书/借书0层数据库流程图查询读者读者查询类别处理读者查 询图书统 计图书查 询读者情况统计表图书情况读者文件查询要 求查询图书统计要求显示借书文件显示目录文件显示查询部分数据流图读者数据借阅信息表图书信息表图书信息表有权信息读者图书信息读者信息表读取借书证号拒借非法编号审查借书权借书查询图书借书处理借书数据流程图：读者信息表读取借阅信息借阅信息表正常还书违章还书处理借书记录借书记录图书信息表借阅信息表借阅信息表还书数据流程图3.4 数据字典数据项定义数据项编号数据项名称别名长度取值范围简述A-001书号shuhao10任何汉字、字母、数字对不同图书的编号A-002书名bookname30任何汉字、字母、数字图书的名称A-003书价bookprice货币0-32767书的价格A-004类别bookclassify10任何汉字、字母、数字书的类别A-005出版社publish30任何汉字、字母、数字所进图书出版社A-006借出时间lendate日期/时间1900-2010图书借出时间A-007是否借出weather是/否是/否图书是否已借出A-008借书证号bookid15任何汉字、字母、数字读者借书证的编号A-009读者姓名readername20任何汉字、字母、数字读者的姓名A-0010系别xibie20任何汉字、字母、数字读者的系别A-0011班级class20任何汉字、字母、数字读者所在班级A-0012学号xuehao15任何汉字、字母、数字读者入学时的编号A-0013处罚punishment20任何汉字、字母、数字借书超期时应受的处罚A-0014还书日期returndate日期/时间1900-2010图书的还入日期A-0015新书编号newbookid15任何汉字、字母、数字新书的编号A-0016说明shuoming50任何汉字、字母、数字新书的简介A-0017天数tianshu20任何汉字、字母、数字允许借出的天数A-0018用户名username20任何汉字、字母、数字管理员登陆时使用的名称A-0019密码password10任何汉字、字母、数字登陆时的密码数据结构定义数据结构编号数据结构名称数据结构组成B-01图书查询表书号+书名+书价+类别+出版社+借出时间+是否借出B-02读者信息表借书证号+读者姓名+系别+班级+学号+罚金B-03还书信息表借书证号+读者姓名+图书编号+书名+类别+书价+还书时间B-04借书信息表借书证号+读者姓名+图书编号+书名+类别+借出时间+书价B-05新书添加表新书书号+书名+类别+出版社+说明B-06图书分类表类别+天数B-07用户登陆表用户姓名+密码数据流定义编号名称简述数据来源数据流向组成流通量高峰流通量C-01所购图书采购科为图书流向提供图书书库图书馆各书架图书数据结构5万本/年新生入学（9月）C-02借书证管理员为学生办理的借书证读者管理部读者借书证的数据结构1万人/年新生入学（9月）处理过程描述处理编号：D-08处理名称：查询输入数据：1.图书管理表 2.借书表 3.输出数据输出数据：借还书汇总表处理逻辑：1.按图书编号填写所借图书 2.填写完成所借图书数量 3.按照允许借出天数计算还书日期 还书日期=借书日期+30天 4.汇总每月借书总量 5.计算罚金数额数据存储定义表编号名称组成关键字相关处理E-01借书表借书证号+读者姓名+图书编号+书名+类别+书价+借书时间借书证号确定借书情况E-02还书表借书证号+读者姓名+图书编号+书名+类别+书价+还书时间借书证号确定还书情况名称关键字类型长度值域默认值备注索书号PVC15书名VC40所赔价款Money财产号VC10姓名VC10借期Date还期DateDate()名称关键字类型长度值域默认值备注编号自动增长Long学号PVC10姓名VC10单位VC10借期DateDate ()书名VC40还期DateDate备注VC20外部实体的定义编号实体名称简述输入数据流输出数据流F-01管理员管理整个图书馆的工作人员图书管理表借书还书表F-02读者借书的人员借书还书表借书还书表第四章 系统设计4.1 系统主要功能4.1.1.系统功能结构图图书管理系统借阅信息 读者管理书籍管理者图书管理系统管理系统管理查询借书证管理用户信息修改添加查询修改添加查询修改添加查询添加查询修改添加查询修改修 改添 加还书信息借书信息读者分类读者信息书籍分类书籍信息修改密码用户管理4.1.2.要完成功能：（1）系统管理（2）读者信息管理（3）书籍信息管理（4）借阅信息管理4.1.3系统的性能要求功能齐全，安全稳定，可靠性高。操作简单，运用灵活实时性强，准确性高。4.2 输入/输出设计根据系统目标，确定本系统可以分为四个子系统：系统管理，书籍管理，读者管理，借阅管理等四个子系统.现将各模块功能详细说明如下:图书管理下图为本系统的主界面，有四个一级菜单，各菜单下分别有自己的子菜单。本窗体还有显示当前时间，显示最新图书的功能。 借书登记用于借书工作，用户借书时首先选择借书证号，查看是否有借书权限（如有书未还，系统自动提示“此人的借书尚为归还，不能借书”）。如有权限，选择图书编号，调用读者管理表，刷新借书登记表及图书管理表. 还书登记还书时，首先由管理员查看图书编号及图书情况。如出现1，2两种情况则可进行下一步操作。如选择所要还之图书编号100001，则系统自动调用借书登记表，显示借阅该书且尚未归还的借书证号，选种还书之借书证号，点“还书”后，调用图书管理表，借书登记表并刷新还书登记表，借书登记表，图书管理表编辑借书证，本窗体的主要功能是添加、编辑、删除读者信息，为读者办理借书证业务。 图书查询 提供按图书编号，图书名称，作者，出版社四种查询方法。调用图书管理表，用于读者借阅前查看图书库存信息。 a.输入设计输入设计的好坏是评价一个系统性能优劣的十分重要的一个环节。输入设计的目标是保证向系统输入正确的数据。在此前提下，应做到输入方法简单、迅速、经济、方便。为了确保输入的准确性，减少数据的冗余，系统中的数据库都设有主键，以一个字段的值来唯一标识每一条记录。比如，在读者数据库中，是以会员号设主键的，因为每个会员都有唯一的编号。所以当输入的编号已经存在时，系统会自动报错。b.输出设计输出设计的重要性是显而易见的，图书管理系统只有通过输出才能为用户服务。信息系统能否为用户提供准确、及时、适用的信息是评价信息系统优劣的标准之一。输出的内容应该是由用户的需求决定的。在这个系统中，用户最主要的需求就是借还书及查询图书的的相关信息，所以输出的内容也应随用户的查询条件的不同而不同。4.3数据库设计本系统所建立的数据库名tushu.mdb为，其数据表结构列举如此下：图书管理表，读者管理表，还书登记表，借书登记表等。a. 图书管理表列名 数据类型 长度 可否为空 图书编号 文本 10 Notnull图书名称 文本 50 Notnull图书类别 文本 20 Notnull作者 文本 20 Notnull出版社 文本 30 Notnull单价 数字 Notnullb.读者管理表列名 数据类型 长度 可否为空借书证号 文本 8 Notnull姓名 文本 20 Notnull性别 文本 2 Notnull学号 文本 18 Notnull系别 文本 13 Notnull班级 文本 50 Notnullc.借书登记表列名 数据类型 长度 可否为空借书证号 文本 8 Notnull姓名 文本 20 Notnull图书编号 数字 10 Notnull学号 文本 18 Notnull系别 文本 13 Notnull班级 文本 50 Notnull借书日期 日期/时间 8 Notnulld.还书登记表列名 数据类型 长度 可否为空借书证号 文本 8 Notnull姓名 文本 20 Notnull图书编号 数字 10 Notnull学号 文本 18 Notnull系别 文本 13 Notnull班级 文本 50 Notnull图书名称 文本 50 Notnull还书日期 日期/时间 8 Notnull4.4 E-R图读者类别信息实体E-R图种类编号种类编号种类编号种类编号读者类别信息实体读者信息实体读者编号读者类别读者姓名办证日期读者信息实体书籍类别信息实体类别编号关键字类别名称备注信息书籍类别信息实体书籍信息实体书籍编号书籍类别书籍名称出版社书籍信息实体实体之间相互关系E-R图读者类别信息借阅信息管理读者信息登记读者类别信息书籍信息登记借阅书籍读者类别信息读者类别信息第五章 系统实现5.1 系统测试5.1.1黑盒测试黑盒测试也称功能测试或数据驱动测试，他是在已知产品所具有的功能，通过测试来检测每个功能是否都能正常使用。在测试时，把程序看作一个不能打开的黑盒子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，他只检查程序功能是否按照需求规格说明书的规定正常使用，程序是否能适当的接受输入数据而产生正确的输出信息，并且保持外部信息（如数据库成文件）的完整性，黑盒测试方法主要是等价类划分，边界值分析，错误推测法，因果图等，重要用于软件确认测试，“黑盒”法是穷举输入测试，只有把所有的输入都作为测试情况使用，才能以这种方法查出程序中所有的错误。对于本系统我们采用动态检查，通过有效的控制运行程序，发现其中的错误。测试的项目有：模块界面、内部数据结构、独立路径、错误处理、边界条件；在联合测试中，我们采用了由上到下的方法；在接下来的验收测试中，我们检验系统说明书的各项功能与性能是否实现，是否满足要求；在最后总的系统测试中，我们对整个系统包括硬件软件都进行了测试，发现了原来在系统分析和设计中的一些错误，并及时进行了纠正，使系统能基本正常运行。开始输入书A是否有同此类书A重新输入财产号结束查重合成新索书号及填写个别登记表用程序流程图来描述对书的编目个别登记明细表YN个别登记信息校验财产号查重YN登记个别明细信息个别登记信息校验YN登记个别登记信息个别登记表5.2 程序流程图借书程序流程图开始借书输入借书证条码并查出读者信息无效读者校验有效Y赔偿处理赔偿未清Y 已清罚款处理罚款未清 已清 已借图书 Y是否超期 N Y提醒读者已超期了 是否借满 Y图书条码 N 是否可借 N借书办理 Y退出借书还书程序流程图图书Y是否丢失NYN付钱赔偿图书校验Y挂帐YYN付款罚款是否损坏挂帐N是否超期N还书登记还书结束读者借书证程序流程图N读者借书证校验身份是否有借阅图书NYYY是否已续借N续借办理结束续借第六章 结束语设计这套系统，使我们收获很大,让我能够熟悉业务流图和数据流图，对我们的图书馆理有了进一步的了解。其功能基本符合需求，能够完成书籍录入，借阅，查询、。并提供部分系统维护功能,使用户方便进行数据添加和修改、数据删除等功能。对开发工具visual basic6.0以及数据库的access基本掌握。增强了团队合作精神，理论结合实践，激励我学习新知识，不仅提高了自学能力，也巩固了以前学的知识，而且在实际应用中学到很多新的知识。开发初期，由于缺乏经验，前期的准备工作不充分，没有意识到系统的繁复，在系统设计上存在一些问题，思考也不够全面，导致后期难度较大，系统调试中存在困难。这使我们认识到根据各方面因素合理设计的重要性，雏形设计的适当，能使在后期的工作井然有序，水到渠成。反之，会遇到很多的麻烦，事半功倍，困难重重。但是由于设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。与此同时，使我感受到“学无止境”，在我目前掌握的知识，与实际操作能力还远远不足，在开发中除对所需知识的不扎实，知识面较窄的问题，我们还需要继续不断努力学习。提高我们知识水平和技术水平，在以后的设计中，吸取经验教训，不断的提高自己的理论知识，实际操作能力,扬长避短，争取更加出色的完成任务。在这一个月的设计中，使我提高了实际操作能力，从以前的理论上升到实践，从感性认识上升到理性认识，真正做到学有所用，虽然在设计过程中我也遇到一些困难，但在老师的帮助和自己的努力下，我都一一克服了，当然，这与小组团队合作和老师耐心指导，还有周围同学的帮助是分不开的。但由于时间关系，我并不能做到尽善尽美，应该说这是一大遗憾吧。参考文献1 启明工作室 编著Visual Basic+Access数据库应用系统开发与实例 人民邮电出版社出版2004-11-012 王心竺、林小琪 编著Visual Basic数据库程序设计与实例人民邮电出版社出版 2001-01-013 陈明 编著Visual Basic程序设计中央广播电视大学出版社2001-01-014 刘志铭高春艳孙健鹏 编著Visual Basic 6.0 数据库开发实例解析机械工业出版社2001-01-015 求是科技刘韬骆娟 编著Visual Basic 6.0 进销存系统开发实例导航人民邮电出版社2001-01-017 张瀚文 齐锦刚 编著Visual Basic 6.0 数据库系统开发实例与解析高等教育出版社2001-01-018 董传银 编著Visual Basic 6.0 数据库编程技术北京希望电子出版社2001-01-019 温贤发 编著Visual Basic6.0 数据库程序设计高手科学出版社2001-01-0110 盛和太 编著VB.NET数据库开发清华大学出版社2004-04-01致 谢感谢我的导师李巾和李云鹏老师。导师平日里工作繁多，但在我做毕业设计的每个阶段，从查阅资料到设计草案的确定和修改，中期检查，后期详细设计等整个过程中都给予了我悉心的指导。除了敬佩导师的专业水平外，他的治学严谨和科学研究的精神也是我永远学习的榜样，并将积极影响我今后的学习和工作。在进行毕业设计过程中，得到学校在师资、设备等方面的支持，得到同学对我的帮助，也感谢学校在本人求学过程中在知识还是人生方面给予的帮助和教育, 特此表示感谢。附录：（部分主要程序源代码）添加新书Option ExplicitDim Rcdst As Recordset, Idx As StringPrivate Sub refreshDelay() Label7.Caption = 正在写数据库数据. Timer1.Enabled = TrueEnd SubPrivate Sub CBOClass_Click() Idx = getIndex(Trim(CBOClass.Text), ADO1) Label8.Caption = 类别索引号： & IdxEnd SubPrivate Sub CBOClass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubPrivate Sub CmdCancel_Click() Unload MeEnd SubPrivate Sub Form_Activate() TxtNum.SetFocusEnd SubPrivate Sub Timer1_Timer() Dim Temp As String Temp = Trim(Frmmain.CBOClass.Text) Frmmain.CBOClass.Clear LoadCBO Frmmain.CBOClass, ADO1, idx Frmmain.CBOClass.Text = Temp Timer1.Enabled = False FrmAddBook.Enabled = True Label7.Caption = TxtNum.Text = TxtName.Text = TxtPub.Text = TxtIntro.Text = TxtAuthor.Text = TxtIntro.Enabled = True TxtNum.Enabled = True TxtName.Enabled = True TxtPub.Enabled = True TxtAuthor.Enabled = True CBOClass.Enabled = True TxtNum.SetFocus CmdConfirm.Enabled = True Unload MeEnd SubPrivate Sub CmdConfirm_Click() Dim Num As Long, Str1 As String, TxtStr As String TxtStr = TxtNum.Text ADO1.CommandType = adCmdTable ADO1.RecordSource = book ADO1.Refresh If TxtStr Then While Not ADO1.Recordset.EOF Str1 = ADO1.Recordset!书号 ADO1.Recordset.MoveNext If TxtStr = Str1 Then MsgBox 已有此书号存在，请输入其他书号！, vbOKOnly, 提示 Exit Sub End If Wend If TxtStr And TxtName.Text And TxtPub.Text And TxtAuthor.Text And TxtIntro.Text And Idx Then TxtIntro.Enabled = False TxtNum.Enabled = False TxtName.Enabled = False TxtPub.Enabled = False TxtAuthor.Enabled = False CBOClass.Enabled = False Set Rcdst = ADO1.Recordset If (Not ADO1.Recordset.BOF) And (Not ADO1.Recordset.EOF) Then Rcdst.MoveLast End If Rcdst.AddNew Rcdst!书号 = Trim(TxtStr) Rcdst!书名 = Trim(TxtName.Text) Rcdst!出版社 = Trim(TxtPub.Text) Rcdst!作者 = Trim(TxtAuthor.Text) Rcdst!简介 = Trim(TxtIntro.Text) Rcdst!bindex = Trim(Str(Val(Trim(Idx) Rcdst!是否借出 = 否 Rcdst.Update ADO1.Refresh FrmAddBook.Enabled = False CmdConfirm.Enabled = False refreshDelay Else MsgBox 数据项为空或分类名不正确！请输入正确并且完整的数据！, vbOKOnly, 提示 Exit Sub End If Else MsgBox 书号不能为空！, vbOKOnly, 提示 Exit Sub End IfEnd SubPrivate Sub Form_Load() ADO1.ConnectionString = Frmmain.ADO1.ConnectionString LoadCBOAdd CBOClass, ADO1, idx Idx = CBOClass.Text = TxtNum.Text = End SubPrivate Sub Form_Unload(Cancel As Integer) Frmmain.Enabled = True ElemCnt = viewAllBooks(Frmmain.ADO1) Frmmain.SB1.Panels(1).Text = 浏览全部图书。 Frmmain.SB1.Panels(2).Text = 全部共有 & Trim(Str(ElemCnt) & 条记录。End SubPrivate Sub TxtAuthor_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubPrivate Sub TxtIntro_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubPrivate Sub TxtName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubPrivate Sub TxtNum_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubPrivate Sub TxtPub_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdConfirm_Click End IfEnd SubOption ExplicitDim Rcdst As Recordset, Idx As StringPrivate Sub refreshDelay() Label1.Caption = 正在写数据库数据. Timer1.Enabled = TrueEnd SubPrivate Sub CmdCancel_Click() Unload MeEnd Sub添加书类Private Sub CmdConfirm_Click() Dim Str1 As String TxtClassName.Enabled = False CmdConfirm.Enabled = False CmdCancel.Enabled = False If Not ADO1.Recordset.BOF Then ADO1.Recordset.MoveFirst End If If TxtClassName.Text Then While Not ADO1.Recordset.EOF Str1 = ADO1.Recordset!类别 ADO1.Recordset.MoveNext If Str1 = TxtClassName.Text Then MsgBox 已有同名书类存在，清输入其他类别名！, vbOKOnly, 提示 TxtClassName.Enabled = True CmdConfirm.Enabled = True CmdCancel.Enabled = True Exit Sub End If Wend Set Rcdst = ADO1.Recordset If (Not ADO1.Recordset.EOF) And (Not ADO1.Recordset.BOF) Then Rcdst.MoveLast End If Rcdst.AddNew Rcdst!类别 = Trim(TxtClassName.Text) Rcdst!iindex = Trim(Idx) Rcdst.Update ADO1.Refresh FrmAddClass.Enabled = False refreshDelay Else MsgBox 清输入图书种类名称！, , 提示 CmdConfirm.Enabled = True CmdCancel.Enabled = True TxtClassName.Enabled = True End If ADO1.CommandType = adCmdText ADO1.RecordSource = insert into idx values( & Trim(Text1.Text) & , & Trim(TxtClassIndex) & ); ADO1.RefreshEnd SubPrivate Sub Form_Load() ADO1.ConnectionString = Frmmain.ADO1.ConnectionString ADO1.CommandType = adCmdTable ADO1.RecordSource = idx ADO1.Refresh Idx = Trim(Str(SeekFreeIndex(ADO1, idx) Label2.Caption = 类别索引号： & IdxEnd SubPrivate Sub Form_Unload(Cancel As Integer) Frmmain.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Dim Temp As String Temp = Trim(Frmmain.CBOClass.Text) Frmmain.CBOClass.Clear LoadCBO Frmmain.CBOClass, ADO1, idx Frmmain.CBOClass.Text = Temp Timer1.Enabled = False FrmAddClass.Enabled = True Label1.Caption = Idx = Trim(Str(SeekFreeIndex(ADO1, idx) Label2.Caption = 类别索引号： & Idx TxtClassName.Text = TxtClassName.Enabled = True TxtClassName.SetFocus CmdConfirm.Enabled = True CmdCancel.Enabled = True Unload MeEnd SubPrivate Sub TxtClassName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtClassName.Enabled = False CmdConfirm.Enabled = False CmdCancel.Enabled = False CmdConfirm_Click End IfEnd Sub借书Private Sub CmdCancel1_Click() Unload MeEnd SubPrivate Sub CmdCancel2_Click() Unload MeEnd SubPrivate Sub CmdConfirm1_Click() Dim Exist As Boolean, BookNum As String, Sel As Integer Exist = False If TxtNum.Text Then ADO1.CommandType = adCmdTable AD