课程设计（论文）基于VB、ACCESS书城管理系统设计

《课程设计（论文）基于VB、ACCESS书城管理系统设计》由会员分享，可在线阅读，更多相关《课程设计（论文）基于VB、ACCESS书城管理系统设计（42页珍藏版）》请在装配图网上搜索。

1、本科毕业论文（设计）封面模板捆绑式作业（设计）作业题目： 书城管理系统 学生姓名及学号：（0805111122） （0805111125） （0805111123） 专 业： 信息管理与信息系统 班 级： 信管0811班 指导教师： 完成日期：2008年12月28日书城管理系统论文摘要本论文首先描述了目前所面对的课题, 然后介绍了系统的背景,主要内容以及应用软件。根据具体的情况，明确了设计的目标和要求，详细介绍了开发书城管理系统所需要的技术、环境、平台和工具，分析了这个系统所应实现的各个功能模块，给出了详尽的设计方案，设计出了一个用于信息发布的具有针对性的书城信息管理系统。随后结合数据库设计理

2、论论述了该系统的总体规划及功能模块分割，所实现的功能都提供了详细的工作方法和过程。 最后,描述了系统的调试过程,以及在本次作业中的收获和体会。 关键词 ：VB；ACCESS；查询The Book City Management SystemAbstractThis thesis first described the topic which at present faces, then introduced the system background, primary coverage as well as application software.According to the concr

3、ete situation, has been clear about the design goal and the request, introduced in detail develops technology, environment, platform and tool which the book city management system management system needs, has analyzed each function module which this system should realize, has given the exhaustive de

4、sign proposal, designed one to use in the information issuing has the pointed book city information management system. Afterwards unified the database design theory to elaborate this system overall plan and the function module division, realized the function has all provided the detailed method of w

5、ork and the process. Finally, described the system debugging process, as well as in this work harvest and experience. Key word ：VB; ACCESS; Inquiry目 录一、系统开发背景与可行性分析4 （一）开发环境.4 （二） 可行性分析.4二、系统分析.5 （一）需求分析.5 （二）业务流程.5（三）系统数据流程.7（四）数据字典.7三、系统总体设计与模块构成.13（一）系统功能模块.14 （二）系统E-R图.14四、系统详细设计.16（一）系统子功能模块说明.

6、16 (二）关系模式. 18 （三）数据表文件18 （四）程序设计界面. .20五、系统实施.21（一）系统处理流程图 21（二）数据库实施 22六、系统调试.23（一）调试计划23（二） 程序调试内容.24七、系统运行.25八、总结.30附录：源代码.30- 41 -一、系统开发背景与可行性分析（一）开发环境Microsoft Office Access2003 是一种数据库管理程序，可赋予更佳的用户体验，并且新增了导入、导出和处理 XML 数据文件等功能。由于该程序可以识别和标记常见错误，同时提供更正错误的选项，因此在 Access 2003 中工作变得更加轻松自如。另外，Access 2

7、003 的新功能还可以帮助数据库开发人员查看有关数据库对象之间相关性的信息。Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。并且从VB3开始，微软将ACCESS的数据库驱动集成到了VB中，这使得VB的数据库编程能力大大提高。（二）

8、可行性分析1.经济可行性：实验室里有开发所需的各种资源，无需经济投入。2.技术可行性：技术上的可行性分析主要分析技术条件能否顺利完成开发工作，硬、软件能否满足开发者的需要等。该管理系统采用了当前主流的Visual Basic 6.0工具进行开发。数据库服务器选用Access数据库，它能够处理大量数据，同时保持数据的完整性并提供许多高级管理功能。它的灵活性、安全性和易用性为数据库编程提供了良好的条件。而且，从VB3开始，微软将ACCESS的数据库驱动集成到了VB中，这使得VB的数据库编程能力大大提高，因此，系统的软件开发平台已成熟可行。硬件方面，科技飞速发展的今天，硬件更新的速度越来越快，容量越

9、来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。3.操作可行性1）管理可行性：主要是管理人员是否支持，现有的管理制度和方法是否科学，规章制度是否齐全，原始数据是否正确等。规章制度和管理方法为书城的建设提供了制度保障。2)用户使用可行性：本系统界面美观，操作简单方便，不熟悉计算机的用户亦能自如的操作，按所需可对各类信息进行查询与状态显示。综上所述，此系统开发目标已明确，在技术，经济，操作等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。二、系统分析（一） 需求分析随着社会的飞速发展，人们生活水平的不断提高，物质文化的发展已经远远满足不了人们的需求，精神文明有了

