1036.N哈商大研究生教务管理系统

1、哈 尔 滨 商 业 大 学毕 业 论 文 说 明 书（论 文）毕 业 设 计（论文）题目 哈商大研究生教务管理系统 指 导 教 师 2005年 6月 13 日哈 尔 滨 商 业 大 学毕 业 设 计（论 文）审阅 评 语一、指导教师评语指导教师签字：年 月 日二、评阅人评语评阅人签字：年 月 日哈 尔 滨 商 业 大 学毕 业 设 计（论 文）答 辩 评 语 及 成 绩三、答辩委员会评语四、毕业设计（论文）成绩 盖章：五、答辩委员会主任单位： 答辩委员会主任职称： 答辩委员会主任签字： 年 月 日哈尔滨商业大学毕业设计（论文） 第 ii 页 哈商大研究生教务管理系统摘 要哈商大研究生教务管理系

2、统采用delphi7.0作为前台，sql server2000作为后台数据库所编写的,面向对象可视化编程,使系统的开发工作适应目前的流行趋势。该系统界面友好，操作简便，能完成学生基本资料管理、课程设置、选课管理、成绩查询以及系统设置等功能。各子系统具有独立的数据库结构，设计时力求简单易用，便于维护。各模块为平行关系，彼此间无直接的参数联系，也无库的交叉关联，从而保证各子系统可以单独运行，以便更好的管理。关键词delphi7.0;sql server2000;面向对象；结构化；模块graduate student educational administration management sys

3、tem of harbin university of commerceabstractgraduate student educational administration management system of harbin university of commerce adopt delphi7.0 as the frontstage develop tool ,the sql server2000 as backstage database ,face to the object and make the development work of the system adapt to

4、 the current trends. the system has friendly interface , simple operate, can complete basic data management of students, course costitution, select elctive coures management, the result search and the system design etc.function.each sub-system has the independent database structure,the time of desig

5、n tries hard for to use in brief and easily,easy to maintenance.each mode relates to for the parallelism,have no direct parameter contact each other,also having no database to cross the connection, thus guaranteeing that each sub-system can circulate alone,for the purpose of better management.keywor

6、ds delphi7.0; the sql server2000; face to the object; structure; mold piece.哈尔滨商业大学毕业设计（论文）目 录摘 要iabstractii1绪 论11.1 课题研究的背景及意义11.1.1 课题背景11.1.2 课题来源11.1.3 课题研究的意义11.2 国内外研究的动态21.3 本文的工作22需求分析32.1教务管理系统现状32.2业务分析32.3可行性分析32.3.1经济可行性42.3.2技术可行性42.3.3时间可行性42.3.4社会可行性43开 发 工 具 及 运 行 环 境53.1开发工具的介绍53.2

7、sql语句介绍53.2.1 sql简介53.2.2 sql的优点63.3运行环境74系统分析与设计84.1 功能模块分析84.1.1 结构框图84.1.2各模块功能简介84.2系统流程图94.3 功能分析104.3.1 用户浏览功能104.3.2 信息管理功能104.4 窗体设计114.5 数据库设计155程 序 设 计 说 明185.1系统登陆代码的实现185.2学生基本资料管理的实现195.3教师基本资料管理的实现205.4 课程设置的实现205.5 学生选课管理的实现225.6 学生成绩管理的实现255.7 学生查询的实现27结 论28参考文献29致 谢30附录131附录239哈尔滨商业

8、大学毕业设计（论文） 第 45 页 1 绪 论1.1 课题研究的背景及意义 1.1.1 课题背景 随着我国教育体制的深入进行，教育系统得到了前所未有的发展。高校的管理正在逐步迈向管理信息化。但是我国的高校管理水平还处在初级阶段，主要表现在对学生的一些管理仍然采用原有的人工管理方式，这就造成工作效率低、信息传递不方便、不快捷等一些问题，与此同时，学校是培养国家栋梁之场所，无论是在教育，还是在管理上都应走在最前列，而其中管理又是学校良好运转的关键，如何提高管理，是当前学校管理者所面临的重要课题。在当今的时代，网络技术与计算机软件技术已经愈来愈广泛地应用到教育系统中各个方面。使用计算机管理的系统不仅

