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

图书管理信息系统摘 要 这篇论文主要讲述关于图书馆管理信息系统的信息，特别是讨论了关于设计该系统时的思想、方法和过程，以及在细节上分析函数和方法的实现思想。在本论文中讲述的图书馆管理信息系统拥有一个交互式的界面、逻辑的数据库结构。并且在设计数据库时还考虑到了实体完整性约束、参照完整性约束、及尽量减少数据的冗余，在数据库里有包括表、过程、函数、触发器等5个数据库对象。许多涉及到图书、读者的信息的功能在本系统中都有实现。例如，你可以将新书的信息插入到数据库的图书基本情况表里；还可以对已经插入的关于图书的信息进行修改；更重要的是，读者可以从图书馆里借阅书籍。经过多次的测试和运行，本系统能实现其在设计时的所有功能。【关键字】图书、读者、管理系统、数据库BOOKS Management Information SystemAbstract This dissertation mainly talk about information about the system of library, particularly discusses the design thinking ,method and process of creating a library Management Information System and analyses the function and method of realization in detail. This system , which is implemented in our project talked about in this dissertation has a very interactive interface , a very logical database architecture. What has been taken into account most are entity integrity , reference integrity and reduction of data redundancy. There are 5 database objects in total, including tables , procedure , trigger and so on. Many kinds of functions related to book or reader closely have been implemented in our system .For example: you can insert the information of a new book into database, you can also alter the information which has been inserted , more important ,the reader can borrow book from the library.After being tested many times ,the system can be run well !【Keywords】Book、Reader、Management System、Database 目录第一章 系统概述11.1 系统开发背景和意义11.2 开发环境1第二章 系统需求分析12.1 任务概述12.2 数据描述(数据流图+数据字典)22.3 功能需求62.4性能需求6第三章 系统总体设计73.1 新的业务流程73.2 系统功能模块图73.3 系统的流程图8第四章 详细设计104.1 程序流程图104.2 程序输入输出描述114.2.1 主模块114.2.1 学生管理模块124.2.2 图书管理模块124.2.3 借阅管理模块124.2.4 归还管理模块124.2.5 管理措施设置模块124.3 程序接口描述124.3.1 外部接口124.3.2 内部接口124.4 数据库的设计134.4.1 数据库的逻辑设计13第五章 编码实现145.1 程序编码14第六章 测试分析报告316.1 测试计划和要点316.1.1 主模块测试要点326.1.2 借阅模块测试要点326.1.3 学生查询模块测试要点326.1.4 图书查询模块测试要点326.1.5 图书归还模块测试要点326.2 测试用例336.2.1 主模块测试用例336.2.2 借阅模块测试用例336.2.3 学生查询模块测试用例346.2.4 图书查询模块测试用例356.2.5 图书归还模块测试用例356.3 测试结果及结论366.3.1 测试的结果366.3.2 缺陷分析及改进386.3.3 测试结论38总结39参考文献40第一章 系统概述1.1 系统开发背景和意义图书管理是高校内每一个系部或院部都必须切实面对的工作，但一直以来人们使用传统的人工方式管理图书资料。这种方式存在着许多缺点，如效率低、保密性差且较为繁琐。另外，随着图书资料数量的增加，其工作量也将大大增加，这必将增加图书资料管理者的工作量和劳动强度，这将给图书资料信息的查找、更新和维护都带来了很多困难。经过详细的调查，目前我国各类高等学校中有相当一部分单位图书资料管理还停留在人工管理的基础上。这样的管理机制已经不能适应时代的发展，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，这种传统的手工管理方法必然被以计算机为基础的信息管理方法所取代。图书管理作为计算机应用的一个分支，有着手工管理无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高图书管理的效率。因此，开发一套能够为用户提供充足的信息和快捷的查询手段的图书管理系统，将是非常必要的，也是十分及时的。1.2 开发环境开发环境的选择会影响到数据库的设计，所以在这里给出图书管理系统开发与运行环境的选择如下：开发环境：Windows XP开发工具：Visual Basic 6.0数据库管理系统： SQL Server 2000数据库服务器： SQL Server 2000 桌面引擎第二章 系统需求分析2.1 任务概述经过对我校详细调查，并多次与负责图书管理的老师进行研讨后，加深了对现行图书管理业务的深刻了解，与此同时，将整个图书管理的业务流程抽象描述如下：1.新的图书购进后，分门别类地进行归并并汇总，加以编号。2.新书编号后，上到书架以备学生借阅。3.如某学生需要借阅图书，则在其本人的借阅登记表上进行登记，记录相关借阅信息与借阅日期。4.学生借阅图书后，应及时归还图书，并在本人的借阅登记表上注明还书日期和时间。根据以上调查分析，可以给出其现行业务流程图如图2.1所示。图2.1 现行图书管理业务流程图2.2 数据描述(数据流图+数据字典)经过详细的调查，我们已经清楚了解了现行的业务流程，接下来给出系统的逻辑模型。构造系统逻辑模型的工具是数据流图和数据字典。根据现行图书管理的业务流程，首先把数据流图中的源点和终点都选定为学生，因此可以得到图书管理系统的基本系统模型，如图2.2所示。图2.2 图书管理系统的基本系统模型根据基本系统模型，对其逐步细化，得到描述逻辑系统细化后的数据流图，如图2.3所示。图2.3 图书管理系统数据流图（顶层DFD图）对顶层DFD图中的一个加工“学生管理”进行展开，如图2.4。图2.4 细化后数据流图对顶层DFD图中的一个加工“图书管理”进行展开，如图2.5。图2.5 “图书管理”展开对第1层DFD图中的加工进一步进行展开，如图2.6。(1)(2)图2.6 进一步细化数据流图有了系统的数据流图后，还有相当多的数据信息如图书、借阅、归还等信息需要进一步描述，这就是需要定义数据字典，才能把现有的系统描述清楚。图2.7列出了系统的主要数据字典。图2.7 系统主要数据字典2.3 功能需求经过以上详细的用户调查，在现行业务流程和数据分析的基础上，基本可以确定系统设计必须达到的目标。 以下是图书管理系统必须具备的功能：1.新进图书的登记功能：对于购进的新书，系统必须具备图书信息资料的录入功能。2.图书的查询修改功能：当图书资料发生变化，如图书丢失或有错误信息输入时，则应能够及时对数据进行修改和补充。3.借阅的登记，归还的登记功能：系统的主要功能之一，供本校学生借阅图书、归还图书，并进行登记。4.学生信息的增加、删除和修改功能：系统主要功能之一，建立学生信息，并对其进行维护。2.4性能需求为了保证系统能够长期、安全、稳定、可靠、高效的运行，图书管理系统应该满足以下的性能需求：1、系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足学校对信息处理的需求。2、系统的开放性和系统的可扩充性图书管理系统在开发过程中，应该充分考虑以后的可扩充性。例如用户查询的需求也会不断的更新和完善。3、系统的易用性和易维护性图书管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。4、系统的标准性系统在设计开发使用过程中都要涉及到很多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。5、系统的先进性目前计算系统的技术发展相当快，做为图书管理系统工程，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。6、系统的响应速度图书管理系统系统在日常处理中的响应速度为秒级，达到实时要求，以及时反馈信息。在进行统计分析时，根据所需数据量的不同而从秒级到分钟级,原则是保证操作人员不会因为速度问题而影响工作效率。第三章 系统总体设计3.1 新的业务流程根据需求分析的得到的现行业务处理流程，在用户反复研究后，首先确定目标系统的业务流程，其处理流程如图3.1。图3.1 图书管理系统的业务流程针对新的业务流程，现具体描述其功能如下：1.用户登录：系统对用户合法性进行检查。2.图书入库：对新购进的图书分类进行编号，并把图书基本信息录入计算机。3.图书借阅：对已入库的图书，学生可以借阅，并进行登记。4.图书归还：对学生已归还的图书进行归还登记。 5.信息查询：即对所有图书的借阅情况，或学生的基本情况和借阅情况进行查询。6.管理措施：定义系统规定的借阅图书超期时间、超期处罚办法和丢失赔偿办法。3.2 系统功能模块图依据需求分析阶段得到的数据流图，采用软件工程中软件设计的概念和原理，与用户成分协商后，在保证系统基本功能要求的前提下，结合系统新的业务流程确定系统必须具备的所有功能，由此给出图书管理系统的系统功能模块图如图3.2所示。图3.2 图书管理系统功能模块图3.3 系统的流程图依据软件工程的基本原理，综合以上分析给出系统流程图如图3.4所示。图3.4 系统流程图第四章 详细设计4.1 程序流程图依据软件工程的基本原理，详细设计阶段的根本任务是确定应该怎样具体实现所要求的系统，也就是说，经过这个阶段的设计工作，应该得出对目标系统的精确描述，从而在系统实现阶段可以把这个描述直接翻译成用某种程序设计语言书写的程序。具体来说就是把经过总体设计得到的各个模块详细的加以描述。由于本系统采用支持面向对象的Visual Basic 6.0作为开发工具，而Visual Basic 6.0采用事件驱动的编程机制，所以在此给出软件系统的主程序流程图，如图4.1所示。图4.1 主程序流程图根据以上主程序的流程图，我们可以得出下面的关于各个模块的程序流程图，如图4.2所示。 图4.2 程序流程图4.2 程序输入输出描述4.2.1 主模块1.输入项目：操作系统传递至的各种消息以及用户的输入数据。2.输出项目：用户界面显示。4.2.1 学生管理模块1.输入项目：与学生管理操作子对话框有关的用户输入及系统消息。2.输出项目：操作结果显示。4.2.2 图书管理模块1.输入项目：用户口令。2.输出项目：相应的界面。4.2.3 借阅管理模块1.输入项目：学生学号、图书编号。2.输出项目：学生信息、相关借书信息。4.2.4 归还管理模块1.输入项目：图书编号。2.输出项目：相关学生信息。4.2.5 管理措施设置模块1.输入项目：用户的输入。2.输出项目：根据用户的输入显示相应的对话框。4.3 程序接口描述4.3.1 外部接口按Windows应用软件用户界面的规范来设计，使用以对话框为主的用户界面，便于用户使用。4.3.2 内部接口模块间接口采用数据耦合方式，通过参数表传送数据，交换信息。4.4 数据库的设计4.4.1 数据库的逻辑设计在需求分析阶段已完成该系统所有的数据分析。根据该阶段所建立的概念模型，已经得出满足系统设计要求的几个关系描述，该阶段的主要工作就是把前一阶段的成果转化为具体的数据库。下面给出概念结构设计得E-R图如图4.3所示。(1) 分E-R图(2) 总E-R图图4.3 概念结构设计E-R图实体：图书（图书编号，书名，作者，出版社，定价，图书类别，图书ISBN号，图书数量） 学生（学生学号，学生姓名，性别，入校时间，毕业时间） 管理员（编号，名字，密码，加入时间）联系：学生管理（图书管理员，学生姓名，学生密码） 图书管理（图书管理员，借阅号，归还号） 查询（图书编号，借阅证号，图书管理员，学生）第五章 编码实现5.1 程序编码登陆界面如图5.1所示。图5.1 登陆界面程序代码如下：Function Check_Password(ByVal UserName As String, ByVal UserPassword As String) As Integer On Error GoTo ER2: If ConnectToServer = True Then Set objRs = New Recordset StrSql = "select cOperatorPassword from tOperators where cOperatorName='" & Trim(cboName.Text) & "'" GetData StrSql 'Reference function to get data If objRs.EOF Then Check_Password = 0 'This Operator not exist Else If txtPassword.Text <> Trim(objRs.Fields("cOperatorPassword").Value) Then Check_Password = 1 ' password error Else Check_Password = 2 'password ok CurrentOpname = Trim(cboName.Text) CurrentOppassword = objRs.Fields("cOperatorPassword").Value 'Here can save a operator grade for expand End If End If objCon.Close Exit FunctionER2: MsgBox Err.Description Check_Password = 255 End IfEnd FunctionPrivate Sub cmdCancel_Click() Unload Me EndEnd SubPrivate Sub cmdOK_Click() Dim intCheck As Integer 'Static intLogTimes to save user login times Static intLogTimes As Integer intLogTimes = intLogTimes + 1 'Save login times If intLogTimes > MaxLogTimes Then 'Over allowed login times then list information MsgBox "You have over allowed loghin times,login failure !", vbCritical, "LoginError" Unload Me Else intCheck = Check_Password(Trim(txtPassword), Trim(cboName) Select Case intCheck Case 0 MsgBox "Your are not a system user !", vbInformation + vbOKOnly, "LoginError" Case 1 MsgBox "Password error ,please check your password !", vbInformation + vbOKOnly, "LoginError" Case 2 Unload Me If CurrentOpname = "Admin" And CurrentOppassword = "1" Then MainWin.mnuOp.Visible = True Else MainWin.mnuOp.Visible = False End If Load MainWin MainWin.Show End Select End IfEnd Sub主界面如图5.2所示。图5.2 程序主界面程序代码如下：Option ExplicitPrivate Sub MDIForm_Activate() If CurrentOpname = "Admin" Then StatusBar2.Panels(1).Text = "管理员：" & CurrentOpname Toolbar1.Buttons(1).Visible = True Toolbar1.Buttons(2).Visible = True Else StatusBar2.Panels(1).Text = "操作员：" & CurrentOpname Toolbar1.Buttons(1).Visible = False Toolbar1.Buttons(2).Visible = False End IfEnd SubPrivate Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuOperation 'Design popup menu End IfEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer) CheckConnect 'Reference function to make objcon break if connection is openEnd SubPrivate Sub mnuAbout_Click() frmAbout.ShowEnd SubPrivate Sub mnuBookQuery_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmBookQuery frmBookQuery.ShowEnd SubPrivate Sub mnuBookRegist_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmBookReg frmBookReg.ShowEnd SubPrivate Sub mnuBorrowQuery_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmReadQuery frmReadQuery.ShowEnd SubPrivate Sub mnuExit_Click() CheckConnect 'Reference function to make objcon break if connection is open Unload Me EndEnd SubPrivate Sub mnuReLogin_Click() CheckConnect 'Reference function to make objcon break if connection is open Unload Me Load frmLogin frmLogin.ShowEnd SubPrivate Sub mnuVipQuery_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmVipQuery frmVipQuery.ShowEnd SubPrivate Sub mnuVipRegist_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmVipReg frmVipReg.ShowEnd SubPrivate Sub munReadRegist_Click() CheckConnect 'Reference function to make objcon break if connection is open Load frmReadRegist frmReadRegist.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Key Case "operatorReg" CheckConnect 'Reference function to make objcon break if connection is open Load frmAdmin frmAdmin.Show Case "vipReg" CheckConnect 'Reference function to make objcon break if connection is open Load frmVipReg frmVipReg.Show Case "vipQuery" CheckConnect 'Reference function to make objcon break if connection is open Load frmVipQuery frmVipQuery.Show Case "BookReg" CheckConnect 'Reference function to make objcon break if connection is open Load frmBookReg frmBookReg.Show Case "bookQuery" CheckConnect 'Reference function to make objcon break if connection is open Load frmBookQuery frmBookQuery.Show Case "readReg" CheckConnect 'Reference function to make objcon break if connection is open Load frmReadRegist frmReadRegist.Show Case "readQuery" CheckConnect 'Reference function to make objcon break if connection is open Load frmReadQuery frmReadQuery.ShowEnd SelectEnd Sub操作员管理界面如图5.3所示。图5.3 操作员管理界面代码如下：Option ExplicitSub SetTextEmpty()'This function is set all text to empty txtOpID.Text = "" txtOpName.Text = "" txtOpPwd.Text = "" cboOpGrade.Text = "" txtOpAddTime.Text = ""End SubSub RefreshOperator()'This function is to Refresh text txtOpID.Text = objRs.Fields(0).Value txtOpName.Text = objRs.Fields(1).Value txtOpPwd.Text = objRs.Fields(2).Value cboOpGrade.Text = objRs.Fields(3).Value ' txtOpAddTime.Text = objRs.Fields(4).ValueEnd SubPrivate Sub cmdAdd_Click() txtOpID.Enabled = True 'You don't change datagrid untill you add data finish dgdOp.Enabled = False If cmdAdd.Caption = "添加" Then cmdAdd.Caption = "确定" SetTextEmpty ' reference settextempty founction to set empty cmdDel.Enabled = False cmdModify.Enabled = False cmdRefresh.Enabled = False txtOpID.SetFocus Else If Trim(txtOpName.Text) = "" Then MsgBox "Operator name must not null ,please input operator name !", vbInformation + vbOKOnly txtOpName.SetFocus Exit Sub ElseIf Trim(txtOpID.Text) = "" Then MsgBox "Operator ID must not null ,please input operator ID !", vbInformation + vbOKOnly txtOpID.SetFocus Exit Sub ElseIf Trim(txtOpPwd.Text) = "" Then MsgBox "Operator password must not null ,please input operator password !", vbInformation + vbOKOnly txtOpPwd.SetFocus Exit Sub Else With objRs checkAddNew = True .Filter = "cOperatorID='" & Trim(txtOpID.Text) & "'" If .RecordCount > 0 Then MsgBox "This operator has been exist !" txtOpID.Text = "" txtOpID.SetFocus .Filter = "cOperatorID<>''" cmdRefresh.Value = True 'To executer refresh once checkAddNew = False cmdDel.Enabled = True cmdModify.Enabled = True cmdAdd.Caption = "添加(&A)" txtOpID.Enabled = False cmdRefresh.Enabled = True dgdOp.Enabled = True checkAddNew = False Exit Sub End If checkAddNew = True .AddNew .Fields(0).Value = Trim(txtOpID.Text) .Fields(1).Value = Trim(txtOpName.Text) .Fields(2).Value = Trim(txtOpPwd.Text) .Fields(3).Value = Trim(cboOpGrade.Text) .Fields(4).Value = Trim(txtOpAddTime.Text) .Update MsgBox "Operator add success !", vbInformation + vbOKOnly .Filter = "cOperatorID<>''" cmdRefresh.Value = True 'To executer refresh once End With checkAddNew = False '-There will refe