《图书管理系统》系统文档

图书管理系统题目：图书管理系统学号：0100001学生姓名：王明专业：计算机信息系班级：计算机0102班目录一、系统分析 (1)1、开发背景 (1)2、可行性分析 (1)1）、社会可行性分析 (1)2）、经济可行性分析 (1)3）、技术可行性 (1)二、需求分析 (2)1、系统建设的管理可行性（具体分工）和系统的初步调查 (2)2 系统的组织结构 (2)3 流通部的业务流图 (3)4 数据流程图 (4)数据字典 (7)三、系统设计 (8)1 设计时必须遵循以下设计原则： (8)2 总体设计如下图： (8)3、人机界面的设计 (9)4、系统建设详细设计 (11)1）数据库设计 (11)2）ER概念结构设计 (12)四、系统的实施 (13)（一）系统实施的准备 (13)（二）系统实施 (13)1、借书实施结果如下： (14)2、还书的实施结果如下 (14)五、系统运行与维护 (16)六、系统结论 (17)七、代码如下： (17)1、借书管理界面的代码 (17)2、还书管理的代码： (20)一、系统分析1、开发背景在当前，信息技术的飞速发展，要求人们在处理日常事务的过程中，越来越多地借助计算机来处理事务。

所以21世纪是一个信息化的社会，因此为了不落后于社会，为了更方便快捷地处理图书管理工作，就导致了信息系统的产生。

2、可行性分析1）、社会可行性分析伴随信息技术越来越来越成熟，人们对于信息技术的掌握也越来越来迅速，于是在图书管理的过程中自然地出现了信息管理的概念。

这就要求人们建立新的图书管理体系，于是图书管理系统应运而生。

2）、经济可行性分析随着系统开发软件技术的成熟，人们越来越多的关注各种各样的系统软件。

软件的成本也在逐年下降，对于购买或者开发一种实用软件已不是一件遥不可及的事。

人们在日常图书管理的活动中，一旦引入图书管理系统，那么将大大节省人力、物力、时间、金钱等资源，不仅方便了工作人员的管理，也增加了读者查找、借阅图书的便利，甚至说，在很大程度上将促进信息化的进程，所以说在经济上，开发或者引入一个图书管理系统是可行的。

3）、技术可行性由于计算机技术的飞速发展，各种软、硬件技术不断的更新换代，操作系统的成熟与完善，给人们带来了前所未有的选择余地。

也就是说，技术上已不存在什么问题。

比如本系统就是由VB与ACCESS数据库相结合而设计出来的，它的应用环境是：Windows 2000/2003/XP 操作系统、VB6.0、ACCESS数据库、CPU为100~200MHZ或者更高、硬盘要求最小配置为100M。

计算机内存要求为256M以上；而且图书管理系统的交互界面非常友善，只需要通过简单的培训就可以使用。

不仅节省了大量的人力，用户也可根据需要设置不同的权限，实现不同的操作，所以在技术方面来说，完全可行。

在当今社会，科学技术不断进步，计算机技术日臻完善，其强大的功能已被越来越多的人接受，它已经融入到了人类社会的各个领域，并起着越来越重要的作用。

人们对于计算机的应用，已经深入到日常生活的方方面面，具有手工管理无以比拟的优势，例如：查找方便、检索迅速、可靠性高，储存量大，保密性好，寿命长，成本低等，这些都伴随着各事企单位的科学化、正规化管理的进程。

因此，很有必要开发一套图书管理软件。

二、需求分析1、系统建设的管理可行性（具体分工）和系统的初步调查我们组一共有三人，分别是王明、童丽、吴强。

我们组的系统分析是一起讨论、调查而得出的。

其中具体的工作安排是大家按照不同模块去进行设计，包括业务流图、数据流图、数据字典、ER图、各个模块功能的实现以及人机界面、程序代码的设计等。

（也就是说，每个人的文档中都涉及到了整个文档的制作流程）其中：童丽（组长），负责督促和协调大家的分工、工作的进程以及整体的校对、综合管理模块的各种设计；王明，负责流通管理模块的各种设计和系统说明书，吴强，负责图书管理模块的各种设计和美工；首先我们确定的是图书管理系统涉及的部门有哪些，以及系统的范围。

我们通过网上调查、去图书馆查询资料、走访学校图书馆等方式取得资料；最终我们确定了它的组织结构。

