VB环境下基于Access数据库图书管理系统的开发与实现毕业论文设计.doc

X X X X 毕 业 论 文 学院： 年级： 专业： 班级： 姓名：指导老师： 课题：VB环境下基于Access数据库图 书管理系统的开发与实现目录内容摘要1关 键 词1Abstract1Keywords11.概 述 211数据库及其应用212数据库设计概念213数据库设计周期32需求分析521项目提出的背景522图书管理信息系统的构成53系统的概念631系统E-R图设计632 Access数据库设计74图书管理系统的实现1441管理员登陆模块设计1442增加用户模块设计1543修改密码模块设计1744图书登记模块设计1845图书借阅模块设计2146图书赔偿模块设计2347查询输出模块设计2648值班管理模块设计2749菜单编辑器模块设计305调试与分析33参考文献34致谢35VB环境下基于Access数据库的图书管理系统的开发与实现内容摘要：图书管理系统是一个教育单位不可缺少的部分, 是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。因此，结合我校师生较多和生源较杂的情况，以方便我校师生和图书管理人员，再加上对Microsoft Access 2003数据库管理系统、VB应用程序的学习和应用，主要完成对图书管理系统的需求分析、结构设计、总体规划及数据库的实现。关键词：图书管理、图书资料、值班管理、系统管理Abstract: The book management system is an education unit indispensability of part,which is typical model of information management system. Its development is main to include a backstage database of of establishment and maintenance and head application procedure of development.For the former requests establishment data consistency and integrity strong, the data safety good database.But for the latter requests application the procedure function be completed, easy usage etc. characteristics.Therefore combing teachers and the students in my school is more with living the source and more miscellaneous circumstance, with convenience teachers and the students in my school and book manager, again plus 2003 databases to the Microsoft Access management system, VB application procedure of study and application, Its main completion is to book management system of need analysis, structure design, total programming and database of realization.Keywords: Book management、 book data、 on duty management 、 system management.第一章 概述11数据库及其应用从广义上讲，数据库就是数据或信息的集合，相当于一个数据仓库。具体地说，数据库是一组经过计算机整理后的数据，它由许多数据组成。自20世纪70年代以来,数据库技术得到迅速发展.目前世界上已经有数百万个数据库系统在运行,其应用已经深入到社会生活的各个领域,从企业管理,银行管理,资源管理,经济预测一直到信息检索,档案管理,普查统计等。我国20世纪90年代初在全国范围内装备了12个以数据库为基础的大型计算机系统,这些系统分布在邮电,计委,银行,电力,铁路,气象,民航,情报,公安,军事,航天和财税等行业。 现在,数据库技术还在不断发展,并且不断的与其它计算机技术相互渗透。数据库技术与网络通信技术相结合,产生了分布式的数据库系统。数据库技术与面象对象技术相结合,产生了面向对象数据库系统等各种数据库系统。 在人类迈向21世纪知识经济的时候,信息变为经济发展的战略资源,信息技术已成为社会生产力重要的组成部分。人们充分认识到,数据库是信息化社会中信息资源管理与开发利用的基础。对于一个国家,数据库的建设规模,使用水平已成为衡量该国信息化程度的重要标志.因此,数据库的学习是非常重要的。12数据库设计概念数据库设计是指对于一个给定的应用环境，提供一个确定最优数据模型与处理模式的逻辑设计，以及一个确定数据库存储结构与存取方法的物理设计，建立起既能反映现实世界信息和信息联系，满足用户数据要求和加工要求，又能被某个数据库管理系统所接受，同时能实现系统目标，并有效存取数据的数据库。当数据库所存储的的信息逻辑关系简单、数据记录量不大时，数据库的设计相对容易、编辑修改也方便；而当数据库内容庞大、关系复杂且在使用中发现问题时再进行修改，就有可能造成数据丢失，这是用户所不希望发生的。所以在设计前应该精心构思，使之遵循以下几条规则。l 规则一：字段的惟一性，即表中的每个字段只能含有惟一类型的数据信息。l 规则二：记录的惟一性，即表中没有完全一样的两个记录。l 规则三：功能相关性，即在数据库中，任意一个数据表都应该有一个主关键字段与表中记录的各实体相对应。l 规则四：字段无关性，即在不影响其他字段的情况下，必须能够对任意字段进行修改总之，用户在设计好一个数据库之后，可以根据这4条规则一条一条地去检验所设计的数据库，对不合理的地方进行修改，以使数据库符合以上规则。13数据库设计周期 根据软件工程的思想，数据库设计的周期可以划分为六个阶段：（1） 规划阶段确定开发的总目标，给出计划开发的软件系统的功能、性能、可靠性以及接等方面的设想。 （2） 需求分析阶段认真细致地了解用户对数据的加工要求，确定系统的功能与边界。本阶段的最终结果，提供一个可作为设计基础的系统说明书，包括对软硬件环境的要求和一整套完善的数据流程图。（3） 设计阶段把需求分析阶段所确定的功能细化，主要工作是概念设计阶段、逻辑设计阶段、物理设计阶段，然后，对每个阶段内部设计详细的流程。 （4） 程序编制阶段以一种或几种特定的程序设计语言表达上一阶段确定的各模块控制流程。程序编制时应遵循结构化程序设计方法。（5） 调试阶段对已编好的程序进行单元调试（分调），整体调试（联调）和系统测试（验收）。（6） 运行和维护阶段这是整个设计周期最长的阶段，其工作重点是收集和记录系统实际运行的数据。在运行中，必须保持数据库的完整性，必须有效的处理数据故障和进行数据库恢复。同时解决开发过程的遗留问题，改正错误进行功能完善。 总结：本文设计的是一个关于学校图书馆图书管理的数据库系统,通过这个系统管理员可以快速、方便的对图书记录查阅、增加、删除等功能，而用户也可以通过这个系统进行图书查询、借阅、归还等功能。 本系统采用microsoft access 2003技术建立数据库，使用VB 6.0技术建立数据源的链接,并且生成图书管理的数据库应用程序从而实现数据库的管理功能。第二章 需求分析需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。在这一章里，我将给出系统的功能结构图，为系统的设计奠定基础。21项目提出的背景随着计算机技术的飞速发展，其应用方面已渗透到社会生活的各个领域。它已经成为我们学习和工作的得力助手。在学校，尤其是在一些高校，图书是学校的一项重要资源，图书的管理也是学校的一项常规性的重要工作。近年来，我校招生情况越来越好，所以图书管理越来越严重。又加之我校自08年10月份升入本科院校之后，由于（生源杂、师生多、管理人员并没有增加等）种种原因，因此原有的图书管理系统已不能适应现行的工作需要。同时，以前的图书管理系统也不能更好地满足师生借阅图书的要求，又不能体现我校图书馆藏书丰富的特点。在此种情况下，做一个结合我校实际情况的图书管理系统是很有必要的。图书管理图书资料值班管理系统管理图书登记图书借阅图书赔偿查询输出增加用户修改密码退出图书管理系统图22图书管理系统功能结构图22图书管理信息系统的构成 第三章 系统的概念此阶段主要的任务和目标是根据需求分析的结果，画出对应的ER图。对于复杂的系统，通常首先要对它的各功能模块进行分析，然后再把它的功能结构图画出来，便是设计和优化。功能分析之后，再根据各个模块、各个用户对数据和使用权限的不同要求做出局部ER图，然后再把各个局部ER图结合起来形成统一的整体ER图。31系统E-R图设计图书借阅书名编号类型姓名借书证号图31.2图书借阅实体归还日期日期借阅日期备注软件系统本质上是信息处理系统，因此，在软件系统的整个开发过程中都必须考虑两方面的问题：“数据”及对数据的“处理”。为了把用户的数据要求清晰明确地表达出来，系统分析员通常建立一个概念性的数据模型。概念性数据模型是一种面向问题的数据模型，是按照用户的观点来对数据和信息建模，它描述了从用户角度看到的数据，它反映了用户的现实环境，且与在软件系统中的实现方法无关。这里运用最常用的表示概念性数据模型的方法，是实体联系方法即ER模型。通常，软件系统中有许多数据是需要长期保存的。为减少数据冗余，简化修改数据的过程，实现对数据进化、规范化。图书登记书名编号类型定价购买日期力日图31.1图书登记实体图31.3图书赔偿实体图书赔偿书名编号类型姓名图书证号赔偿金额损坏程度解决方案值班管理值班人记事值班截止日期图31.4值班管理实体值班截止日期查询输出图书编号购买日期力日图31.5查询输出实体值班开始日期值班开始时间3.2 Access数据库设计这里采用Access 2003数据库,用ADO作为连接对象。1 建立Access数据库 启动Microsoft Access 2003，建立一个空的数据库library.mdb,如3.1.1所示。图3.1.1建立library数据库使用程序设计器建立系统需要的表格如下。图书登记表，如3.1.2图3.1.2图书借阅表图书借阅表,如3.1.3图31.3图书借阅表 图书赔偿表，如3.1.4图3. 1.4图书赔偿表图书资料表,如3.1.5图3.1.5图书资料表系统管理表,如3.1.6图3.1.6系统管理表值班管理表,如3.1.7图3.1.7值班管理表2.连接数据在Visual Basic环境下，选择菜单栏“工程”“部件”，打开“部件”对话框，在随后出现的对话框中选择“Microsoft ado data control 6.0”，然后单击“确定”按钮，如图3.2.1所示。图3.2.1”部件”对话框将ADO数据控件与Data Grid控件添加到窗体上ADO控件默认名为Adodc1，如3.2.2所示。图3.2.2窗体上的ADO与DataGrid控件其中，ADO控件包括一个连接字符串属性ConnectionString，用于连接到计算机上某个数据源。（1） 数据源连接 选择数据源连接方式。鼠标右键单击ADO数据控件，选择弹出菜单中的“ADODC”属性命令，打开控件“属性页”对话框，如图3.2.3所示。数据源连接有三种不同的方式，日前使用的方式是“使用连接字符串”。连接字符串包含了用于与数据源建立连接的相关信息。图32.3 ADO“属性页”对话框 选择数据库类型单击“生成”按钮，打开如图3.2.4所示的数据链接属性窗口，OLEDB提供者决定了将使用的数据库类型，数据提供者可看成某种类型数据库的驱动程序。连接Access 2003及更高版本的数据库时，需要选择Microsoft Jet 4.0 OLE DB Provider.图32.4“数据链接属性”对话框 指定数据库文件名在选择了OLE DB提供者后，单击“下一步”按钮或选择“连接”按钮，进入如图3.2.5所示的对话框，指定数据库文件名。为保证连接有效，可单击右下方的“测试连接”按钮，如果测试成功则关闭该对话框，返回到如图3.2.3所示的“属性页”对话框。图3.2.5指定数据库文件名 指定记录源。选择图3.2.-3中的“Record source”选项卡，弹出记录源“属性页”对话框，如图3.2.6所示。（2） 利用Data Grid 来显示数据选定Data Grid控件，将其Data Source属性设置为Adodc1控件，将网格绑定到产生的记录集。运行该程序即可对数据库进行浏览。ADO控件上的4个箭头为数据库的导航装置。单击最左边的箭头移动到数据库的第一条记录，最右边的箭头移动到数据库的最后一条记录，中间两个箭头让分别移动到前一条或后一条记录。第四章 图书管理系统的实现41管理员登陆模块设计登陆界面的主要任务根据用户名、密码是否正确来判断是否可以进入系统后台。管理员登陆模块界面:代码如下：Private Sub Command1_Click() If Text1.Text = Then MsgBox 用户名不能为空!, vbOKOnly Exit Sub Else If Text2.Text = Then MsgBox 密码不能为空!, vbOKOnly Exit Sub Else Adodc1.Recordset.Find 用户名= & Text1.Text & If Adodc1.Recordset.EOF = False Then If Adodc1.Recordset.Fields(密码) = Text2.Text Then MsgBox 登录成功！, vbOKOnly Unload Me formmain.Show Else MsgBox 密码不正确！, vbOKOnly End If Else MsgBox 用户名不正确！, vbOKOnly Exit Sub End If End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub42增加用户模块设计增加用户模块是用来增加用户的用户名、密码和权限的。增加用户模块界面：代码如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Find 用户名= & Text1.Text & If Adodc1.Recordset.EOF = False Then MsgBox 已存在此用户,请重新输入!, vbOKOnly Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1.Text) Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox 新用户添加成功, vbOKOnly End If Else MsgBox 两次密码输入不一致,请重新输入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub43修改密码模块设计修改密码模块是用来修改用户密码的。修改密码界面如下：代码如下：Private Sub Command1_Click() If Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Filter = 用户名= & Trim(Text1.Text) & If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.Fields(密码) = Trim(Text2.Text) Adodc1.Recordset.Update MsgBox 修改成功, vbOKOnly Exit Sub Else MsgBox 不存在此用户,无法修改!, vbOKOnly End If Else MsgBox 两次密码输入不一致,请重新输入!, vbOKOnly Exit Sub End IfEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Adodc1.RefreshEnd Sub44图书登记模块设计本模块用来填写图书登记的信息。图书登记模块界面：代码如下：Private Sub Command1_Click() On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.Description End SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(删除当前记录吗?, vbYesNo + vbQuestion) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox 这是最后一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox 这是第一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空记录, vbOKCancel + vbQuestionElse Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.EOF Then MsgBox 记录空, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit Sub End SubPrivate Sub Command7_Click() formmain.Show Form4.HideEnd Sub45图书借阅模块设计图书借阅模块主要列出了书借阅的详细信息。图书借阅模块界面：代码如下：Private Sub Command1_Click() On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(删除当前记录吗?, vbYesNo + vbQuestion) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox 这是最后一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox 这是第一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.EOF Then MsgBox 记录空, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空记录, vbOKCancel + vbQuestionElse Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form6.HideEnd Sub46图书赔偿模块设计该模块是用来填写图书是否损坏及如何赔偿的信息。图书赔偿模块界面：代码如下：Private Sub Command1_Click() On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr With Adodc1.Recordset If Not .EOF And Not .BOF Then If MsgBox(删除当前记录吗?, vbYesNo + vbQuestion) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then MsgBox 这是最后一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox 这是第一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click() If Adodc1.Recordset.EOF Then MsgBox 记录空, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit SubEnd SubPrivate Sub Command6_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 空记录, vbOKCancel + vbQuestionElse Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click() formmain.Show Form7.HideEnd Sub47查询输出模块设计查询输出模块的主要任务就是对所有图书信息进行查询。查询输出界面：代码如下：Private Sub Command1_Click() Dim condition As String If Text1.Text Then condition = Combo1.Text & = & Text1.Text & Adodc1.Recordset.Filter = condition If Adodc1.Recordset.EOF = True Then MsgBox 没有你要搜索的信息!, vbOKOnly End If Set DataGrid1.DataSource = Adodc1 Else MsgBox 搜索条件不能为空!, vbOKOnly End IfEnd SubPrivate Sub Command2_Click() formmain.Show Form3.HideEnd SubPrivate Sub Form_Load() Combo1.AddItem 购买日期End Sub48值班管理模块设计值班管理模块的作用是把值班人员的时间安排形成列表。值班管理界面：代码如下：Private Sub Command1_Click() On Error GoTo adderror If Command1.Caption = 新增记录 Then Command1.Caption = 确定 Command2.Enabled = False DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True Else If Not IsNull(DataGrid1.Bookmark) Then If Not IsDate(Trim(DataGrid1.Columns(值班开始日期).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式yyyy-mm-dd输入值班开始日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班开始时间).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式hh-mm输入值班开始时间, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止日期).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式yyyy-mm-dd输入值班截止日期, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(值班截止时间).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式hh-mm输入值班截止时间, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(值班人).CellText(DataGrid1.Bookmark) = Then MsgBox 值班人不能为空!, vbOKOnly + vbExclamation, Exit Sub End If Adodc1.UpdateMsgBox 添加信息成功!, vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Else MsgBox 没有添加信息!, vbOKOnly + vbExclamation, End If Command1.Caption = 新增记录 Command2.Enabled = True End Ifadderror: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub Command2_Click() Dim answer As String On Error GoTo delerror answer = MsgBox(确定要删除吗?, vbYesNo, ) If answer = vbYes Then DataGrid1.AllowDelete = True Adodc1.Delete Adodc1.Update DataGrid1.Refresh MsgBox 成功删除!, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = False Else Exit Sub End Ifdelerror: If Err.Number 0 Then MsgBox Err.Description