[毕业论文]教务管理系统的开发与研究.doc

枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 目目 录录 摘 要 i abstract ii 1.绪 论 .1 1.1系统研究的目的和意义 1 1.2国内外发展概况及存在问题 1 1.3本文研究的内容及目标 2 2. 系统概述4 2.1系统及需求分析 4 2.1.1系统需求.4 2.1.2可行性分析.4 2.2系统设计的背景 4 2.3系统的功能简介 4 2.3.1学生信息管理模块.5 2.3.2学生成绩管理模块.5 2.3.3学籍变动模块.5 2.3.4基本信息模块.5 2.4系统开发的目标 5 3. 系统分析6 3.1数据流程分析 6 3.2数据存储分析 6 3.2.1 概念模型 6 3.2.2 系统 e-r 图的设计 7 3.3系统流程分析 7 4. 系统设计9 4.1软件模块结构设计 9 4.1.1系统方案确定.9 4.1.2软件结构设计.9 4.2数据库设计 9 4.2.1本系统中所涉及到的主要实体共有六个数据表10 4.2.2各表的物理结构10 5. 系统的实现.12 5.1系统登陆界面 .12 5.2系统主界面 .12 5.3用户管理模块 .13 5.4学生学籍变动模块 .13 5.5学生信息管理模块 .14 5.6成绩管理模块 .15 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 6. 结论.16 参考文献 17 附 录 .18 答 谢 .27 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 i 共共 27 页页 教务管理系统的开发与研究 专业：计算机科学与技术 姓名：张义 指导教师：姜振凤 摘 要 随着信息技术在管理上越来越深入而广泛的应用，教务管理系统的实 施在技术上也逐步成熟。教务管理系统是一个不断发展的学科,贯穿着整个教 育管理体系。 本文介绍了在 delphi 环境下采用“自上而下地总体规划，自下而上地应 用开发”的策略开发一个教务管理系统的过程。通过分析学校的教务管理体系， 创建了一套行之有效的计算机管理的方案。文章介绍了教务管理系统的系统分 析部分，包括系统需求分析、可行性分析、数据流程分析以及系统流程分析等； 系统设计部分主要介绍了软件模块设计和数据库设计等；系统实现部分简单介 绍了几个主要模块用法。本系统界面友好，操作简单，比较实用。 关键词 信息管理系统，教务管理系统，信息查询，delphi 应用 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 ii 共共 27 页页 abstract with more and more widespread and profound application of information technology in management, the implement of management information system has become mature in technology step by step. managing information system is a subject. enterprise needs existence and development, so enterprise activities means tightening up the enterprise management and strengthening effective management of any resource internal the enterprise。 this article introduces the detailed process of exploring a management information system under the environment of delphi, utilizing “top-bottom” overall plan and a strategy according to “bottom-top” application and exploitation. that is to establish a set of effective scheme for student management by computer, through analyzing disadvantages of student management by human resources. this article emphasizes on three sections. the system analysis section of student management information includes feasible analysis, management function analysis. the system design section mainly focuses on system function design and data base design and data number design. and the system realization section has provided several major function , together with the main windows and programs. key words: mis、student managementsystem、delphi 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 1 页页 共共 27 页页 1. 绪 论 1.1 系统研究的目的和意义 21 世纪初期，既是我国经济快速、健康发展的重要时期，也是我国高等 教育快速、健康发展的关键时期，高等学校必须与时俱进，更新观念，创新 制度，深化改革，努力提高人才培养质量，这不仅是新时期经济社会发展的 客观要求，更是高等学校改革与发展的必然选择。随着计算机技术的飞速发 展，计算机在日常管理应用中迅速普及，利用计算机进行教务管理势在必行。 因此开发一个能满足学校日常信息统计分析工作的教务管理系统对学校各项 工作的开展有着重要的意义。 开发出一个操作简便，界面友好，灵活实用，能被人普遍接受，安全可 靠，容易操作的教务管理系统，能够提高学校对学生信息的统计分析效率， 减轻教务管理人员对信息管理和统计的负担，提高学校对信息的规范化管理。 教务管理系统能够及时对信息进行收集整理，使学校相关部门及时获取可靠 的信息，便于管理。 1.2 国内外发展概况及存在问题 随着以计算机,多媒体,通讯,网络,人工智能等为代表的信息收集,处理, 加工,传输等技术的飞速发展,信息技术不断渗透到社会生活的各个领域和各 个方面,在全球范围内掀起了一场改变世界面貌的信息革命浪潮,它不断改变 着人们的生产方式,生活方式以及思维方式,使人类跨入了一个崭新的时代 信息化时代。 开发教务管理系统就是紧跟信息时代的步伐,也是推动管理信息化的具 体措施。 (1)国外研究现状 国外从 20 世纪 70 年代就有人研究管理问题.直到 20 世纪 90 年代关于 管理问题的研究仍然十分活跃。 管理信息系统(mis)的概念起源很早。在国外，早在 20 世纪 30 年代， 柏德就强调了决策在组织管理中的作用。50 年代，西蒙提出了管理依赖于信 息和决策的概念。同一时代维纳发表了控制论与管理，他把管理过程当成一 个控制过程。50 年代计算机已用于会计工作，1958 年盖尔写道：管理将以 较低的成本得到及时准确的信息，做到较好的控制。“这时数据处理一词已 经出现。 管理信息系统(mis)已经逐步成为一个独立的学科分支，它继承了 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 2 页页 共共 27 页页 其他众多学科的理论、方法与应用技术，它与信息科学、系统科学、控制理 论、运筹学、会计学、统计学、经济学、管理科学、计算机科学有着十分密 切的联系。 (2)国内研究现状 我国从 20 世纪 80 年代初期开始管理问题的研究。 国内许多企业开发过与管理相关的系统,但大多是根据本企业的特点而 设计的。只有少数系统考虑到了管理的通用性。 随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人 们深刻认识，它已进入人类社会的各个领域并发挥着重要的作用。作为计算 机应用的一部分，使用计算机对信息进行管理，具有高速度、高效率、高质 量的优势。 程序设计人员运用编程语言及数据库，针对信息管理的具体情况，进行 分析，设计出一个专属的信息管理系统，这将是开发信息管理系统的方向。 教务管理系统是一个比较稳定的系统，很大程度上具有一定的优势，比如说： 系统运行安全可靠，稳定性好；系统的可管理性好；系统输入界面友好，操 作简便易行，尽量减少用户的输入工作量；能实现多种查询，允许进行模糊 查询；数据具有规范性，整体性，方便数据之间的比较分析。可是，任何东 西都不是完美的，它也存在很多缺点：网络功能欠缺。本系统没有建立网络 连接，只能单机运行，无法实现资源共享。容错性不高，系统的抗错，容错 性不高。如必须使用规范查询语言，否则系统无法辨识执行。 有很多地方 还设计的不够详细，且系统分析报告中提及的一些功能在此未能实现。 1.3 本文研究的内容及目标 课题主要研究的内容如下： 本系统的使用者：教务处管理人员、任课教师和学生，研究内容涉及到 以下几方面： （1）教务处管理人员可以以管理员的身份登陆，进入管理模块，可以进 行学生信息的录入和查询，学生成绩的录入查询，学籍的变动以及班级的设 定和查询等功能最后是退出系统等操作。 （2）管理员可以设定教师用户，授予相应的权限，对学生信息，学生成 绩以及班级进行管理。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 3 页页 共共 27 页页 （3）学生可以用直接进入，只可以查询相应的信息而不能对相关信息进 行编辑。 本系统的目标就是从操作简单、界面友好、灵活、实用、安全的要求出 发，完成操作的全过程，为使用者提供最大的方便，最大程度提高工作效率。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 4 页页 共共 27 页页 2. 系统概述 本教务管理系统可以说是一个综合性的学校学生管理系统，它具有学生 学籍管理、学生成绩管理、学生信息管理等多种功能，因而具有较强的实用 性。 2.1 系统及需求分析 2.1.1 系统需求 通过调查,系统需要达到以下要求: (1) 由于该系统的使用对象多,要求有较好的权限管理; (2) 原始数据修改简单方便,支持多条件修改 (3) 方便的数据查询，支持多条件查询; (4) 在相应的权限下，删除数据方便简单，数据稳定性好； 可行性分析 由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强 的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。 且学校用于学生管理的微机都是 piii 以上的机器，在存储量、速度方面都 能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和查阅 相关参考文献，因此完全可以实现。 本系统的设计是在 windowsxp 中文版操作系统环境下，使用 delphi 开 发成功的。目前，数据库产品较多，每种产品都具有各自的特点和适用范围， 因此，在选择数据库时，应考虑数据库应用的特点及适用范围。 2.2 系统设计的背景 每个学校都需要进行信息的统计分析工作，而这些工作都必须在很短时 间内完成。大量的数据的统计分析工作如果只靠人工来完成，费时费力，还 容易出错。随着计算机技术的飞速发展，计算机在日常管理应用中迅速普及， 利用计算机进行管理势在必行。因此需开发出一个能满足学校进行信息的录 入，统计，查询和打印等需求的、功能完善、安全可靠、迅速简便的管理信 息系统是非常有必要的。 2.3 系统的功能简介 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 5 页页 共共 27 页页 本系统主要可以实现以下的管理功能：学生信息管理、学生成绩管理、 学籍变动、班级信息等等。 2.3.1 学生信息管理模块 该模块的功能是对学生的基本信息的录入和查询，和后面的成绩管理， 学籍变动有很好的联系。 2.3.2 学生成绩管理模块 该模块对各学生的成绩录入以及查询的设置，可以给学生添加以及修改 学生成绩，分为成绩录入和成绩查询等模块。 2.3.3 学籍变动模块 该模块对学生退学休学复学转学以及调班的信息进行设置，并可在其中 填写原因，该模块包括退学|休学和转学|调班两个模块。 2.3.4 基本信息模块 该模块是对班级的添加和设置以及对课程的添加和设置，自行添加相应 的课程和班级，把软件进行了人性化的设计。 2.4 系统开发的目标 本系统是管理学校学生信息的一个综合性的系统，本系统的设计目标将 最终定位于完成以上所述的系统主要业务的基本模型上。拟建系统实现以下 具体要求： (1)提高信息处理速度。 (2)集中处理，提高管理效率。 (3)减轻教务管理人员的劳动强度、提高管理水平。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 6 页页 共共 27 页页 3. 系统分析 数据流程分析 下面是教务管理系统的数据流图，如图 3.1.1 所示。 图 3.1.1 教务管理系统据流程图 数据存储分析：实体联系图(e-r 图) 3.2.1 概念模型 e-r 模型是指直接从现实世界中抽象出实体类型及实体间联系，是一种 描述静态数据结构的概念模型。它的主要成分是实体、联系和属性。可利用 e-r 模型进行数据库概念设计。e-r 图是直观表示概念模型的工具。在图中 有四个基本成分，如图 3.2.1： (1) 矩形框：表示实体类型(考虑问题的对象)。 (2) 菱形框：表示联系类型(实体间的联系)。 (3) 椭圆型框：表示实体类型和联系类型的属性。 (4) 直线：联系类型与设计的实体类型之间以直线连接，并在直线上部 标上联系种类(1:1，1:n，m:n)。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 7 页页 共共 27 页页 具体图示如图 3.2.1 所示。 实体 属性 联系 图 3.2.1 实体 e-r 图符号表示 3.2.2 系统 e-r 图的设计 本系统中所规划的主要实体有：学生基本信息实体、学注册实体、班级 信息实体、课程信息实体、成绩信息实体等，下面以学生注册实体为例是实 体 e-r 图，如图 3.2.2 所示。 图 3.2.2 学生注册实体 e-r 图 3.3 系统流程分析 所谓系统流程分析，就是用户使用系统时的工作过程。不同用户有着不 同的工作流程和使用权限。登陆是判断是否是合法的用户，在数据库设计中 用户的登陆名是固定的，如果要添加用户则在用户管理里面添加相应的用户 信息。 流程图使用的符号如图 3.3.1 所示。 开始/结束 数据流动 判断 功能描述 输入 及方向 图 3.3.1 流程图使用符号 学生注册实体 学号 姓名 团员年龄班级 学期 注册时间 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 8 页页 共共 27 页页 本系统的系统流程分析如图 3.3.2 所示。 n y 图 3.3.2 系统流程分析图 开始 身份验证 进入教务管理系统主界面 输入用户名和密码 退出系统 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 9 页页 共共 27 页页 4. 系统设计 4.1软件模块结构设计 4.1.1 系统方案确定 通过对系统的调研与分析，系统主要应完成的功能有：系统管理、学生 信息管理、学生成绩管理、学籍变动、班级信息等。 软件结构设计 本系统在执行时，先根据不同的操作人员的需要进入相应的模块，然后 可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一 个 mis 系统。系统的功能层次图如图 4.1.1 所示。 图 4.1.1 功能层次图 4.2 数据库设计 数据库采用了 microsoft 推出的 access 数据库，这是微软集成到 office 中的一个桌面数据库，能够快速方便的和 office 的其他套件综合使 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 10 页页 共共 27 页页 用。由于 access 具有显著的简易性和有效性，大量的桌面数据库系统都采 用 access 作为后台数据库。使用 access 的好处还在于，如果你的系统扩展 到 client/server 模式的时候，可以使用 microsoft 的数据库服务器软件 sql server，此时，程序只需要简单的修改一下链接就可以，这样，为程序 的平滑扩展提供了非常有利的条件。 4.2.1 本系统中所涉及到的主要实体共有六个数据表 cj 表：学号，姓名，班级，课程，成绩，考试类型，学期 class 表：班级编号，班级名称 classkecheng 表：课程编号，课程名称 xueji 表：学号，姓名，原班级，状态，转学学校，现在班级，变动原 因 xinxi 表：学号，姓名，性别，班级，民族，政治面貌，家庭成分，籍 贯，家长姓名，家长工作单位，当前状态，入学时间，出生 日期，联系电话，家庭住址，履历，备注 zhuce 表：学号，姓名，年龄，班级，团员，学期，注册时间，备注 4.2.2 各表的物理结构 各表的物理结构如下图所示。 表 4.2.1 cj 表 字段名称类型宽度小数位 学号文本 10 姓名文本 50 课程文本 20 分数单精度型数字自动 班级文本 15 考试类型文本 20 学期文本 15 表 4.2.2 class 表 字段名称类型宽度小数位 班级编号文本 15 班级名称文本 20 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 11 页页 共共 27 页页 表 4.2.3 classkecheng 表 字段名称类型宽度小数位 课程编号文本 16 课程名称文本 20 表 4.2.4 xueji 表 字段名称类型宽度小数位 学号文本 10 姓名文本 50 原班级文本 15 状态文本 20 转学学校文本 50 现在班级文本 15 变动原因文本备注 表 4.2.5 xinxi 表 字段名称类型宽度小数位 学号文本 10 姓名文本 15 性别文本 4 班级文本 15 民族文本 6 政治面貌文本 10 家庭成分文本 10 籍贯文本备注 家长姓名文本 10 家长工作单位文本备注 当前状态文本 10 入学时间文本 10 出生日期文本 10 联系电话文本 10 家庭住址文本备注 备注文本备注 表 4.2.6 zhuce 表 字段名称类型宽度小数位 学号文本 10 姓名文本 50 班级文本 15 年龄文本 10 团员文本 10 注册时间文本 20 备注文本备注 学期文本 20 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 12 页页 共共 27 页页 5. 系统的实现 本部分主要内容为本系统的运行界面以及主要界面展示。 5.1 系统登陆界面 本界面的主要功能是为了对系统进行安全性管理(见图 5.1.1)，本系统 的用户名和密码保存在表中，本系统根据不同的用户而设置了不同的权限， 可以用 admin 为用户名和密码来登陆本系统。 图 5.1.1 系统登录界面 5.2 系统主界面 本模块是本系统的应用界面(见图 5.2.2)，在本界面上集成了本系统的 所有功能，使用 toolbar 组件，简便快捷。 图 5.2.2 系统主界面 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 13 页页 共共 27 页页 5.3用户管理模块 本模块是本系统的安全性设置模块(见图 5.3.3)，根据学校不同部门以 及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权 限和类别进行了分类管理。 图 5.3.3 用户管理模块 5.4 学生学籍变动模块 本模块主要设置学生学籍的变动(见图 5.4.4)，以及记录相关信息等内 容。可以根据条件查询相应信息等功能。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 14 页页 共共 27 页页 图 5.4.4 学生学籍变动模块 5.5 学生信息管理模块 本模块只要录入修改相应的学生信息(见图 5.5.5)，根据条件查询需要 的学生信息，界面清楚，便于操作。 图 5.5.5 学生学籍变动模块 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 15 页页 共共 27 页页 5.6 成绩管理模块 本模块主要是录入和修改学生的成绩(见图 5.6.6)，根据条件查询需要 的学生成绩，界面清楚，便于操作。 图 5.6.6 学生学籍变动模块 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 16 页页 共共 27 页页 6. 结论 在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面 都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系 统必然会存在一些缺陷和不足。因为对管理的整个流程不够熟悉，在需求分 析时未能做到完全满足用户的需求。在本次开发过程由于硬件的限制，未能 实现网络功能，因此在以后的系统更新过程中可能会造成一些不必要的数据 损失。 尽管本管理系统存在着很多不足，但其功能全面、易于日后程序更新、 数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理 系统所必需的。相信本管理系统是一套学校在日常管理中必不可少的管理软 件，通过开发这个系统，我掌握了的项本过程，了解了的基本知识巩固了我 对 delphi 的学习，但在这次毕业设计中的最大收获并不是掌握这几门开发 工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助 的精神。 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 17 页页 共共 27 页页 参考文献参考文献 1 周佩德， 数据库原理及应用 ，出版社：电子工业出版社，2000 年 3 月，起止页码 （第 105 页第 300 页） 2 王要武， 管理系统 ，出版社：电子工业出版社，2001 年，起止页码（第 54 页第 205 页） 3 李红等， 管理信息系统开发与应用 ，出版社：电子工业出版社，2003 年，起止页 码（第 70 页第 275 页） 4 周之英， 现代软件工程 ，出版社：科学出版社，1999 年，起止页码（第 79 页第 200 页） 5 张曜等， delphi 函数实用手册 ，出版社：冶金工业出版社，2002 年 12 月，起止 页码（第 37 页第 219 页） 6 陈宽达， delphi 深度历险 ，出版社：科学出版社，2001 年 7 月，起止页码（第 19 页第 199 页） 7 李存斌 汪兵， delphi 深度编程及其项目应用开发 ，出版社：水利水电出版社， 2002 年 11 月，起止页码（第 27 页第 257 页） 8 付军， delphi7 实例编程 100 例 ，出版社：中国铁道出版社，2005 年 7 月，起止 页码（第 30 页第 157 页） 9 杨长春， delphi 编程设计教程 ，出版社：清华大学出版社，2005 年，起止页码 （第 50 页第 180 页） 10 康祥顺， delphi 案例开发集锦 ，出版社：电子工业出版社，2005 年，起止页码 （第 78 页第 176 页） 11 罗小平， delphi 精要 ，出版社：电子工业出版社，2004，起止页码（第 45 页 第 126 页） 12 李目海， delphi 应用程序设计 ，出版社：电子科技大学出版社，2005 年 8 月， 起止页码（第 1 页第 200 页） 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 18 页页 共共 27 页页 附 录 主要编码过程如下所示： unit archive; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, buttons, comctrls, toolwin, menus, imglist, extctrls, stdctrls, dbtables, jpeg; type tmainfrm = class(tform) mainmenu1: tmainmenu; n1: tmenuitem; nset: tmenuitem; n3: tmenuitem; npasswd: tmenuitem; n7: tmenuitem; nclose: tmenuitem; n9: tmenuitem; nstdarc: tmenuitem; nstdetail: tmenuitem; statusbar1: tstatusbar; imagelist1: timagelist; image1: timage; n2: tmenuitem; n4: tmenuitem; nscore: tmenuitem; n6: tmenuitem; n8: tmenuitem; nuseradmin: tmenuitem; nreg: tmenuitem; n16: tmenuitem; n17: tmenuitem; n18: tmenuitem; n19: tmenuitem; n20: tmenuitem; n21: tmenuitem; n22: tmenuitem; n23: tmenuitem; timer1: ttimer; n10: tmenuitem; n12: tmenuitem; toolbar1: ttoolbar; sbtnset: tspeedbutton; toolbutton5: ttoolbutton; speedbutton3: tspeedbutton; speedbutton9: tspeedbutton; toolbutton1: ttoolbutton; sbtninfo: tspeedbutton; toolbutton9: ttoolbutton; 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 19 页页 共共 27 页页 speedbutton1: tspeedbutton; toolbutton2: ttoolbutton; speedbutton2: tspeedbutton; toolbutton3: ttoolbutton; speedbutton5: tspeedbutton; toolbutton4: ttoolbutton; speedbutton6: tspeedbutton; toolbutton8: ttoolbutton; speedbutton7: tspeedbutton; toolbutton6: ttoolbutton; speedbutton8: tspeedbutton; toolbutton7: ttoolbutton; speedbutton4: tspeedbutton; procedure ncloseclick(sender: tobject); procedure nsetclick(sender: tobject); procedure formcreate(sender: tobject); procedure timer1timer(sender: tobject); procedure formshow(sender: tobject); procedure nuseradminclick(sender: tobject); procedure npasswdclick(sender: tobject); procedure n18click(sender: tobject); procedure n19click(sender: tobject); procedure nstdarcclick(sender: tobject); procedure formclose(sender: tobject; var action: tcloseaction); procedure nregclick(sender: tobject); procedure n16click(sender: tobject); procedure n17click(sender: tobject); procedure nscoreclick(sender: tobject); procedure n12click(sender: tobject); procedure n20click(sender: tobject); procedure n21click(sender: tobject); procedure nreglogclick(sender: tobject); procedure n6click(sender: tobject); procedure speedbutton8click(sender: tobject); private private declarations / fuid :string; procedure syslog; function reglog:boolean; public procedure addlogin; public declarations / property _uid :string read fuid write fuid; end; var mainfrm: tmainfrm; implementation uses maind, /数据模块 frmset,/设置学校 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 20 页页 共共 27 页页 util, /公共程序 clogin,/登录界面 fuser,/用户管理 cpasswd,/ set password cfcalss,/ class info clesson,/lesson info ureg,/register student info ustatus,/change student status; uscore,/score input uabout,/aboutbox ubackup, ustore, csys,/register info ureginfo, stdarc; $r *.dfm procedure tmainfrm.ncloseclick(sender: tobject); begin /addlogin; application.terminate; end; procedure tmainfrm.nsetclick(sender: tobject); var syssetfrm:tsyssetfrm; school,filename:string; begin if maindfrm.checkpermission(userid,set)=false then exit; syssetfrm := tsyssetfrm.create(application); try syssetfrm.showmodal; finally syssetfrm.free; end; filename := extractfilepath(application.exename)+ iniset.ini; school := ini_load_str2(filename,set,name,); caption :=教务管理系统 | 使用单位：+school; end; procedure tmainfrm.formcreate(sender: tobject); begin if iscpuid_available = false then begin showmessage(对不起, 此软件不适用于您的计算机!); close; exit; end; if regkeycheck(softwareintel soft)= false then 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 21 页页 共共 27 页页 begin regcreate(softwareintel soft); end; / syslog; timer1.enabled := true; /if test_openfile(filename) then statusbar1.panels.items3.text := 计算机种类：+getcpuvendor; end; procedure tmainfrm.syslog; begin if not assigned(maindfrm) then application.createform(tmaindfrm, maindfrm); if not assigned(frmlogin) then application.createform(tfrmlogin, frmlogin); / frmlogin := tfrmlogin.create(application); try frmlogin.showmodal; / fuid := userid; finally frmlogin.free; end; end; procedure tmainfrm.timer1timer(sender: tobject); begin statusbar1.panels1.text :=系统时间： +timetostr(now); statusbar1.panels2.text :=使用时间：+timegetstamp(logtime); end; procedure tmainfrm.formshow(sender: tobject); begin syslog; reglog; if userid = then begin statusbar1.panels0.text := 目前没有用户登录,无法使用本程序; end else statusbar1.panels0.text := 使用者:+userid+ | +username+ 登录时间：+ datetostr(date)+ +logtime; end; procedure tmainfrm.nuseradminclick(sender: tobject); var frmuser:tfrmuser; begin if maindfrm.checkpermission(userid,userada)=false then exit; frmuser := tfrmuser.create(application); try 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 22 页页 共共 27 页页 frmuser.showmodal; finally frmuser.release; end; end; procedure tmainfrm.npasswdclick(sender: tobject); var frmpasswd:tfrmpasswd; begin if maindfrm.checkpermission(userid,edtpass)=false then exit; frmpasswd := tfrmpasswd.create(application); try frmpasswd.showmodal; finally frmpasswd.free; end; end; procedure tmainfrm.n18click(sender: tobject); var frmclass: tfrmclass; begin if maindfrm.checkpermission(userid,classada)=false then exit; frmclass := tfrmclass.create(application); try frmclass.showmodal; finally frmclass.free; end; end; procedure tmainfrm.addlogin; var qleft:tquery; str:string; begin str :=maindfrm.feeduuser(userid); if str regnumber(getcpuid4) then 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 26 页页 共共 27 页页 begin result := false; caption := caption+ ; sysreg :=tsysreg.create(application); try sysreg.showmodal; finally sysreg.free; end; /谢谢大家 userday:= date - regreturndate(softwareintel soft,run_first_date); if (userday 30) or (userday 0) then begin showmessage(有问题请联系 zhangyi_3211163.com !); close; exit; end; end else result := true; end; procedure tmainfrm.n6click(sender: tobject); var frmscore: tfrmscore; begin frmscore := tfrmscore.create(application); try frmscore.pagecontrol1.activepageindex := 1; frmscore.caption := 成绩查询; frmscore.showmodal; finally frmscore.free; end; end; procedure tmainfrm.speedbutton8click(sender: tobject); begin application.helpcommand(help_finder,0); end; end. 枣庄学院学士学位论文枣庄学院学士学位论文 作者作者 张义张义 第第 27 页页 共共 27 页页 答答 谢谢 在论文即将完成之际，回顾紧张但又充实的学习和开发过程，本人在此 向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。 在本次毕业设计中，我从指导老师-姜老师，身上学到了很多东西。她 认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。 她无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高， 这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。 在撰写论文阶段，姜老师几次审阅我们的论文，提出了许多宝贵意见，没有 她的指导，我们就不能较好的完成毕业设计的任务。 另外，我还要感谢在这几年来对我有所