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课程设计--图书管理系统
第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图书管理系统课程设计
vb图书管理系统课程设计VB课程设计报告题目：图书管理系统学院：信息工程学院专业：信息工程（信息安全方向）班级：1132101姓名：赖玉蕾学号: 30210102指导老师：魏树权目录摘要关键字一系统规划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图。
基于VB的大学图书管理系统的设计
基于VB的大学图书管理系统的设计摘要：为了实现图书馆的信息化管理，提出了以visual basic6.0为编程语言，将access 2003数据库作为后台数据库，设计一个现代化的图书管理系统。
结果表明：该系统便于图书的管理和统计，为对智能化管理信息提供了一个新的方法。
关键词：图书管理；数据库；access 2003；visual basic1.引言传统的图书管理对象是书，随着计算机科学的发展，大学的图书馆的藏书量越来越多，这样的管理方法已经与时代脱轨了。
21世纪是一个信息化的时代，这样的管理系统必然遭到淘汰，取代它的是以计算机为核心的信息系统。
信息系统的管理包括科学的管理和规范的系统设计，可以对信息进行采集、传送、编辑、修改等等，这样的系统还可以对数据进行存储、传递等操作。
--！> 开发图书馆信息管理系统的目的是可以将大量的书籍的相关信息存储在电脑中，便于图书的管理与维护，使图书的反复利用率得到改善。
2.系统设计图书馆最大的特点就是藏书过万，数量庞大的图书自然需要人为细心的管理，可是，根据传统的人为管理方法不得当，往往造成大量图书的丢失、损坏，所以，开发出一个可以高效的信息管理系统是一种趋势，这样的系统不但可以便于图书的管理，更是为借阅者提高更好的便利条件，而且，该系统拥有友好的交互界面，高效的运行速度和系统维护。
2.1 需求分析图书管理系统是为了借阅者而服务的，管理该系统的正是图书馆管理人员。
为了方便图书借阅者可以直接查询所需的书籍信息，本系统有一个登陆系统，需要图书借阅者（大学生）的个人信息，包括学号和密码，初始密码都是自己的学号，学生可以根据自身需要对其进行设置，在一定程度上，保证了学生个人的隐私。
学生-借阅者，只是拥有查询书籍的权利，可以知道所需书籍目前的位置，库存量，是否可以借阅等少量信息。
信息管理系统希望服务的对象-借阅者，而在后台操作一切的则是图书馆者。
因为图书馆书籍的数目过多，要求数据库一定可维护性，所以，图书管理者的任务艰巨，在为各类图书借阅服务的同时，还要维护图书馆的秩序。
VB图书管理系统(VB课程)开题报告
本人认为,开发新一代图书馆信息管理系统,一是要坚持系统工程和软件工程的思想和有关标准、规范,二是要以网络为基本环境，采用最新的信息技术，三是要适应图书馆服务功能的巨大变化，能提供多层次和多种形式的、有针对性的、高质量和个性化的信息服务和知识服务，四是要满足网络读者的使用要求和不同的操作习惯。
［4.]高树芳 软件工程 大连理工大学出版社
[5］杨玉霞，汪永超,王亚森,刘勇.B／S结构企业培训管理信息化系统的研究[J］。计算机工程与设计.30(5)，2009
［6］覃国蓉。《基于B／S架构的软件项目实践》[M].北京：电子工业出版社.2004
[7]新艺科技 DreamweaverCS3网页设计技术入门篇 ［M］.北京:清华大学出版社 2008。12 P:1—
六、指导教师审查意见
指导教师签名：日期：年月日
所在系意见:
负责人签名（签章）：日期：年月日
安徽涉外经济职业学院
信息与计算机系毕业生
毕业设计开题报告及论文工作计划表
课题名称VB图书管理系统（VB课程）059
班级
姓名
指导教师
开题日期2010年11月18日
安徽涉外经济职业学院信息与计算机系
2010年11月18日
一、文献综述与选题背景
1.本课题的研究意义，国内外研究现状、水平和发展趋势
研究的意义：
四、工作计划
序号
阶段及内容
工作量估计
（时数)
起讫日
4
开题报告、查阅资料
系统分析、系统设计
程序编写、系统调试
论文撰写
基于VB的图书管理系统设计(毕业论文doc)
摘要随着现代科学技术的进步，人类社会正逐渐走向信息化，图书馆拥有丰富的文献信息资源,是社会系统的重要组成部分，在信息社会中起着越来越重要的作用。
我国图书馆信息技术的应用起步于20世纪70年代末期，随着改革开放步伐的迅速发展，特别是90年代以后，我国图书馆信息网络建设取得了较大发展,图书馆信息化建设迈向了一个新台阶。
图书馆管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据的一致性和完整性强，数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
本系统后台数据库使用access，前台开发工具使用Visual Basic6.0.采用目前比较流行的ADO数据访问技术，成功地将面向对象的程序设计思想应用到数据库应用程序设计中。
实现了，图书管理、读者管理、借阅管理、系统管理，四大功能。
【关键词】图书，面向对象，数据库，ADO数据访问技术.AbstractAlong with the technical advance in modern science，mankind society head for gradually the information turns, the library owns the abundant cultural heritage information resources, using the importance of the social system to constitute the part，in information society the function is more and more important，our country information technical and applied in library start in 20 centuries 70’s last phase, is liberal to develop quickly along with the step that reform, especially 90’s hereafter，our country library information network developments obtained the big development library information turns developments headed into a new step。
图书管理系统需求分析报告-VB编程毕业设计
需求分析报告一、引言图书管理是高校内每一个系部或院部都必须切实面对的工作,但一直以来人们使用传统的人工方式管理图书资料。
这种方式存在着许多缺点,如效率低、保密性差且较为繁琐。
另外,随着图书资料数量的增加,其工作量也将大大增加,这必将增加图书资料管理者的工作量和劳动强度,这将给图书资料信息的查找、更新和维护都带来了很多困难。
经过详细的调查,目前我国各类高等学校中有相当一部分单位图书资料管理还停留在人工管理的基础上。
这样的管理机制已经不能适应时代的发展,其管理方法将浪费许多人力和物力。
随着科学技术的不断提高,这种传统的手工管理方法必然被以计算机为基础的信息管理方法所取代。
图书管理作为计算机应用的一个分支,有着手工管理无法比拟的优点,如检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高图书管理的效率。
因此,开发一套能够为用户提供充足的信息和快捷的查询手段的图书管理系统,将是非常必要的,也是十分及时的。
二、任务概述经过对我校详细调查,并多次与负责图书管理的老师进行研讨后,加深了对现行图书管理业务的深刻了解,与此同时,将整个图书管理的业务流程抽象描述如下:①新的图书购进后,分门别类地进行归并并汇总,加以编号。
②新书编号后,上到书架以备学生借阅。
③如某学生需要借阅图书,则在其本人的借阅登记表上进行登记,记录相关借阅信息与借阅日期。
④学生借阅图书后,应及时归还图书,并在本人的借阅登记表上注明还书日期和时间。
根据以上调查分析,可以给出其现行业务流程图如图1所示。
图1 现行图书管理业务流程图三、数据描述经过详细的调查,我们已经清楚了解了现行的业务流程,接下来给出系统的逻辑模型。
构造系统逻辑模型的工具是数据流图和数据字典。
根据现行图书管理的业务流程,首先把数据流图中的源点和终点都选定为学生,因此可以得到图书管理系统的基本系统模型,如图2所示。
图2 图书管理系统的基本系统模型根据基本系统模型,对其逐步细化,得到描述逻辑系统细化后的数据流图,如图3所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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 = "密码错误，请重新输入。
"style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.ShowElseEnd IfEnd IfEnd Sub2、图书管理窗体图3 图书管理窗体2.功能实现对图书信息添加Private Sub Command1_Click()Select Case Command1.CaptionCase "添加"Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNew End SelectSSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCase "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd SelectSSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd Sub四、调试中存在的问题及解决方法1、程序运行顺序出现的错误程序运行时没有按照预想的窗体顺序运行，导致程序无法顺利进行下去。
解决方法：在工程属性窗口中，将启动对象改为指定窗体即可。
2、无法正确查询指定书籍信息的错误点击查询按钮，出现错误提示，程序中的索引不是指定表格中的索引。
解决方法：将表格中的索引信息删除后重新设定，使其与程序中的一致。
3、无法成功添加书籍信息添加程序运行到保存信息时，跳过了中间部分，直接运行“添加数据到数据库时出错，注意检查图书编号是否重复，及其他各项数据是否正确。
”语句，导致无法成功添加书籍信息。
五、心得体会在本次VB课程设计中，我进一步熟悉VB6.0开发环境，了解了用VB6.0实现一个完整应用程序的设计过程，有关代码编写、调试和整合程序的方法和技巧。
进一步掌握了VB6.0中各种控件的常用属性和事件、数组的各种操作以及数据库的相关操作（数据库的建立、编辑、查找、删除等）。
在我所设计图书管理系统的过程中，并不是一帆风顺的，我遇到了这样或那样的问题，首先在链接数据库的时候，我按照书上的步骤将属性改好，但当我第二天再次访问数据库的时候，提示文件找不到，由于第一次我链接数据库的地址在桌面，没有将数据库放在我的工程文件夹里，所以导致了文件找不到。
然后，当我在设置DATA控件的属性时，又不小心在窗体加载中用代码写入了DATA的属性，导致数据链接不上，后面也出现了几次由于我的疏忽，导致程序出错。
这让我意识到，在软件开发的过程中，一点小小的错误，都不能完成，可谓是“失之毫厘谬以千里”。
因此，我们需要很细心才能完成这个过程。
虽然，我所制作的简易图书管理系统可以进行对书籍信息的添加，删除，修改等功能，但是也存在很多不足。
在登录设计中，我没有建立用户数据库，用代码只编写了一个用户。
在查询的时候，由于我用DATA控件链接数据库，虽然添加了两个索引，但还是只能用图书编号一个索引进行查询，我没能找到解决的方法。
还有在图书归还以及借出的环节，考虑的不太完善。
最后，我很感谢在程序设计的过程中，老师细心地讲解与建议，给了我很大的帮助，在此次课程设计中，我受益匪浅。
六、参考文献【1】罗朝盛. Visual Basic 6.0程序设计教程(第3版)[M].人民邮电出版社，2009.02 【2】邵洁. Visual Basic 6.0程序设计教程(第4版) [M]. 东南大学出版社，2008.02 【3】邵洁. Visual Basic 6.0实验与测试(第4版) [M]. 东南大学出版社，2008.02七、附录MDI主界面Private Sub dl_Click()Form3.ShowEnd SubPrivate Sub gl_Click()Form2.ShowEnd SubPrivate Sub MDIForm_Load()gl.Enabled = False '在登录之前，管理按钮不可用End SubPrivate Sub tc_Click()EndEnd Sub登录窗体Private Sub Command1_Click()Dim msg, style, title, responseIf Text2.Text = 123 Then '密码为123时，管理可用MDIForm1.gl.Enabled = TrueForm3.HideElsemsg = "密码错误，请重新输入。
" '密码输入错误时，提示重新输入style = 4 + 16 + 356title = "提示"response = MsgBox(msg, style, title)If response = 6 ThenForm3.Showgl.Enabled = FalseElseEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer() '时间控件，控制字体的移动If Label3.Left + Label3.Width >= 0 ThenLabel3.Left = Label3.Left - 10ElseLabel3.Left = Form3.WidthEnd IfEnd Sub管理窗体Private Sub Command1_Click()'根据当前按钮的标题进行不同的操作Select Case Command1.CaptionCase "添加"'向当前选项卡所对应表中添加记录Select Case SSTab1.TabCase 0Data1.Recordset.AddNewCase 1Data2.Recordset.AddNewCase 2Data3.Recordset.AddNewEnd Select'在添加操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand1.Caption = "确定"Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在添加操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand1.Caption = "添加"Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command10_Click()If Text16.Text = Text1.Text ThenText7.Text = Int(Text7.Text) - Int(Text20.Text) End IfEnd SubPrivate Sub Command2_Click() '修改按钮的单机过程'根据当前按钮的标题进行不同的操作Select Case Command2.CaptionCase "修改"Select Case SSTab1.TabCase 0Data1.Recordset.EditCase 1Data2.Recordset.EditCase 2Data3.Recordset.EditEnd Select'在修改操作完成前禁止进行其他操作SSTab1.TabEnabled(0) = FalseSSTab1.TabEnabled(1) = FalseSSTab1.TabEnabled(2) = FalseCommand2.Caption = "确定"Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = False Case "确定"Select Case SSTab1.TabCase 0Data1.UpdateRecordCase 1Data2.UpdateRecordCase 2Data3.UpdateRecordEnd Select'在修改操作完成后允许进行其他操作SSTab1.TabEnabled(0) = TrueSSTab1.TabEnabled(1) = TrueSSTab1.TabEnabled(2) = TrueCommand2.Caption = "修改"Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SelectEnd SubPrivate Sub Command3_Click() '“删除”按钮的单击事件过程Dim i As Integeri = MsgBox("确定要删除此记录？", vbYesNo + vbExclamation + vbDefaultButton1, "编辑")If i + vbYes ThenSelect Case SSTab1.Tab '删除后数据更新Case 0Data1.Recordset.DeleteData1.RefreshCase 1Data2.Recordset.DeleteData2.RefreshCase 2Data3.Recordset.DeleteData3.RefreshEnd SelectEnd IfEnd SubPrivate Sub Command4_Click() '“首记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveFirstCase 1Data2.Recordset.MoveFirstCase 2Data3.Recordset.MoveFirstEnd SelectCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd SubPrivate Sub Command5_Click() '“上一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveFirstCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = TrueCommand7.Enabled = TrueEnd IfEnd SelectEnd SubPrivate Sub Command6_Click() '“下一条”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 1Data2.Recordset.MoveNextIf Data2.Recordset.EOF ThenData2.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfCase 2Data3.Recordset.MoveNextIf Data3.Recordset.EOF ThenData3.Recordset.MoveLastCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd IfEnd SelectEnd SubPrivate Sub Command7_Click() '“尾记录”按钮的单击事件过程Select Case SSTab1.TabCase 0Data1.Recordset.MoveLastCase 1Data2.Recordset.MoveLastCase 2Data3.Recordset.MoveLastVBA编程制作ERP生产管理系统过程End SelectCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = FalseCommand7.Enabled = FalseEnd SubPrivate Sub Command8_Click() '“查询”按钮的单击事件过程Dim n As Stringn = InputBox("请输入待查图编号：", "查找")Data1.Recordset.Index = "idx_图书"Data1.Recordset.Seek "=", nEnd SubPrivate Sub Command9_Click() '“还回”按钮的单击事件过程If Text8.Text = Text1.Text ThenText7.Text = Int(Text7.Text) + Int(Text12.Text)End IfEnd SubPrivate Sub Form_Load() '窗体加载过程，书籍信息表首先显示SSTab1.Tab = 0End Sub页脚内容。