本系统的研究势必涉及到与之相关的各个部门，包括整个入馆、查阅、借书、出馆的调查。

2 系统的组织结构从行政和职能分工角度看，图书馆的组织结构图如下：图2-1 组织结构图3 流通部的业务流图经过我们的调查和了解，图书馆的业务流程图如下：（图2-1）业务流程图是用图形的方式反映企业实际业务处理过程的“流水账”。

基本图形符号如：业务处理单位；业务处理功能描述；业务流具体的业务流程图如下：图3-1 流通部业务流程图系统的业务流程图概括描述系统的主要功能，比如书籍流通的管理等。

以上是我做的这个模块的粗略的概括。

在之后的工作中我们将进一步展开，使这个系统的业务更加详细、清楚。

4 数据流程图数据流程图是一种能全面地描述信息系统逻辑模型的主要工具，它可以用少数几种符号综合地反映出信息在系统中的流动、处理和存储情况；是在对系统调查阶段绘制的业务流程图进行分析的基础上，从系统的科学性、管理的合理性、实际运行的可行性角度出发，将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上精确地描述新系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向。

首先将整个系统按总的处理功能画出数据关联图，如图：图4-1 系统总体功能的数据关联图明显，图书管理系统功能的实现将涉及流通部、书库管理中心和办公室各个组织部门。

不但要将他们所需的资料详细的输送过去，而且要随时地沟通联系。

以便随时对系统进行维护和修改。

（以下是我做的有关我的两个模块的数据流程图和数据字典）数据流程图图例说明如下：外部实体逻辑处理数据存储数据流具体数据流程图如下：图4-2 图书管理系统顶层DFD图4-6 流通管理子系统DFD数据字典数据字典的作用是给数据流程图上的每个成分以定义和说明。

图书管理系统的数据流程图加上数据字典，能给出一个具有详细的、具体的文字内容和图形的系统逻辑模型，形成一个完整的说明.由于我做的是采购管理与流通管理两个模块，所以我的数据字典只涉及到这两个部分的说明性文字。

数据项说明（表）数据项定义数据流定义三、系统设计对于系统来说，系统分析阶段已经建立了它的逻辑模型，明确了所要实现的功能，回答了系统“要做什么”，所以，到了系统设计阶段，我们就要完成系统“怎么做”。

系统设计是建立在系统分析的基础上的，实际上需要我们将系统的逻辑模型转换成物理模型，也就是要实现系统的具体功能，确定系统的实施方案。

系统设计包括总体设计和详细设计两个阶段。

我们组在系统总体设计阶段，主要做了它的总体结构设计；而在详细设计阶段，我们呢设计了它的模块功能和处理流程、以及数据库、输入与输出设计。

1 设计时必须遵循以下设计原则：1）效率性原则.2）.质量保证原则3）.可靠性原则4.）可变更性原则5）.经济性原则等。

2 总体设计如下图：3、人机界面的设计4、系统建设详细设计边数据库的具体连接以及功能的实现，还有代码的具体设计。

以下是我做的那部分设计；1）数据库设计我们这次的系统是应用ACCESS数据库软件来设计数据库的，我们的库名是：xxk.mdb。

现将我做的各种表信息描述如下：表1-1 借阅信息表2）ER概念结构设计概念结构就是对与系统有关的人、物、事和概念进行人为的处理，抽出其具有的共性，而忽略其本质的东西。

并把这些特性用各种概念来描述清楚。

概念结构独立于数据库逻辑结构，也独立于支持数据库的DBMS。

它一方面能够充分反映现实世界，包括实体和实体之间的联系，同时又易于向关系、网状、层次等各种数据模型转换。

它是现实世界的一个真实模型，易于理解，便于和不熟悉计算机的用户交换意见，使用户易于参与，当现实世界需求改变时，概念结构又可以很容易地作相应调整。

因此概念结构设计是整个数据库设计的关键所在。

描述概念模型的有力工具是E-R模型。

以下就是本系统的局部E-R图：四、系统的实施（一）系统实施的准备系统实施的任务是实现系统设计阶段提出的物理模型，完成一个可以实际运行的信息系统，交付用户使用。

根据系统文档的要求对系统软硬件的要求，选择合适的系统运行环境，做好软件的安装和调试，包括数据库软件，系统软件，以及部分的程序。

当然，整个过程需要相关人员来做。