9、可以简化学校传统的管理模式，使教务人员更好的对学生的一些基本情况进行管理，更重要的是利用计算机可以使高校管理规范化、制度化、数字化、提高管理水平、降低管理成本，减轻工作强度、提高工作效率，使高校可以高效率运转。计算机技术在校园中的应用顺应了我国国情，实现了教育面向现代化、面向未来的指导思想，是校园管理走向现代化的有力武器。1.1.2 课题来源 通过最近到各所高等院校的调查，为了适应新形势的发展，我推出了这一系统，使其尽快在各所院校高效、便捷的作用,把老师从繁重的工作中解脱出来！哈商大研究生教务管理系统主要包括学生的管理、教师的管理、课程的管理、以及学生的选课和成绩管理等。目前国家的教育体制也正

10、处在不断改革、创新的阶段，我国教育部门充分吸取国外优秀的教学模式，结合国内多年的办学经验，逐步探索出适合中国特色的教学形式，因此国家教育部面向各级各类学校开展了全面学分制改革。因此，各院校迫切学要对自己的现有教务管理系统进行改进和提高，根据国内大学的现在管理模式，结合国际新的思想观念，在校园网络环境下建设先进的、与国际水平接轨的信息化管理平台。提高学校管理工作的现代化水平，使之成为学校公共信息服务体系的重要组成部分。在这样的大环境下，我选择了“哈商大研究生教务管理系统”这个设计题目，符合实际需求。1.1.3 课题研究的意义哈商大研究生教务管理系统是高校教学、教务管理应用软件。熟悉教务管理工作的

11、全部过程，从教务工作的实际出发，解决工作中关键性的难点问题，并充分利用计算机网络功能，实现教务工作全过程的计算机管理，帮助具体管理人员从复杂烦琐工作中解放出来。使得教务管理走向无纸化办公和规范化、现代化管理。1.2 国内外研究的动态 教务管理是高校的主要日常管理工作之一，涉及到校、系、师、生的诸多方面，随着教学体制的不断改革，尤其是学分制、选课制的展开和深入，教务日常管理工作日趋繁重、复杂。迫切需要研制开发一个基于因特网的综合网上教育管理软件。国外高校一般具有较大规模的稳定的技术队伍来提供服务与技术支持。国内高校信息化建设相对起步较晚。在数字校园理论逐步应用的过程中，各高校一方面不断投资购建各

12、种硬件、系统软件和网络，另一方面也不断开发实施了各类教学、科研、办公管理等应用系统，形成了一定规模的信息化建设体系。但是，由于整体信息化程度相对落后，经费短缺，理论体系不健全等原因，国内高校教务管理系统在机构设置、服务范围、服务质量及人员要求上与国外高校相比都有一定的差距。纵观目前国内研究现状，在安全性和信息更新化方面存在有一定的不足，现有系统资料单独建立，共享性差；在以管理者为主体的方式中，信息取舍依赖管理者对于信息的认知与喜好，较不容易掌握用户真正的需求，也因此无法完全满足用户的需求。因此，教务管理软件应充分依托校园网，实现教务信息的集中管理、分散操作、信息共享，使传统的教务管理向数字化、

13、无纸化、智能化、综合化的方向发展，并为进一步实现完善的计算机教务管理系统和全校信息系统打下良好的基础。1.3 本文的工作本文通过需求分析阶段，对系统的基本功能、实现环境以及数据库设计等方面进行了详细的介绍。在系统分析和设计中对每一个模块的设计都进行了全面的、详细的说明。本文的工作主要体现在以下几个方面：1 对系统的开发背景做了详细的分析；2 在需求分析阶段做了详细的调查；3 对系统的实现所需的语言及数据库做了详细的介绍；4 对系统的各个模块的设计和所需的数据库设计做了详细的介绍；5 对各个模块所实现的代码做了详细的介绍。 2 需求分析2.1教务管理系统现状 哈尔滨商业大学是一所培养综合性人才的

14、大学，在校师生将近20000人，随着教育体制的改革，最近两年研究生的扩招，该校的研究生数量逐年增加。目前，考取我校的研究生来自全国不同的省份和地区，且人之多，采用原有的人工管理已不能适应现行工作的要求。为了使我校对研究生的管理工作更科学化、规范化，我们结合实际的工作需要，采用delphi语言做前台开发工具，sql server2000数据库做为后台支持开发了哈商大研究生教务管理系统。使用该系统，可以大大提高工作的效率，减少差错，以便教务管理人员更好的对学生进行管理。2.2业务分析哈商大研究室教务管理系统是由哈尔滨商业大学研究生处提出的，要求实现教务管理走向无纸化办公和规范化、现代化管理。为了实