10、飞速的发展，因此图书事业的发展就成为精神文明进步的一个动力。在迈入二十一世纪的今天，对书店的管理显得极其重要，合理地管理不但反映一个国家的科技水平，而且影响人们对知识掌握的速度和质量。在知识经济时代到来的今天，用计算机控制书城的工作由自动化系统运行而完成。这不仅节省了人力，还提高了工作效率和服务质量，而且还加速了图书的流通。书城管理工作的现代化是极其重要的,又由于科学和技术的不断发展和进步,现代技术已经成为一个动态的概念。而本次开发的书城管理系统,是为了解决现有矛盾,充分利用现有技术和资源，发挥科学创新，探索数字科技的魅力，增强书城竞争力的探索过程。该软件设计可用于所有书城的信息管理， 它能提

11、高书城本身管理水平，能代替工作人员进行图书信息的某些加工处理，把工作人员从繁重的手工劳动，重复劳动中解放出来。（二）业务流程通过对书城的管理业务的实际调查分析，弄清了书城管理工作的业务流程和管理功能，系统的业务流程如下图所示。日报表月报表销售员管理员图书上架图书售出消费者账本发票图2-1 书城管理业务流程图(三）系统数据流程书城管理的数据流程图如图所示：图书信息信息反馈查找信息反馈信息图书信息图书销售销售信息销售员新图书管理员用户图书上架查找图书目标图书无目标图书意见薄 发票账簿 报表图2-2书城管理数据流程图（四）、数据字典（1）数据流的描述数据流编号：D-01数据流名称：图书简述：管理员添

12、加的图书数据流来源：管理员数据流去向：图书上架模块数据项组成：书号+书名+作者+类别+零售价+出版社+版本+出版日期+页码+语言+简介数据流量：约50种/ 月高峰流量：约70种/月数据流编号：D-02数据流名称：目标图书简述：消费者找到的要购买的图书数据流来源：查找图书模块数据流去向：销售员数据项组成：书号+数量数据流量：约400本/日高峰流量：约700本/日数据流编号：D-03数据流名称：无目标图书简述：消费者没有查找到的图书数据流来源：查找图书模块数据流去向：信息反馈模块数据项组成：书名+作者数据流量：约50种/日高峰流量：约80种/日数据流编号：D-04数据流名称：图书信息简述：图书的基

13、本信息。数据流来源：图书上架模块数据流去向：消费者数据项组成：书号+书名+作者+类别+零售价+出版社+版本+出版日期+页码+语言+简介数据流量：约400条/日高峰流量：约700条/日数据流编号：D-05数据流名称：销售信息简述：图书销售的信息数据流来源：销售员数据流去向：会员积分数据项组成：书号+数量+零售价+会员号+销售额数据流量：约200条/日高峰流量：约300条/日（2）处理逻辑的描述处理逻辑编号：P-01处理逻辑名称：图书上架 简述： 管理员添加图书输入的数据流：图书处理描述：管理员将图书上架，并更新图书信息输出的数据流：图书信息处理频率：50次/日处理逻辑编号：P-02处理逻辑名称：

14、查找图书 简述：消费者查找想要购买的图书。输入的数据流：查找信息处理描述：消费者根据查找信息，查找相应的图书信息。输出的数据流：目标图书/无目标图书处理频率：800次/日处理逻辑编号：P-03处理逻辑名称：信息反馈 简述：消费者反馈想要购买但库中没有的图书输入的数据流：无目标图书处理描述：消费者找不到想要购买的图书时，将想要购买的图书的名称与作者反馈给管理员输出的数据流：反馈信息。处理频率：10次/日处理逻辑编号：P-04处理逻辑名称：图书销售 简述：销售员销售图书输入的数据流：目标图书处理描述：销售员售出图书，用户支付应收帐。输出的数据流：销售信息处理频率：400次/日（3）数据存储的描述

15、数据存储编号：F-01数据存储名称：图书基本信息简述：记录各种图书的基本信息数据存储的组成：书号+书名+作者+类别+零售价+出版社+版本+出版日期+页码+语言+简介关键字：书号相关联的处理：P-01,P-02,P-04数据存储编号：F-02数据存储名称：会员信息简述：记录会员的信息数据存储的组成：会员号+会员名+密码+电子邮箱+积分关键字：会员号相关联的处理：P-04,P-03数据存储编号：F-03数据存储名称：销售信息简述：记录每条销售信息数据存储的组成：书号+数量+时间+零售价+会员名+销售额关键字：无 相关联的处理：P-04数据存储编号：F-04数据存储名称：职工信息简述：记录职工的基本

16、信息数据存储的组成：职工号+职工名+密码+职位关键字：职工号相关联的处理：P-01,P-04（4）、外部实体的描述外部实体编号：S-01外部实体的名称：消费者简述：查找、购买图书输入的数据流：D-02输出的数据流：D-02外部实体编号：S-02外部实体的名称：管理员简述：管理图书输入的数据流：D-03输出的数据流：D-01外部实体编号：S-03外部实体的名称：销售员简述：销售图书，并记录销售信息。输入的数据流：D-02输出的数据流：D-05三、系统总体设计与模块构成本系统设计要求具有友好的用户界面、操作简单方便，不熟悉计算机的用户亦能自如的操作，按所需要求对各类信息进行修改、查询、统计与状态显

17、示。要求系统具有良好的安全性和保密措施，不同的用户具有不同的安全级别，只能进行系统允许的操作，可以脱离开发环境运行，同时系统还应该具备通用性与可扩充性。而且，本系统是针对书城的管理活动进行系统管理的平台，需要担负书城管理活动正常运行的重责，因此对系统的稳定性要求较高，可通过系统简洁、有效的特点，来做到长期稳定的工作特点。为此，我们把该系统功能分为三大模块用户查询模块、后台管理模块和前台销售模块。在原系统中，图书上架仍由管理员人工完成，图书销售时开发票也仍由销售员手工完成。新系统为每种图书设计了代码，一方面可统一图书的品种及其特性，另一方面是为了方便数据输入。图书代码采用的是区间码结构。 在系统

18、运行过程中凡是需要查询某种图书时，只需输入图书代码即可，系统可以自动将相应的图书信息调出。 图书代码设计 图书语言图书类别图书顺序（一）系统功能模块新系统软件设计采用模块化程序设计方法，系统总体设计主要分为三个功能模块用户查询模块，后台管理模块，前台销售模块。信息反馈书城管理系统图书查询用户查询月末盘点图书销售前台销售普通用户会员个人信息查询修改图书信息添加新图书后台管理图3-1 书城管理系统功能模块图（二）系统E-R图（1）各子系统基本E-R图信息个人信息VIP用户反馈修改M普通用户M图书书名作者类别查询N11N1图3-2用户查询的基本E-R图修改添加管理员新图书图书信息11NN图3-3后台

19、管理的基本E-R图NN1NNMNMNM支付用户应收帐购买组成积分折扣规则图书参照1M销售员销售更新销售信息图3-4前台销售的基本E-R图（2）系统E-R图MMN管理MMN11M查询普通用户会员修改个人信息反馈信息管理员MMN1NNMNN1NN支付应收帐购买组成积分折扣规则图书参照销售员销售更新销售信息用户图3-5系统E-R图四、系统详细设计（一）系统子功能模块说明：为了方便消费者了解图书信息，新系统特别设计了数据查询模块并提供多种查询功能：如按书名或作者查询；按图书类别查询；以及会员对自己个人信息的查询等。此模块是新系统最主要的部分，也是对原系统最大的改进。后台管理用于录入图书的基本数据，以及

20、修改和删除数据等操作。它是新系统最基本的部分。前台销售可以实现报表输出，可以完成系统所需的各种报表的计算和打印输出功能。（1）用户登录：用户登录系统是进入系统的必需条件，目的是验证用户赋予的操作权限，确保系统的安全。普通用户可以不登录，只进行图书的查询。进入系统验证用户号、密码图4-1 用户登录系统流程图（2）查询模块：查询模块是通过查询条件给出结果。定位显示库查询条件查询模块过滤图4-2 查询模块流程图（3）信息录入信息通过书城信息管理系统输入到数据库中相应信息图4-3 信息录入流程图（4）图书查询系统图书信息的关键字利用关键字在数据库中找到图书的全部信息图书信息的全部内容图4-4 图书查询

21、系统流程图（二）关系模式：根据系统分析，设计了关系模式： 图书（书号，书名，作者，类别，零售价，出版社，版本，出版日期，页码，语言，简介）会员（会员编号，会员名，密码，电子邮箱，积分）职工（职工号，职工名，职位）信息（会员编号，作者，书名，意见和建议）销售（会员编号，书号，数量，时间，零售价，销售额）查询（作者，书名，类别）（三）数据表文件根据关系模式，设计了8数据表文件，它们的结构及其说明如下：1、 图书基本信息表字段字段名称类型格式字段大小小数1书号文本82书名文本403作者文本204类别文本105零售价数字货币826出版社文本207版本文本88出版日期日期短日期89页码数字210语言文本

22、411简介文本2552、图书分类表字段字段名称类型宽度1代码文本82分类文本43、会员信息表字段字段名称类型宽度1会员编号文本82会员名文本203密码文本204电子邮箱文本305积分数字4、职工表字段字段名称类型宽度1职工号文本82职工名文本203密码文本204职位文本105、职工分类表字段字段名称类型宽度1职工号文本82职位文本106、销售信息表字段字段名称类型格式宽度1书号文本82数量数字3时间日期/时间常规日期4会员号文本85零售价数字货币7、信息反馈表字段字段名称类型宽度1会员编号文本82作者文本203书名文本404意见和建议文本255（三）程序设计界面从前面分析中，我们已基本知道书城

23、管理系统所需要达到的功能，可以确定基本界面有： 文件功能主界面图书查询，选择身份登录。图书信息列表显示图书查询的结果职工登录界面管理员或销售员登录会员登录界面会员登录管理界面管理员可添加、修改图书信息。销售界面销售员可销售图书，并查看销售报表。会员个人信息修改会员可修改个人信息会员个人购买记录可查询会员以往购买的图书信息反馈会员可反馈想要购买的图书及对书城的建议销售报表统计每日销售额表4-1 基本文件表五、系统实施（一）系统处理流程图系统处理流程图如图所示：销售信息文件个人信息文件反馈信息文件用户信息文件ID&Password验证结果界面输入查询条件显示管理界面销售界面会员界面管理图书信息文件

24、更新修改添加图5-1系统处理流程图（二）、数据库实施1、利用Microsoft Access 制作数据库，取名为汉唐书城,然后制作表“图基本信息表”。如图所示：2、 继续制作表“会员信息表”3、 继续制作了其他表。4、 设计表间关系如下：5、 根据用户操作顺序建立界面。（相应代码见附录）六、系统调试当模块设计完成并经过编译没有错误之后，便要进行调试和测试，这是程序设计中一个非常重要的环节，只有通过反复调试和测试，才能确保能实现其预期的目标和保障系统的可靠性，实用性的提高。由于程序员本身能力的局限性，所编写的代码，即使经过反复检查也难免出错，所以在本阶段力求使用有限的时间找出尽可能多的错误，力求

25、系统尽量正确。我们在本系统的测试中先是自行调试后，直到不再发现错误，再请一位不熟悉本系统的人来进行随意性的操作，打破习惯的操作顺序和惯常的逻辑思维，从中发现错误，在此阶段系统的大量错误得到了改正。（一）调试计划本系统的调试工作并不是在所有模块设计完成之后才进行的，当某个模块编译完成之后都要进行调试，这样做的好处是可以及时的发现问题并及时的对其进行解决，避免了当某个模块都设计好后才进行调试，从而出现问题的堆积和遗忘且做要大量的重复性工作。所有的功能模块定义完成之后，再把它们连接到主菜单。各模块经过相互协调，使得系统整个界面更为直观，更为方便用户的使用。对于运行的各个模块，不仅要注意局部，而且要照

26、顾全局进行总体调试。如果调试过程中发现局部影响了全局，则需在最小限度修改的原则上做合理的调整。如果是某个模块的问题，则单独进行修改，是其适应全局的需要。这样多次的反复调试，不断改进，整个系统才可确定为初步正确。（二） 程序调试内容（1）代码测试调试过程中通常要编写测试数据。测试数据除采用正常数据外，还应包括一些异常数据和错误数据，用来考验程序逻辑上的正确性。测试数据是经过精心挑选的，使得程序和模块中的每一条语句都能得到有效执行，即能够测试程序中的任一逻辑通路。常用的测试数据有以下几种：1、用正常数据调试。2、用异常数据调试。例如用非正常数据参加测试，检查程序能否正常运行，并发出错误警告。3、用

27、错误数据调试。试验程序对错误和处理能力，包括显示出信息以及容许修改错误的可能性。2程序功能测试经代码测试正确的程序只是基本上验证了程序逻辑上的正确性，但并不能验证是否满足程序说明中定义的功能，也不能验证测试数据本身是否能完成预期的目标。程序功能测试是面向程序的应用环境，把程序看做一个“黑盒子”，认为程序只要满足应用功能上的需求，就是可行的。（2）功能调试系统的应用软件通常由多个功能模块组成，每个模块由一个或几个程序构成。在单个程序调试完成以后，尚需进行分调，即将一个功能内所有程序按次序串联起来进行调试。这种调试的目的是要保证模块内各程序间具有正确的控制关系，同时可以测试模块的运行效率。（3）总

28、调最后是对程序进行总调，也就是将主控制程序和高度程序与各功能模块联接起来进行总体高度。对系统各种可能的使用权用形态及其组合在软件中的流通情况进行能行性测试。这一阶段查出的往往是模块间相互关系方面的错误和缺陷。七、系统运行在主界面中，访客可以直接查询图书，职工和会员可登录。图书查询结果显示如下：点击“会员登录”，出现会员登录界面如下：登录后会员可进行个人信息查看和修改，以及购买记录的查看，还可以提出建议。点击“职工登录”，出现职工登录界面如下：选择“管理员”身份进行登录，出现管理界面如下：选择“销售员”身份进行登录，出现销售界面如下：点击“销售报表”，出现如下界面：八、总结经过近一个月的设计和开

29、发，这套管理系统已基本结束。主要能实现图书信息的录入、修改、删除、统计、查询等功能，此外，在程序中还设计了用户登录，以确保本系统应用的安全性。本管理系统设计合理、界面美观、操作方便、运行稳定、功能完备，为书城进行现代化的图书管理工作起到了重要作用。但是由于设计时间较短，所以该系统还有一些不尽人意的地方，如功能不够健全等问题，这些都有待进一步改善，敬请各位老师指正。在本次设计中，我们从实践与理论的不断对比参照中学到了不少东西，无论在理论上还是在实践都感觉有了很大提高。今后的学习中，我们一定会更加努力学习，不断提高自己的水平，做一名优秀的现代大学生。这次设计是我们从理论走向实践迈出的坚实的一步。从

30、分析到设计直到具体实现，原来学的理论知识对我们有很大的指导，我们也发现了其中有很多不足的地方。我们深深体会到，一个好的程序设计人员必须具有认真、谨慎的作风，与人合作的精神，和坚忍不拔的毅力，我们会向着这个方向去努力。参考文献Visual basic6.0程序设计 作者：刘新民 蔡琼 白康生 清华大学出版社数据库系统概论（第四版） 作者：王珊 萨师煊 高等教育出版社管理信息系统（第三版） 作者 黄梯云 高等教育出版社附录：源代码一、欢迎界面代码：Private Sub Command1_Click()Form1.ShowEnd Sub二、主界面代码：Private Sub Command1_Cl

31、ick()Form5.ShowEnd SubPrivate Sub Command2_Click()form2.ShowEnd SubPrivate Sub Command3_Click()Form6.ShowEnd Sub三、职工登录界面代码：Private Sub Command1_Click()Dim conn As New adodb.ConnectionDim rs As New adodb.RecordsetIf Text1.Text = Or Text2.Text = Then MsgBox 对不起，用户名与密码不能为空, vbInformation, 输入错误 Exit Sub

32、End If conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:大作业汉唐书城.mdb;Persist Security Info=FalseIf Combo1.Text = 管理员 And Text1.Text Like 02* Then conn.Open rs.Open select * from 职工表 where 职工号= & Text1.Text & and 密码= & Text2.Text & , conn, 3, 3 If rs.RecordCount 0 Then Load Form4

33、 Form4.Show form2.Hide rs.Close conn.Close Unload Me Else MsgBox 对不起，登录失败, vbinforamtion, 提示 rs.Close conn.Close Exit Sub End IfElseIf Combo1.Text = 销售员 And Text1.Text Like 03* Then conn.Open rs.Open select * from 职工表 where 职工号= & Text1.Text & and 密码= & Text2.Text & , conn, 3, 3 If rs.RecordCount 0

34、Then Load Form3 Form3.Show form2.Hide rs.Close conn.Close Unload Me Else MsgBox 对不起，登录失败, vbinforamtion, 提示 rs.Close conn.Close Exit SubEnd IfElse MsgBox 请选择正确身份登录！, vbinforamtion, 提示 End IfEnd SubPrivate Sub Command2_Click()Form1.Showform2.HideEnd Sub四、销售界面代码：Private Sub Command1_Click() Dim a As S

35、ingle, b As Single a = Val(Text3.Text) b = Val(Text4.Text) Text5.Text = Str(a * b)End SubPrivate Sub Command2_Click()Dim pros As Stringpros = MsgBox(是否确认删除？, vbOKCancel + vbExclamation)Select Case vbOKCase vbOK Adodc1.Recordset.DeleteEnd SelectEnd SubPrivate Sub Command3_Click()If Val(Text6.Text) Va

36、l(Text5.Text) Then MsgBox (金额不足！) Else Text7.Text = Text6.Text - Text5.Text Adodc1.Recordset.Fields(0) = Text2 Adodc1.Recordset.Fields(1) = Text3 Adodc1.Recordset.Fields(3) = Text1 Adodc1.Recordset.Fields(4) = Text4 Adodc1.Recordset.Fields(2) = Date Adodc1.Recordset.Fields(5) = Text5 Adodc1.Recordse

37、t.Update MsgBox (添加成功！)End IfEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.AddNewText5.Text = Text6.Text = Text7.Text = End SubPrivate Sub Command5_Click()Form1.ShowForm3.HideEnd SubPrivate Sub Command6_Click()DataReport1.ShowEnd SubPrivate Sub Form_Load()Adodc1.Recordset.AddNewEnd Sub五、管理界面代码

38、：Private Sub Command1_Click()On Error Resume NextForm1.ShowForm4.HideEnd SubPrivate Sub Command6_Click()On Error Resume NextText11.Locked = FalseEnd SubPrivate Sub Command7_Click()On Error Resume NextAdodc1.Recordset.AddNewText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = Fa

39、lseText5.Locked = FalseText6.Locked = FalseText7.Locked = FalseText8.Locked = FalseText9.Locked = FalseText10.Locked = FalseText11.Locked = FalseEnd SubPrivate Sub Command8_Click()On Error Resume Next Adodc1.Recordset.Fields(0) = Text1 Adodc1.Recordset.Fields(1) = Text2 Adodc1.Recordset.Fields(2) =

40、Text3 Adodc1.Recordset.Fields(3) = Text4 Adodc1.Recordset.Fields(4) = Text5 Adodc1.Recordset.Fields(5) = Text6 Adodc1.Recordset.Fields(6) = Text7 Adodc1.Recordset.Fields(7) = Text8 Adodc1.Recordset.Fields(8) = Text9 Adodc1.Recordset.Fields(9) = Text10 Adodc1.Recordset.Fields(10) = Text11 Adodc1.Reco

41、rdset.Update MsgBox (添加成功！) Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueText11.Locked = TrueEnd SubPrivate Sub Command2_Click()On Error Resume Next Adodc

42、1.Recordset.MoveFirst Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True Call Command6_ClickEnd SubPrivate Sub Command3_Click()On Error Resume Next Adodc1.Recordset.MovePrevious Command4.Enabled = True Command5.Enabled = True If Adodc1.Recordset.BOF The

43、n Adodc1.Recordset.MoveFirst Command2.Enabled = False Command3.Enabled = False Command4.SetFocus Call Command6_Click End IfEnd SubPrivate Sub Command4_Click()On Error Resume NextAdodc1.Recordset.MoveNext Command2.Enabled = True Command3.Enabled = True If Adodc1.Recordset.EOF Then Adodc1.Recordset.Mo

44、veLast Command4.Enabled = False Command5.Enabled = False Command3.SetFocus Call Command6_Click End IfEnd SubPrivate Sub Command5_Click()On Error Resume Next Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False Adodc1.Recordset.MoveLast Call Command6_Click

45、End Sub六、图书查询结果代码：Private Sub Form_Load()If Form1.Combo1.Text = 按作者查询 Then Adodc1.RecordSource = select * from 图书基本信息表 where 图书基本信息表.作者= & Form1.Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 Then MsgBox (对不起，没有您要查找的作者！)End IfElseIf Form1.Combo1.Text = 按书名查询 Then Adodc1.RecordSource

46、= select * from 图书基本信息表 where 图书基本信息表.书名= & Form1.Text1.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox (对不起，没有您要查找的图书！)End IfElseIf Form1.Combo1.Text = 按类别查询 Then Adodc1.RecordSource = select * from 图书基本信息表 where 图书基本信息表.类别= & Form1.Text1.Text & Adodc1.Refresh If Adodc1.Record

47、set.RecordCount = 0 Then MsgBox (对不起，没有您要查找的类别！)End IfEnd IfSet DataGrid1.DataSource = Adodc1End Sub七、会员登录界面代码：Private Sub Command1_Click()Form5.ShowEnd SubPrivate Sub Command2_Click()Form10.ShowEnd SubPrivate Sub Command3_Click()Form8.ShowEnd SubPrivate Sub Command4_Click()Dim conn As New adodb.Con

48、nectionDim rs As New adodb.RecordsetIf Text1.Text = Or Text2.Text = Then MsgBox 对不起，用户名与密码不能为空, vbInformation, 输入错误 Exit SubEnd If conn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:大作业汉唐书城.mdb;Persist Security Info=FalseIf Text1.Text Like 01* Then conn.Open rs.Open select * from

49、 会员信息表 where 会员编号= & Text1.Text & and 密码= & Text2.Text & , conn, 3, 3 If rs.RecordCount 0 Then Command2.Visible = True Command3.Visible = True Command5.Visible = True Label5.Visible = False Label6.Visible = False Text1.Visible = False Text2.Visible = False Command4.Visible = False rs.Close conn.Clos

50、e Else MsgBox 对不起，登录失败, vbinforamtion, 提示 rs.Close conn.Close Exit Sub End If End IfEnd SubPrivate Sub Command5_Click()Form7.ShowEnd SubPrivate Sub Command6_Click()Form1.ShowForm6.HideEnd SubPrivate Sub Form_Load()Command2.Visible = False Command3.Visible = False Command5.Visible = FalseEnd Sub八、提建议

51、界面代码：Private Sub Command1_Click() If Text1.Text Or Text2.Text Or Text3.Text Then Adodc1.Recordset.Fields(0) = Form6.Text1.Text Adodc1.Recordset.Fields(1) = Text1 Adodc1.Recordset.Fields(2) = Text2 Adodc1.Recordset.Fields(3) = Text3 Adodc1.Recordset.Update MsgBox (谢谢您的建议！) Else MsgBox (请提出您的建议！) End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Form_Load()Adodc1.Recordset.AddNewEnd Sub九、修改会员信息界面代码