《毕业设计（论文）图书馆图书信息管理系统设计(VB设计).doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）图书馆图书信息管理系统设计(VB设计).doc（43页珍藏版）》请在三一办公上搜索。
1、2002级专升本毕业论文目录摘要一、概述1二、本系统概况22.1 软件配置22.2 硬件配置2三、系统设计33.1 系统功能要求33.2 系统性能要求4四、数据库设计及配置64.1 图书信息表的关系图64.2 Library数据库各信息表介绍64.2.1 管理员信息表64.2.2 读者信息表74.2.3 图书借阅信息表74.2.4 图书清单信息表74.2.5 图书类别信息表94.2.6 图书编码信息表9五、系统程序实现105.1 设计概况105.2 系统界面及各主要模块核心代码115.2.1 系统登录界面115.2.2 系统主界面135.2.3 管理员登记界面215.2.4 图书分类界面295
2、.2.5 读者办理借书证界面335.2.6 图书借阅统计分析界面36致谢参考资料第42页图书馆图书信息管理系统摘要：本次毕业设计任务是开发图书馆管理系统。采Visual Basic和MS SQLSERVE等软件为开发工具；通过对计算机硬件和软件解决方案的论证；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。在指导老师的帮助下，已经基本上成功地实现了设计任务书的要求。使得我们设计的数据库系统能够实现图书借阅管理，图书馆书籍管理等功能。 图书管理系统是图书馆管理工作中不可缺少的部分,它的内容对于图书馆的管理者和使用者来说都至关重要,所以图书管理系统应该能够为管理者或读者提供充足的信息和快
3、捷的数据处理手段。但一直以来人们使用传统人工的方式进行图书管理和借阅管理，这种管理方式存在着许多缺点,如:效率低、易忘记、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对图书信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高图书管理的效率,也是图书馆的科学化、正规化管理,
4、与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中将以开发一套小型图书管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。同时,我也感受到Visual Basic 6.0 和Access 2000 的功能之强大，事件处理的灵活性和高效性。但我掌握和应用的还不是很熟练，应多加实践和练习，在以后的工作中，我将不断的学习和充实自己。一、概述当今时代是飞速发展的信息时代。在各行各业中都离不开信息系统，信息管理系统已经深入到人们工作、生活的各个领域当中。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了信息的安全性。尤其对于复杂的信息管理，计算机能够充分发挥
5、它的优越性。计算机进行信息管理与信息管理系统的开发是密切相关的，系统开发是系统管理的前提和基础。图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理。现今，有很多的图书馆都已经使用图书信息管理系统。图书信息管理系统的开发和使用有它的重用性和必要性。在早期，图书馆对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定期限借书时间的天数）的统计和核实等往往都采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；数据繁多，容易丢失，且不易查找。总之，图书馆在早期，缺乏系统
6、、规范的信息管理手段。基于这些问题，有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。图书管理系统是一个常见的信息管理系统（MIS）,典型的图书管理系统包括读者管理、书籍管理、借书、续借、丢失及赔偿等功能。二、本系统概况本图书管理系统是一套功能完整、操作简便的图书管理及借书管理软件，包括管理员登记子系统、图书分类编目子系统、图书编码与新书入册子系统、读者办理借书证子系统、删除冗余数据子系统、读者借书还书子系统、图书信息查询子系统、图书借阅统计子系统8大功能，实现了书籍及借书的自动管理。图
7、书管理系统可广泛适用于中小型图书馆和资料室。2.1 软件配置操作系统：windows98、或windows2000、或windowsXP等；数据库选择：Visual Access 2000；开发平台：Visual Basic 6.0。2.2 硬件配置CPU： 2.0G 内存：256M硬盘： 80G 扫描仪：BENQ显示器：三星 外设：打印机等。三、系统设计系统设计主要是软件需求分析，需求分析是成功实施一个管理系统的基础，只有弄清楚客户的需求，才能开发出真正满足客户需求的软件产品，也才能够真正让整个系统发挥其应有的作用。接下来我们就针对图书管理系统的总体需求做分析，在实际开发过程中，可以在需求规
8、格说明的基础上进一步完善。3.1 系统功能要求（1）系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本例子中的图书馆管理信息系统需要完成功能主要有： 有关读者种类标淮的制定、种类信息的输入， 借书期限、有效期限、备注等。读者种类信息的修改、查询等。 读者基本信息的输入，包括读者编号、读者姓名、读者种类、读者性别、工作单位、 家庭住址、电话号码、电子邮件地址、办证日期、备注等。 读者基本信息的查询、修改，包括读者编号、读者姓名、读者种类、读者性别、工作单位、家庭住址、电话号码、电子邮件地址、办证日期、备注等等。 书籍类别标准的
9、制定、类别信息的输入，包括类别编号、类别名称、关键词、备注信息等。 书籍类别信息的查询、修改，包括类别编号、类别名称、书籍信息的输入，包括书籍编号、书籍名称、书籍类别、出版日期、书籍页书、关键词、登记日期、备注信息等。 书籍信息的变询、修改，包括书籍编号、书籍名称、书籍类别、作者姓名、出版杜名称、出版日期、书籍页书、关键词、登记日期、备注信息等。 借书信息的输入，包括借书信息编号、读者编号、读者姓名、书籍编号、书籍名称、借书日期、备注信息等。 借书信息的查询、修改，包括借书信息编号、读者编号、读者姓名、书籍编号、书籍名称、惜书日期、备注信息等。 还书信息的输入，包括还书信息编号、读者编号、读者
10、姓名、书籍编号、书籍名称、借书限期、还书日期、备注信息等。 还书信息的查询和修改，包括还书信息编号、读者编号、读者姓名、书籍编号、书籍名称、借书日期、还书日期、备注信息等。 在经过对图书管理流程进行详细的了解和分析后，我们可以看出一个功能完整的图书管理系统必须包括以下的两个管理子系统，或者称之为功能模块。（2）系统功能框图系统的功能框图如图1所示。图1 系统功能框图图书管理系统管理员登记图书分类编目图书编码与新书入册读者办理借书证删除冗余数据读者借书还书图书信息查询图书借阅统计系统管理图书管理3.2 系统性能要求3.2.1 精度要求图书管理系统对精度要求较低，仅需要满足整型数据输入、存储和输出
11、即可。3.2.2 时间特性要求在软件方面，响应时间、更新处理时间都要求比较快而且迅速，以满足要求。3.2.3 灵活性当用户需求，如操作方式、运行环境、结果精度、数据结构与其它软件接口等发生变化时，设计的软件要求能做适当调整。3.2.4 规模适用于中小型图书馆及资料室的图书管理工作。四、数据库设计及配置数据库设计对于一个信息管理系统的顺利开发和运行是十分重要的，其目标为结构合理、易于维护、查询便捷、冗余信息少等数据库方面的性能。在本系统中数据库（Library）主要由6张表组成，它们分别是：管理员信息表、图书类别信息表、图书编码信息表、图书清单信息表、读者信息表、图书借阅信息表。下面分别对各信息
12、表作介绍。4.1 图书信息表的关系图在数据库中，图书类别信息表、图书编码信息表、图书清单信息表、读者信息表、图书借阅信息表之间的关系图如图4.1所示。从图中可以清楚地看出各信息表之间的关联及关联字段。图4.1图书信息表的关系图4.2 Library数据库各信息表介绍4.2.1 管理员信息表图4.2 管理员信息表管理员信息表用于存储本系统用户的基本信息，其结构中主要包括的字段为管理员ID、姓名、权限、密码、停用、照片、电话、登记日期、电子信箱、描述等字段。其中权限为8位分别控制管理员登记、图书分类编目。图书编码与新书入册、读者办理借书证、删除冗余数据、读者借书还书、图书信息查询、图书借阅统计等8
13、大功能模块。4.2.2 读者信息表读者信息表用于存储本系统借阅图书的读者基本信息，其结构中主要包括的字段为读者ID、姓名、工作单位、身份证号码、照片、备注等字段。如图4.3所示。图4.3 读者信息表4.2.3 图书借阅信息表图书借阅信息表用于详细记录本系统图书借阅情况的基本信息，其结构中主要包括的字段为图书ID、读者ID、借书日期、还书日期、状态等字段。其中状态为1表示图书已归还，状态为0表示图书仍在读者手中。如图4.4所示。4.2.4 图书清单信息表图书清单信息表用于详细记录本图书馆各类图书本身的基本信息，其结构中主要包括的字段为图书ID、图书编码、入册日期、状态等字段。其中状态为1表示图书
14、已借出，状态为0表示图书在库中。如图4.5所示。图4.4 图书借阅信息表图4.5 图书清单信息表4.2.5 图书类别信息表图书类别信息表用于存储本系统图书分类情况的基本信息，其结构中主要包括的字段为类别代码、命名描述、备注等字段。如图4.6所示。图4.6 图书类别信息表4.2.6 图书编码信息表图书编码信息表用于记录本系统图书的基本信息（按书名进行编码），其结构中主要包括的字段为图书编码、书名、作者、定价、类别代码、出版单位等字段。如图4.7所示。图4.7 图书编码信息表五、系统程序实现本节主要简单讲述这个程序的框架及代码实现。5.1 设计概况系统的工程窗口如图5.1所示。为了更好地说明本系统
15、，先将各信息窗体作简单说明如下：图5.1 图书管理系统工程窗口(1) frm_Login(登录窗体)提供用户登录的管理员ID及密码输入界面。(2) frmMain(主窗体)包含本系统的8大功能模块的集成环境。(3) frmAdminregister(管理员登记窗体)提供管理员的添加、删除等操作，提供管理员的信息输入及权限设置等。(4) frmBookInformation(图书信息查询窗体)提供图书信息查询功能。(5) frmBookSort(图书分类窗体)提供图书分类的添加、删除等功能。(6) frmBorrowRestore(借书还书窗体)提供借书、还书、查找读者、查找图书、续借、丢失等功
16、能。(7) frmDelData(冗余数据删除窗体)提供从数据库中删除丢失图书的功能。(8) frmEditPassword(修改密码窗体)提供用户修改自己的密码功能。(9) frmPhoto(图像编辑窗体)提供图像大小调整等功能。(10) frmSetPage(设置打印窗体)提供设置打印边界，设置打印机等功能。(11) frmStatistic(数据统计窗体)提供以多种视图形式的数据可视化的功能。(12) frmTransactCard(办理借书证窗体)提供添加读者、删除读者、打印借书证等功能。5.2 系统界面及各主要模块核心代码5.2.1 系统登录界面登录界面要求用户正确输入管理员ID及登
17、录密码，同时在进入系统前可以修改密码。如图5.2所示。图5.2 系统登录界面核心代码：Option ExplicitPublic gblnOK As BooleanPrivate Sub cmdCancel_Click() gblnOK = False HideEnd SubPrivate Sub cmdEditPass_Click() Dim newForm As New frmEditPassword If newForm.checkPassword(Trim(txtAdminID), Trim(txtPassword) 1 Then MsgBox 该管理员身份或密码验证无效！, vbIn
18、formation Set newForm = Nothing Exit Sub End If newForm.lblAccreditID = Trim(txtAdminID) newForm.txtOldPassword = Trim(txtPassword) newForm.txtOldPassword.Enabled = False newForm.txtNewPassword.Enabled = True newForm.cmdOK.Enabled = True newForm.Show vbModal Set newForm = NothingEnd SubPrivate Sub c
19、mdOK_Click() Dim strAdminID As String, strPassword As String Dim rs As ADODB.Recordset strAdminID = Trim(txtAdminID) strPassword = Trim(txtPassword) Set rs = mCdt.rsSystemEnter(strAdminID, strPassword) 验证用户 If rs.EOF Then MsgBox 登录失败！, vbInformation txtAdminID.SetFocus txtAdminID.SelStart = 0 txtAdm
20、inID.SelLength = Len(txtAdminID.Text) Else gbytAccredit = rs(权限) gstrAdminID = strAdminID gblnOK = True Hide End If rs.Close Set rs = Nothing 释放对象End Sub5.2.2 系统主界面图5.3 系统主界面系统主界面如图5.3所示。主界面包括图书管理系统的菜单栏、工具栏及状态栏。内含系统8大功能模块。系统各功能模块可通过主界面上的菜单来实现，系统菜单设计如表5.1所示。表5.1 系统主菜单设计标题名称功能系统管理(&S)mnuSys管理员登记(&A)mn
21、uSysAdminRegister图书分类编目(&S)mnuSysBookSort图书编码与新书入册(&R)mnuSysBookRegister读者办理借书证(&C)mnuSysTransactLibraryCard删除冗余数据(&D)mnuSysDelData退出系统(&X)mnuXtExit图书管理(&B)mnuBook读者借书还书(&R)mnuBookBorrowRestore图书信息查询(&I)mnuSysBookInformation图书借阅统计分析(&T)mnuBookStatistic窗口(&W)mnuWindow工具栏(&T)mnuWindowToolbar状态栏(&B)mnu
22、WindowStatusBar平铺窗口(&V)mnuWindowTileVertical层叠窗口(&C)mnuWindowCascade帮助(&H)mnuHelp帮助主题(&S)mnuHelpSearch关于“图书借阅系统”(&A)mnuHelpAbout核心代码：Private Sub MDIForm_Load() 从 Windows 注册表返回主窗体状态值,设置主窗体打开后的位置、大小 Left = GetSetting(App.Title, Settings, MainLeft, 1000) Top = GetSetting(App.Title, Settings, MainTop, 1
23、000) Width = GetSetting(App.Title, Settings, MainWidth, 6500) Height = GetSetting(App.Title, Settings, MainHeight, 6500) If Left(gbytAccredit, 1) = 1 Then Exit Sub mnuSysAdminRegister.Enabled = False tbToolBar.Buttons(1).Enabled = False mnuSysBookSort.Enabled = CBool(Mid(gbytAccredit, 2, 1) mnuSysBo
24、okRegister.Enabled = CBool(Mid(gbytAccredit, 3, 1) mnuSysTransactLibraryCard.Enabled = CBool(Mid(gbytAccredit, 4, 1) mnuSysDelData.Enabled = CBool(Mid(gbytAccredit, 5, 1) mnuBookBorrowRestore.Enabled = CBool(Mid(gbytAccredit, 6, 1) mnuSysBookInformation.Enabled = CBool(Mid(gbytAccredit, 7, 1) mnuBoo
25、kStatistic.Enabled = CBool(Mid(gbytAccredit, 8, 1) Dim I As Integer For I = 2 To 8 tbToolBar.Buttons(I).Enabled = CBool(Mid(gbytAccredit, I, 1) NextEnd SubPrivate Sub MDIForm_Unload(Cancel As Integer) 在 Windows 注册表中保存主窗体状态 If WindowState vbMinimized Then SaveSetting App.Title, Settings, MainLeft, Le
26、ft SaveSetting App.Title, Settings, MainTop, Top SaveSetting App.Title, Settings, MainWidth, Width SaveSetting App.Title, Settings, MainHeight, Height End If EndApp 退出应用程序End SubPrivate Sub mnuBookBorrowRestore_Click() frmBorrowRestore.SetFocus 显示读者借书还书窗End SubPrivate Sub mnuBookStatistic_Click() fr
27、mStatistic.SetFocus 显示图书借阅统计窗End SubPrivate Sub mnuSysBookInformation_Click() frmBookInformation.SetFocus 显示图书信息查询窗End SubPrivate Sub mnuSysDelData_Click() Dim frmNewWin As New frmDelData frmNewWin.Show vbModal 显示删除冗余数据窗 Set frmNewWin = NothingEnd SubPrivate Sub mnuWindowStatusBar_Click() 显示或隐藏状态栏 I
28、f mnuWindowStatusBar.Checked Then sbStatusBar.Visible = False mnuWindowStatusBar.Checked = False Else sbStatusBar.Visible = True mnuWindowStatusBar.Checked = True End IfEnd SubPrivate Sub mnuWindowTileVertical_Click() Arrange vbTileVertical 平铺子窗口End SubPrivate Sub mnuWindowToolbar_Click() 显示或隐藏工具栏 I
29、f mnuWindowToolbar.Checked Then tbToolBar.Visible = False mnuWindowToolbar.Checked = False Else tbToolBar.Visible = True mnuWindowToolbar.Checked = True End IfEnd SubPrivate Sub mnuSysTransactLibraryCard_Click() frmTransactCard.SetFocus 显示读者办证窗End SubPrivate Sub mnuXtExit_Click() Unload Me 退出系统End S
30、ubPrivate Sub mnuSysAdminRegister_Click() Dim frmNewWin As New frmAdminRegister frmNewWin.Show vbModal 显示管理员登记窗 Set frmNewWin = NothingEnd SubPrivate Sub mnuWindowCascade_Click() Arrange vbCascade 层叠子窗口End SubPrivate Sub mnuHelpAbout_Click() Dim fAbout As New frmAbout frmAbout.Show vbModal 显示“关于”对话框
31、 Set frmAbout = NothingEnd SubPrivate Sub mnuHelpSearch_Click() On Error GoTo ERRB 打开帮助文件 dlgCommonDialog.HelpCommand = &HB& dlgCommonDialog.ShowHelpERRB:End SubPublic Function File_Open(ByVal DFfilter As String, ByVal Title As String) As String 显示“打开文件”对话框,搜索文件路径 On Error GoTo ERRB dlgCommonDialog.
32、CancelError = True dlgCommonDialog.Filter = DFfilter dlgCommonDialog.FilterIndex = 0 dlgCommonDialog.Flags = cdlOFNHideReadOnly dlgCommonDialog.DialogTitle = Title dlgCommonDialog.ShowOpen File_Open = Trim(dlgCommonDialog.FileName) If Dir(File_Open, vbNormal + vbReadOnly + vbHidden + vbSystem) = The
33、n MsgBox 找不到文件： & File_Open, vbOKOnly + vbDefaultButton1 + vbExclamation File_Open = End IfERRB:End FunctionPublic Sub RsNumber(strTag As String) sbStatusBar.Panels(1).Text = strTagEnd SubPrivate Sub mnuSysBookRegister_Click() frmBookRegister.SetFocus 显示图书编码入册窗End SubPrivate Sub mnuSysBookSort_Click
34、() Dim frmNewWin As New frmBookSort frmNewWin.Show vbModal 显示图书类别编目设置窗 Set frmNewWin = NothingEnd SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button) 选择执行工具栏命令 Select Case Button.Index Case 1 mnuSysAdminRegister_Click Case 2 mnuSysBookSort_Click Case 3 mnuSysBookRegister_Click C
35、ase 4 mnuSysTransactLibraryCard_Click Case 5 mnuSysDelData_Click Case 6 mnuBookBorrowRestore_Click Case 7 mnuSysBookInformation_Click Case 8 mnuBookStatistic_Click End SelectEnd SubPublic Sub SavePhoto(ByVal strFieldName As String, rs As ADODB.Recordset, ByVal strPhotoFile As String) 保存图片到数据库 On Err
36、or Resume Next Dim DataFile As Integer, FileLong As Long, Chunks As Integer Dim Fragment As Integer, Chunk() As Byte, I As Integer Const ChunkSize As Integer = 16384 If strPhotoFile = Then Exit Sub DataFile = 1 Open strPhotoFile For Binary Access Read As DataFile FileLong = LOF(DataFile) 文件中数据长度 If
37、FileLong = 0 Then Close DataFile Exit Sub End If Chunks = FileLong ChunkSize Fragment = FileLong Mod ChunkSize ReDim Chunk(Fragment) Get DataFile, , Chunk() rs(strFieldName).AppendChunk Chunk() ReDim Chunk(ChunkSize) For I = 1 To Chunks Get DataFile, , Chunk() rs(strFieldName).AppendChunk Chunk() Ne
38、xt I Close DataFile rs.UpdateEnd SubPublic Sub SetPrint() On Error Resume Next 打印设置 fMain.dlgCommonDialog.Flags = cdlPDPrintSetup fMain.dlgCommonDialog.ShowPrinterEnd Sub5.2.3 管理员登记界面本模块显示管理员列表、管理员ID、姓名、照片、联系电话等信息，提供添加管理员，设置密码等功能。对新添加的管理员可进行相应当管理权限设置。如图5.4所示。图5.4 管理员登记界面核心代码：Option ExplicitDim WithE
39、vents rs As ADODB.RecordsetDim mstrPhotoFile As StringPrivate Sub cmdAdd_Click() 追加新记录 rs.AddNew rs(管理员ID) = 新成员 rs(姓名) = rs(权限) = 00000000 rs(停用) = False rs(电话) = rs(登记日期) = Date rs(描述) = txtAdminID.Enabled = True txtAdminID.SetFocusEnd SubPrivate Sub cmdDel_Click() 删除记录 If Not (rs.EOF Or rs.BOF) T
40、hen rs.Delete rs.MoveNext End IfEnd SubPrivate Sub cmdEditPass_Click() Dim newForm As New frmEditPassword newForm.lblAccreditID = rs(管理员ID) newForm.Show vbModal Set newForm = NothingEnd SubPrivate Sub cmdExit_Click() On Error Resume Next rs.Update Unload MeEnd SubPrivate Sub cmdOpenPhoto_Click() On
41、Error Resume Next 调用过程取得图片文件路径 mstrPhotoFile = fMain.File_Open(*.BMP;*.JPG;*.GIF|*.BMP;*.JPG; _ & *.GIF|*.BMP|*.BMP|*.JPG|*.JPG|*.GIF|*.GIF|*.*|*.*, 从文件取照片) If mstrPhotoFile = Then Exit Sub imgPhoto.Picture = LoadPicture(mstrPhotoFile)End SubPrivate Sub cmdAccredit_Click() Dim strAccredit As String Dim I As Byte strAccredit = 0 For I = 0 To lstAccredit.ListCount - 1 If lstAccredit.Selected(I) Then strAccredit = strAccredit & 1 Else strAccredit = strAccredit & 0 End If Next rs.Update 权限, strAccredit MsgBox 授权成功！, vbInformationEnd SubPrivate Sub cmdSavePhot
