教材管理系统论文.docx

《教材管理系统论文.docx》由会员分享，可在线阅读，更多相关《教材管理系统论文.docx（46页珍藏版）》请在三一办公上搜索。

1、教材管理系统指导教师签字主任签字年 月 日一、课题内容1、教材管理系统发展的背景和现况2、教材管理系统功能模块的设计与介绍3、教材管理系统的系统介绍和使用二、课题任务要求1、了解教材管理系统发展状况和前景2、教材管理系统的功能模块的设计3、教材管理系统的详细设计4、教材管理系统平台的建设学校教材管理主要是由教材计划制定、采购、入库、发放、记账、 结算等一系列工作所组成，该工作各院校都设有专门机构负责该项 工作，通常是教材科。由于学校中专业设置门类多，各专业每期开 设课程种类多其业务不仅涉及出版部门，而且要面对全校各系、部 的授课教师，各班级的学生，每期教材科涉及管理的入出库教材种 类少则几百多

2、则几千种，涉及教材册数少则几千多则几万，涉及人 员广，工作量大，再者特别是近年来，我国高等教育规模的不断扩 大，学校学生 人数迅速增加，使教材管理工作更加繁重不堪。据 调查，到目前为止，我国还有许多学校甚至是一些重点院校的教材 管理仍为手工管理方式，这种现状不但与现实学校教材管理的业务 需求不相适应，并且也与学校信息化建设的发展趋势不相适应，因 此，学校教材管理人员目前迫切需要一套方便、高效的计算机化的 管理信息系统来代替他们繁琐、低效的传统手工管理方式，并最终 实现教材管理的全面自动化。关键词:教材信息化School Teaching Material Management Plan for

3、mulated mainly by the materials, procurement, warehousing, distribution, billing and settlement composed of a series of work, the work of various institutions have set up specialized agencies to undertake the task, often teaching subjects. Because the school is set in the professional category and m

4、ore professional courses each of its business involves not only many kinds of publishing, but alsoto face the whole school faculties, the departments teaching of teachers, each class of students, each division also involved in the management of library entry and exit as many types of materials as li

5、ttle as a few hundred thousands of species, number of copies involved in teaching materials from several thousand to as many as tens of thousands, people involved extensive workload Moreover, especially in recent years, expanding the scale of Chinas higher education, school students rapid increase i

6、n the number, so that materials management work more onerous bear. According to the survey, so far, there are many schools in China and even some key institutions teaching management is still manual management, this situation is not only with the reality of school materials management, business requ

7、irements are incompatible, and also with the School Construction Information incompatible with the development trend, therefore, school materials management is an urgent need for a convenient, efficient computerized management information system to replace their cumbersome, inefficient management of

8、 the traditional manual way, and ultimately to achieve the full automation of materials management.Keywords: Textbook Information目录第一章引言61.1背景61.1.1教材管理系统61.1.2信息管理系统61.2开发教材管理系统的目的和原则81.3开发环境介绍91. 3.1开发平台91.3.2数据库查询语SQL 111.3.3数据库设计工具一CCESS数据库管理系统2第二章系统设计142.1系统分析142.2系统流程和操作方式设计16第三章系统界面设计173.1系统界

9、面设计173.2系统的界面及窗体193.2.1下面是系统的主要窗体193.2.2界面多文档(MDI) frmDMI的设计及代码.2035第四章数据库的设计4.1数据库设计354.1.1数据库概念和发展354.1.2数据库模型及参照完整性364.1.3数据库的建立与连接 374.2数据库查询设计394.2.1查询功能简介394.2.2查询功能实现的相关技术394.2.3查询功能的具体实现414.3系统测试与评价43444546参考文献第一章引言1.1背景1-1-1教材管理系统学校教材管理主要是由教材计划制定、采购、入库、发放、 记账、结算等一系列工作所组成，该工作各院校都设有专门机 构负责该项工

