周一至周五 | 9:00—22:00

期刊论文网 > 文化历史论文 > 图书馆学、情报学论文 > 图书管理系统论文 基于VB的小型图书馆管理系统

图书管理系统论文 基于VB的小型图书馆管理系统

2018-12-20 10:22:12来源:组稿人论文网作者:婷婷

  摘 要

  随着计算机的发展和应用,人们能够更加快速的处理和存储信息,数据的电子信息化逐渐取代了传统的信息管理模式。应用计算机管理能够提高管理效率。

  图书管理系统是图书馆管理的一个重要系统,随着人们精神物质需求的变化,越来越多的人喜欢读书,图书馆的存书也变的越来越多,因此需要对图书资源进行高效的信息分类管理和借阅管理。紧随着计算机的发展,计算机信息处理系统的应用已经根本改变了图书的管理方式。其中重要的就是图书管理系统,此系统解决了学校和个人图书馆管理经常出现的问题,读者可以在该系统上进行图书的查询、借阅信息的查询、在线借阅图书和个人信息的修改,以及图书续借等。

  本系统采用Visual Basic 6.0以及Access2016数据库进行开发和设计。主要面向中小型书店、个人书店和学校图书馆等。

  关键词: Visual Basic 6.0;Access2016;查询;数据库设计;

  1前言

  当今是发展信息的高速时代。各行各业都离不开计算机信息管理,因此计算机被广泛用于进行系统管理以及处理较为复杂繁琐的工作。计算机的最大好处在于它不仅能够进行信息管理,而且还能处理人不能完成的任务。应用计算机进行信息控制和管理,不但能够提高工作效率,而且大大保障了信息的安全性。

  毕业设计是高等教育体系中的一个非常重要的环节,它能检验学生对专业理论知识理解掌握的程度,是对学生基础知识、专业知识、专业能力和综合素质训练的非常重要阶段,体现了对人才培养的重视。通过此次毕业设计使我能综合运用所学知识,在应用软件工程的方法进行软件开发的过程中,提高其分析问题和解决问题的能力。

  此系统采用的设计程序Visual Basic 6.0是一种可视化的程序开发软件,它能大大提高编程效率,主要用来设计——Windows 下的应用程序。可视化程序设计是指一种能开发图形用户界面的高效方法。应用这种方法,程序设计人员不必枯燥的编写大量程序代码来描述程序界面元素的位置和外观,只需把事先建立的界面元素放到屏幕上恰当的位置即可。程序设计人员可以用Visual Basic6.0设计软件实现其他任何Windows编程语言的可以实现的功能,而初学者只需要掌握几个设计关键词就能设计非常实用的应用程序。

  2 系统分析

  2.1 需求分析

  (1)数据维护:可以储存图书和读者的数据信息,并且对图书和读者的信息进行数据维护,数据维护包括对记录的删除、修改和添加等操作。

  (2)借阅管理:可以对图书借阅处理和图书归还处理以及对书库图书信息的查询。

  (3)种类管理:可以对读者或图书种类进行修改、添加和删除

  (4)读者管理:可以对读者信息进行修改、删除和添加。

  (5)系统管理:可以修改用户的密码以及添加用户。

  2.2 性能要求分析

  (1) 系统稳定、安全。

  (2) 操作简洁、易用。

  (3) 功能完善、齐全。

  (4) 易于维护、扩充。

  2.3 开发环境分析

  系统开发中工作量最大的是设计管理系统的主要环节。正确的系统设计思想和方法是开发系统的前提,在此基础上我通过大量查阅书籍,决定将传统的结构化程序分解为若干小的模块,每个模块下又分为下一层子模块,这样就可以把复杂而且庞大的系统分解为功能单一的小模块。先将这些功能单一的小模块完成设计后再根据其逻辑结构层层组织起来,这样大的程序就得以实现。

  概括上述特点。决定采用了结构化程序设计和面向对象程序设计相互结合的办法。以Microsoft Visual Basic 6.0为开发工具,其操作简单、方便且能显著降低开发者的工作量,并且其具有强大的数据库管理功能,只要简单利用数据控件和数据库管理窗口,就可以连接和处理Microsoft Access数据库管理系统。

  本系统是一个小型的MIS系统,对计算机要求不高,需要使用具有配有英特尔奔腾(或以上)、1G内不能(或以上)、100G硬盘(或以上)的计算机。

  3 结构设计

  3.1 系统结构

  将图书管理系统从整体出发,根据功能需求主要分为4个大的模块,每个模块都有其特定的功能。并且各个模块相对独立,且子系统功能联系少,这样做可以增强系统稳定性。最终划分为树形结构图,如图3-1所示。

  图3-1 图书管理系统结构图

  3.2 模块设计

  (1)书籍管理模块:用户发送图书类别或图书信息管理指令给数据库,数据库返回书籍信息处理结果,最后系统显示处理结果,如图3-2所示。

  图3-2 书籍管理流程图

  (2)读者管理模块:读者通过向管理员提供读者姓名或编号等信息与读者数据库比较,如果存在则返回读者信息,不存在则返回错误。管理员可以根据读者提供的有效信息注册新的读者,并且可以修改、添加和删除读者。读者管理流程图如图3-3所示。

  图3-3读者管理流程图

  (3)借阅管理模块:借阅管理是整个系统的核心模块,读者向管理员提供需要借阅的图书信息后,管理员根据读者的提供的信息连接数据库查询图书,当存在该书并且该书未被借出时,则在系统中返回图书信息并借出,否则返回错误。

  如图3-4图所示。

  图3-4 借阅管理流程图

  (4)系统管理模块:管理员在登陆界面输入用户名和密码,当用户名和密码与数据库对应数据一致时,进入系统;否则返回错误信息。 如图3-5所示。

  图3-5 用户管理流程图

  4数据库设计

  4.1数据库简介

  数据库是对数据进行存储、修改、添加和删除的一种工具,其作用在于可以方便的组织和表达信息。数据库可分为关系型数据库和非关系型数据库。本系统采用Microsoft Access 2016 关系型数据库工具,其开发对象是Microsoft JET数据库和Microsoft SQL Server数据库。

  Access的优点在于它能用自定义窗体或者是数据表示图收集信息,数据表示图类似Excel电子表格,可以让数据库显得更加清晰明了,Access也可以创建自定义报表来输出数据库的信息。综上所述,Access可以在一个即包括桌面数据库的实用性,有包括关系数据库的功能强大性。

  4.2数据库需求分析

  数据存储设计的任务是根据系统所需要求,决定数据组织形式和存储方法,以此来获得最优的文件结构和文件组织形式。数据存储设计主要是进行数据库设计。其具体流程如下。

  图3-6 设计流程图

  4.2数据库访问技术

  此系统采用ADO数据控件访问数据库,ActiveX Data Objects(ADO)是微软的数据访问技术,用来和数据访问层OLE DB Provider 交互工作,并且提供数据访问。OLE DB 是一个数据访问接口,可以用它来访问各种数据源,其中包括传统的关系型数据库。

  ADO提供一个高层对OLE DB 的Automation封装接口。可以把OLE DB比作ODBC驱动程序。目前,微软OLE DB将取代ODBC。ADO具有易于使用,并且高速度及低内存占用等优点,ADO可以独立创建,当单独建立一个“Connection”对象时,可以有多个“Recordset”对象来使用。

  1、ADO存取数据流程如图3-7所示

  图3-7 存储数据流程图

  2、关闭数据连接

  在代码中使用数据控件ADO时,退出后应该关闭所有打开的recordsource , database。Visual Basic 连接数据库有两种方式:1.通过使用VB的ADO控件。2.通过使用VB提供的专用的直接与数据库连接的接口。

  4.3数据库E-R图

  (1)本系统中所涉及到的主要实体及其属性有:

  读者信息表:{读者姓名、读者编号、性别、读者类别、工作单位、家庭地址、电话号码、登记日期、已借书数量}

  借阅信息表:{借阅编号、读者编号、读者姓名、书籍编号、书籍名称、出借日期、还书日期}

  书籍信息表:{作者、出版社、出版日期、登记日期、是否借出}

  系统管理表:{用户名、密码、权限}

  (2)为了使E-R图表示清晰,将E-R图分为实体及其属性图和实体及其联系图。分别如下图所示。

  图3-8 读者信息E-R图

  图3-9借阅信息E-R图

  图3-10 书籍信息E-R图

  图3-11 系统管理E-R图

  4.4数据库表

  数据库管理系统使用了Access2016,使用了“数据库向导”创建数据库。该数据库包括6个数据表,各表包含的字段含义如下:

  读者类别表:用于区分读者的身份类别。

  图3-12读者类别表

  读者信息表:用于存储读者的基本信息,包括读者编号、姓名、类别等。

  图3-13读者信息表

  借阅信息表:用于存储已被借出的书籍编号、书籍名称和书籍借还时间等。

  图3-14借阅信息表

  书籍信息表:存储图书的基本信息,其中含有书籍编号、书籍类别等。

  图3-15书籍信息表

  图书类别表:用于存储图书分类及各图书分类编号。

  图3-16图书类别表

  系统管理表:用于用户的基本数据信息,包括用户名、权限、密码等。

  图3-17系统信息表

  在使用ADO数据控件时,应先在“工程—部件”命令打开“部件”对话框,选择“Microsoft ado Data Control 6.0(OLE DB)”选项,将ADO数据控件添加到工具箱。

  5系统设计

  5.1 登陆界面的设计与实现

  登陆界面是图书管理系统必不可少的模块,用以区分管理员和普通用户,保证系统安全。应用程序主登录界面设计应简洁美观,遵守简单易用的基本原则,具体设计如下,读者登陆界面如图5-1所示.

  图5-1 登录界面

  读者登陆图书管理系统时,应该在“用户名”后的Text框中输入用户名,在“密码”后的Text框中输入注册的密码,输入用户名和密码后,最后按“确定”。当输入的账号或密码与数据库中记录的内容不同或错误时,系统会出现MsgBox提示,如果用户没有输入用户名直接输入密码,点按“确定”,则系统会出现MsgBox提示无此用户,并且光标落在“用户名称”后的Text框中;若输入内容与数据库记录相符,则进入系统的主界面。

  在登录图书管理系统时检查用户名及密码是否正确就已经用到了数据库中的内容,因此双击“确定”按钮输入以下代码:

  Private Sub Form_Load() //在Form Load事件中打开“book”数据库

  Dim connectionstring As String

  connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & "data source=book.mdb"

  conn.Open connectionstring

  cnt=0

  End Sub

  同时为了增加系统的安全性,当用户密码输错三次后,系统会自动退出,这就要定义一个整形变量来记录用户输错的次数,即用户点击“确定”的次数。

  Option Explicit

  Dim cnt As Integer //定义确定次数

  Private Sub Form_Load()

  ……

  cnt = 0

  End Sub

  Private Sub Command1_click() //单击“确定”按钮

  ……

  cnt = cnt + 1 //确定次数加一

  If cnt = 3 Then //若确定次数达到三次,则退出系统

  Unload Me

  End If

  ……

  End Sub

  图5-2 增加读者界面

  如果用户是第一次登陆该系统,就必须注册一个“用户名”,在系统管理系统的登陆界面上,按“增加用户”键,会出现如图5-2增加读者界面所示的对话框,在图所示对话框中输入用户名、密码,确认密码最后选择新注册用户权限点击“确认”,系统会自动检查数据库是否有重复数据,检测到重复数据后,则出现MsgBox提示“该用户已存在”,若提示添加用户成功,则表明注册完成

  当用户点击“确定”连接到数据库,双击确定输入以下代码:

  //单击“确认”按钮

  Dim sql As String

  Dim rs_add As New ADODB.Recordset

  If Trim(Text1.Text)= " " Then //检查用户名是否为空

  ……

  sql = "select * from 系统信息表"

  //连接到“系统信息表”

  While (rs_add.EOF = False)

  If trim(rs_add.Fields(0)) = Trim(Text1.Text) Then //查看数据库是否有重复注册

  MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""

  ……

  Wend

  If Trim(Text2.Text) <> Trim(Text3.Text) Then //检查输入密码和确认密码是否一致

  MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""//弹出对话框“两次密码不一致”

  Text2.SetFocus

  Text2.Text=" "

  Text3.Text=" "

  Exit Sub

  Else

  rs_add.addnew

  rs_add.Fields(0) = Text1.Text

  rs_add.Fields(1) = Text2.Text

  ……

  End If

  End sub

  主界面的工具栏设计必须充分考虑界面容易操作的系统需求,主窗体应该采用简单和直观的菜单设计,方便读者管理、图书借阅管理和图书管理以及系统管理的菜单操作方式,主窗体菜单设计效果如下图5-3所示。

  图5-3主界面

  5.2 图书管理模块的设计与实现

  这一模块包括图书类别管理和图书信息管理。

  其中图书类别管理模块分为添加图书类别和图书管理。

  添加图书类别效果图如图所示。

  图4-4图书类别添加界面

  通过图书类别添加模块可以添加新的图书类型并对图书类型进行编号。既方便又快捷,双击添加按钮,部分源代码如下所示:

  Dim rs_bookstyle As New ADODB.Recordset

  Dim sql As String

  If Trim(Text1.Text) = "" Then

  MsgBox "图书种类不能为空", vbOKOnly + vbExclamation, ""//弹出对话框显示图书种类不能为空

  Text1.SetFocus

  Exit Sub

  End If

  If Trim(Text2.Text) = "" Then

  MsgBox "种类编号不能为空", vbOKOnly + vbExclamation, ""//弹出Msgbox控件显示图书种类编号不能为空

  Text2.SetFocus

  Exit Sub

  End If

  sql = "select * from 图书类别 where 类别名称='" & Text1.Text & "'" //使用sql链接数据库

  ………

  MsgBox "读者类别重复!", vbOKOnly + vbExclamation, "" \\提示读者类别重复

  Text1.SetFocus

  Text1.Text = ""

  rs_bookstyle.Close

  Exit Sub

  End If

  窗体中用到了DataGrid控件。

  图书管理员要修改类别或删除类别时,单击“修改类别”按钮,在DataGrid中直接输入需要修改的图书类别的信息,最后单击“更新”按钮,修改的图书类别就输入到数据库中并保存了下来。其中图书类别的删除的操作和类别的修改的操作相似。

  图书类别管理如图5-5所示。

  图5-5 图书类别管理界面

  窗体加载时,把DataGrid控件的AllowAddNew、AllowDelete、AllowUpdate等设置为False,表明不能对DataGrid中的内容进行删除、更新和修改等操作。当用户需要对DataGrid中的内容进行更新、删除和修改的时候再重新设置控件DataGrid的属性,来实现操作。现以修改为例说明:

  Private Sub Form_Load() //窗体加载

  ……

  DataGrid1.AllowAddNew = False //不可对DataGrid中的内容进行添加、修改、更新

  DataGrid1.AllowDelete = False

  DataGrid1.AllowUpdate = False

  End Sub

  ……

  在进行删除数据时,应该先使用Recordest对象的Delete方法进行删除当前的数据,然后将数据显示移动到下一行。虽然数据库中已把该行数据自动删除,但是DataGrid依旧在显示,因此要用DataGrid控件的Refresh方法重新刷新数据源。双击“删除类别”按钮,输入以下代码:

  Private Sub cmddel_click() //点击“删除类别”按钮

  ……

  Cmdcancel.Enabled = True

  DataGridl.AllowUpdate = True //设置DataGrid为可以更新状态

  End Sub

  Private Sub cmddel_click()

  Dim answer As String

  Adodc1.RecordSource="select*from图书类别表"

  Adodc1.Refresh

  Adodc1.Recordset.Delete

  Adodc1.Recordset.MoveNext

  If Adodc1.Recordset.EOF = True Then //当此数据是最后删除的, Adodc1.Recordset.MoveFirst 则转到第一条数据中。

  End If

  DataGrid1.Refresh

  ……

  End Sub

  当修改、删除、更新后需要对DataGrid显示的数据更新,也用DataGrid控件刷新数据源,双击“更新”按钮输入以下代码:

  Private Sub cmdupdate_click() //单击“更新”按钮

  If Not IsNull(DataGrid1.Bookmark) Then

  DataGrid1.Refresh //更新数据源

  End If

  ……

  图书信息管理的界面如图5-6所示。

  图5-6图书信息管理界面

  DataGrid控件用于显示“图书信息表”中的数据。

  管理员要修改图书时,单击“修改图书”按钮,在DataGrid中可以直接输入需要修改的图书信息,然后点击“更新”按钮控件,这样新的图书数据就完整输入到数据库中了;图书的删除的操作与修改的操作相同。

  完整代码及实现方式见附录。

  5.3 读者管理模块的设计与实现

  这一模块分为读者信息管理、读者信息查询和读者类别管理三部分。

  DataGrid控件用于显示“读者类别表”中的数据。

  管理员要修改读者类别时,单击“修改类别”按钮,在DataGrid中直接输入需要修改的读者类别信息,然后单击“更新”按钮,新的图书类别就完整快速的输入到数据库中;读者类别的删除的操作与修改的操作相似。

  读者类别管理界面如图5-7所示。

  完整代码及实现方式见附录。

  图5-7 读者类别管理界面

  DataGrid控件用于显示“读者信息表”中的数据。

  管理员要维护读者信息时,应点击“修改读者”按钮,在DataGrid中直接输入需要修改的读者信息,最后点击“更新”按钮,新的读者信息就输入到数据库中了;读者信息的删除的操作与的修改的操作类似。

  完整代码及实现方式见附录。

  图5-8读者信息管理界面

  读者信息查询的界面如图5-9所示。

  图5-9查询读者信息界面

  DataGrid控件用于显示“读者信息表”中的数据。

  为了方便用户查询,系统在读者类别查询里设置了几个查询条件如:本科生、研究生、博士等等。用户在查询时只需在需要的查询方式的复选框中打钩,应用ComboBox下的下拉列表对话框进行选择,输入相应内容,最后点击“确定”即可查询到用户所需要的信息。双击窗体后输入下列代码:

  Private Sub Form_Load() \\ 加载窗体事件

  Dim rs_find As New ADODB.Recordset

  Dim sql As String

  sql = "select * from 读者类别"

  rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic

  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 Sub

  用户可复选多种方式对读者信息进行查询,双击“确定”按钮,输入以下代码:

  Private Sub Command1_click() //单击“确定”按钮

  Dim rs_findreader As New ADODB.Recordset //定义新的数据库记录

  Dim sql As String

  If Check1.Value= vbChecked Then //若用户选择按“读者编号”查询

  sql = "读者编号=’ "& Trim(Text1.Text & " ’")

  End If

  If Trim(sql) = "" Then

  sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"

  Else //合并前面的查询方式

  sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"

  End If

  End If

  If Trim(sql) = "" Then //若没有选择查询方式就按“确定”,则出现MsgBox

  Exit Sub

  End Sub

  5.4 图书借阅管理模块的设计与实现

  这一模块包含借书管理和还书管理两部分。

  查询图书的界面如图5-10所示。

  图5-10查询图书界面

  DataGrid控件用于显示借阅信息表的内。

  为了方便用户查询,窗体中列出了多种关键词查询方法:图书类型、编号、图书类别和作者等查询方式,用户可以选择一种或者多种关键词查询方法,查询到所需要的图书后,点击“借这本书”,如果此书已经被借出,系统会出现 MsgBox 提示“此书已经被借出”;如果此书没有被借出,系统会出现如图下所示的界面。

  窗体加载和单击“确定”、“取消”按钮的代码和查询读者信息界面类似。单击“借书”按钮后,借书页面出现

  在公共模块中定义了一个全局变量,来记录读者所选图书的编号,图书编号定义为全局变量,在借书页面中会被使用。在DataGrid控件的RowColChang事件中为该变量赋值。具体代码如下:

  As Integer)

  If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)

  panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)

  End If //只有在当前表格中有数据时才可以读取当前选定的图书信息

  End Sub

  图5-11借书界面

  在借书界面中使用了三个ADODC控件,分别用于连接“书籍信息表”、“借阅信息表”和“用户信息表”。在书籍信息的Lebal中列出了待借图书的详细信息。

  读者在一个ComboBox中选择了自己的编号或姓名后,另一个ComboBox中会显示相应的内容,具体代码如下:

  ……

  Private Sub Combo1_click() //下拉列表的Click事件

  Combo2.ListIndex = Combo1.ListIndex //当用户选择了读者编号后,自动查询读者

  读者在点击了“确定”按钮后,书会自动显示借出,同时在借阅信息表中就会添加新的记录,在还书日期一栏中用到了DateAdd函数,可以反映已添加指定时间间隔的日期,其语法形式为:DataAdd(interval,number,date),interval表示要添加的时间间隔,number表示要时间间隔的个数,date表示需要增加intervel的日期。具体代码如下:

  //单击“确定”按钮

  ……

  Adodc3.RecordSource = "select * from 借阅信息表"

  Adodc3.Refresh

  Adodc3.Recordset.AddNew //在借阅信息表中添加新信息

  Adodc3.Recordset.Fields(1) = Combo1.Text

  ……

  Adodc3.Recordset.Fields(6)=DateAdd("ww",qixian,Date)

  Adodc3.Recordset.Update //DateAdd函数,在目前日期上加上借书期限,

  …… 即等于还书日期

  End Sub

  因为在借书过后,图书会在书籍信息表中被重新定义为“已借出”所以要更新以书籍信息表为数据源的控件。

  Dim rs_borrowbook As New ADODB.Recordset

  Dim sql As String

  sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"

  rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

  leibie = rs_borrowbook.Fields(3)

  shumu = rs_borrowbook.Fields(8)

  ……

  sql = "select * from 读者类别 where 种类名称='" & leibie & "'"

  rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

  qixian = rs_borrowbook.Fields(2)

  maxnum = rs_borrowbook.Fields(1)

  rs_borrowbook.Close

  If shumu >= maxnum Then

  MsgBox "该读者借书数额已满!", vbOKOnly + vbExclamation

  ……

  End Sub

  添加还书信息的界面如图5-12所示。

  图5-12还书界面

  其中使用了三个ADODC控件,分别用于连接读者信息表、书籍信息表和借阅信息表。DataGrid显示借阅信息表中的内容。

  读者可以选择“按读者信息”或者“按书籍信息”进行查询,查询到的借阅图书信息会在“借阅信息”中显示,读者只要选中自己所要还的书然后点击“还书”,此书将会被还到图书馆,同时消除读者的借阅记录。

  按读者信息查询为例,当用户在一个ComboBox中选择了读者编号后,另一个ComboBox会显示相应的读者姓名,要选中点击“查询”后,在借阅信息表中以读者姓名查找借阅信息,并且重新绑定DataGrid使其显示查询结果。双击“查询”按钮,输入以下代码:

  Private Sub Command3_click() //单击“查询”按钮

  ……

  Adodc1.Refresh //在借阅信息表中按照读者姓名查找借阅信息

  DataGrid1.ReBind //重新绑定DataGrid以显示查询结果

  ……

  End Sub

  在用户点击了“还书”之后,ADODC使用Recordest对象的Delete方法删除当前的数据,再在书籍信息表中把图书定义为未借出,在读者信息表中在借书数目上减一。

  5.5 系统管理模块的设计与实现

  这一模块包括添加管理员、修改密码和退出系统三部分。

  添加管理员的界面如图5-13所示。

  图5-13添加管理员界面

  此功能只有管理员才能使用,其他用户不能使用。在输入用户名、密码并且确定了密码之后,点击“确定”,系统会自动的将该用户的权限设置为“system”,此时该用户就成为了一个管理员。

  其操作与代码与添加读者相似。

  修改密码的界面如图5-14所示。

  图5-14修改密码界面

  用户登录系统之后才能修改密码,否则不能修改;点击修改密码将会进入如图4-14所示的界面,在主界面中输入新密码和确认密码后,然后点击“确认”,系统会弹出对话框提示:密码修改成功。

  程序在公共模块中定义了一个全局变量UserID,它在用户登录时被赋值。点击“确定”后,程序会在系统信息表中以UserID查找用户信息,并修改密码。

  //单击“确定”按钮

  Dim rs_chang As New ADODB.Recordset

  Dim sql As String

  ……

  rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic

  rs_chang.Fields(1) = Text1.Text //修改数据库中的密码

  ……

  End Sub

  6软件的调试与测试

  在各个功能模块和数据库建立之后,通过控制面板中的数据源和驱动程序工具将数据库和系统软件相连,在代码中使用在公用模块建立的查询函数完成对各个数据表的访问。在连接完成之后,启动“运行”工具就可以完成系统的运行工作。在整个程序设计和运行期间,如果程序出现错误和警告,会停止在程序有误的地方并停止继续运行,这是必须终止运行,对程序进行调试。

  发生错误时应及时进行修改,认真检查错误总结经验以及改正错误,使程序安全稳定的运行。

  启动程序对程序进行测试,需要在所有错误调试完成后进行,系统正常运行后,可以对系统进行优化和修改使其达到最优状态。系统设计和测试的整个过程中,检测是否符合设计规范和要求,并且测试系统设计是否符合操作灵活简单的设计要求,如果不符合应及时对系统进行升级。

  7 结论

  此系统为图书管理系统,是以图书管理中常见的问题进行设计的符合计算机高效管理,是基于数据库系统开发的。此系统能够实现图书借阅管理的高效化、规范化和系统化。本人结合对开放式图书馆个人图书馆的设计要求,对数据库管理系统、VB 数据库链接设计,VB应用程序设计等技术进行了全方位、深层次的学习,完成了对图书管理系统的深层次、功能性的分析和设计,由此设计了数据库结构和图书馆管理系统。

  在系统的设计前,我阅读了大量的有关 Visual Basic、Access 的书籍。初步掌握了一些关于Visual Basic、Access的知识。 在设计的过程中遇到了许许多多的困难,最后通过向同学、老师以及自己的摸索,一一解决了这些困难,通过本次设计我学到了许多有用的知识,不仅增长了见识,拓宽了知识面,而且还掌握了许多的有用的先进的知识。

栏目分类