计科教务管理系统论文-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 目录 摘要 3 关键字 : 管理信息系统、教务 管理、 Visual Basic 应用。 3 Abstract 4 Key words: 5 Management information system, educational administration management, Visual Basic application. 5 第一章 绪论 6 1.1. 选题的背景 6 1.2. 目的和意义 7 1.3. 系统完成和实现的工作 8 第二章 平台简介 9 2.1. Delphi 简介 9 2.1.1. 数据库访问方法 10 2.1.2. 数据库组件 11 2.2. 数据库简介 11 2.2.1. SQL 语言 11 2.2.2. 数据库 15 2.3. 系统运行环境 16 2.3.1. 硬件环境 16 2.3.2. 软件环境 17 第三章 系统总计设计 17 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 3.1. 系统的主要功能要求 17 3.1.1. 系统主要模块 17 3.1.2. 系统安全性 17 3.1.3. 口令权限识别 18 3.1.4. 口令存取 18 3.2. 主要功能模块描述 18 3.2.1. 课程表信息 18 3.2.2. 总课表信息 19 3.2.3. 教师信息管理 19 3.2.4. 教师课酬管理 19 3.2.5. 教师课酬发放 19 3.2.6. 教师课酬统计 19 3.2.7. 试卷档案登记 20 第四章 系统详细设计分析 20 4.1. 需求分析 20 4.1.1. 目标系统功能说明 20 4.1.2. 用户需求分析 20 4.2. 系统结构 21 4.3. 系统 E-R 图 22 4.4. 数据库设计 23 4.5. 系统数据流图 30 第五章 系统的实现 33 5.1. 登陆窗体的设计 33 5.2. 程序主界面设计 36 5.3. 用户管理窗口的设计 48 5.4. 计科系教务管理系统的实现 56 5.4.1. 系统管理 56 5.4.2. 教务信息管理： 57 5.4.3. 数据查询： 67 5.4.4. 系统帮助： 69 第六章 系统使用方法 70 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 摘要 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 本文介绍了在 Visual Basic6.0 环境下采用“自上而下地总体规 划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析我学校计科系的教务管理的不足，创建了一套行之有效的利用计算机进行教务信息管理的方案。文章介绍了教务管理信息系统的系统分析部分，包括可行性分析、数据流程分析和需求分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。 关键字 : 管理信息系统、教务管理、 Visual Basic 应用。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Abstract Is more and more thorough along with the information technology in the management and the widespread application, the management information system the implementation technically already gradually maturely.The management information system is the new discipline which develops unceasingly, any unit must survive must develop, wants the high efficiency to organize organically the internal activity, must establish the management information system which adapts with own characteristic. This article introduced environment uses Microsoft Visual Basci 6.0 ；from the top downward the overall plan in Visual under the Basic6.0, from bottom to top applies the development”； the strategy develops a management information system the process.Through analyzes my school to count the branch department the educational administration management insufficiency, founded a set of effective use computer to carry on the educational administration information management the plan.The article introduced the 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： educational administration management information system system analysis part, including feasibility analysis, data flow analysis and demand analysis and so on； The system design part mainly introduced the system function design and the database design and the code design； The system realization part explained several main module algorithms, this system contact surface is friendly, the operation is simple, quite practical. Key words: Management information system, educational administration management, Visual Basic application. 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第一章 绪论 1.1. 选题的背景 随 着数据库技术、网络技术和科学管理方法的发展，计算机在管理上的应用日益广泛，管理信息系统逐渐成熟起来，并且给管理带来了新的革命。管理信息系统是以人为主导的，通过运用计算机、网络通信设备及其它办公设备对信息进行收集、运输、加工、存储、更新、维护，支持高层决策、中层控制、基层运作的人机系统。管理信息系统最大的特点是高度集中，能将组织中的数据和信息集中起来，进行快速处理，统一使用，利用定量化的科学管理方法，通过预测、计划优化、 管理、调节和控制等手段来支持决策。一个中心数据库和计算机网络系统是管理信息系统 (Managemant Information System,MIS)的重要标志。 MIS 的处理方式是在数据库和网络基础上的分布式处理。随着计算机网络和通讯技术的发展，不仅能把组织内部的各级管理连接起来，而且能够克服地理界限，把分散在不同地区的计算机网络互连，形成跨地区的各种业务信息系统和管理信息系统。目前，虽然有许多学校已开始运用 计算机 进行 学校教务的 管理 .学校的 教务管理 系统必须是一个完整统一、技术先进、高效稳定、安全可靠的系统。根 据国内大学的现在管理模式，结合国际新的思想观念，在校园网络环境下建设先进的、与国际水平接轨的信息化管理平台。提高学校管理工作的现代化水平，使之成为学校公共信息服务体系的重要组成部分。教学教务管理系统是高校管理信息系统无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 建设的重要组成部分，是提高教学管理的质量和效益乃至建设世界知名的高水平的大学的关键环节。教学教务信息处理的电脑化、网络化，也是实现学校管理现代化和信息化的重要内容。 1.2. 目的和意义 随着计算机技术的不断发展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。 目前，我国的科技水平高速 发展，计算机作为今天使用最广的现代化工具已深入到各个领域，并且正在成为未来社会 信息社会的重要支柱。在这样的大背景下，现代学校教务的管理方式，资源建设等方面都发生了重大变化，这种变化表现在教务工作，管理和服务平台发生的变化，教务管理不再是传统的手工操作，人工管理，而是全面实行计算机管理。 此次毕业设计是对我两年来所学专业知识的一个总结。它使我提高了自身解决实际问题的能力。但由于本人知识水有限，系统设计中还存在着很多不足，请各位领导批评指正，以便我今后改进。此外，该系统能够顺利的完成离不开各位老师对我的帮 助，在此深表感谢。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 1.3. 系统完成和实现的工作 现代高校教务管理一般采取二级管理模式：校级教务处和各二级院系教务科。鉴于本校的实际情况我校教务处侧重于校级教务处对数据的维护和管理以及从整体的角度进行数据分析和数据统计。包括数据的录入、查询、打印以及从局部的角度进行数据分析和数据统计以及对数据进行各种处理，对全校的教务管理工作任务进行全盘的规划，最后拿出一个管理全校教务工作的合理方案来。 前台 : :采用 Delphi 应用程序平台 . 后台 : 采用 Microsoft SQLSERVER2000 数 据库平台 . 实现本校的计科系教务管理系统 . 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第二章 平台简介 2.1. Delphi 简介 Delphi是一个极有代表性的面向对象开发工具；它将面向对象的程序设计方法与数据库技术；网络技术以及可视化；事件驱动，代码自动生成等先进技术完美的结合在一起，使用它可以直观的，快速地开发，高质量的 windows应用程序。Delphi强大的易用的特点得到程序员的青睐。 Delphi7.0除了保留以前版本的强大功能之处，更在数据库程序开发方面提供了强有力的支持，使程序员完全可能轻松开发出复杂 且功能强大的数据库程序。 Delphi类可以粗略地分成两部分：一部分是组件类，这些组件类通常以某种方式出现在组件面板上，当用户从组件面板上点取一个类的图标后，在程序中就自动生成了该类的对象（非可视组件除外）；另一部分是功能类，这此功能类的对象通常出现在程序代码中，起着不可代替的作用，但是这些功能类在组件面板上是找不到的。在 Delphi中，每一个类的祖先都是 Tobject类 ,整个类的层次结构就像一棵倒挂的树，在最顶层的树根即为 Tobject类。这样，按照面向对象编程的基本思想，就使得用户可用 Tobject类这 个类型代替任何其它类的数据类型。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2.1.1. 数据库访问方法 BDE方法：它提供了存取各种文型和客户 /服务器型数据库的驱动器程序。该方法直接访问 Paradox和 Dbase等数据库或通过 DOBC（ Open DataBase connecivity,开放数据库）来访问 Access和 PoxPro等数据库，还可通过内嵌方式访问 SQL Servr、Oracle和 DB2等大型数据库。 ADO方法： ADO方法是微软提供的一种数据库访问技术。通过 ADO技术可方便的访问各种类型的数据库，尤其对于 OLEDB类型的数据库， ADO更是访问数据 库的标准接口。 Delphi通过 ADO技术可让开发者快速访问关系或非关系型数据库，但使用时需安装 ADO的数据库引擎。 MIDAS方法： MIDAS方法是 Delphi用于开发多层应用系统的中间透明引擎。通过 MIDAS，开发者可使用相同的组件来存取不同的后台应用程序服务器。这些后台应用服务器程序包括 COM+/DCOM应用程序服务器、 MTS中间件或 CORBA应用程序服务器。 MIDAS方法实现了真正意义上的客户端程序与后台数据库的分离，但MIDAS的灵活性很差，与数据感应控件关联过于密切，限制了程序员的创造性。 dbExpress 方法： Delphi 7.0提供了新一代的跨平台数据访问引擎dbExpress方法，它由一组新控件、技术和驱动程序组成，并通过这些组成部分和各种数据源连链接。如配合不同的数据库动态链接库文件，还可处理后台数据库数据。因此也是 Delphi和 Kylix的核心数据访问。 综上所述，虽然 Delphi的各个版本提供多种数据库的连接和访问方法，但在同一个应用程序中，开发者几乎不可能同时选用多种连接方法，因而选择合适方法是一个必须在开发前仔细考虑的问题。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2.1.2. 数据库组件 用 Delphi7.0开发数据库应用，重点 是和各种数据库组件打交道，控件组有：BDE控件组、 ADO控件组、 Date Controls控件组和 dbExpress控件组。 1ADO是Micrsoft公司关于各种类型数据的高等界面，后来逐渐演变成满足所有数据访问需要的完整解决办法。 ADO的对象模型是所有数据访问接口对象模型中最简单的一种。它主要控件有： TTADOConnection控件， TADOCommand控件， ADODateSet控件， TADOTable控件， TADOQuery控件， TADOStoeProc控件。 Delphi的 ADO组件无需依靠 BDE而 是使用 ADO技术，提供了可以通过数据控制组件访问数据的新方法。唯一的要求是在使用 ADO组件时必须运行 ADO/OLE DB。 ADO组件的使用使得DELPHI在访问数据的类型和采用的技术方面都有了很大的突破 2.2. 数据库简介 2.2.1. SQL 语言 SQL 基础 : SQL(Structured Query Language，结构查询语言 )是一个功能强大的数据库语言。 SQL通常使用于数据库的通讯。 ANSI（美国国家标准学会）声称， SQL 是关系数据库管理系统的标准语言。 SQL 语句通常用于完成一些数据库的操作任务，比如在数据库中 更新数据，或者从数据库中检索数据。使用 SQL的常见关系数据库管理系统有： Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingress 等等。虽然绝大多数的数据库系统使用 SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的 SQL 命令，比如无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成绝大多数数据库的操作。 MS SQL Server 就是用的 Transact- SQL。 SQL语言有着非常突出的优点。 非过程化语言： SQL 是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。 SQL 允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集，所有 SQL 语句接受集合作为输入，返回集合作为输出。 SQL的集合特性允许一条 SQL语句的结果作为另一条 SQL语句的输入。 SQL 不要求用户指定对数据的存放方法， 这种特性使用户更易集中精力于要得到的结果；所有 SQL语句使用查询优化器，它是 RDBMS的一部分，由它决定对指定数据存取的最快速度的手段，查询优化器知道 存在什么索引，在哪儿使用索引合适，而用户则从不需要知道表是否有索引、有什么类型的索引。 统一的语言： SQL 可用于所有用户的 DB 活动模型，包括系统管理员、数据库管理员、 应用程序员、决策支持系统人员及许多其它类型的终端用户。 SQL为许多任务提供了命令，其中包括： 查询数据； 在表中插入、修改和删除记录； 建立、修改和删除数据对象； 控制对数据和数据对象的存取； 保证数据库一致性和完整性； 以前的数据库管理系统为上述各类操作提供单独的语言，而 SQL 将全部任务统一在一种语言中。 所有关系数据库的公共 语言：由于所有主要的关系数据库管理系统都支持无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SQL 语言，用户可将使用 SQL 的技能从一个 RDBMS(关系数据库管理系统 )转到另一个，所有用 SQL 编写的程序都是可以移植的。 SQL 语句 : SQL 功能强大，是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库中的数据修改和更新，概括起来，它可以分成以下几组： DML（ Data Manipulation Language，数据操作语言）：用于检索或者修改数据； DDL（ Data Definition Language，数据定义语言）： 用于定义数据的结构， 比如 创建、修改或者删除数据库对象； DCL（ Data Control Language，数据控制语言）：用于定义数据库用户的权限。 DML组可以细分为以下的几个语句： SELECT：用于检索数据； INSERT：用于增加数据到数据库； UPDATE：用于从数据库中修改现存的数据； DELETE：用于从数据库中删除数据。 DDL语句可以用于创建用户和重建数据库对象。下面是 DDL命令： CREATE TABLE， ALTER TABLE， DROP TABLE， CREATE INDEX， DROP INDEX DDL 与 DML: 数据定义语言 DDL：它是用来创建和修改数据库结构的一种语句，包括 Create、 Alter 和 Drop 语句。数据操作语言 DML：包括数据查询与数据更新。数据查询主要是由 Select 语句完成，这一点不再赘述。而数据更新所造成的风险大大超过数据查询。数据库管理系统必须在更改期内保护所存储的数据的一致性，确保有效的数据进入数据库，数据库必须保持一致性， DBMS 还必须协调多用户的并行更新，以确保用户和它们的更改不至于影响 其它用户的作业。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 用于修改数据库内容的 SQL 语句主要有以下三个： (1) Insert，向一个表中加入新的数据行 (2) Delete，从一个表中删除数据行 (3) Update，更改数据库中已经存在的数据 Insert标准语法： INSERT INTO table name (col1, col2.) VALUES (value1, value2.) Insert 语句还可以将多行数据添加到目标表中去，在这种形式的 Insert 语句中，新行的数据值不是在语句正文中明确地指定的，而是语句中指定的一个数据库查询。添加的值来自数据库自身的行，在某些特定的状态下，这是非常有用的。多行 Insert 语句为拷贝数据提供了一种紧凑而高效的方法，但我在自己做的图书管理系统中没有使用这种方法，我在系统中是使用循环依照上面的用法来完成多个记录的插入。 Update语句用于更新单表中选定行的一列或多列的值。要更新的目标表在语句中定义， Set子句则指定要更新哪些列并计算它们的值。 Update 语句总是包含 Where 语句，而且 Update 语句比较危险，所以您必须明确地认识到 Where 语句的重要性， Where 语句被用来指定需要更新的行。 标准语法： UPDATE table name SET columnname1 = value1 , columname2 = value2. WHERE search condition Delete 语句标准语法： 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： DELETE FROM table name WHERE condition 复 杂操作实现 : 在信息管理系统中，我们往往会遇到归类、汇总、映射、索引、子查询等复杂操作，相应的支持与实现如下： GROUP BY子句语法为： SELECT column1, SUM(column2) FROM list-of-tables GROUP BY column-list； 这个 GROUP BY 子句将集中所有的行在一起，它包含了指定例的数据以及允许合计函数来计算一个或者多个列。在本人的系统中在显示数据时用到了此语句来对查询所 得的内容排序然后再显示。 组合条件和布尔运算符 ,以下的 SQL语句中就含有组合条件： SELECT column1, SUM(column2) FROM list-of-tables WHERE condition1 AND condition2； 有些时候，需要一起浏览多个查询的结果、组合它们的输出，我们可以使用 UNION关键字。 2.2.2. 数据库 数据库处理在信息系统的研究中一直是非常重要的主题，然而，近年来，随着 World Wide Web(WWW)的猛增及 Internet 技术的迅速发 展，使得数据库技术之时成为最热门技术之一。数据库技术能使 Internet 应用超越具有早期应用特点的简单的发布。同时， Internet 技术提供了一种向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 据库技术的重要性。 数据库的设计和开发及包括艺术有包括工程。理解用户的需求，然后，把它们转变为有效的数据库设计是一个艺术过程。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用，是一个工程过程。 数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单 、顾客、工作、员工、学生、电话之类的项，或其它数据量较大、需要密起关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet 的数据库或用于公司内联网的数据库。数据库也被越来越多地应用于生成和维护多媒体应用程序上。 2.3. 系统运行环境 基于以上对系统各种的分析和定义，建议系统采用一下配置，已确定系统的稳定、高效运行。 2.3.1. 硬件环境 (1) 最低配置 C233以上 CPU， 32MB 以上内存， 2.1GB硬盘。 (2) 建议配置 C2.4以上 CPU， 256MB内存， 80GB硬盘。 (3) 打印机一台 (4) UPS不间断电源一台（避免数据因突然停电等意外情况下的丢失 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2.3.2. 软件环境 PC工作站 Win98/2000/xp 操作系统 第三章 系统总计设计 3.1. 系统的主要功能要求 根据用户口令判断用户的权限，具有基本的信息录入功能和添加、删除、修改功能，并能根据录入的信息生成课程表、总课表、课酬表、课酬统计表、试卷档案表，并能生成打印报表和 Excel数据文档等功能。 3.1.1. 系统主要模块 主要功能模块有：用户管理，角色管理，数据字典，课程表信息，总课表信息，教师信息管理，教师课酬 管理，教师课酬发放，教师课酬统计，试卷档案管理，课程名称设置，教师信息查询，课程信息查询，教师课酬查询 等。 3.1.2. 系统安全性 计算机系统的安全治理是一个庞大、复杂、面广的系统工程。安全的核心是人，必须以人为核心进行安全管理。采用各种先进的安全技术，使系统免受非法攻击，排除没有访问权限的使用者窃取机密信息，确保系统安全可靠的运行。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 针对 学校教务 管理系统的特点，为了加强其安全性，系统采用一定的保密措施。 3.1.3. 口令权限识别 口令识别是一种低成本，易实现的用户识别技术。在计算机系统内广泛的使用，在口令识别机制中，计算机系 统给每个用户分配一个用户标识和一个口令。用户标识唯一确定一个用户是公开的；口令用于证实用户，是保密的，显示为 *号。 3.1.4. 口令存取 系统要识别每个用户的口令，就必须把每个用户的口令存放起来，形成口令表，通常以文件或数据库形式存放。如果以明文的形式存放，则很容易被熟悉系统的人偷取，为了提高基于口令的身份识别方案的坚强度，应该在口令方案中引入家密机制。 3.2. 主要功能模块描述 系统的各个功能模块相互协同共同构成一个完整的教务管理系统 . 3.2.1. 课程表信息 该设计的功能主要是完成 课程表 的管理，它包括 课程表录入生成和 查询，及其维护和 打印 及生成 Excel文档 等功能。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 3.2.2. 总课表信息 该设计的功能主要是完成 学期总课表 的管理，它包括 学期课表录入生成和 查询，及其维护和打印 及生成 Excel文档 等功能。 该模块的录入量较多，在设计上更加方便用户在较短时间内完成大量的工作。 3.2.3. 教师信息管理 该设计的功能主要是完成教师信息的管理和维护 。 3.2.4. 教师课酬管理 该设计主要 是对教师课酬的及时登记入库 ，它包括对 教师课酬的登记、录入、查询、 报表打印 、及 Excel生成 等功能 ，也为后续的教师课酬发放提供数据源 。 3.2.5. 教师课酬发放 该设计的功能主要对 教师课酬的发放进行登记和管理 。 它 根据教师课程登记表提供的数据加以录入部分信息，进行维护和管理。提供了录入、查询、 报表打印 、及 Excel生成 等功能 ，也为后续的教师课酬统计管理提供数据依据。为教师课酬发放提供数据。 3.2.6. 教师课酬统计 该设计 完全依据课酬登记表的数据进而进行统计维护、管理和录入部分必须的外加数据。该设计也提供了录入、查询、 报表打印 、及 Excel生成 等功能 。主要是为学期教师课酬统计工作提供方便。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 3.2.7. 试卷档案登记 该设计 主要是实现对教学考试试卷电子档案的管理，该设计也提供了录入、查询、 报表打印 、及 Excel生成 等功能 。为日常教学考试工作提 供方便。 第四章 系统详细设计分析 1.1. 需求分析 4.1.1. 目标系统功能说明 本教务管理系统针对客户提供强大的软件功能，主要维护日常教务管理工作的基本信息等，能为教务教学提供更好的数据支持。软件的功能基本是通用的。提供系统用户管理、角色管理、数据字典管理、课程表管理、总课表管理、教师课酬管理统计、试卷档案管理和生成报表 Excel 数据文档，查询帮助等功能。 4.1.2. 用户需求分析 本教务管理系统 是基于 Windows操作系统基础上，通过对 既定数据条件 研究和分析并结合对 学校教务 管理进行分析提出来的。对原有 教务管理系统 的非 图形界面操作 和 功能不强的数据库系统的不稳定性、不可扩充性、难以移植等 和 原有系统功能覆盖面不广等缺陷相应提出了一些要求。 1、 求系统目前流行的数据库系统 SQL Server 2000 作为底层数据库，使其具备很强的稳定性、扩充性、移植性等优良性能。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2、 求系统以功能强大的 Windows 系列操作系统作为操作系统平台，使其具备优良的可视化图形操作界面，大力提高系统的可操作性和交互性尽量减少操作员的负担，让他们更方便、更快捷、更简单的进行操作。 3、 求扩大系统功能覆盖面。它的功能要求能进行图书的编目建库、浏览数 据、检索与统计数据、以及打印数据等功能的综合管理。并能实现控制各用户系统权限，从而保证系统的安全性能。 4、 求提高系统的可维护性。系统的数据要求能随时进行备份与恢复，基于家庭图书管理系统的局限性这里就不要求数据能与其他数据库进行交流（及共享数据）。 1.2. 系统结构 计科教务 管理系统结构图 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 计 科 教 务 管 理 系 统系 统 管理教 务 信息 管 理查 询 帮 助用户管理角色管理数据字典课程表信息总课表信息教师信息管理教师课酬管理教师课酬发放教师课酬统计试卷档案登记课程名称设置教师信息查询课程信息查询教师课酬查询关于帮助 1.3. 系统 E-R 图 计科教务 管理系统 E-R 图 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 参 照教 师 课 酬发 放 表统 计教 师 课 酬统 计 表教 师对 应对 应 对 应对 应课 程 表 / 总课 表试 卷 档 案登 记 表教 师 课 酬登 记 表11n 1n1n1n1nn 1.4. 数据库设计 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 数据库设计主要是进行数据库的逻辑设计，即将数据按一定的分类、分组系统和逻辑层次组织起来，是面向用户的。数据库设计时需要综合企业各个部门的存档数据和数据需求，分析各个数据之间的关系，按照 DBMS 提供的功能和描述工具，设计出规模适当、正确反映数据关系、数据冗余少、存取效率高、能满足多种查询要求的数据模型。 数据库设计的步骤是： （ 1） 数据库结构定义：目前的数据库管理系统（ DBMS）有的是支持联机事务处理 CLTP（负责对事务数据进行采集、处理、存储）的操作型 DBMS，有的可支持数据仓库、有联机 分析处理 CLAP（指为支持决策的制定对数据的一种加工操作）功能的大型 DBMS，有的数据库是关系型的、有的可支持面向对象数据库。针对选择的 DBMS，进行数据库结构定义。 （ 2） 数据表定义：数据表定义指定义数据库中数据表的结构，数据表的逻辑结构包括：属性名称、类型、表示形式、缺省值、校验规则、是否关键字、可否为空等。关系型数据库要尽量按关系规范化要求进行数据库设计，但为使效率高，规范化程度应根据应用环境和条件来决定。数据表设计不仅要满足数据存储的要求，还要增加一些如反映有关信息、操作责任、中间数据的字段或临时 数据表。 （ 3） 存储设备和存储空间组织：确定数据的存放地点、存储路径、存储设备等，备份方案，对多版本如何保证一致性和数据的完整性。 （ 4） 数据使用权限设置：针对用户的不同使用要求，确定数据的用户使用权限，确保数据安全。 （ 5） 数据字典设计：用数据字典描述数据库的设计，便于维护和修改。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 为了更好地组织数据和设计出实际应用数据库，应该注意如下问题： 规范化地重组数据结构：对数据进行规范化表达，这在后面将会具体讨论。 关系数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一 步设计完成后数据库和数据结构设计工作基本完成，只待系统实现时将数据分析和数据字典的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。 建立关系数据结构涉及三方面内容：确定关联的关键指标项并建立关联表；确定单一的父系记录结构；建立整个数据库的关系结构。 基于之上的分析系统的数据库结构具体如下 表 -1 用户表 字段 类型 大小 允许为空 Uno Varchar 10 Uname Varchar 10 Usex Varchar 4 UpassWord Varchar 10 UBirth Datetime 8 Uphone Varchar 12 是 Uemail Varchar 20 Uaddress Varchar 50 Umemo Varchar 50 是 表 -2 用户角色表 字段 类型 大小 允许为空 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Rno varchar 10 Rname varchar 100 Rpower varchar 10 是 Rmemo varchar 50 是 表 -3 功能表 字段 类型 大小 允许为空 Fno varchar 10 Fname varchar 100 Flevel int 4 是 Fpage varchar 50 是 FMemo varchar 100 是 表 -4 教师信息表 字段 类型 大小 允许为空 tno int 4 tname varchar 20 tpost varchar 15 是 tsex varchar 10 ttel varchar 30 是 tbool varchar 10 是 tmemo varchar 50 是 tage varchar 20 是 tadress varchar 30 是 表 -5 总课表 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 字段 类型 大小 允许为空 tcno int 4 tcscode int 4 是 tcname varchar 20 是 tcpost varchar 20 是 tcdepartment varchar 20 是 tcclass varchar 20 是 tclessonname varchar 20 是 tclessoncount int 4 是 tccoefficient char 10 是 tcsc char 10 是 tcclessons int 4 是 tcsum varchar 20 是 tcreduce varchar 30 是 tcworksum varchar 30 是 tcmemo varchar 50 是 表 -6 课程表 字段 类型 大小 允许为空 tcno int 4 tweek varchar 20 是 tweekcount varchar 30 是 tname varchar 20 是 tadress varchar 50 是 表 -7 课酬登记 表 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 字段 类型 大小 允许为空 tcno int 4 tcscode int 4 是 tcname varchar 20 是 tcpost varchar 20 是 tcdepartment varchar 20 是 tcclass varchar 20 是 tclessonname varchar 20 是 tclessoncount int 4 是 tccoefficient char 10 是 tcsc char 10 是 tcclessons int 4 是 tcsum varchar 20 是 tcreduce varchar 30 是 tcworksum varchar 30 是 tcmemo varchar 50 是 tctime varchar 20 是 tcout varchar 10 是 trstandard varchar 10 是 tremuneration varchar 30 是 trtaxrate varchar 10 是 trtax varchar 20 是 trwages varchar 20 是 表 -8 课酬发放表 字段 类型 大小 允许为空 trno int 4 tcno int 4 是 trstandard varchar 30 是 tremuneration varchar 30 是 trtaxrate varchar 30 是 trtax varchar 30 是 trwages varchar 30 是 trmemo varchar 50 是 trtime varchar 30 是 traward varchar 30 是 trsignature varchar 30 是 trlessonscount int 4 是 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 表 -9 课酬统计表 字段 类型 大小 允许为空 trno int 4 tcno int 4 是 trstandard varchar 30 是 tremuneration varchar 30 是 trtaxrate varchar 30 是 trtax varchar 30 是 trwages varchar 30 是 trmemo varchar 50 是 trtime varchar 30 是 traward varchar 30 是 trsignature varchar 30 是 trlessonscount int 4 是 tcdepartment varchar 30 是 tcname varchar 20 是 tcpost varchar 20 是 tcout varchar 10 是 表 -10 课名表 字段 类型 大小 允许为空 tscode int 4 tlesson varchar 30 是 表 -11 试卷登记表 字段 类型 大小 允许为空 ttestno varchar 30 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： tlessonname varchar 30 是 tname varchar 30 是 tclassname varchar 30 是 ttestcount varchar 30 是 tquestion varchar 30 是 tmemo varchar 50 是 1.5. 系统数据流图 0 层数据流图 ： 用 户计 科 教 务 管 理系 统用 户 命 令用 户 操 作 信 息显 示 信 息显 示 面 板 1 层数据流图： 用 户 命 令 处 理4系 统 配 置5配 置 命 令用 户 信 息 权 限 记 录配 置 数 据口 令启 动 命 令启 动 / 停 止处 理2口 令 核 对3口 令口 令 有 效口 令 无 效系 统 操 作1启动/停止信息显示用 户 权 限 数 据显 示 信 息用 户 操 作 信 息用 户 命 令 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2 层数据流图： 操 作 权 限 处 理1 . 1权 限 处 理 信 息操 作 信 息操 作 数 据 记 录权 限 数 据操 作 处 理1 . 2操 作 数 据操 作 信 息显 示 信 息 处 理1 . 3处 理 信 息 显 示 信 息启 动 信 息停 止 信 息 3 层数据流图 : 用 户 信 息 处理1 . 2 . 1用 户 操 作 信 息用 户 记 录用 户 操 作 数 据角 色 信 息角 色 信 息 处理1 . 2 . 2角 色 记 录角 色 操 作 数 据处 理 信 息功 能 权 限 记 录权 限 操 作 数 据处 理 信 息 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 信 息 处 理1 . 2 . 3试 卷 档 案 / 课 程 表 / 总课 表 / 教 师 信 息 / 课 程名 操 作 信 息数 据 库 记 录操 作 数 据处 理 信 息 课 酬 登 记 信息 处 理1 . 2 . 4课 酬 操 作 信 息课 酬 登 记 记 录课 酬 登 记 操 作 数 据课 酬 登 记 信 息课 酬 发 放 信息 处 理1 . 2 . 5课 酬 信 息 记 录课 酬 发 放 操 作 数 据处 理 信 息课 酬 统 计 记 录课 酬 统 计 操 作 数 据课 酬 统 计信 息 处 理1 . 2 . 6课 酬 发 放 信 息处 理 信 息 处 理 信 息 查 询 信 息 处 理1 . 2 . 7查 询 操 作 信 息 处 理 信 息查 询 信 息 记 录查 询 操 作 数 据 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第五章 系统的实现 5.1. 登陆窗体的设计 在登陆界面进行系统用户的验证 ,只有合法用用才可以登陆系统 如 图 5-1 图 5-1 “登陆 ”的主要功能代码为 : 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TLogonForm.Button1Click(Sender: TObject)； begin if (edit1.text=) then begin application.MessageBox(用户名不能为空 ,错误提示 ,mb_ok)； count:=count+1； if (count=3) then begin application.MessageBox(用户名或密码输入错误三次，系统即将退出！ ,提示 ,mb_ok)； application.Terminate； end； edit2.Text:=； edit1.SetFocus； end else if checkuser(edit1.Text,edit2.Text)=false then begin application.MessageBox(用户名或密码输入有误 ,错误提示 ,mb_ok)； count:=count+1； if (count=3) then begin application.MessageBox(用户名或密码输入错误三次，系统即将退出！ ,提示 ,mb_ok)； application.Terminate； end； edit2.Text:=； edit1.SetFocus； end else if checkuser(edit1.Text,edit2.Text)=true then begin logonForm.Close； end ； end； function TLogonForm.checkuser(uname, upwd: string): boolean； var userquery:TAdoquery； sqlstr:string； begin userquery:=TAdoquery.Create(self)； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： with userquery do begin connection :=dm.ADOConnection1； sqlstr:=select * from Tuser where UName=:uname and UPassWord=:upwd； sql.Text:=sqlstr； parameters.ParamByName(uname).Value:=uname； parameters.ParamByName(upwd).Value:=upwd； active:=true； try if recordcount0 then begin result:=true； dm.uno:=fieldbyname(uno).AsString； dm.uname:=fieldbyname(uname).AsString； end else result:=false； finally close； free； end； end； end； procedure TLogonForm.Edit1KeyPress(Sender: TObject； var Key: Char)； begin if key=#13 then Perform(WM_NEXTDLGCTL, 0, 0)； end； procedure TLogonForm.Edit2KeyPress(Sender: TObject； var Key: Char)； begin if key=#13 then begin button1.Click； end； end； procedure TLogonForm.FormShow(Sender: TObject)； begin edit1.SetFocus； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TLogonForm.FormCloseQuery(Sender: TObject； var CanClose: Boolean)； begin if dm.uno= then application.Terminate ； end； end. 5.2. 程序主界面设计 系统的主界面设计结果如 图 5-2 图 5-2 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 系统各个功能模块都在主界面模块里调用 比如 点击 “用户角色 ” 系统将进入 系统角色管理页面 如图 5-3 图 5-3 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： “角色管理 ” 模块的主要功能那代码为 : private function getAutoRno: string；/自动获取角色编号 procedure ControlTheEnablePro(isSaved: Boolean)；/控制按钮面板的 Enable 属性 procedure SaveTvToRoleFunc()；/通过树增加角色功能 /鼠标滚动 DBGrid 的数 据跟着改变 procedure GridMouseWheel(Sender: TObject； Shift: TShiftState； WheelDelta: Integer； MousePos: TPoint； var Handled: Boolean)； Private declarations public procedure CheckTv()； function isRnameExist(Rname: string): Boolean； Public declarations end； TControlAccess = class(TControl)； var RoleForm: TRoleForm； Isparentnode:Boolean=false； flag: integer=0； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： implementation uses DataModul, mainunit,Math, public_unit, User_M； $R *.dfm procedure TRoleForm.FormCreate(Sender: TObject)； begin adoquery1.Open； ControlTheEnablePro(true)； with adoquery1 do begin edit1.Text := fieldByName(Rno).AsString； edit2.Text := fieldByName(Rname).AsString； edit3.Text := fieldByname(Rmemo).AsString； end； TControlAccess(DBGrid1).OnMouseWheel := GridMouseWheel； end； procedure TRoleForm.FormClose(Sender: TObject； var Action: TCloseAction)； begin adoquery1.Close； Action := caFree； RoleForm := nil； end； /procedure RoleForm.ControlTheEnablePro(isSaved: Boolean)； /begin /end； /自动获取角色编号 /* function TRoleForm.getAutoRno: string； var adoqury: TADOQuery； t: integer； begin adoqury := TADOQuery.Create(self)； with adoqury do begin Connection := dm.ADOConnection1； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SQL.Text := SELECT MAX(Rno) as Rno FROM TRole； Open； t := StrToInt(fieldbyName(Rno).AsString)； t := 1000 + t + 1； result := Copy(IntToStr(t), 2, 3)； end； adoqury.Free； end； /* procedure TRoleForm.SaveTvToRoleFunc； var sqlStr: string； Node: TfcTreeNode； i: integer； begin for i := 0 to fcTreeView.Items.Count - 1 do begin Node := fcTreeView.Itemsi； if Node.Checked then begin sqlStr := INSERT TRoleFunction(Rno, Fno) VALUES( +QuotedStr(edit1.Text) + , +QuotedStr(Node.StringData) +)； ToExecSQL(sqlStr, DM.ADOConnection1)； end； end； end； procedure TRoleForm.FormShow(Sender: TObject)； var PNode, CNode: TfcTreeNode； PRoleFunQry, CRoleFunQry: TADOQuery； pFname, pFno, cFname, cFno: string； begin PRoleFunQry := TADOQuery.Create(self)； CRoleFunQry := TADOQuery.Create(self)； with PRoleFunQry do begin Connection := DM.ADOConnection1； SQL.Text := SELECT FNO, FName From TFunction WHERE Flevel=0； open； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： while not Eof do begin pFname := fieldByName(FName).AsString； pFno := fieldByName(FNo).AsString； PNode := fcTreeView.Items.Add(nil, pFname)； PNode.StringData := pFno； PNode.StringData2 := pFname； PNode.CheckboxType := tvctCheckbox； with CRoleFunQry do begin Connection := DM.ADOConnection1； SQL.Text := SELECT FNO, FName From TFunction + WHERE Flevel=1 AND Fpater= + QuotedStr(pFno)； Open； While not Eof do begin cFname := fieldByName(FName).AsString； cFno := fieldByName(FNo).AsString； CNode := fcTreeView.Items.AddChild(PNode, cFname)； CNode.StringData := CFno； CNode.StringData2 := cFname； CNode.CheckboxType := tvctCheckbox； Next； end； end； Next； end； end； PRoleFunQry.Free； CRoleFunQry.Free； CheckTv； fcTreeView.FullExpand； end； procedure TRoleForm.fcTreeViewToggleCheckbox(TreeView: TfcCustomTreeView； Node: TfcTreeNode)； var i:integer； Ischildnode:integer； begin if isparentnode=true then exit； if node.Parent=nil then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： if node.Checked then for i:=0 to node.Count-1 do node.Itemi.Checked:=true else for i:=0 to node.Count-1 do node.Itemi.Checked:=false； end else begin Ischildnode:=0； for i:=0 to node.Parent.Count - 1 do if node.Parent.Itemi.Checked=true then Ischildnode:=1； isparentnode:=true； if Ischildnode=1 then node.Parent.Checked:=true else node.Parent.Checked:=false； Isparentnode:=false； end； end； procedure TRoleForm.CheckTv； var RoleFunQry: TADOQuery； Fno: string； i: Integer； begin RoleFunQry := TADOQuery.Create(self)； with RoleFunQry do begin Connection := DM.ADOConnection1； SQL.Text := SELECT FNO FROM TRoleFunction WHERE Rno= + QuotedStr(adoquery1.fieldByName(Rno).AsString)； Open； While not Eof do begin Fno := fieldbyName(Fno).AsString； for i := 0 to fcTreeView.Items.Count - 1 do begin if(fcTreeView.Itemsi.StringData = Fno) and (fcTreeView.Itemsi.Parentnil)then fcTreeView.Itemsi.Checked := True； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Next； end； end； RoleFunQry.Free； end； procedure TRoleForm.ADOQuery1AfterScroll(DataSet: TDataSet)； var i: integer； begin for i := 0 to fcTreeView.Items.Count - 1 do begin fcTreeView.Itemsi.Checked := False； end； CheckTv； with adoquery1 do begin edit1.Text := fieldByName(Rno).AsString； edit2.Text := fieldByName(Rname).AsString； edit3.Text := fieldByname(Rmemo).AsString； end； end； procedure TRoleForm.Edit2KeyPress(Sender: TObject； var Key: Char)； begin if key=#13 then begin if edit2.Text = then application.MessageBox(请输入角色名称 , 提示消息 , MB_ICONINFORMATION) else if isRnameExist(edit2.Text) then Application.MessageBox( 角色名已存在 , 角色名不可以重复 !, 提示消息 , MB_ICONINFORMATION) else Perform(WM_NEXTDLGCTL, 0, 0)； end； end； procedure TRoleForm.BitBtn1Click(Sender: TObject)； var i: integer； begin flag:=1； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： for i := 0 to fcTreeView.Items.Count - 1 do begin fcTreeView.Itemsi.Checked := false； end； ControlTheEnablePro(false)； clearText(self)； edit1.Text := getAutoRno； edit2.SetFocus； end； procedure TRoleForm.BitBtn2Click(Sender: TObject)； var sqlStr: string； RoleQry:Tadoquery； begin if messagebox(handle, 您 确 定 要 删 除 吗 ？ , 提示 ,MB_YESNO + MB_ICONQUESTION)=ID_yes then begin RoleQry:= Tadoquery.Create(self)； with RoleQry do begin Connection := DM.ADOConnection1； sql.Text :=select distinct R.Rno from TRole R +inner join TUserRole UR on R.Rno=UR.Rno +inner join TUser U on UR.Uno=U.Uno +where R.Rno =+ QuotedStr(adoquery1.fieldbyname(Rno).AsString)； Open； if(adoquery1.FieldByName(Rno).AsString = 001) then application.MessageBox(系统管理员不能被删除 !,警告 , mb_IconError) else if RoleQry.RecordCount0 then begin application.MessageBox(该角色暂时不能被删除 !,警告 , mb_IconError)； end else if Application.MessageBox(确认删除 , 删除消息 , MB_ICONQUESTION + MB_YESNO) = ID_YES then begin sqlStr:= DELETE TRoleFunction WHERE Rno= + QuotedStr(adoquery1.fieldbyname(Rno).AsString)； ToExecSQL(sqlStr, DM.ADOConnection1)； sqlStr := DELETE TRole WHERE Rno= + QuotedStr(adoquery1.fieldbyname(Rno).AsString)； adoquery1.Close； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： ToExecSQL(sqlStr, DM.ADOConnection1)； adoquery1.Open； Application.MessageBox(删除成功 , 提示消息 ,MB_ICONINFORMATION)； end； end； RoleQry.Free； ControlTheEnablePro(true)； end； end； procedure TRoleForm.BitBtn3Click(Sender: TObject)； begin /if(adoquery1.FieldByName(Rno).AsString = 001) then / application.MessageBox(系统管理员不能被修改 !,警告 , mb_IconError) / else / begin flag:=2； ControlTheEnablePro(false)； edit2.SetFocus； / end； end； procedure TRoleForm.BitBtn4Click(Sender: TObject)； begin flag:=0； ControlTheEnablePro(true)； adoquery1.Close； adoquery1.Open； CheckTv； end； procedure TRoleForm.BitBtn5Click(Sender: TObject)； var sqlStr: string； begin if edit2.Text= then begin Application.MessageBox(输入角色名称 , 提示消息 , MB_ICONINFORMATION)； edit2.SetFocus； end else If isTvChecked(fcTreeView)=false then begin 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： application.MessageBox(请选择树分配权限 , 提示消息 , MB_ICONINFORMATION)； fcTreeView.SetFocus； end else begin if flag=1 then begin if isRnameExist(edit2.Text) then begin Application.MessageBox( 角色名已存在 !, 提示消息 , MB_ICONINFORMATION)； edit2.SetFocus； end else begin adoquery1.Close； sqlStr := INSERT TRole(Rno, Rname, RMemo) VALUES( + QuotedStr(edit1.Text) + , + QuotedStr(edit2.Text) + , + QuotedStr(edit3.Text) +)； ToExecSQL(sqlStr, DM.adoconnection1)； SaveTvToRoleFunc；/对角色 功能表 的编号同时添加上去 adoquery1.Open； Application.MessageBox( 角 色 添 加 成 功 , 提 示 消 息,MB_ICONINFORMATION)； end； end； if flag=2 then begin adoquery1.Close； sqlStr := UPDATE TRole SET Rname= + QuotedStr(edit2.Text) + , + Rmemo= + QuotedStr(edit3.Text) + WHERE Rno= + QuotedStr(edit1.Text)； ToExecSQL(sqlStr, DM.adoconnection1)； /删除角色功能 sqlStr := DELETE TRolefunction WHERE Rno= + QuotedStr(edit1.Text)； ToExecSQL(sqlStr, DM.adoconnection1)； /增加角色功能 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： SaveTvToRoleFunc； adoquery1.Open； Application.MessageBox( 角 色 修 改 成 功 , 提 示 消 息,MB_ICONINFORMATION)； end； ControlTheEnablePro(true)； flag:=0； end； end； function TRoleForm.isRnameExist(Rname: string): Boolean； var SqlStr: string； tempQry: TADOQuery； begin sqlStr := SELECT * FROM TRole WHERE Rname= + QuotedStr(edit2.Text)； tempQry := ToGetDataSQL(SqlStr, DM.adoconnection1)； if tempQry.RecordCount 0 then result := true else result := false； end； procedure TRoleForm.BitBtn6Click(Sender: TObject)； begin close； end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 5.3. 用户管理窗口的设计 系统用户管理的主要功能是实现系统用户的管理 ,权限管理 ,等 如 图 5-3 图 5-4 在 ”用户管理 ” 模块里可以对系统的用户方便的进行管理 : 主要功能代码为 : procedure TUserForm.FormCreate(Sender: TObject)； begin enable(self)； edNO.Enabled:=true； edName1.Enabled:=true； ControlTheEnablePro(true)； adoqUser.Open； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： StatusBar1.Panels0.Text:= 当前的记录数 : + IntToStr(adoqUser.RecordCount+1) + 条 ； StatusBar1.Panels1.Text := 操作用户管理窗口 ； StatusBar1.Panels2.Text := 请慎重操作 ！ ； TControlAccess(DBGrid).OnMouseWheel := GridMouseWheel； end； /鼠标滚动 DBGrid 的数据跟着改变 procedure TUserForm.GridMouseWheel(Sender: TObject； Shift: TShiftState； WheelDelta: Integer； MousePos: TPoint； var Handled: Boolean)； begin TDBGrid(Sender).DataSource.DataSet.MoveBy(-WheelDelta div WHEEL_DELTA)； Handled := True； end； procedure TUserForm.FormShow(Sender: TObject)； var userQry: T