用VB编写一个简单的图书管理系统
vb数据库图书管理系统报告
实习报告一．题目要求设计一个简单的图书管理系统。
（图书管理分为借书，还书，图书维护等部分）1）录入图书信息，创建图书管理文件2）实现基本的图书管理功能（图书的借阅，还书，图书信息的管理等）二．功能分析编写这个程序考虑到系统比较复杂，而且实现的功能比较多，所以最后决定用Visual Basic来编写这个程序，这样编写时只要建立各个不同功能的窗体，让它们实现不同的功能，最后用代码将各个窗体连接起来就行。
1．系统结构该程序的总体任务是实现图书管理的系统化和自动化，帮助图书管理人员更好更高效的完成图书管理工作，该系统完成的具体功能如下：书籍管理部分：这一部分包括书籍类别管理和书籍信息管理两部分，其中，书籍类别管理包括添加书籍类别，修改图书类别等；书籍信息管理包括书籍信息的添加，书籍信息的修改，书籍信息的删除，书籍信息的查询等读者管理部分：这一部分包括读者类别管理和读者信息管理两部分。
其中，读者类别管理包括添加读者类别，修改读者类别等；读者信息管理包括添加读者信息，修改读者信息，删除读者信息，查询读者信息等借阅管理部分：这一部分包括借书信息管理和还书信息管理两部分。
其中，借书信息管理包括借书信息的添加，借书信息的修改，借书信息的查询等；还书信息管理部分包括还书信息的添加，还书信息的修改，还书信息的查询等系统管理部分：这一部分包括修改系统用户密码，增加新用户以及推出系统等2．程序设计1．系统的算法设计2．系统的数据结构设计该程序采用的是Acess2000作为后台数据库。
系统所需的数据库按照如下思路设计：书籍类别，书籍信息，读者类别，读者信息图书借阅部分等应该各自作为一个表存在，此外，系统管理员的信息单独用一个表来记录。
这样，整个数据库设计后的结果如图所示图书管理系统书籍管理部分 读者管理部分 借阅管理部分 借书管理系统管理部分 借书信息修改 还书管理增加用户修改密码读者类别管理添加读者类别 读者信息管理书籍信息添加 书籍信息管理书籍类别管理书籍信息删除书籍信息查询 书籍信息修改 书籍类别添加 书籍类别修改修改读者类别添加读者信息 修改读者信息 删除读者信息 借书信息查询借书信息添加 还书信息修改 还书信息添加 还书信息查询查询读者信息3．主要的功能模块流程图1）借书流程图开始设置使combo1和2相等Shumu>=maxnum提示该读者借书数额已满将新的借书数据添加到借阅信息数据库将该书的"是否已借书"设为是将该读者已借图书数量加1显示“借书成功！”结束YN2．还书流程图开始选择需要还书的读者单击“查询”选择要还的图书提示“是否确定还书”将此书从借阅表中删除将这本书的“是否已借出”设为否将这本书的读者“已借书数量”减1提示“成功删除！”结束3）添加用户流程图开始定义所需变量判断输入的用户名是否为空提示“用户名不能为空！”判断用户名是否重复提示“已经有这个用户！”检查两次输入的密码是否一致判断是否选择用权限提示：“添加用户成功！”提示选择正确的用户权限结束提示“两次输入的密码不一致！”YNYNNYNY4）修改密码流程图开始输入新密码将焦点设置在text1 判断两次输入的密码是否一致将text1和text2清空将新密码输入数据库提示“密码修改成功！”结束NY三．程序预览运行本程序系统，首先出现登录界面，输入正确的密码和用户名之后进入主窗体，如图1所示，主窗体菜单栏包含的主要菜单有图书管理，读者管理，图书借阅管理，系统管理等。
基于vb图书馆管理系统设计(含源文件)
【】一：登陆2、主窗体3、备份数据库4、借书先您要根据图书的编号或者图书的条形码（如果您有条码读入设备）来查找到读者要借的图书，然后在根据读者的编号查找到读者的信息，确认无误后，左下角的“借书”就由灰色变成黑色了，这样您就可以把这本图书借出了。
5、还书您可以根据要还图书的编号条码,或者还书读者的编号来确认，确认无误后，左下角的“还书”就由灰色变成黑色了，这样您就可以把这本图书归还了。
6、7、添加图书进入“数据管理”后点击“添加”。
图书信息里面的图书编号必须填写，这是为了唯一区分一本书的标识。
其他还要填写的信息有条形码，书名，作者，出版社，类别，页数，状态，出版时间，图书价格，借书期限。
借书时间和入馆时间还有借出次数这里不用填写在您填写完毕后点击“保存”就可以把您新添加的图书保存到数据库中了，图书的所有信息必须填写完整，如果您觉得有不必要的信息那么就填写“无”，如果您点击保存后提示“您的输入有误”，这可能是由于您所填写的图书编号在数据库中已经存在了。
因为图书编号是用来区分每一本图书的标识，所以您必须保证您填写的图书编号在馆中不会重复，如果您有的内容没有填写那么也会得到错误的提示。
8、添加读者进入“数据管理”后点击“添加”。
读者信息里面的读者编号必须填写，这是为了唯一区分一位读者的标识。
其他还要填写的信息有，姓名，性别，级别，住址，单位部门，备注，这里已借书数不用填写。
填写完毕后请点击“保存”就可以把您添加的读者保存到数据库中了，读者信息必须填写完整，如果您觉得有不必要的信息那么就填写“无”，如果您点击“保存”后提示“您的输入有误”，这可能是因为您填写的读者编号在数据库中已经存在了。
因为读者编号是用来区分每位读者的标识，所以您必须保证您填写的读者编号在馆中不会重复，如果您有的内容没有填写那么也会得到错误的提示。
查询操作查询操作分为图书查询和读者查询两类本系统为您提供了以下几种常用的查询有图书查询1.所有图书2.所有借出图书3.今日借出图书4.今日归还图书5.今日新近图书读者查询1.所有读者2.今日借书读者3.今日还书读者4.今日登记读者自定义查询这种查询方式可以根据您给定的条件查询，方便的查找到您想要的数据。
VB课程设计--图书管理系统
第0 页共22 页目录第一章绪论 (2)第二章需求分析 (3)2.1任务概述 (3)2.1。
1 图书管理系统完成的主要目标 (3)2。
1。
2用户的特点 (3)2。
2需求规定 (3)2。
2。
1对功能的规定 (3)2.2.2读者管理功能 (4)2.2。
3系统管理功能 (4)第三章概要设计 (5)3。
1总体设计 (5)3。
1.1系统目标设计 (5)3.1.2系统功能分析 (5)3.2系统设计思想 (5)3.3 系统模块功能解析 (6)第四章详细设计 (7)4.1程序设计说明 (7)4.1。
1用户登录模块 (7)4.1。
2用户添加模块 (7)4.1。
3书籍查询模块 (8)4。
1.4图书借阅模块 (9)4.1。
5图书归还模块 (10)4。
1.6新书入库模块 (11)第五章编码与测试 (13)5。
1各功能模块的实现 (13)5。
2 测试 (19)5.2。
1借阅卡管理测试 (19)5.2.2书籍管理测试 (19)5。
2.3系统管理测试 (19)结束语 (20)致谢 (21)参考文献 (21)图书管理系统摘要:本文介绍了在VB6。
0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程.通过分析传统的人工管理图书馆的不足，创建了一套行之有效的计算机管理图书馆的方案。
文章详细介绍了图书管理信息系统的系统分析部分，包括可行性分析、组织机构分析、管理职能分析、业务流程分析、数据流程分析、数据字典、处理描述等等；系统设计部分主要介绍了系统功能设计和数据库设计；系统实现部分列出了几个主要的程序框图,并附带了一些主要的窗口和程序。
关键字:图书管理系统,VB6.0,sqlserver2000,信息系统Library Management SystemAbstract：This article introduces the detailed process of exploring a management information system under the environment of VB6。
VB图书管理系统 课程设计报告
VB语言程序设计课程设计报告系 (部)专业班级学生姓名学号/序号指导教师完成时间图书管理系统一、功能描述使用VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等），建立了这个简易的图书管理系统，方便图书管理人员对图书的管理。
用户可以通过此系统的添加、删除，还回，借出等功能对书籍信息、书籍流通进行编辑同时也可以通过直接输入想要查询的书籍信息来获得书籍的流通及库存等相关信息。
二、概要设计1、系统功能模块框图设计首先程序运行，出现一个MDI主窗体，里面分别有登录，书籍信息管理系统，退出三个菜单选项，登录前，管理按钮不可用，当正确输入用户名以及密码以后，点管理按钮，图书管理窗体显示，用户可对图书信息进行管理。
2、数据库设计创建一个数据库为mydb.mdb，该数据库共包含3张表，分别为“书籍信息表”、“图书归还表”和“图书借出表”，表结构如下：书籍信息表：图书编号、图书名、作者、出版社、数量、出版日期、价格图1. 书籍信息表图书归还表：图书编号、图书名、作者、出版社、数量、图书是否损坏、借出日期、归还日期；图2. 图书归还表图书借出表：图书编号、图书名、作者、出版社、借出数量、借出时间、联系电话、借出期限、借出者姓名。
图3. 图书借出表三、详细设计1、MDI主界面用户登录模块中登录与取消两按钮，单击登录会进入系统进行下一步的操作，用户名文本框与数据库相连接，当在用户名文本框输入用户名后点击登录按钮后，会在数据库中进行查询看数据库中是否会有该用户名，且该用户名的密码是否与密码框中输入的相同，如果相同会进入系统，如果不存在该用户名或密码与用户名不相匹配，则会提示“密码错误”，用户名文本框会得到焦点，让重新输入。
（1）窗体截图（如图5.1）图1 MDI主界面图2 登录窗体1.功能实现用户登录Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 ThenMDIForm1.bj.Enabled = TrueForm3.HideElsemsg = "密码错误，请重新输入。
图书管理系统(VB)
摘要图书馆信息管理系统是一种在学校中常用的一种系统。
它从图书的入库登记到查询浏览，从读者的管理到图书的借阅，形成了一个整体自动化管理模式。
本论文以学校的图书馆为例。
系统主要有三个方面的内容：一方面是图书管理，主要包括新书入库图书整理图书信息的修改等方面。
一方面是图书借阅，主要包括图书的借阅和归还。
第三方面是信息查询，主要包括图书目录查询读者信息查询等。
论文设计以这三个方面展开，形成一套完整的图书馆信息管理系统。
本设计为图书管理系统，是根据图书馆，用户，管理员等的实际情况为基础，是数据库系统的开发。
把它们转变为有效的数据库设计。
把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。
因此本人结合开入式图书馆的要求，对数据库管理系统、SQL语言原理、VB 应用程序设计，VB数据库技术进行了较深入的学习和应用，主要完成对图书管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。
系统运行结果证明，本文所设计的图书管理系统可以满足借阅者、图书馆管理员的需要。
关键词：图书，Visualbasic6.0，ACCESS，借阅AbstractThe library information management system is one kind in the school the commonly used one kind of system. It goes into storage from the books registers to the inquiry browsing, from reader's management to books borrowing, has formed a whole automation management pattern. The present paper take the school library as an example. The system mainly has three aspects the contents: On the one hand is the books management, mainly includes the new book to go into storage books reorganization books information aspect and so on revision. On the one hand is the books borrows, mainly includes the books to borrow and to return. The third aspect is the information inquiry, mainly includes the library catalog to inquire the reader information inquiry and so on. The paper design launches by these three aspects, forms a set of complete libraries information management system.This design for the books management system management system, is acts according to the library, the user, the manager and so on the actual situation is a foundation, is the database system development. Transforms them into the effective database design. Transforms the design into the reality database, and these databases have the function to be complete, the high efficiency application.Therefore myself unify enter the type library the request, to the database management system, the SQL language principle, the VB application programming, the VB data bank technology has carried on the thorough study and the application, mainly completes to the books management system management system demand analysis, the function module division, the database pattern analysis, and from this has designed the database structure and the application procedure. The system movement result proved, this article designs the books management system management system may satisfied borrowing, librarian's need.Key word: The books, Visualbasic6.0, ACCESS, borrows目录摘要 (I)ABSTRACT ........................................................... I I 第一章绪论.. (1)1.1课题背景 (1)1.2课题来源和意义 (2)1.3国内外发展概况 (2)1.4系统可行性分析 (3)第二章系统开发技术 (5)2.1系统的架构 (5)2.2系统运行环境操作系统 (5)2.3系统开发环境 (5)2.4开发工具 (6)第三章总体设计 (9)3.1 系统调查 (9)3.2 数据字典 (10)3.3 软件模块结构设计 (11)3.4 数据库设计 (12)3.4.1 概念结构设计 (13)第四章系统实现 (17)4.1登录界面 (17)4.2 系统主界面 (18)4.3 模块功能的实现 (19)第五章结束语 (30)致谢 (31)参考文献 (32)第一章绪论1.1课题背景数据库应用系统开发简介在数据库应用系统开发之前，对开发数据库的基本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。
用VB编写一个简单的图书管理系统
用VB编写一个简单的图书管理系统Srl2011009（学号）石二辽（某）指导教师徐哲鑫【摘要】笔者采用Visual Basic 6.0 为开发工具，设计一款具备友好的图形用户界面、简便操作的图书管理系统。
充分利用计算机功能实现读者管理、书籍管理、借还书籍管理等信息的自动化控制，将使图书管理员从繁杂、重复的劳作中解放出来。
【关键词】图书；面向对象；软件工程1概述1.1开发背景用计算机管理图书馆里一切信息是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具，使用实用的图书管理程序来帮助图书馆管理员进行更有效的图书管理。
1.2图书管理系统产生的背景图书管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。
而对于前端应用程序则要求应用程序具备功能完备、友好的图形用户界面、便捷使用等特点[1]。
1.3 系统功能要求的分析开发本系统的总体任务是实现图书管理系统的系统化和自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有:书籍管理部分:图书类别管理和图书信息管理。
其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。
读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。
借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。
系统管理部分:添加管理员,修改密码,退出系统。
2开发环境及实现技术介绍2.1开发软件介绍由于我的工作单位是一所中心小学，有大量的书籍，读者有学生、老师，于是本人想设计一款实用的图书管理系统，方便学校图书管理员工作，增强图书借阅力度，良好地管理书籍及其借阅信息。
毕业设计(论文)-图书馆图书信息管理系统设计(VB设计)
目录摘要一、概述 (2)二、本系统概况 (3)2.1 软件配置 (3)2.2 硬件配置 (3)三、系统设计 (4)3.1 系统功能要求 (4)3.2 系统性能要求 (5)四、数据库设计及配置 (7)4.1 图书信息表的关系图 (7)4.2 Library数据库各信息表介绍 (7)4.2.1 管理员信息表 (7)4.2.2 读者信息表 (8)4.2.3 图书借阅信息表 (8)4.2.4 图书清单信息表 (8)4.2.5 图书类别信息表 (10)4.2.6 图书编码信息表 (10)五、系统程序实现 (11)5.1 设计概况 (11)5.2 系统界面及各主要模块核心代码 (12)5.2.1 系统登录界面 (12)5.2.2 系统主界面 (14)5.2.3 管理员登记界面 (22)5.2.4 图书分类界面 (30)5.2.5 读者办理借书证界面 (34)5.2.6 图书借阅统计分析界面 (37)致谢参考资料图书馆图书信息管理系统摘要：本次毕业设计任务是开发图书馆管理系统。
采Visual Basic和MS SQLSERVE等软件为开发工具；通过对计算机硬件和软件解决方案的论证；对应用领域进行调查分析；参考各种资料和进行数据库编程实践。
在指导老师的帮助下，已经基本上成功地实现了设计任务书的要求。
使得我们设计的数据库系统能够实现图书借阅管理，图书馆书籍管理等功能。
图书管理系统是图书馆管理工作中不可缺少的部分,它的内容对于图书馆的管理者和使用者来说都至关重要,所以图书管理系统应该能够为管理者或读者提供充足的信息和快捷的数据处理手段。
但一直以来人们使用传统人工的方式进行图书管理和借阅管理，这种管理方式存在着许多缺点,如:效率低、易忘记、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
用vb设计图书管理系统
用vb设计图书管理系统用vb设计图书管理系统VB课程设计报告目录摘要关键字一系统规划 1.1系统功能描述 1.2功能模块划分1.3 E-R图二系统界面的开发 2.1登录界面 2.2用户管理界面三系统的详细设计3.1登录界面代码 3.2各功能代码四心得体会及认识致谢摘要随着人类社会的发展，人类对知识的需求也不断地增长。
在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置。
如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到绘本馆的发展，因此，开发一套完善的图书管理系统就必不可少了，图书管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
经过分析，使用Microsoft公司的Visual Basic6.0为开发工具，利用其提供的各种面向对象的可视化开发平台作为开发工具，采用面向对象技术，图形化的应用开发环境，尤其是它有一个功能极其强大的集成环境提供给开发人员，使得开发人员可通过菜单、界面、图形浏览工具、对话框以及嵌入的各种生成器来轻松地完成各种复杂的操作。
开发过程中不断修正和改进，直到形成用户满意的可行系统。
本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发“的策略开发本系统的详细过程，提出实现图书信息管理、资源共享的基本目标，从而推动迈向数字化图书馆的步伐，并阐述系统结构设计和功能设计，从图书的入库登记、借阅登记到查询浏览，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。
关键词：图书管理系统；借阅；浏览；编辑；Visual Basic 6.0 一系统规划1.1主要功能录入、删除、修改及查询1.2模块结构划分此功能分为几个模块读者种类信息：读者基本信息书籍信息借书信息还书信息1.3建立如下E-R图图书管理系统基础信息维护用户信息用户登录退出更改密码读者管理读者信息图书管理图书信息期刊管理期刊信息查询读者查询用户借阅与借阅信息统计分析管理统计管理刷新添加删除修改添加刷新修改书号书名作者出版社状态二系统界面的开发2.1 用户登录用户登录界面1、输入账号与密码点击“登录” 直接登录进入管理界面。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用V B编写一个简单的图书管理系统-标准化文件发布号：（9456-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII用VB编写一个简单的图书管理系统Srl2011009（学号）石二辽（姓名）指导教师徐哲鑫【摘要】笔者采用Visual Basic 6.0 为开发工具，设计一款具备友好的图形用户界面、简便操作的图书管理系统。
充分利用计算机功能实现读者管理、书籍管理、借还书籍管理等信息的自动化控制，将使图书管理员从繁杂、重复的劳作中解放出来。
【关键词】图书；面向对象；软件工程1概述1.1开发背景用计算机管理图书馆里一切信息是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具，使用实用的图书管理程序来帮助图书馆管理员进行更有效的图书管理。
1.2图书管理系统产生的背景图书管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。
而对于前端应用程序则要求应用程序具备功能完备、友好的图形用户界面、便捷使用等特点[1]。
1.3 系统功能要求的分析开发本系统的总体任务是实现图书管理系统的系统化和自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有:书籍管理部分:图书类别管理和图书信息管理。
其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。
读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。
借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。
系统管理部分:添加管理员,修改密码,退出系统。
2开发环境及实现技术介绍2.1开发软件介绍由于我的工作单位是一所中心小学，有大量的书籍，读者有学生、老师，于是本人想设计一款实用的图书管理系统，方便学校图书管理员工作，增强图书借阅力度，良好地管理书籍及其借阅信息。
2．2模块设计[2]书籍管理部分实现对书籍类别、书籍信息的添加、修改、删除等操作。
读者管理部分实现对读者类别、读者信息的添加、修改、删除等操作。
借阅管理部分实现对借书信息、还书信息的添加、修改、查询等操作。
系统管理部分实现超级用户对普通用户的用户名和密码对注册、修改等操作。
2．3程序预览运行本系统程序，首先出现登录界面（图2），输入正确用户名及密码后进入主窗体（图3），主窗体上的主菜单栏有：书籍管理、读者管理、借阅管理、系统设置及帮助。
图2图32.3.1书籍管理功能“书籍管理”菜单下有两个一级菜单：“书籍信息管理”和“书籍类别管理”。
具体操作如下：1．“书籍类别管理”下有三个子菜单：“新增”、“修改”、“删除”。
单击“新增”菜单，打开“新增书籍类别”窗体（图4）。
单击“修改”或“删除”，都会打开“书籍类别信息管理”窗体（图5）。
图4 图52．“书籍信息管理”下有四个子菜单：“新增图书”、“修改书籍信息”、“删除书籍信息”、“查询书籍信息”。
单击“新增图书”菜单，打开“新增书籍”窗体（图6）。
单击“修改”或“删除”，都会打开“书籍信息管理”窗体（图7）。
单击“查询书籍信息”菜单，打开“查询图书”窗体（图8）图6图7图82.3.2读者管理功能“读者管理”菜单下有两个一级菜单：“读者类别管理”和“读者信息管理”。
1．“读者类别管理”下有3个子菜单：“添加读者类别”、“修改读者类别”、“删除读者类别”。
单击“添加读者类别”菜单，打开“添加读者类别”窗体（图9）；单击“修改读者类别”和“删除读者类别”菜单，都会打开“读者类别管理”窗体（图10）。
图9 图102．“读者信息管理”菜单下有4个子菜单：“添加读者信息”、“修改读者信息”、“删除读者信息”和“查询读者信息”。
单击“添加读者信息”菜单，打开“添加读者信息”窗体（图11），单击“修改读者信息”和“删除读者信息”菜单，都会打开“读者信息管理”窗体（图12），单击“查询读者信息”菜单，打开“查询读者信息”窗体（图13）。
图11图12 图132.3.3图书借阅管理功能“借阅管理”菜单下有2个一级菜单：“借书管理”和“还书管理”。
1．“借书管理”菜单下有2个子菜单：“添加借书信息”和“查询借书信息”。
单击“添加借书信息”先打开的是“查询图书”窗体（图8），找到需要借阅的图书后，单击“借这本书按钮”，打开“借书”窗体（图14）；单击“查询借书信息”菜单，打开“查询借书信息”窗体（图15）。
图14 图152.单击“还书管理”，打开“还书”窗体（图16）。
图162.3.4系统管理功能“系统管理”菜单下有3个子菜单，分别是“添加管理员”、“修改密钥”和“退出系统”。
单击“添加管理员”子菜单，打开“添加管理员”窗体（图17），单击“修改密钥”子菜单，打开“修改密码”窗体（图18），单击“退出系统”，备份数据并退出本系统。
图17 图182.3.5帮助菜单单击“帮助”菜单，打开系统信息窗体（图1），点击系统信息窗体任何一处，关闭该信息窗体，返回主窗体。
图12.4数据库设计数据库名为sj.mdb,在库中设计六张表，它们分别为dzlb(读者类别表)、dzxx(读者信息表)、jyxx(借阅信息表)、sjxx(书籍信息表)、sjlb(书籍类别表)、sys(系统管理表)。
2.4.1读者类别表，表名为dzlb,字段名称有读者类别名称、读者借书数量、借书期限及有限期限，设置“读者类别名称”为主键，是必填字段，不允许空值。
2.4.2读者信息表: 设置“读者编号”为主键，“读者编号”、“读者姓名”为必填字段，不允许空值。
2.4.3 借阅信息表:2.4.4书籍信息表: 设置“图书编号”为主键，“图书编号”、“书籍名称”为必填字段，不允许空值。
2.4.5图书类别表:2.4.6系统管理表:2.4.7数据库连接方式选择Visual basic6.0连接数据库的主要方式有以下几种方式：一是用data控件进行数据库链接,二是利用adodc（ADO Data Control)进行数据库链接。
三是:利用DataEnvironment进行数据库链接，四是利用ADO(ActiveX Data Objects)进行编程。
利用DAO对数据库进行操纵[3]:在visual basic 中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO 是database object的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持.DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.关系数据库介绍[4]:关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。
20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。
在数据库发展的历史上，最重要的成就就是关系模型。
关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。
结构化查询语言SQL（Structured Query Language）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。
目前已成为关系数据库的标准语言。
Microsoft Access介绍:使用Microsoft Access，可以在单一的数据库文件中管理所有的信息。
在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据，请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。
查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。
在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。
例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。
2．5系统代码[5]2.5.1主界面代码:2.5.1.1添加管理员菜单Private Sub addadmin_Click()addadminf.ShowEnd Sub2.5.1.2添加读者类别菜单Private Sub adddzlb_Click()Adddzlbf.ShowEnd Sub2.5.1.3添加读者信息菜单Private Sub adddzxxf_Click()Adddzxxf.ShowEnd Sub2.5.1.4添加还书信息菜单Private Sub addhs_Click()hsf.ShowEnd Sub2.5.1.5添加借书信息菜单Private Sub addjs_Click()Jsf.ShowEnd Sub2.5.1.6添加图书类别菜单Private Sub addlb_Click()addtslb.ShowEnd Sub2.5.1.7查询读者信息菜单Private Sub cxdzxx_Click() cxdzxxf.ShowEnd Sub2.5.1.8查询借书信息菜单Private Sub cxjs_Click() cxjsxxf.ShowEnd Sub2.5.1.9查询书籍信息菜单Private Sub cxsj_Click() cxsjf.ShowEnd Sub2.5.1.10删除读者类别菜单Private Sub Deldzlb_Click() dzlbxxf.ShowEnd Sub2.5.1.11删除读者信息菜单Private Sub Deldzxx_Click() dzxxglf.ShowEnd Sub2.5.1.12删除书籍类别菜单Private Sub dellb_Click() sjlbxxf.ShowEnd Sub2.5.1.13帮助菜单Private Sub hlep_Click() frmSplash.ShowEnd Sub2.5.1.14退出系统菜单Private Sub Unload_Click() endEnd Sub2.5.1.15修改读者类别菜单Private Sub Xgdzlb_Click() dzlbxxf.ShowEnd Sub2.5.1.16修改读者信息菜单Private Sub xgdzxx_Click() dzxxglf.ShowEnd Sub2.5.1.17修改书籍类别菜单Private Sub xglb_Click() sjlbxxf.ShowEnd Sub2.5.1.18修改用户密码菜单Private Sub xgmm_Click() xgmmf.ShowEnd Sub2.5.1.19修改书籍信息菜单Private Sub xgts_Click()sjxxf.ShowEnd Sub2.5.1.20新增图书信息菜单Private Sub xzts_Click()addtsf.ShowEnd Sub2.5.2添加图书类别添加图书类别代码:Private Sub Command1_Click()Dim Sq1 As StringDim rs_add As New ADODB.RecordsetSql = "select * from sjlb where 类别名称='" & Text1.Text & "'"rs_add.Open Sql, Sjk, adOpenKeyset, adLockPessimisticIf Trim(Text1.Text) = "" ThenMsgBox "图书类别不能为空", vbOKOnly + vbExclamation, "注意"Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = "" ThenMsgBox "图书编号不能为空", vbOKOnly + vbExclamation, "注意"Text2.SetFocusExit SubEnd IfIf rs_add.EOF = True Thenrs_add.AddNewrs_add.Fields(0) = Trim(Text2.Text)rs_add.Fields(1) = Trim(Text1.Text)rs_add.UpdateMsgBox "成功地添加 " & Text1.Text & " 这一图书类别", vbOKOnly, "恭喜"rs_add.CloseElseMsgBox " " & Text1.Text & " 这一图书类别已存在", vbOKOnly + vbExclamation, "图书类别不能重复"rs_add.CloseEnd IfText1.SetFocusText1.Text = ""Text2.Text = ""End SubPrivate Sub Command2_Click()Unload MeEnd Sub2.5.3修改图书类别:Option ExplicitDim Myjl As New ADODB.RecordsetPrivate Sub Form_Load()Dim Sq1 As StringOn Error GoTo loaderrorSq1 = "select * from sjlb "Myjl.CursorLocation = adUseClientMyjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimisticCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseDg.AllowAddNew = FalseDg.AllowDelete = FalseDg.AllowUpdate = FalseSet Dg.DataSource = MyjlExit Subloaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Cmdadd_Click()Dg.AllowAddNew = TrueDg.AllowUpdate = TrueCmdadd.Enabled = FalseCmdupdate.Enabled = TrueEnd SubPrivate Sub Cmdadd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Cmdadd.Caption = "点击此处也可以添加"Cmdadd.Width = 3000End SubPrivate Sub Cmdcancel_Click()Myjl.CancelUpdateDg.RefreshDg.AllowAddNew = FalseDg.AllowUpdate = FalseCmdxg.Enabled = TrueCmddel.Enabled = TrueCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseEnd SubPrivate Sub Cmddel_Click()Dim Srl As StringOn Error GoTo delerrorSrl = MsgBox("确定要删除吗", vbYesNo)If Srl = vbYes ThenDg.AllowDelete = TrueMyjl.DeleteMyjl.UpdateDg.RefreshElseEnd Ifdelerror:MsgBox Err.DescriptionEnd SubPrivate Sub Cmdupdate_Click()If Not IsNull(Dg.Bookmark) ThenMyjl.UpdateCmddel.Enabled = TrueCmdxg.Enabled = TrueCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseDg.AllowUpdate = FalseMsgBox "修改成功", vbOKOnly + vbExclamation, "恭喜成功"End IfCmdadd.Width = 1550Cmdadd.Caption = "高级"Cmdadd.Enabled = TrueEnd SubPrivate Sub Cmdxg_Click()Dim Srl As StringOn Error GoTo xgCmddel.Enabled = FalseCmdxg.Enabled = FalseCmdupdate.Enabled = TrueCmdcancel.Enabled = TrueDg.AllowUpdate = Truexg:If Err.Number <> 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set Dg.DataSource = NothingMyjl.CloseEnd Sub2.5.4添加读者类别界面:Private Sub Command1_Click()Dim Srl As StringDim Mybook As New ADODB.RecordsetIf Trim(Text1.Text) = "" ThenMsgBox "读者类别名称不能为空", vbOKOnly + vbExclamation, "注意" Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = "" ThenMsgBox "借书数量不能为空", vbOKOnly + vbExclamation, "注意" Text2.SetFocusExit SubEnd IfIf Trim(Text3.Text) = "" ThenText3.SetFocusExit SubEnd IfIf Trim(Text4.Text) = "" ThenMsgBox "有效期限不能为空", vbOKOnly + vbExclamation, "注意"Text4.SetFocusExit SubEnd IfOn Error GoTo CwSrl = "select * from dzlb where 读者类别名称='" & Text1.Text & "'"Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticIf Mybook.EOF ThenMybook.AddNewMybook.Fields(0) = Trim(Text1.Text)Mybook.Fields(1) = Trim(Text2.Text)Mybook.Fields(2) = Trim(Text3.Text)Mybook.Fields(3) = Trim(Text4.Text)Mybook.UpdateMsgBox " 您已经成功添加" & Text1.Text & "这一读者类别 ", vbOKOnly + vbExclamation, "添加成功!"Mybook.CloseElseMsgBox "读者类别名称为" & Text1.Text & " 重复", vbOKOnly + vbExclamation, "注意重复" Text1.SetFocusText1.Text = ""Mybook.CloseExit SubEnd IfCw:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim Sq1 As String '定义一个字符串变量Dim Myjl As New ADODB.Recordset '定义一个Recordset对象变量End Sub2.5.5查询读者信息代码:Private Sub Form_Load()Dim Sq1 As String '定义一个字符串变量Dim Myjl As New ADODB.Recordset '定义一个Recordset对象变量Sq1 = "select * from dzlb"Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimisticDo While Not Myjl.EOFCombo1.AddItem Myjl.Fields(0)Myjl.MoveNextCombo1.ListIndex = 0Myjl.CloseEnd SubPrivate Sub Command1_Click()Dim Srl As String '定义一个字符串变量Dim Mybook As New ADODB.Recordset '定义一个Recordset对象变量If Check1.Value = vbChecked ThenSrl = "读者编号='" & Trim(Text1.Text & "") & "'"End IfIf Check2.Value = vbChecked ThenIf Trim(Srl) = "" ThenSrl = "读者姓名='" & Trim(Text2.Text & "") & "'"ElseSrl = Srl & "and 读者编号='" & Trim(Text2.Text & "") & "'" End IfEnd IfIf Check3.Value = vbChecked ThenIf Trim(Srl) = "" ThenSrl = "读者类别='" & Trim(Combo1.Text & "") & "'"ElseSrl = Srl & "and 读者类别='" & Trim(Combo1.Text & "") & "'" End IfEnd IfIf Srl = "" ThenMsgBox "请选择一种查询依据", vbOKOnly + vbExclamation, "查询方式" Exit SubEnd IfSrl = "select * from dzxx where " & SrlMybook.CursorLocation = adUseClientMybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticDg.AllowAddNew = FalseDg.AllowDelete = FalseDg.AllowUpdate = FalseSet Dg.DataSource = MybookEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub2.5.6图书借阅管理模块代码：2.5.6.1查询书籍窗体代码Private Sub Form_Load()’窗体加载时就书籍类别加载到列表框中。