10、作，通常是教材科。由于学校中专业设置门类多， 各专业每期开设课程种类多其业务不仅涉及出版部门，而且要 面对全校各系、部的授课教师，各班级的学生，每期教材科涉 及管理的入出库教材种类少则几百多则几千种，涉及教材册数 少则几千多则几万，涉及人员广，工作量大，再者特别是近年 来，我国高等教育规模的不断扩大，学校学生 人数迅速增加， 使教材管理工作更加繁重不堪。据调查，到目前为止，我国还 有许多学校甚至是一些重点院校的教材管理仍为手工管理方 式，这种现状不但与现实学校教材管理的业务需求不相适应， 并且也与学校信息化建设的发展趋势不相适应，因此，学校教 材管理人员目前迫切需要一套方便、高效的计算机化的管

11、理信 息系统来代替他们繁琐、低效的传统手工管理方式，并最终实 现教材管理的全面自动化。1-1-2信息管理系统（1）、信息管理系统的简介教材管理系统属于信息管理系统中的一个具体信息管理 类型，而所谓的管理信息系统也就是我们常说的MIS （Management Information System）它是“由人、计算机等组 成的能进行信息的收集、传送、储存、加工、维护和使用的系 统。管理信息系统能实测企业的各种运行情况利用过去的数据 观测未来；从企业全局出发辅助企业进行决策；利用信息控制 企业的行为；帮助企业实现其规划目标。”在当今这个强调管理、 强调信息的时代，MIS变得越来越普及MIS作为一门新

12、的学科， 它跨越了多个领域，如：管理科学、系统科学、运筹学、统计 学以及计算机科学。在这些新兴的学科基础上发展出一种信息 收集和加工的方法，最终形成现在一个纵横交织的系统。本系 统为单机版运行方式，对于硬件的要求比较小，能够在任何运 行图形化Windows视窗操作系统上运行。另外需要说明的一点 是，限于技术的原因，目前国内还没有出现更高级的管理模型 开发方法，所以本系统采用广泛使用的MIS系统。（2）、信息管理系统的概况和发展方向第一阶段：统计系统，所研究的内容是数量数据间表面的 规律，它可以把数据分成较相关和较不相关的组，然后把数据 转换为信息。第二阶段：数据更新系统。第三阶段：状态报告系统

13、，它可以分为生产状态报告、服 务状态报告和研究状态报 告等系统。第四阶段：决策支持阶段，它是用来辅助决策的信息系统， 该系统可以计划、分析方案，审查解答和求解的误差。它具有 较好的人机对话方式，可以和不怎么熟悉计算机的管理人员通 话。它一般包括一些模型用以产生决策信息，但不强调全面的 管理功能。（3）、管理信息系统的发展方向从国际技术发展来看，20世纪90年代出现了几种全新的管理技术:BPR企业过程重组；IDDS智能化决策支持系统；Lean Production精良生产；Agile Manufacture灵捷制造。相应的MIS开发技术在20世纪90年代也有了新的发展: 信息综合集成和Inter

14、net/Intranet。1.2开发教材管理系统的目的和原则开发教材管理系统的目的就是充分利用计算机和现代办公 软件，摆脱传统办公工具，用计算机实现集中方便的管理工作， 把学校教材科的工作人员从繁重的体力劳动中解脱出来以达到 提高工作效率和质量，最终实现教材管理的全面自动化为和现 代化。要实现这个目标在开发过程中应遵循以下几条原则：1、从实际出发，总结借鉴吸收相结合的原则参照并保留了其他软件的征订、采购、发行、结算等常规应 用部分，改变了原来库连接方式，所有库连接形成一个整体，增 强了智能化和自动化程度。具有独立的设计构思，方便、快捷、简单、实用。2、编制和实施操作的现实性该教材管理系统是我们

15、在Windows操作平台下开发的初级 版本，既考虑了与旧的方法的衔接，又注意了新情况新特点，注 意承上启下，运算规则（规律）更具科学性。在编制过程中，我 们既考虑了与现实旧软件和手工操作的衔接，又注意了新方法的 应用，增加了可操作性，现实、可靠、即时使用。逐步成熟后， 可随着技术条件的改进和提高，随时升级可见的用户界面一一要 求系统的大部分功能在菜单或工具栏级别上通过简单的鼠标点 击完成3、教材管理的框架，应以科学严谨，各种新思想，新方法 构筑完备为原则既要保证教材管理系统的科学性、完整性、系统性，又注 意到教材管理的灵活性和可操作性。同时又较好的解决了教材管 理工作的部分难点问题，比如多价书