15、现其功能，本系统主要由六大部分组成：1学生基本资料模块：主要用于对学生的基本资料进行管理，实现添加、删除、修改以及查找等功能。2教师基本资料模块：主要用于对学生的基本资料进行管理，实现添加、删除修改等功能。3课程设置管理：主要是对各个专业进行课程设置，以及对现有的课程进行添和删除等功能。4选课管理：主要是对学生的选课情况进行管理，以及对学生的选课进行学分统计。5成绩查询：主要是对各个专业的学生的综合成绩进行管理，以及对现有的绩进行更改 。 6系统设置：主要是对登陆用户进行设置。总之，该系统具有高效、易操作、易维护等特点，并且系统结构清晰、界面友好，功能较齐全，能够协助学校更有效的对学生进行管理

16、。2.3可行性分析 一个管理系统应该具有一定的可行性，这个系统才具有使用价值和生存能力。编写可行性分析研究报告是为了及早发现将来可能在开发过程中遇到的问题，及早进行研究，决定方案，使问题尽早的得到解决，以避免大量的人力、财力以及时间上的浪费。下面从经济、技术、时间、社会等几个角度对系统的可行性进行分析。2.3.1经济可行性 软件的经济可行性是指软件的所有带来经济效益与开发所需的投资费用相比较，是否适宜，随着近几年计算机技术的普及和发展，用计算机辅助管理所带来的经济效益远远大于对计算机硬件和软件的投资。本系统所采用的硬件和软件无论是开发环境，还是运行环境都是社会上很普及的资源，即不需要很大的投资

17、。鉴于开发本系统所带来的经济效益大于对其所做的投资，因此在经济上是可行的。2.3.2技术可行性 本系统所需要的硬件不仅很容易配置而且性能也相当良好，软件上所采用sql server 2000和delphi开发工具也是功能很强大的，在商业领域的应用开发应用很广泛。由于所采用的开发工具具有很强大的功能，使开发者短时间内开发出复杂而又高要求的应用，减少了设计难度。鉴于所使用的计算机软硬件均具有良好的性能并足以实现开发系统的目的，因此，在技术上是可行的。2.3.3时间可行性 软件的时间可行性是指软件的开发时间和使用时间的比例，虽然教务管理不断完善和发展，但本系统所采用功能强大的软硬件配置及优良的开发技

18、术，在近一段时间内可以满足学校的要求。本系统的开发时间很短且具有较强的兼容性，可以在一段很长时间内使用，所以在时间上是可行的。2.3.4社会可行性 管理的计算机化是社会性发展的一种必然趋势，它所带来的经济效益是商家毋庸置疑的，而它所带来的社会消息更是不可估量的。本系统的完成使教务管理人员从繁重的手工操作中解脱出来，减轻了劳动强度，因此具有一定的社会可行性。 3 开 发 工 具 及 运 行 环 境3.1开发工具的介绍 delphi是美国borland软件社团公司的编程工具产品。它基于pascal语言，具有语法严谨、结构清晰、可读性强和代码执行效率高等优点；最重要的是，它功能强大且灵活易学，利用d

19、elphi，我们在窗口平台下几乎可以做任何事情！delphi凭借其强大的功能、易用性以及在开发数据库和网络应用程序上的极大优势，先后在低端战胜了visual basic，在高端战胜了powerbuilder，成为了窗口平台下最好的开发工具之一。作为一个优秀的、体贴的、以人为本的开发工具，delphi一直坚持复杂问题简单化的思想，而且不隐藏其细节以适应不同层次的程序员。delphi7是窗口操作系统中快速应用开发环境的最新版本。它的第6个版本是windows平台上第一个全面支持最新web服务的快速开发工具，而在该版本中它又成为了第一个正式支持.net的开发工具，使得delphi程序员能够开始发展他