但是这些人员必须经过培训，使他们熟悉系统，逐步适应系统的各种操作。

同时，还要准备各种必需的数据信息，建立合理、有效的数据库等。

（二）系统实施指的是具体程序的运行，数据库的链接，界面效果的检查。

查找可能存在的错误，尽早排除，并适当修复系统的漏洞等。

系统实施的截图如下：1、借书实施结果如下：2、还书的实施结果如下五、系统运行与维护管理信息系统在完成系统实施、投入正常运行之后，就进入了系统运行与维护阶段。

系统维护的目的是保证管理信息系统正常而可靠地运行，并能使系统不断得到改善和提高，以充分发挥作用，也就是为了保证系统中的各个要素随着环境的变化始终处于最新的、正确的工作状态。

管理信息系统是一个复杂的人机系统，系统外部运行环境与内部因素的变化，不断影响着系统的正常运行，这就需要不断的改善和更新系统，以提高系统的运行效率和服务水平，就需要从始至终进行系统的维护工作。

系统维护工作主要包括：1、数据维护：除对系统中主体业务数据的定期正常更新外，对其它数据也应该进行不定期的更新，以及数据内容的增加、数据结构的调整、数据的备份与恢复等。

2、代码维护：随着系统应用范围的扩大、应用环境的变化，系统中的各种代码都需要进行一定程度的增加、修改、删除，以及设置新的代码。

3、系统应用程序维护：系统维护的主要活动是对程序进行维护。

由于系统为可避免的存在着一些错误，这就需要对系统进行一定的纠错性维护；当环境发生变化时，为了使系统适应环境的变化还需要进行适应性维护；对用户在使用过程中推出的扩充原有系统功能，提高其性能的要求，要进行完善性维护。

其中完善性维护是系统维护工作的主要内容。

4、硬件设备维护：主要是对各工作站的电脑设备及通讯线路的故障进行检修，以保证系统正常有效地运行。

六、系统结论通过图书管理系统的开发，熟悉系统制作过程，建立信息系统分析的概念，熟练运用所学的各种知识，包括各种图表的制作以及各类流程图、ER图的制作，加深信息系统分析与设计课程的熟练理解和运用。

通过这一系统的开发，我们对于系统分析的综合运用的能力得到了提高，培养了大家的合作精神与友谊。

