毕业设计（论文）-VB6.0+Access图书管理系统论文.doc

福州教育学院 （ ）届毕业论文（设计）题 目： 系 部： 专业（方向）： 学 号： 姓 名： 提 交 日 期： 指导教师及职称： 25图书管理系统计算机系 初等教育（信息技术）专业 2009届 XXX指导教师：福建教育学院 XXX摘要信息化的来临，面对激烈的市场竞争，在当今信息社会，各行各业都离不开信息处理，计算机的运用越来越广泛，信息管理水平越来越高。图书馆也不再局限于人工手动管理，电子图书馆越来越受青睐。本系统的设计，就是为了方便读者进行图书借阅，方便管理员管理图书信息。本系统采用VB6.0和Access两个软件制作图书管理系统，提高了管理员的管理效率，图书借阅与归还也更加简便、快捷。 关键字：图书管理系统 信息 数据库 Access Visual Basic 6.0目录摘要. 11、引言11.1选题的目的、意义12、图书管理系统开发相关技术介绍12.1 Visual Basic 6.0介绍12.2 Access 介绍23、系统总体设计分析23.1系统需求分析23.2系统实现的目标33.3系统的功能结构图33.4系统的功能模块设计34、 系统总体结构设计44.1、数据库概念结构设计44.2、数据库逻辑结构设计45、图书管理系统详细设计65.1身份登录65.2主界面85.3读者信息管理95.4图书信息管理125.5图书借阅管理175.6系统管理216、期间遇到的问题226.1 建立数据库236.2 VB如何与Access连接236.3 很多控件不知道怎么用237、不足之处238、结论24参考文献.24 正文内容： 1、引言很多图书馆之前由于读者较少，藏书较少等原因，对图书的信息需求不高。随着社会的信息化发展，图书的数量越来越多，种类越来越多样化，因此对信息的需求越来越高，这就有必要建立一个易于管理、易于操作且更加规范的图书管理系统。1.1选题的目的、意义社会的发展，科技的进步，信息技术的广泛应用，数字化管理成为是现代社会的发展趋势。对于学校图书馆，图书馆的规模越来越大，如果局限于人工手动管理，拿着一本记录本，一本书一本书的登记借阅，一个读者一个读者的登记信息，数据量大，严重浪费时间、精力，而且容易出错。像这样中小型的图书馆，为了节约人力物力就有必要建立一个图书管理系统，通过计算机，对馆内图书信息及读者信息进行管理，极大得提高了工作效率，而且查找简便，存储容量大，成本又低，是个很好的选择。2、图书管理系统开发相关技术介绍2.1 Visual Basic 6.0介绍 VB6.0是在Basic语言上发展而来的，以可视化工具进行界面设计，以结构化Basic语言为基础，以事件驱动为运行机制。是目前最流行的程序设计语言之一。Visual Basic 6.0具有以下几个功能：（1）具有面向对象的可视化设计工具；（2）具有事件驱动的编程机制；（3）提供了易学易用的应用程序集成开发环境；（4）提供了结构化的程序设计语言；（5）支持多种数据库系统的访问；（6）采用了OLE技术；（7）采用了ActiveX技术；（8）新增很多实用控件。2.2 Access 介绍本系统使用Access进行数据库的创建，Access是Microsoft推出的Office系列的办公室自动化软件中用于数据库管理。它可以接受和转换多种文件格式的数据，并且能够方便的对现存数据库系统进行扩展和升级。它是一个中、小型的数据库管理系统，它的数据库文件储存于*.MDB文件中，数据的输入、查询非常简便。可以高效地进行数据库开发和管理工作。它具有以下特点：（1）完整的数据库管理功能Access提供了一套用于组织数据、建立查询、共享数据等功能，这些功能可以完成管理的各项工作。（2）高度智能化的向导功能从创建窗体、报表中的各种控件，到创建Access表、查询、数据页等基本对象，都可以使用向导功能，在向导的帮助下，很多复杂的工作也变得简单。（3）方便操作的图形界面Access的图形界面是标准的Windows窗口形式，独具特色的图形化查询设计，使原来需要编写大量代码的工作也只需拖动鼠标就可以完成。3、系统总体设计分析3.1系统需求分析系统需求分析工作是系统生命周期中重要的一个环节，也是决定性的一步。只有经过系统需求分析，才能了解用户对系统的功能和性能的要求，并将其转换为具体的需求规格说明，为系统的设计打下基础。调查发现，现代的人们希望图书馆完成的不仅仅是借书和还书的功能，而更多的是对图书和借阅者信息的管理，因为这些信息管理起来相对麻烦，比较浪费时间精力，效率不高又容易出错，所以有必要让这些繁琐的程序通过计算机来执行。本系统的图书管理涉及图书信息、读者信息、图书借阅、系统管理等管理功能，实现基本的用户需求。3.2系统实现的目标本图书管理系统设计目的是实现图书管理的系统化、自动化，帮助图书管理人员更好更有效地完成图书管理工作。（1）强大的查询功能，查询灵活（2）操作界面简洁，易于用户操作（3）数据存储具有安全性和可靠性（4）管理员和一般会员身份区别清晰，权限清晰（5）实现图书借阅与归还的全程数据信息追踪3.3系统的功能结构图图31图书管理系统功能结构图3.4系统的功能模块设计 3.4.1 图书管理部分 图书信息管理主要实现图书的录入、查询，图书信息的修改。一般会员可以方便地查询馆内图书信息，即馆内藏书以及是否被借出，界面简洁，容易操作。图书的录入和信息的修改只能由管理员来实现，管理员可以在登录后对馆内图书的信息记录进行修改，包括图书类别的添加与删除、修改，图书信息的添加、修改等，操作简单，方便管理员对图书的管理。 3.4.2 读者管理部分 读者信息管理主要实现对读者信息的查询、修改等功能，一般会员同样只能查询读者的信息，读者可以查询自己借了哪些书，何时借的，以便在规定时间内可以归还所借图书。修改功能只能在管理员权限下才可操作，管理员可以添加读者信息，修改读者信息，确保管理系统录入的都是读者的最新信息，可以在需要的时候联系到借阅者。 3.4.3借阅管理部分 图书的借阅管理全部由管理员操作，一般会员是没有权限的。包括图书的借阅与归还等操作，以及帮助统计已借出书与馆内存书情况。管理员可以通过录入读者的信息和图书的信息、借阅日期等来实现对图书的借阅，同样的，录入图书和读者信息、还书日期实现还书。 3.4.4系统管理部分 系统管理功能也只能在管理员的权限下才可操作，管理员可以在登录账户后，进行添加会员和账户密码的修改。4、 系统总体结构设计4.1、数据库概念结构设计数据库是存放数据的仓库，只不过这个仓库是建在计算机存储设备上的，而且数据按照一定的格式存放。也就是说数据库是长期存储在计算机内的、有组织的、可共享的数据集合。数据库概念结构设计是整个数据库设计的又一个关键，它通过对用户需求进行综合、归纳与抽象，形成于独立于具体的概念模型。4.2、数据库逻辑结构设计逻辑结构设计是将概念结构转换成DBMS能够接受的数据模型，并对其优化。4.2.1图书信息实体属性首先，一个图书馆最重要的就是对馆内图书的管理，所以要创建一个关于图书信息的数据表。图41图书信息实体属性图4.2.2读者信息实体属性再者就是对图书馆的用户进行信息的存储，需要存储读者的详细信息，这也是图书管理必不可少的一部分。图42读者信息实体属性图4.2.3借阅信息实体属性然后就是图书管理系统中的图书借阅与归还，需要将读者信息与图书信息联系起来，图书借阅与归还是图书管理最重要的环节。图43借阅信息实体属性图4.2.4读者类别实体属性读者类别用来记录读者的分类及其具有的权限。图44读者类别实体属性图4.2.5图书类别实体属性图书类别主要用于管理员对图书的管理工作，方便查找与整理。图45图书类别实体属性图4.2.6用户实体属性用户实体是用于用户第一次在本图书馆借阅浏览，需先注册一个账号，方便之后的借阅与归还操作。图46用户实体属性图5、图书管理系统详细设计 5.1身份登录本系统设计登录的身份分为管理员与会员。注册过的用户使用账号密码登录，选择身份进入管理员或者会员的界面，进行一系列的操作。这个界面的设计只是用了简单的几个控件：CommandButton（按钮）、Textbox（文本框）、Label（标签）具体代码：Option ExplicitDim cnt As Integer '记录确定次数Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "library.mdb"If Trim(Text1.Text) = "" Then MsgBox "用户名不能为空，请重新输入！" Text1.SetFocus Else sql = "select * from 用户表 where user_ID='" & Trim(Text1.Text) & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, "" Text1.Text = "" Text1.SetFocus Else username = Text1.Text If Trim(rs_login.Fields(1) = Trim(Text2.Text) Then If Combo1.Text = "管理员" Then Unload Me 管理员.Show Else Unload Me 会员.Show End If Else MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, "" Text2.SetFocus Text2.Text = "" End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load()cnt = 0End Sub5.2主界面主界面有两个，管理员和会员的界面。这里运用到菜单编辑器，使用菜单编辑器可以在当前窗口添加菜单栏，方便使用者选择系统的各种功能。菜单编辑器可以通过单击工具栏中的“菜单编辑器”按钮打开其对话框，也可以通过菜单栏中的“工具”菜单>“菜单编辑器”打开。需要注意的是，其中必须要填的是“标题”和“名称”。关键代码：Private Sub bzxx_Click() On Error GoTo ERRB '打开帮助文件 dlgCommonDialog.HelpCommand = &HB& dlgCommonDialog.ShowHelpERRB:End Sub5.3读者信息管理读者信息管理主要包括读者信息的查询与修改。5.3.1查询读者信息 查询读者信息的界面运用了更多的控件：DataGrid Combo1 Check 等，利用DataGrid控件列出所要查询的信息，如果是刚安装的VB在工具箱中是找不到这个控件的，需要在“工程”菜单中点击“部件”打开部件对话框，在其中勾选“Microsoft DataGrid Control 6.0（sp6）（OLEDB）”，点击“确定”，这样控件就会显示在工具箱中了，直接使用就可以了。关键代码：Private Sub Command1_Click()If Check1.Value = vbChecked Then sql = "读者编号='" & Trim(Text1.Text & "") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "读者姓名='" & Trim(Text2.Text & " ") & "'" Else sql = sql & "and 读者类别='" & Trim(Text2.Text & " ") & "'" End IfEnd Ifsql = "select * from 读者信息 where " & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseEnd Sub5.3.2修改读者信息关键代码：Private Sub Command1_Click() Dim answer As String On Error GoTo Command1 Command2.Enabled = False Command1.Enabled = False Command3.Enabled = True Command4.Enabled = True DataGrid1.AllowUpdate = True Exit Sub Command1: If Err.Number <> 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub Form_Load() sql = "select * from 读者信息" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimisticCommand3.Enabled = False Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_reader Exit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer) Set DataGrid1.DataSource = Nothing rs_reader.CloseEnd Sub5.3.3添加读者类别关键代码：Private Sub Command1_Click() Dim rs_readerstyle As New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "读者种类不能为空 ", vbOK0nly + vbExclamation, "" Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = "" Then MsgBox "借书数量不能为空", vbOK0nly + vbExclamation, "" Text2.SetFocus Exit Sub End If If Trim(Text3.Text) = "" Then MsgBox "借书期限不能为空", vbOK0nly + vbExclamation, "" Text3.SetFocus Exit Sub End If sql = "select * from 读者类别 where 种类名称='" & Text1.Text & "'" rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_readerstyle.EOF Then rs_readerstyle.AddNew rs_readerstyle.Fields(0) = Trim(Text1.Text) rs_readerstyle.Fields(1) = Trim(Text2.Text) rs_readerstyle.Fields(2) = Trim(Text3.Text) rs_readerstyle.Update MsgBox "添加读者类别成功!", vbOKOnly, "" rs_readerstyle.Close Else MsgBox "读者类别重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_readerstyle.Close Exit Sub End If End Sub5.4图书信息管理 5.4.1添加图书类别关键代码：Private Sub Command1_Click()Dim rs_bookstyle As New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "图书种类不能为空 ", vbOK0nly + vbExclamation, "" Text1.SetFocus Exit Sub End Ifsql = "select * from 图书类别 where 类别名称='" & Text1.Text & "'" rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text2.Text) rs_bookstyle.Update MsgBox "添加图书类别成功!", vbOKOnly, "" rs_bookstyle.Close Else MsgBox "图书类别重复！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_bookstyle.Close Exit SubEnd IfEnd Sub5.4.2修改图书类别关键代码：Private Sub Command2_Click() Dim answer As String answer = MsgBox("确定要删除吗？", vbYesNo, "") If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh Else Exit Sub End IfEnd SubPrivate Sub Form_Load() On Error GoTo loaderror sql = "select * from 图书类别" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimisticCommand3.Enabled = False Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_reader Exit Subloaderror: MsgBox Err.DescriptionEnd Sub5.4.3添加图书信息 关键代码：Private Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim conn As New ADODB.ConnectionDim sql As Stringconn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "library.mdb"sql = "select * from 图书类别"rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseEnd Sub 5.4.4查询图书信息 关键代码：Private Sub Command1_Click()If Option2.Value = True Then sql = "select * from 图书信息 where 是否被借出='是'" End If If Option3.Value = True Then sql = "select * from 图书信息 where 是否被借出='否'" End If If Option1.Value = True And Text1.Text <> "" Then sql = "select * from 借阅信息 where 读者姓名='" & Text1.Text & "'" ElseIf Option1.Value = True And Text1.Text = "" Then MsgBox "请输入读者姓名！", vbOKOnly + vbExclamation Text1.SetFocus Exit Sub End If rs_find.CursorLocation = adUseClient rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_findEnd Sub 5.4.5修改图书信息 关键代码：Private Sub Form_Load() sql = "select * from 图书信息" rs_book.CursorLocation = adUseClient rs_book.Open sql, conn, adOpenKeyset, adLockPessimisticCommand3.Enabled = False Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_book Exit Subloaderror: MsgBox Err.DescriptionEnd Sub5.5图书借阅管理 5.5.1借书管理关键代码：Option ExplicitDim panduan As StringIf Check1.Value = vbChecked Then sql = "图书名称 like '%" & Trim(Text1.Text & "") & "%'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "图书类别 like '%" & Trim(Combo1.Text & "") & "%'" Else sql = sql & "and 图书类别 like '%" & Trim(Combo1.Text & "") & "%'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql = "图书作者 like '%" & Trim(Text2.Text & "") & "%'" Else sql = sql & "and 图书作者 like '%" & Trim(Text2.Text & "") & "%'" End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = "" Then sql = "图书编号 like'%" & Trim(Text3.Text & "") & "%'" Else sql = sql & "and 图书编号 like'%" & Trim(Text3.Text & "") & "%'" End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = "" Then sql = "出版社 like '%" & Trim(Text4.Text & "") & "%'" Else sql = sql & "and 出版社 like '%" & Trim(Text4.Text & "") & "%'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "请选择查询方式!", vbOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 图书信息 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseIf rs_findbook.RecordCount = 0 Then MsgBox "查询不到该图书信息!", vbOKOnly + vbExclamationElse Set DataGrid1.DataSource = rs_findbookEnd IfEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) panduan = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Form_Load() Dim rs_find As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String sql = "select * from 图书类别" conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "library.mdb" rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic rs_find.MoveFirst If Not rs_find.EOF Then Do While Not rs_find.EOF Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop Combo1.ListIndex = 0 End If rs_find.Close End Sub5.5.2还书管理关键代码：Private Sub Combo1_Click() Combo2.ListIndex = Combo1.ListIndexEnd SubPrivate Sub Combo2_Click() Combo1.ListIndex = Combo2.ListIndexEnd SubPrivate Sub Command1_Click() Dim rs_reader As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String findform = False sql = "select * from 借阅信息 where 读者姓名 = '" & Combo2.Text & "'" conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "library.mdb" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_reader DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = False End SubPrivate Sub Command3_Click() Dim book_number As String Dim reader_number As String Dim answer As String Dim rs_back As New ADODB.Recordset Dim conn As New ADODB.Connection Dim sql As String conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "library.mdb" book_number = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) reader_number = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark) answer = MsgBox("确定要还这本书吗?", vbYesNo, "") If answer = vbYes Then sql = "select * from 借阅信息 where 图书编号 = '" & book_number & "'" '删除这本书在"借阅信息"中的记录 rs_back.CursorLocation = adUse