20、们为.net开发的技巧，而不必抛弃他们目前在windows平台上的工作和技巧。同时，delphi7继续加强了对web服务程序开发的支持。无论是企业级用户，还是个人开发者，都能够利用delphi7轻松、快捷地构建新一代电子商务应用。delphi7让企业能够使用开发者们已经熟悉的技术和资源，在他们的时间表上开始一个迈向.net的平滑转移。另外，delphi7的高质量的应用生命周期解决方案，如建模、模型驱动的架构、报表、以及跨平台开发等扩展了delphi的开发范围。delphi7新特性主要包括以下内容：1企业应用的mda开发。2可视化的快速web开发。3对linux的跨平台支持。4企业级的报表能力。

21、5免费的data snap多层应用开发。6windows xp应用。3.2 sql语句介绍 3.2.1 sql简介 sql全称是“结构化查询语言”,最早的是ibm的圣约瑟研究实验室为其关系数据库管理系统system r开发的一种查询语言。sql语言结构简洁，功能强大，简单易学，所以得到了广泛的应用。如今无论是像oracle，sybase， sql server这些大型的数据库管理系统，还是像visual foxpro，powerbuilder这些微机上常用的数据库开发系统，都支持sql语言作为查询语言。structured query language包含4个部分：数据查询语言dql-data

22、 query language select；数据操纵语言dql-data manipulation language insert, update,delete；数据定义语言dql-data definition language create,alter,drop；数据控制语言dql-data control language commit work,rollback work；3.2.2 sql的优点 sql广泛地被采用正说明了它的优点。它使全部用户，包括应用程序员、dba管理员和终端用户受益非浅。(1) 非过程化语言sql是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航

23、。sql允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集。所有sql语句接受集合作为输入，返回集合作为输出。sql的集合特性允许一条sql语句的结果作为另一条sql语句的输入。sql不要求用户指定对数据的存放方法。所有sql语句使用查询优化器，它是rdbms的一部分，由它决定对指定数据存取的最快速度的手段。(2) 统一的语言sql可用于所有用户的db活动模型，包括系统管理员、数据库管理员、应用程序员、决策支持系统人员及许多其它类型的终端用户。sql为许多任务提供了命令，包括：查询数据；在表中插入、修改和删除记录；建立、修改和删除数据对象；控制对数据和数据对象的存取；保证数据

24、库一致性和完整性；以前的数据库管理系统为上述各类操作提供单独的语言，而sql将全部任务统一在一种语言中。(3) 是所有关系数据库的公共语言由于所有主要的关系数据库管理系统都支持sql语言，用户可将使用sql的技能从一个rdbms转到另一个。所有用sql编写的程序都是可移植的。sql是postgresql(和大多数其它关系型数据库)用作查询语言的语言。但是所有sql语句都必须由数据库服务器独立地执行。这就意味着客户端应用必须把每条查询发送到数据库服务器，等待它处理这个查询，接受结果、做一些运算，然后给服务器发送另外一条查询。所有这些东西都会产生进程间通讯，并且如果客户端在另外一台服务器上甚至还会

25、导致网络开销。通过使用pl/pgsql，应用可以获得客观的性能提升。3.3运行环境 (1). 软件环境 服务器端：windows xp，windows2000及其以上版本。数据库：sql server 2000。(2). 硬件环境服务器cpu：piii500以上，内存：256m以上。客户机cpu：p200mmx以上，内存：16m以上。4 系统分析与设计4.1 功能模块分析4.1.1 结构框图哈商大教务管理系统教务管理人员学生用户设置学生信息管理教师信息管理课程设置管理学生选课管理学生成绩管理学生查询图 4-1系统功能结构图 如图4-1所示，概括了系统的简单的功能模块，可以看出，不同类型的登陆人

26、员，对系统的操作内容也是不同的。4.1.2各模块功能简介(1) 用户设置模块：该模块有两个不同权限对应的两个不同的界面教师权限的可以进入该系统的任何一个界面，而学生权限的只能进入查询界面。主要功能：提供各子系统进入接口；(2) 学生基本资料管理模块：用于对学生的一些基本情况进行管理。主要功能：对学生的基本资料进行相应的查询；对学生的原有的资料进行相应的修改；对学生资料的增加、删除等功能。(3) 教师基本资料管理模块：用于对教师的一些基本情况进行管理。主要功能：对学生的基本资料进行相应的查询；对学生的原有的资料进行相应的修改；对学生资料的增加、删除等功能。(4) 课程设置模块：主要对各个专业的课

