(论文)图书管理系统论文(2013年优秀毕业设计论文)

代写：各专业专、本、硕、博毕业论文，职称论文；代发：省级、国家级、核心期刊、CSSCI来源核心期刊论文。QQ:757518360电话：01087832641.图书管理系统论文(VB+SQL)目 录内容摘要2引言.2第一章 课题简介.3第二章 需求分析.42.1图书管理现状.42.2数据流程图. 5第三章 系统逻辑和物理设计.83.1数据库的设计.83.2功能模块的实现.9第四章 调试与分析.504.1存在问题及解决方案.504.2进一步改进设想.50第五章 用户操作说明505.1软硬件环境.505.2应用系统安装.505.3操作手册.50小结.51参考文献.52内容摘要图书管理系统是采用Visual Basic6.0开发的一个数据库管理系统。开发本系统的基本步骤：需求分析、系统概念设计、系统逻辑和物理设计、系统实现和维护。在系统分析中先后用数据字典、数据流程、系统的功能结构图、ER图分析了系统所需的各种数据。在系统的设计过程中,我们采用了模块独立设计法,比较详细的展现了各个模块的功能。在库和表的设计当中, 我们力求层次清晰，设计简单实用。在系统具体实行阶段中，我们精心细致的画出了各个窗体并给出了相应的事件和代码，以实现各个窗体的作用。本系统虽然设计简单，但有一定的实用性。系统的功能较为全面，使用简单，基本上可以作为一般大中小学的图书管理系统。关键字：数据库 SQL 语言 Visual Basic6.0 图书 图书管理 窗体 引言当今时代是飞速发展的的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本，表格等纸介质的手工处理，对于图书借阅情况（如借书天数，超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限，以及借阅天数等用人工计算，手抄进行。数据处理工作量大，容易出错。由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基于环境。基于这个问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时，准确，有效的查询和修改图书情况。第一章 课题简介课题：图书管理系统。任务：针对各大中专院校的图书管理现状，设计出适合一般学校的计算机辅助图书管理系统。实现对图书基本信息、读者基本信息进行计算机辅助管理，完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现.。开发环境：本图书管理开发系统是在Pentyum 4 以上机型的计算机上进行开发并获得通过的，同时方便系统开发，减少开发过程的难度，我们是基于以下的软件环境。以Windows 98为操作系统以Visual Basic6.0为开发工具以Microsoft SQL Server作为后台数据库功能概述：该系统界面完好，操作简便，能完成添加图书信息，修改图书信息，查询图书信息，添加读者类别，修改读者类别，查询读者信息，修改读者信息，添加删除管理员等一系列图书管理功能，开发本系统的总体任务是实现图书管理的系统化和自动化，帮助管理人员更好更高效地完成图书管理工作。本着实用性和介绍性的原则，整个系统由五大模块组成，每个大的模块又包括三至四个小的模块。一、 图书管理部分：包括图书信息管理和类别管理，其功能是实现对各部分数据内容进行添加、修改、查询等操作。二、 借阅管理部分：包括借书管理和还书管理，其功能是实现对各部分数据内容的添加和查询等操作。三、 读者管理部分：包括读者信息管理和读者类别管理，其功能是实现对各部分数据内容的添加和修改等操作。四、 系统管理部分：包括修改系统用户密码和增加新用户两项功能。 五、 帮助部分：显示关于信息。系统具有高效、易操作、易维护等特点，并且系统结构清晰、界面友好，功能较为齐全，能有效地协助管理人员进行图书管工作。如果想真正把它用到图书馆的图书自动化管理中，还需要读者对该系统进行一步的完善工作。第二章 需求分析需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。在这一章里，我将给出系统的数据流图，功能结构图，数据字典，为系统的设计奠定基础。2.1图书管理现状随着计算机技术的飞速发展，其应用方面已渗透到社会生活的各个领域。它已经成为我们学习和工作的得力助手。在学校，尤其是在一些高校，图书是学校的一项重要资源，图书的管理也是学校的一项常规性的重要工作。而长期以来，学生图书管理都是依赖人工进行的。现今，有很多的学校都已经开始使用计算机进行图书信息管理，并且起得良好的效果。近年来我校招生情况越来越好，所以图书管理工作越来越繁重，但由于种种原因，管理人员并没有增加，因此原有的人工管理工作已不能适应现行的工作需要。同时，陈旧的人工管理也不利于推广计算机应用。为使图书管理工作科学化、规范化，就必须采用计算机辅助管理。2.2 数据流程图数据流程图（Data Flow DFD）是描述实际业务管理系统工作流程的一种图形表示法。它描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据流程图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流程图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。图书管理系统主要是为了对图书、读者基本信息等进行计算机管理。下面就是功能模块的流程分析：2.2.1 图书管管理系统基本信息流程流程分析：图书基本信息的流动首先是以图书编号为流动方向的依据，来达到添加、修改、记录、删除图书记录。为了数据的一致性，进行这些操作的同时，也对数据库中的记录进行检查，检查是否有重复的记录。如有则不能进行添加。2.2.2 读者信息管理基本信息流程图流程图分析：读者基本信息的流动首先是以读者的编号为依据，来达到添加、修改、查询、删除读者信息的记录。同时，也对数据库中的读者信息表的编号进行检查。 2.2.3借书管理基本信息流程图 流程图分析：借书管理基本信息的流动首先是以借阅编号为流动方向的依据，来达到添加、查询借书记录。为了数据的一致性，进行这些操作的同时，也对数据库中的记录进行检查，检查是否有重复的记录。如没有则可进行添加。2.2.4 还书管理基本信息流程图流程图分析：借阅管理部分是实现对各部分数据内容的添加和查询操作，在借阅信息中包括图书编号、读者编号，系统对借书日期进行自动添加。并通过添加功能来达到借阅信息表的数据的更新，通过查询功能可使管理员很快地了解借阅信息，从而避免书籍的丢失现象产生。通过上面对各个模块流程的分析，那么我们就不难对整个系统的大致流程有一个全面的认识。设计时采用了常用的自顶向下的瀑布式结构化设计方法。这样系统做起来后就便于用户操作。综合上面各个模块的分析，其总体流程图如下： 启动界面登录 连接数据库， 验证管理员密码进入主画面数据管理 记录浏览 借还操作 系统设置 帮助 显示 关于信息 读者 借阅 借阅 归还 添加 删除记录 记录 书籍 书籍 管理员 管理员添 修 删加 改 除第三章 系统逻辑和物理设计3.1数据库的设计根据上面的结构图，现在需要将数据库结构转化为SQL Server2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。形成数据库中的表格以及各个表格之间的关系。图书管理信息系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。3.1.1图书信息表字段名数据类型说明图书编号文本主键，字段大小4书名文本字段大小10类别文本字段大小10价格货币类型无出版社文本字段大小40入库日期日期/时间无是否借出文本字段大小43.1.2事务信息表字段名数据类型说明借阅编号自动编号无读者编号文本字段大小50图书编号文本字段大小50归还日期日期/时间无出借日期日期/时间无3.1.3读者信息表字段名数据类型说明读者姓名文本字段大小10读者编号文本主键，字段大小4年龄数字无家庭住址文本字段大小103.2功能模块的实现按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。在打开数据表之前应该先打开数据库，系统中创建了一个模块，该模块的作用是连接数据库以及数据库中数据的提取，因为系统需要频繁的使用数据库中的数据，建立模块可以使程序简单化，模块的代码如下：Public cn As ADODB.Connection定义连接以及取记录的对象Public rst As ADODB.Recordset Public Function CnToDB() As BooleanOn Error GoTo My_Debug设定错误机制，当连接错误时转到My_Debug Set cn = New ADODB.Connection With cn设定访问数据库的参数，对象SQLserver，数据库booksys .ConnectionString = provider=sqloledb;uid=sa;pwd=;server=. .ConnectionTimeout = 5 .CursorLocation = adUseClient .Open .DefaultDatabase = booksys End With CnToDB = True Exit FunctionMy_Debug:当出错时，取消连接数据库 Set con = Nothing CnToDB = FalseEnd FunctionPublic Function QueryData(ByVal strSql As String) As Boolean On Error GoTo My_Debug If CnToDB = True Then当连接到数据库后才能取得记录 Set rst = New ADODB.Recordset With rst定义取记录的参数 .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With QueryData = True End If Exit Function My_Debug: Set rst = Nothing QueryData = FalseEnd FunctionPublic Function getRS(ByRef rst As ADODB.Recordset, ByVal strSql As String) As BooleanOn Error GoTo rsErr Set rst = New ADODB.Recordset With rst .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With If rst.State Then getRS = True Exit Function End IfrsErr: getRS = False MsgBox Err.Number & Err.Description, vbCritical + vbOKOnly, 错误信息End Function注意:当程序不再使用数据库时,应该调用Connection对象的Close方法将其关闭,但此时它还会占用一定的系统资源,完全将资源释放给系统的方法是使用下面的语句:Set con=Nothing.不过,这两个步骤往往会被省略,因为当程序关闭时,程序所打开的数据也会随之关闭,Connection对象所占用的系统资源也会自动释放给系统.登录窗体的实现其代码如下：Private Sub Command1_Click()Dim uid定义用户名变量Dim pwd定义密码的变量 Dim strFu As String定义查找用户名的变量 Dim strFp As String定义查找密码的变量 strFu = select * from yh where userid= & Text1.Text & 查找与输入的用户名一致的用户名If QueryData(strFu) Then如果找到了用户名，则保存记录符合记录的条数uid = rst.RecordCountEnd If strFp = select * from yh where pwd= & Text2.Text & If QueryData(strFp) Thenpwd = rst.RecordCountEnd IfIf pwd = 1 And uid = 1 Then用户名与密码数据表里都有则显示主画面MDIForm1.ShowUnload Me关闭本窗口Else MsgBox 您输入的用户名或密码有错误!, vbInformation + vbOKOnly, 登录失败End IfEnd SubPrivate Sub Command2_Click()取消按钮的点击事件Unload MeEnd SubPrivate Sub Form_Load()如果没有连上数据库，则显示相应信息If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfText1.Text = 加载窗体时清空text1与text2的内容Text2.Text = End Sub注意:工程属性对话框中的”启动选项”用来选取择运行VB时显示的第一个窗体,或者Sub Main.主窗体中的代码不多,基本上都是实现单击某个菜单选项即弹出相应窗体的语句,这些语句将分别在各个窗体中介绍。单击“帮助” “关于”菜单，系统代码如下：Private Sub mun_help_about_Click()about.ShowEnd Sub系统主窗体的实现其代码如下：Private rs As ADODB.RecordsetPrivate rs1 As ADODB.RecordsetPrivate rs2 As ADODB.RecordsetPrivate strSql As StringPrivate Sub Command1_Click()borrow.ShowEnd SubPrivate Sub Command2_Click()reback.ShowEnd SubPrivate Sub Command4_Click()Text2.Text = If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查询失败！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End IfEnd SubPrivate Sub Command5_Click()delbook.ShowEnd SubPrivate Sub Image1_Click()Dim strF As String搜索按钮 strF = select * from book where bookname like % & Text2.Text & %If QueryData(strF) Then Set DataGrid1.DataSource = rstEnd IfEnd SubPrivate Sub MDIForm_Load()Text2.Text = If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！, vbCritical + vbOKOnly, Connecting ErrorEnd IfOn Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查询失败！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End If End SubPrivate Sub mun_add_data_recstu_Click()addreader.ShowEnd SubPrivate Sub mun_borr_giv_Click()reback.ShowEnd SubPrivate Sub mun_borr_ow_Click()borrow.ShowEnd SubPrivate Sub mun_data_add_recbook_Click()addbook.ShowEnd SubPrivate Sub mun_del_book_Click()delbook.ShowEnd SubPrivate Sub mun_del_stu_Click()delreader.ShowEnd SubPrivate Sub mun_exp_borrow_Click()booktran.ShowEnd SubPrivate Sub mun_exp_stu_Click()reader.ShowEnd SubPrivate Sub mun_help_about_Click()about.ShowEnd SubPrivate Sub mun_rework_book_Click()reworkbook.ShowEnd SubPrivate Sub mun_rework_stu_Click()reworkreader.ShowEnd SubPrivate Sub mun_sys_admin_Click()addmange.ShowEnd SubPrivate Sub mun_sys_sys_Click()delmange.ShowEnd Sub数据管理的实现当单击数据管理添加书籍记录菜单时，窗体如下：代码如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo nore If MsgBox(确实要添加吗？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Subnore: MsgBox 图书编号重复或者输入错误！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = On Error GoTo fmerr If QueryData(select * from book) = True Then Else MsgBox 查询失败！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End IfEnd SubPrivate Sub upD() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text7.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text5.Text rst.UpdateEnd Sub当单击数据管理添加读者记录菜单时，弹出如下代码：添加读者的窗体代码如下：Private Sub Command1_Click()On Error GoTo error If MsgBox(确实要添加吗？, vbYesNo + vbQuestion, 提示) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Suberror: MsgBox 读者编号重复或者输入错误！, vbOKOnly + vbCritical, 提示End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = On Error GoTo fmerr If QueryData(select * from reader) = True Then Else MsgBox 查询失败！ End If Exit Subfmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End IfEnd SubPrivate Sub upD1() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.UpdateEnd Sub当单击数据管理修改更改书籍菜单时，窗体如下：代码如下：Private Sub Command2_Click()On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.TextEnd Sub当单击数据管理修改更改读者菜单时，窗体如下代码如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command4_Click()On Error GoTo no Call upD3 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command5_Click()Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End IfEnd SubPrivate Sub Form_Load()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub upD3() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.TextEnd Sub当单击数据管理删除删除书籍菜单时，窗体如下代码如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Subno: MsgBox 修改成功End SubPrivate Sub Command4_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 没有数据！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 没有数据 Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command5_Click()Dim strF As String strF = select * from book where bookid like % & Text1.Text & %If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).ValueEnd IfEnd SubPrivate Sub Form_Load() Call txtClsEnd SubPrivate Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.TextEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End SubPrivate Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value Text6.Text = rst.Fields(5).Value Text7.Text = rst.Fields(6).ValueEnd Sub当单击数据管理删除删除读者菜单时，窗体如下代码如下：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 没有数据！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 没有数据 Call txtCls End If Call showDB End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End IfEnd SubPrivate Sub Form_Load()txtClsEnd SubPrivate Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End SubPrivate Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value End Sub当单击记录浏览读者记录菜单时，窗体如下代码如下：Private Sub Command1_Click()Dim strF As StringIf Combo1.Text = 编号 Then strF = select * from reader where readerid like % & Text1.Text & %If Qu