16、的征订采购发行，到货前书 目替换，大量的录入工作，查找书目难以操作等等。4、统要有简单可得的帮助整的工具栏、状态栏和系统帮助。1.3开发环境介绍使用Visual Basic 6.0作为管理系统的开发平台， ACCESS2000用于数据源的开发；使用ODBC(开放式数据库连接) 进行对数据源的连接，SQL结构化查询语言用于实现查询功能。 之所以采用vb作为开发平台主要是考虑到对此种语言的熟悉性 以及使用vb能够在较短的时间内给用户提供友好的界面和完善 的功能，缩短了开发周期。而数据源的开发最初是想使用SQL Server企业管理器进行的，但是考虑到ACCESS的简单易用性， 最终还是采用了 AC

17、CESS2000O1.3.1开发平台用Visual Basic 60作为数据库开发平台，3.0版以后的 Visual Basic具有数据库连接和数据处理功能，因此完全有资格 作为数据库应用程序的开发环境。Microsoft公司把许多新的数 据访问功能加到Visual Basic中，使得该产品成为桌面数据库 市场中 Access、FoxPro 及 Paradox for Windows 的直接竞争者。 与普通的数据库系统相比，用Visual Basic作为数据库开发平 台有以下优点：(1) 、简单性Visual Basic提供了数据控件，利用该控件，用户只要编写 少量的代码甚至不编写任何代码就可

18、以访问数据库，对数据库进 行浏览。(2) 、灵活性Visual Basic不像一般的数据库(如Access)那样局限于特 定的应用程序结构，也不需要用某些指令对当前打开的数据库进 行操作，因而比较灵活。(3) 、可扩充性Visual Basic是一种可以扩充的语言，其中包括在数据库应 用方面的扩充。在Visual Basic中，可以使用ActiveX控件(以 前版本中称为VBX或OLE控件)，这些控件可以由Microsoft公 司提供，也可以由第三方开发者提供。有了这些控件，可以很容 易地在Visual Basic中增加新功能，扩充Visual Basic数据存 取控制的指令系统。用Visua

19、l Basic 6.0作为数据库前端，数 据库前端是一个计算机应用程序，用该程序可以选择数据库中的 数据项，并把所选择的数据项按用户的要求显示出来。数据库系 统本身被称为后端，后端数据库通常是一个关系表的集合。之所 以选择Visual Basic作为开发数据库前端应用程序的工具，主 要是因为Visual Basic可以和多种数据库连接。也就是说，目 前较为流行的大多数数据库都可以与Visual Basic连接，因而 可以用Visual Basic开发相应的前端应用程序。Visual Basic 通过不同的方式与各种数据库进行连接，主要有三种方式，即 Access数库引擎、MicrosoftOD

20、BC驱动程序、第三方ODBC驱动 程序。A. Access数据库引擎Access 是 Visual Basic 的内部数据库，即在 Visual Basic 中可以直接建立Access数据库。同时，通过Access数据库引 擎，还可以使用下列数据库：Btrieve(.DAT)dBASE(.DBF/.NDX)Foxpro(.DbF/.CDX/.NDX)Paradox(.DB, .PX)B. Microsoft ODBC通过Microsoft ODBC驱动程序，可以使用下列数据库： Microsoft SQL Server OracleSybase SQL ServerExcel(.XLS)Tex