27、程进行相应的设置。主要功能：对某个专业现有的课程进行响应的查询；对某个专业的课程进行添加、删除等功能。(5) 学生选课管理模块：主要对学生的选课进行管理。主要功能：当输入某个学生的学号时，可以显示该学生所有的课程信息以及该学生可以选的课程；管理人员可以对该学生的选课状况进行相应的管理以及选课学分进行统计。(6) 学生成绩管理模块：主要对学生的综合成绩进行管理。主要功能：输入某个学生的学号时，可以显示该学生所有课程的综合成绩； 管理人员可以查看某一课程的补考、重修名单； 管理人员可以对某个学生的成绩进行相应的修改。(7) 学生查询模块：主要是学生对自己的选课以及成绩进行查询。 主要功能：学生对自

28、己的选课以及成绩只能进行查询，不能做其他相应的操作。(8) 用户设置模块：主要是对用户权限的设置。主要功能： 主要是对教务管理人员的用户设置。4.2系统流程图 如4-2所示，显示了该系统的一个简单的登陆流程。输入用户名输入密码正确？进入主界面重新输入？退出系统n y ny 图4-2 系统登陆流程图4.3 功能分析本系统主要是实现了信息浏览功能和信息管理功能。4.3.1 用户浏览功能本系统的最终目的是让用户浏览信息，所以它所提供的用户浏览功能就等于整个程序的用户界面。首页页面主要分为学生基本管理，教师基本管理，课程设置管理，学生选课管理，学生成绩管理等八个模块，用户可以在首页页面上选择相应的模块

29、进而进行相应的浏览，用户可以在各模块中浏览的同时而进行一系列相应的操作，例如查询、添加、修改等功能。 4.3.2 信息管理功能在用户界面上，用户看到的所有内容最终都要有个来源。它都是由教务管理人员来管理的，所以这个系统的一个重要的功能就是提供让教务管理人员来维护系统，添加、删除信息等来更新数据库。教务管理人员进入系统后，可看到系统的全部内容，并进行相关的一系列的操作，并把操作后的信息从新写进数据库。学生登陆本系统后，只能见到系统的学生查询窗体界面，只能进行对自己的选课以及成绩的查询，而不能进行任何的更改。不同人员的登陆，进行不同的操作，具有权限的人员可以对系统进行更改，没有权限的人不能对系统进

30、行更改，从而保证了系统的安全性。4.4 窗体设计1用户首页面：如图4-3所示。主要完成的功能是各个窗体的导入界面。图 4-3 用户首页面2用户登陆界面：如图4-4所示。主要完成的功能是验证用户的权限，因为不同权限的人对系统有不同的操作，无权限的人员不能进入本系统。图4-4 用户登陆窗体3学生基本资料管理界面：如图4-5所示。主要完成的功能是对学生的一些基本资料进行相应的管理。图4-5 学生资料管理窗体4教基本资料管理界面：如图4-6所示。主要完成的功能是对教师的一些基本资料进行相应的管理。并能浏览到相应教师所任教课程。图4-6 教师资料管理窗体5程设置管理界面：如图4-7所示。主要完成的功能是

31、对各个专业课程的管理。图4-7 课程设置窗体6学生成绩管理界面：如图4-8所示。主要完成的功能是对各名学生相关课程的成绩进行管理。能进行不同形式的查询。图4-8 学生成绩管理窗体7学生选课管理界：如图4-9所示。主要完成的功能是对学生的选课进行管理。图4-9 学生选课管理窗体8学生查询界面：分为学生的选课查询（如图4-10所示）和学生的成绩查询（如图4-11所示），所完成的功能是学生对自己的选课信息以及相关成绩的查询。图4-10 学生选课查询窗体4图4-11 学生成绩查询窗体4.5 数据库设计数据库是整个软件中数据直接或间接的来源，同时还决定了各个功能模块之间的联系，它的设计十分重要，数据库设