虽然我们的系统做出来了，但依然很不完善，如果有下次，我们一定会做的更好！七、代码如下：1、借书管理界面的代码Private Sub Command1_Click(Index As Integer)Dim jieshu As New ADODB.RecordsetDim sql As StringIf Option2.Value = True Thensql = "书名='" & Trim(Text1(0).Text & " ") & "'"End IfIf Option8.Value = True Thensql = "类别代码='" & Trim(Combo1(1).Text & " ") & "'"End IfIf Option6.Value = True Thensql = "图书编码='" & Trim(Text3(1).Text & " ") & "'"End IfIf Option7.Value = True Thensql = "作者='" & Trim(Text2(1).Text & " ") & "'"End IfIf Option4(1).Value = True Thensql = "是否借出='否'"End IfIf Trim(sql) = "" ThenMsgBox "请选择查询方式！", vbOKOnly + vbExclamationExit SubEnd Ifsql = "select * from 图书信息where " & sqljieshu.CursorLocation = adUseClientjieshu.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = jieshuEnd SubPrivate Sub Command2_Click(Index As Integer)If Trim(xuanshu) = "" ThenMsgBox "请选择要借阅的图书！", vbOKOnly + vbExclamation Exit SubEnd IfDim sd As New ADODB.Recordsetsql = "select * from 图书信息where 图书编码='" & xuanshu & "'" sd.Open sql, conn, adOpenKeyset, adLockPessimisticIf sd.Fields(6) = "是" ThenMsgBox "该书已被借出！", vbOKOnly + vbExclamation Exit SubEnd IfUnload MeForm7.ShowEnd SubPrivate Sub Command3_Click(Index As Integer)Unload MeMDIForm1.ShowEnd SubPrivate Sub Form_Load()Dim find As New ADODB.RecordsetDim sql As StringDim jieshu As New ADODB.Recordsetsql = "select * from 图书信息where 是否借出='否'"jieshu.CursorLocation = adUseClientjieshu.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = jieshusql = "select * from 图书类别"find.Open sql, conn, adOpenKeyset, adLockPessimisticfind.MoveFirstIf Not find.EOF ThenDo While Not find.EOFCombo1(1).AddItem find.Fields(0)find.MoveNextLoopCombo1(1).ListIndex = 0End Iffind.CloseEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) xuanshu = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Option2_Click()Text2(1).Text = ""Text3(1).Text = ""Text2(1).Enabled = FalseText3(1).Enabled = FalseText1(0).Enabled = TrueEnd SubPrivate Sub Option4_Click(Index As Integer)Text3(1).Text = ""Text1(0).Text = ""Text2(1).Text = ""Text2(1).Enabled = FalseText3(1).Enabled = FalseText1(0).Enabled = FalseEnd SubPrivate Sub Option6_Click()Text2(1).Text = ""Text1(0).Text = ""Text2(1).Enabled = FalseText3(1).Enabled = TrueText1(0).Enabled = FalseEnd SubPrivate Sub Option7_Click()Text3(1).Text = ""Text1(0).Text = ""Text2(1).Enabled = TrueText3(1).Enabled = FalseText1(0).Enabled = FalseEnd SubPrivate Sub Option8_Click()Text3(1).Text = ""Text1(0).Text = ""Text2(1).Text = ""Text2(1).Enabled = FalseText3(1).Enabled = FalseText1(0).Enabled = FalseEnd SubPrivate Sub Text3_KeyPress(Index As Integer, KeyAscii As Integer)Select Case KeyAsciiCase 47 To 57Case Asc("-")Case Asc("*")Case Asc("#")Case 8Case ElseKeyAscii = 0MsgBox "图书编码只能是数字!", vbOKOnly + vbExclamation, ""End SelectIf Len(Text3(1).Text) < 15 ThenN = Text3(1).TextElseText3(1).Text = CStr(N)MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclamation, ""End IfEnd Sub2、还书管理的代码：Private Sub Command1_Click()If Trim(huanshu) = "" ThenMsgBox "请选择要还的图书！", vbOKOnly + vbExclamationExit SubEnd IfUnload MeForm16.ShowEnd SubPrivate Sub Command2_Click()Unload MeMDIForm1.ShowEnd SubPrivate Sub Command3_Click()Dim hh As New ADODB.RecordsetDim sql As StringIf Option3.Value = True Thensql = "select * from 图书借阅"hh.CursorLocation = adUseClienthh.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = hhElseIf Option1.Value = True Thensql = "图书编码='" & Trim(Text1.Text & " ") & "'"End IfIf Option2.Value = True Thensql = "读者ID='" & Trim(Text2.Text & " ") & "'"End IfIf Trim(sql) = "" ThenMsgBox "请选则查询类别！", vbOKOnly + vbExclamationElsesql = "select * from 图书借阅where " & sqlhh.CursorLocation = adUseClienthh.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = hhEnd IfEnd IfEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) huanshu = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Form_Load()Dim huanshu As New ADODB.RecordsetDim sql As Stringsql = "select * from 图书借阅"huanshu.CursorLocation = adUseClienthuanshu.Open sql, conn, adOpenKeyset, adLockPessimisticSet DataGrid1.DataSource = huanshuEnd SubPrivate Sub Option1_Click()Text2.Text = ""Text1.Enabled = TrueText2.Enabled = FalseEnd SubPrivate Sub Option2_Click()Text1.Text = ""Text1.Enabled = FalseText2.Enabled = TrueEnd SubPrivate Sub Option3_Click()Text2.Text = ""Text1.Text = ""Text2.Enabled = FalseText1.Enabled = FalseEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 47 To 57Case Asc("-")Case Asc("*")Case Asc("#")Case 8Case ElseKeyAscii = 0MsgBox "图书编码只能是数字!", vbOKOnly + vbExclamation, ""End SelectIf Len(Text1.Text) < 15 ThenN = Text1.TextElseText1.Text = CStr(N)MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclamation, ""End IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 47 To 57Case Asc("-")Case Asc("*")Case Asc("#")Case 8Case ElseKeyAscii = 0MsgBox "读者编码只能是数字!", vbOKOnly + vbExclamation, ""End SelectIf Len(Text2.Text) < 15 ThenN = Text2.TextElseText2.Text = CStr(N)MsgBox "号码长度不得超过15位!", vbOKOnly + vbExclamation, "" End IfEn。