21、t(.TXT)Access(.MDB)BtrieveDBASEFoxProParadox上面所列的数据库中，除前三种外，其余数据库均包含在一套Microsoft ODBC桌面数据库驱动程序及Microsoft Query中。1.3.2数据库查询语言SQLVisual Basic是数据库开发的主要开发工具，同时为了实现 查询的功能以及系统的一些相关功能，SQL语言的使用也是必不 可少的，SQL语言即结构查询语句，SQL语言之所以能够为用户和 业界所接受，成为国际标准，是因为它是一个综合的、通用的、 功能极强，同时简洁易学。SQL语言集数据查询(data query)、数 据操纵(data man

22、ipulation)、数据定义(data definition)和 数据控制(data control)功能于一体，充分体现了关系数据语 言的特点和优点。其主要特点包括：(1) 综合统一主要功能是通过数据库支持的数据语言来实现的。非关系模型(层次模型，网状模型)的数据语言一般都分 为模式数据定义语言(schema data definition language ,简称 模式DDL),外模式数据定义语言(subschema data definition language,简称外模式DDL)与数据存储有关的描述语言(data storage de-scription language,简称DS

23、DL)以及数据操纵语言 (data manipualtion language,简称DML)，分别于定义模式， 外模式，内模式和进行数据的存取与处置。当用户数据库投入运 行后，如果需要修改模式，必须停止现有数据库的运行，转储数 据，修改模式并编译后再重装数据库，因此很麻烦。(2) 高度非过程化非关系数据模型的数据操纵语言是面向过程的语言，有其 完成某项请求，必须指定存取路径。而用SQL语言进行数据 操作， 用户只需提出“做什么”，而不必指明“怎么做”，因此用户无 需了解存取路径，存取路径的选择以及SQL语句的操作过程均由 系统自动完成。这不但大大减轻了用户负担，而且有利于提高数 据独立性。(3

24、) 面向集合的操作方式非关系数据模型采用的是面向记录的操作方式，任何一个 操作其对象都是一条记录。例如，查询所有平均成绩在80分以 上的学生姓名，用户必须说明完成该请示的具体处理过程，即如 何用循环结构按照某条路径一条一条地把满足条件的学生记录 读出来。而SQL语言采用集合操作方式，不仅查找结果可以是元 组的集合，而且一次插入，删除，更新操作的对象也可以是元组 的集合。(4) 语言简洁，易学易用SQL语言功能极强，但由于设计巧妙，语言十分简洁，完 成数据定义，数据操纵，数据控制的核心功能只用了9个动词： CREATE DROP、SELECT、ENSERT、UP-DATE、DELETE GRAN

25、T、REVOKE ALTER .而且SQL语言语法简单，接近英语口语，因此容易学习， 容易使用。1.3.3数据库设计工具一ACCESS数据库管理系统ACCESS数据库是个人、部门及企业管理数据的最易操作的新 一代数据库。它兼容传统的数据库，同时进一步增强了 web支持。 可以非常方便地跨平台作业和共享数据。ACCESS具有一个数据库管理系统所应具有的功能。Access 2000是一个面向对象的采用时间驱动机制的新型关系数据库管 理系统。它可以通过ODBC与其他数据库相连，实现数据交换与共 享数据库是进行信息管理的基础。利用计算机进行信息管理首先 要建立数据库。ACCESS 2000可以用作企业

26、级后端数据库(如 Microsoft SQL Server)的前台客户端。ACCESS有两种使用方式： 作为创建个人或部门数据库的独立应用程序，或作为更强健、更 具扩展性的后端数据库的接口客户端。不论选用了何种后端数据 源，最终用户都将得到使用流行的桌面数据库客户端时易于使用 的好处。1、信息查找和使用更容易的特征(1) 将数据库转换成以前的ACCESS版本，ACCESS用户首先可 以将数据库保存为以前的ACCESS版本，是不同版本的软件用户 共享数据更加方便。(2) 对数据库窗口进行更改，以便容纳在ACCESS 2000种现实 的新对象，这样可以提高可用性，并使其同整个OFFICE 2000

27、所 使用的新用户界面相一致。(3) 名称自动更正特征能够自动解决用户重命名数据库对象时 所产生的不匹配问题。例如，当用户重命名表中的字段时，更改 将被自动传递到相关的对象(例如查询和窗体)，以便用户可以 继续使用应用程序。(4) 条件格式支持负数和正数，并可以将表示成小于、大于、 介于和等于的值。此外，用户还可以根据用户定义函数设置格式。 用户可以根据值设置颜色、背景、样式。(5) 子数据表提供数据纲要，以在同一窗口中查看和编辑所有相关数据。(6) 用户可以将数据从Microsoft Access导出到Microsoft Excel，方法是将Access对象(表格、查询等)从数据库容器拖 放到