32、计过程中，在满足用户需求的同时严格遵循关系数据库规范化理论，在满足每个分量不可分的情况下，对数据库中函数依赖关系进行分析，尽量提高规范化程度，根据上述原则，以及系统功能的支持，设计了若干表，选取以下几个表的几个典型字段：表4-1 教师信息表字段名称数据类型字段大小必填字段是否主键教师编号varchar20是是教师姓名varchar30否否教师职称varchar20否否学历varchar20否否出生日期varchar30否否所属院系varchar30否否表4-2 学生信息表字段名称数据类型字段大小必填字段是否主键学生学号varchar20是是专业号varchar10否否专业名称varchar30

33、否否顺序号varchar4否否姓名varchar30否否性别varchar4否否身份证号码varchar20否否民族varchar20否否政治面貌varchar20否否家庭住址varchar30否否邮政编码varchar20否否联系电话varchar20否否入学时间varchar20否否毕业时间varchar20否否类别varchar20否否照片image16否否表4-3 选课表字段名称数据类型字段大小必填字段是否主键idint4是是学生学号varchar20否否课程编号varchar20否否学期varchar20否否表4-4 成绩表字段名称数据类型字段大小必填字段是否主键idint4是是学生

34、学号varchar20否否课程编号varchar20否否综合成绩float8否否表4-5 用户权限表字段名称数据类型字段大小必填字段是否主键idint4是是用户名varchar20否否密码varchar20否否权限varchar20否否 表4-6 专业表字段名称数据类型字段大小必填字段是否主键专业号varchar10是是专业名称varchar20否否负责人varchar20否否所属院系varchar20否否表4-7 培养计划表字段名称数据类型字段大小必填字段是否主键课程编号varchar20是是课程名称varchar20否否课程类别varchar20否否学时varchar4否否学分float8

35、否否任课教师varchar30否否编写日期varchar30否否所属专业varchar30否否课程简介varchar300否否以上各表是系统所要求数据库中应有的几个重要的表，教务管理人员主要是对以上各表中的内容进行相应的操作，并把操作完地记录从新写到数据库的表中。各个表中的字段都用汉字直接显示出来，一目了然，可以很快捷的看到各个表中各个字段的内容。5 程 序 设 计 说 明5.1系统登陆代码的实现 begin if trim(edit_xm.text) = then begin application.messagebox(请输入用户名！,提示。,mb_ok+mb_iconquestion);

36、 edit_xm.setfocus; exit; end; if trim(maskedit_mm.text) = then begin application.messagebox(密码不能为空！,提示。,mb_ok+mb_iconquestion); edit_xm.setfocus; exit; end; adodataset1.close; adodataset1.commandtext := select * from 用户权限表 where 用户名 = +edit_xm.text+ and 密码 = +maskedit_mm.text+; adodataset1.open; if

37、adodataset1.recordcount = 0 then begin application.messagebox(用户名不存在或密码错误！,提示。,mb_ok+mb_iconquestion); edit_xm.setfocus; exit; end; quanxian := adodataset1.fieldbyname(权限).asstring; flogon.hide; form1 := tform1.create(self); form1.showmodal; flogon.close;end;5.2学生基本资料管理的实现1学生资料查找代码的实现begin if r1.che

38、cked=true then begin with q1 do begin close; sql.clear; sql.add(select * from 学生表 where 学生学号=:学生学号); parameters.parambyname(学生学号).value:=edit1.text; open; end end; 注：其他如按姓名、性别等的查询代码如上。2学生照片导入的代码实现 var pic:tpicture;begin q1.edit; dbimage1.datasource.dataset.edit; if(opendialog1.execute) then begin pi

39、c:=tpicture.create(); try pic.loadfromfile(opendialog1.filename); dbimage1.picture.bitmap.assign(pic); finally pic.free; end; end; dbimage1.datasource.dataset.post;5.3教师基本资料管理的实现1添加、删除、修改、保存按钮代码的实现 添加按钮：begint1.append;end;删除按钮：begin if messagedlg(是否确定要删除信息?, mtconfirmation,mbyes,mbno,0)=mryes then t

40、1.delete;end;修改按钮：begint1.edit;end;保存按钮：begint1.post;end;2教师资料查找代码的实现begin if c1.text全部 then begin t1.filter:=所属院系=+c1.text+ ; t1.filtered:=true; end else t1.filtered:=false;end; 5.4 课程设置的实现1添加按钮的实现beginif edit1.text = thenbegin application.messagebox(请输入课程编号！,提示。,mb_ok+mb_iconquestion); edit1.setfo

41、cus; exit;end;if edit2.text = thenbegin application.messagebox(请输入课程名称！,提示。,mb_ok+mb_iconquestion); edit2.setfocus; exit;end;if combobox1.text = thenbegin application.messagebox(请选择课程类别！,提示。,mb_ok+mb_iconquestion); combobox1.setfocus; exit;end;if edit4.text = thenbegin application.messagebox(请输入学分！,

42、提示。,mb_ok+mb_iconquestion); edit4.setfocus; exit;end;adodataset1.close;adodataset1.commandtext := select * from 培养计划表 where 课程编号 = + edit1.text+;adodataset1.open;if adodataset1.recordcount 0 thenbegin application.messagebox(该课程编号以经存在！,提示。,mb_ok+mb_iconwarning); exit;end;adodataset1.append;adodataset

43、1.fieldbyname(课程编号).asstring := edit1.text;adodataset1.fieldbyname(课程名称).asstring := edit2.text;adodataset1.fieldbyname(课程类别).asstring := combobox1.text;adodataset1.fieldbyname(学时).asstring := edit3.text;adodataset1.fieldbyname(学分).asstring := edit4.text;adodataset1.fieldbyname(编写日期).asstring := for

44、matdatetime(yyyy-mm-dd,datetimepicker1.datetime);adodataset1.fieldbyname(任课教师).asstring := edit5.text;adodataset1.fieldbyname(所属院系).asstring := edit6.text;adodataset1.fieldbyname(专业名称).asstring := edit7.text;adodataset1.post;adodataset1.close;adodataset1.commandtext := select * from 培养计划表;adodataset

45、1.open;end;2 删除按钮的实现begintry if adodataset1.recordcount = 0 then application.messagebox(没有信息可以被删除。, 提示, mb_iconquestion+mb_taskmodal) else if application.messagebox(您的确要删除当前信息吗?, 提示, mb_iconquestion+mb_yesno+mb_taskmodal)= idyes then adodataset1.delete;exceptend5.5 学生选课管理的实现1显示课程信息按钮的实现procedure tfo

46、rm5.button1click(sender: tobject);var str:string;begin str := copy(trim(edit1.text),5,2); adodataset1.close; adodataset1.commandtext := select * from 培养计划表 where substring(课程编号,1,2)=+str+ + and 课程类别= 必修; adodataset1.open; adodataset2.close; adodataset2.commandtext := select * from 培养计划表 where substr

47、ing(课程编号,1,2)=+str+ + and 课程类别= 选修; adodataset2.open; adodataset3.close; adodataset3.commandtext := select b.课程编号,a.课程名称,a.学时,a.学分 from 培养计划表 a,选课表 b +where a.课程编号 = b.课程编号 and b.学生学号 = +trim(edit1.text)+; adodataset3.open; adodataset4.close; adodataset4.commandtext := select sum(a.学分) as 学分 from +(

48、select b.学生学号,b.课程编号,a.课程名称,a.学时,a.学分 from 培养计划表 a,选课表 b where a.课程编号 = b.课程编号) as a+ where a.学生学号 = +edit1.text+ group by a. 学生学号; adodataset4.open; edit2.text := adodataset4.fieldbyname(学分).asstring; end;2添加按钮的实现beginadodataset5.close;adodataset5.commandtext := select * from 选课表 where 学生学号 = +edit

49、1.text+ and 课程编号 = +adodataset2.fieldbyname(课程编号).asstring+;adodataset5.open;if adodataset5.recordcount 0 thenbegin application.messagebox(该课程已经选定！,提示。,mb_ok+mb_iconwarning); exit;end;adodataset5.close;adodataset5.commandtext := select * from 选课表;adodataset5.open;adodataset5.append;adodataset5.field

50、byname(学生学号).asstring := edit1.text;adodataset5.fieldbyname(课程编号).asstring := adodataset2.fieldbyname(课程编号).asstring;adodataset5.fieldbyname(课程名称).asstring := adodataset5.fieldbyname(课程名称).asstring;adodataset5.fieldbyname(学期).asstring := formatdatetime(yyyy,date);adodataset5.post;button1.onclick(self);end;3删除按钮的实现beginif adodataset3.recordcount = 0 thenbegin application.messagebox(没有可删除的