28、Microsoft Excel。这提供了一种将数据迅速导出到Excel 进行进一步分析的快速方法。(7) 直接从“窗体”视图更改字段(例如，颜色或字体)更方 便了。(8) Access具有打印“关系”窗口的视觉图表的能力，可让用户 更加方便地查看数据库的结构。(9) 控件分组特性允许用户将控件作为单个单元进行分组，使窗 体的设计更容易。(10) 在关闭文件时，如果占用磁盘空间太多，Access 2000会自 动压缩数据库。这可以确保使Access数据库尽可能地小。2、具有Web特性的信息共享特性3、丰富的信息管理分析工具(1) Microsoft Access 2000 支持 OLE DB，允

29、许用户将 Access 界面的易用性和企业后端数据库(例如，Microsoft SQL Server) 的可伸缩性结合起来。(2) Access界面可以创建一种新的文本类型(.adp)，该文件类 型可直接连接到Microsoft数据库引擎(MSDE)和Office中与 SQL服务器兼容的数据存储区、SQL Server6.5或SQL Server7.0。 这使用户可以方便地利用Access中熟悉的界面来创建真正的客 户端/服务器应用程序。(3) (新的设计工具允许用户在处理Microsoft Access项目文 件(.adp )时，方便地创建和管理服务器端的对象，其中包括表 格、视图、存储的过

30、程和数据库图表。一(4) Microsoft Access 2000允许用户执行和管理普通Microsoft SQL Server7.0管理任务，例如复制、备份与恢复、以及完全性。第二章系统设计2.1系统分析系统分析的任务是明确教材数据库管理系统开发的目的、系统 应用的功能等，主要有以下步骤：1. 软件结构分析对于大型系统的设计，通常分为两个阶段：结构设计和过程设 计。结构设计：确定系统由哪些模块组成，以及这些模块之间的相 互关系。过程设计：确定每个模块的处理过程。其中，结构设计是总体 设计阶段的任务，而过程设计则是详细设计阶段的任务。这里只是 一个小型的数据库管理系统，只分析构成它们最基本的

31、成分以及所 有这些成分之间的相互关系。结构分析就是系统分析人员对完成任 务的每一个工序进行分析的过程。这里只画出其结构的业务流程与数据流成图，如图2-1，2-2图2-1业务流程图图2-2数据流程图系统开发的过程首先是要确定需要建立的表格以及视图，即首 先完成数据库的设计，这个过程主要是通过Access的使用完成的; 其次，就是进行界面的设计，这个过程是在VB中完成的，它是系 统开发中比较重要的一步，系统界面在用户对软件的评价中占有很 大的比重，影响到本次开发的成功与否，所以在后面将有专门一部 分论述界面设计。最后就是功能编码功能的实现了，作为一个程序 员来说，这一部分的工作相对简单，需要注意的

32、主要是SQL语言在 程序中的嵌套以及部分API函数的调用。2. 工作量分析对工作量的分析，是以分析传统教材管理系统的各种工作量为 基础的。分析包括输入量分析，输出量分析，文档结构，程序编制， 调试状况分析，一般有：(1) 问题分析与综合(2) 数据库组织与结构的分析(3) 文档结构分析与编制(4) 子系统处理过程分析(5) 书目记录的种类分析(6 )与用户充分交流的分析(7 )输出产品的种类格式分(8 )程序编制、调试状况分析(9)软件测试对象的分析2.2系统流程和操作方式设计教材管理系统的工作流程建立在传统手工工作流程的基础上， 但又不能完全等同于手工工作流程。因为教材管理系统毕竟不同于 传

33、统手工作业，从效率上来说，前者也高于后者，前者只需要少量 的人工干预就能够实现教材信息的集中管理。首先，在流程安排上应尽量避免数据的重复输入，实现从采购 到发放一次输入的数据得到多次使用，以提高系统的工作效率。这 一步很大程度依赖于数据库的设计。其次，选择合适的操作方式。计算机系统操作方式有两种：一 种是联机操作方式，即人机交互方式；另一种是脱机操作方式，它 是将事先设计好的一套操作程序以作业的形式提交给计算机，由计 算机依托几批处理的方式完成这套操作，并将处理结果通过系统打 印输出。本次设计的教材管理系统属于第一种操作方式，需要用户 输入信息完成操作。之所以采用这种方式，主要是考虑到此数据库

34、 管理系统的实时性需求，因为数据库随时可能都需要得到改变。第三章系统界面设计3.1系统界面设计1、为了设计出符合一般标准又具有特色的界面，系统开发时要遵 循以下开发原则：（1）保证界面设计的风格具有一致性。（2）界面设计时，控件的摆放要协调和匀称。（3）常用操作（如教材管理、查询、打印等操作）应建立快 捷方式，方便管理员日常操作。（4）提供信息反馈，对一些不常见的操作和至关重要的操作， 系统应该能反馈信息。（5）提供错误处理信息，在出现错误时，系统应该能检测出 错误并提供错误处理的功能；错误出现后，系统的状态 不发生变化，或者系统要提供错误恢复的向导。（6）为了方便管理员的管理应设置工具栏和状

35、态栏。系统的总体设计，预订需要设计几个具有主要功能的窗 体，其中系统主要功能界面是最主要的，是设计的重点。该界面 上包括了系统的功能查询以及触发其他单项功能界面的快捷方 式，如教材管理、查询、打印与报表等。2、系统结构本系统是以教材管理业务为原型设计开发的，教材科的日常 业务大体上有如下几项：（1）教材预订。教材的预订工作基本上是由系、部来完成。教材科将教材征订通知下发到各系、（轮流传阅），各 系从中选订所开课程的教材，填写预订单，经系、部汇 总报教材科。教材科汇总报教务处审批后，编制填写正 式订单寄发到各出版社。（2）教材入库业务。出版社按订单如期如数发书，教材科查 收入库。（3）教材发放。

36、按预订数量发放专业和年级用书。通常是以 系、班级为单位领进行领书。（4）查询，这项工作包括四项内容，其一是预订查询及时了 解各系教材的订购情况；再就是入库查询及时掌握入库 情况；第三是库存查询情况；第四是帐务查询，主要记 录学生、班级、教师领教材的详细情况。（5）打印与报表，主要用于订书、购书、发书清单的打印。（6）系统管理主要包括用户、密码的更改，学生信息管理和 数据库的维护。（7）选项和系统帮助能使用户快速得到帮助。3、教材管理系统功能模块设计图根据上述我们对教材管理业务流程和数据流程的调查分析， 并根据模块划分原则，同时考虑到用户对新系统的易学易用性， 我们将新系统划分为如3-1图所示的

37、功能模块结构：教材管理系统图3-1功能模块结构3.2系统的界面及窗体3.2.1下面是系统的主要窗体图3-2登录窗口图3-3系统界面当系统管理员想进入系统时，在登录窗体（图3-2）中输入用户 名和密码，点击确定按钮，就可进入教材管理系统的主窗体界面（图 3-3），管理员就可以进行如下的工作：（1）通过订书单来确定所需要订的书。（2）把订书单和库存做比较得出还需要订阅的书的名称、数量 等。（3）把所需要订阅书导出到订书表，通过订书表向各出版社订 书。（4）等所需要的书到了，把它们进入库存，更新库存数据库。（5）比较新库存和订书单，导出各学生，各班级，各系的发 报表。（6）按照发书报表进行发书，更新

38、库存，并备份原来的库存， 比较一下是否有错。（7）按照学生的发书报表发书，并把各学生的领书清单打印发 给学生。用户界面是开发应用程序的最主要的组成部分，用户界面设计 的优劣决定了应用程序的易用性、易操作性，基于windows应 用程序的用户界面的样式主要有两大类：单文档界面（SDI）和 多文档界面（MDI）。采用单文档还是多文档要看应用程序的目的 如本例就是用的多文档（MDI）的样式，因为一个处理教材管理 的用户很可能会同时进行几种操作，这样用户就可以在不同的窗 口进行切换操作。3.2.2界面多文档（MDI） frmDMI的设计及代码1、frmDMI窗体是系统的主窗体（图3-3），这里是用户

39、最常用的部分其代码为Private Declare Function GetMenu Lib user32 （ByVal hwnd As Long） As LongPrivate Declare Function GetSubMenu Lib user32 （ByVal hMenu As Long, ByVal nPos As Long） As Long Private Declare Function SetMenuItemBitmaps Lib user32 （ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Lon

40、g, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long） As LongConst MF_BYPOSITION = &H400&Private Sub MDIForm_Load()StatusBar1.Panels(1).Text = 教材管理系统：就绪 If InsertBook = False ThenmnuInsert.Enabled = FalseToolbar1.Buttons(8).Enabled = FalseToolbar1.Buttons(12).Enabled = False mnuQueryR.Ena

41、bled = FalseEnd IfIf OrderBook = False ThenToolbar1.Buttons(7).Enabled = FalseToolbar1.Buttons(11).Enabled = FalseToolbar1.Buttons(15).Enabled = FalsemnuDingshu.Enabled = FalsemnuQueryBook.Enabled = FalsemnuOrderBook.Enabled = FalseEnd If2、用户管理和学生管理是最重要的部分，它涉及到系统的 安全问题和学生的详细资料如：图3-4、图3-5图3-4用户管理中心提供

42、用户的帐户管理，在其中可以设置用 户的权限。对用户进行添加、修改和删除。各个用户的权限 不同，所可以浏览，查询的内容也不同。Private Sub cmdupdate_Click()If txtname.Text = ThenMsgBox 请输入用户名！, vbCritical + vbOKOnly,输入用户名”Exit SubEnd IfIf txtpass.Text txtagain.Text ThenMsgBox 你的密码不一样，请重输!”，vbOKOnly + vbCritical,密码不一样txtpass.Text =txtagain.Text =txtpass.SetFocusEl

43、se:dbRecordset.Fields(0).Value = txtname.TextdbRecordset.Fields(1).Value = txtpass.TextdbRecordset.Fields(2).Value = Check(0).ValuedbRecordset.Fields(3).Value = Check(1).ValuedbRecordset.Fields(4).Value = Check(2).ValuedbRecordset.Fields(5).Value = Check(4).ValuedbRecordset.Fields(6).Value = Check(3

44、).ValuedbRecordset.Fields(7).Value = Check(5).ValuedbRecordset.Fields(8).Value = chkSaveD.ValuedbRecordset.Fields(9).Value = chkBook.ValuedbRecordset.Updatecmdupdate.Enabled = FalseEnd Ifcmddel.Enabled = Truecmdadd.Enabled = Truecmdmodify.Enabled = Truelogoinfo.Enabled = Falsesets.Enabled = FalseEnd

45、 Sub这里记录着所有学生的信息，其中有学生的相关资料(学号、 班级、姓名、留级否、退学否，)在此可以对学生记录进行修改、 添加、编辑等操作。图3-5其代码如下所示：Dim WithEvents adoPrimaryRS As RecordsetDim mbChangedByCode As BooleanDim mvBookMark As VariantDim mbEditFlag As BooleanDim mbAddNewFlag As BooleanDim mbDataChanged As BooleanPrivate Sub Form_Load()Me.Left = 0Me.Top =

46、 0Dim db As connectionSet db = New connectiondb.CursorLocation = adUseClientstrConn = PROVIDER二Microsoft.Jet.OLEDB.4.0; & DataSource= & App.Path & Book.mdb;Jet OLEDB:Database Password、*;db.Open strConnSet adoPrimaryRS = New RecordsetadoPrimaryRS.Open select * from xsxxb Order by 学号 ,db, adOpenStatic

47、, adLockOptimisticSet grdDataGrid.DataSource = adoPrimaryRS mbDataChanged = FalseEnd SubPrivate Sub Form_Resize()On Error Resume Next当窗体调整时会调整网格grdDataGrid.Height = Me.ScaleHeight -30-picButtons.Height - picStatBox.HeightlblStatus.Width = Me.Width - 1500cmdNext.Left = lblStatus.Width + 700cmdLast.Left = cmdNext.Left + 340End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If mbEditFlag Or mbAddNewFlag Then Exit Sub Select Case KeyCodeCase vbKeyEscape c