下载文档原格式
课程设计-教学管理系统1. 课程设计的目的与要求1.1设计目的设计一个简单的教学管理系统，要求存储学生基本情况、课程基本情况，教师授课情况与学生成绩记录等，提供成绩录入、信息查询等功能以满足日常教学管理需要。
对学生的成绩的管理、查询学生的各科成绩的学生成绩管理系统。
该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。
而且老师和学生可以以不同个的身份登录，获得不同的操作权限，有效的提高教学管理系统的工作效率。
1.2设计要求（1）软件开发环境：操作系统：Windows 7；数据库使用软件：Microsoft Office Access 2003开发工具： Microsoft Visual C++6.0 （2）功能需求按照提供的各表的数据结构和数据创建数据库与表实现学生基本情况、课程基本情况、教师授课表情况及学生成绩的数据录入与编辑、删除等。
能够按姓名查询教师授课情况。
1.3 系统总体设计的体系结构图设计系统的体系结构图见下页教学管理系统教师管理系统学生管理系统学生基本课程管信息管理理系统课程基本学生课程信息管理成绩管理图1. 设计系统的体系结构图2. 数据库设计数据库技术是信息资源管理最有效的手段，它是指对于一个给定的应用环境，利用现有的数据库管理系统构造最优的数据库模式，建立数据库及其应用系统，有效存储数据，满足用户信息要求和处理要求。
本系统的数据库是采用Microsoft Office Access 2003设计的。
数据库设计分为6个阶段：需求分析阶段、概念结构设计阶段、逻辑结构设计阶段、数据库物理设计阶段、数据库实施阶段、数据库运行和维护阶段。
数据库应用系统经过调试运行后即可投入正式运行。
在数据库系统运行过程中，必须不断地对其进行评价、调整与修改。
设计一个完善的数据库应用系统不可能一蹴而就，它往往是上述6个阶段的不断反复。
2.1 系统数据库概念结构设计2.1.1 局部E-R图将需求分析得到的用户需求抽象为信息结构即概念模型的过程就是概念结构设计。
UML教务管理系统的课程设计一、引言在现代教育环境中，高效的教务管理系统是学校管理和教学工作的重要组成部分。
教务管理系统能够帮助学校管理课程、学生、教师等信息，提供学生选课、成绩查询、教师排课等功能，提高管理效率和教学质量。
本文针对这一问题，设计了一种基于UML的教务管理系统。
二、需求分析2.1 功能需求教务管理系统需要实现以下功能： 1. 学生管理：包括学生信息管理、学生选课、学生成绩查询等功能。
2. 教师管理：包括教师信息管理、课程安排、成绩录入等功能。
3. 课程管理：包括课程信息管理、课程安排、课程评价等功能。
4. 系统管理：包括用户权限管理、系统配置、日志管理等功能。
2.2 非功能需求教务管理系统还需要满足以下非功能需求： 1. 可靠性：系统应具有高可靠性，保证数据的完整性和一致性。
2. 安全性：系统应提供安全的用户认证和授权机制，保证数据的安全性。
3. 可扩展性：系统应具有良好的可扩展性，能够方便地扩展新的功能和模块。
4. 用户友好性：系统应具有良好的用户交互界面，易于使用。
三、系统设计3.1 概要设计教务管理系统的概要设计主要包括系统的整体架构和模块划分。
在整体架构上，可以采用三层架构，即表现层、业务逻辑层和数据访问层。
在模块划分上，可以包括学生管理模块、教师管理模块、课程管理模块和系统管理模块。
3.2 详细设计3.2.1 学生管理模块学生管理模块主要包括以下功能： - 学生信息管理：包括学生基本信息的录入、修改和查询等功能。
- 学生选课：包括学生选课的操作和选课结果的查询功能。
- 学生成绩查询：包括学生查询已修课程成绩的功能。
3.2.2 教师管理模块教师管理模块主要包括以下功能： - 教师信息管理：包括教师基本信息的录入、修改和查询等功能。
- 课程安排：包括教师课程的安排和修改等功能。
- 成绩录入：包括教师录入学生成绩等功能。
3.2.3 课程管理模块课程管理模块主要包括以下功能： - 课程信息管理：包括课程基本信息的录入、修改和查询等功能。
教学管理系统 课程设计一、课程目标本课程旨在帮助学生掌握教学管理系统的基础知识与操作技能，培养他们运用信息技术优化教学过程的能力，提升教育教学效果。
具体目标如下：1. 知识目标：（1）了解教学管理系统的基本概念、功能与作用；（2）掌握教学管理系统的操作流程与关键环节；（3）理解教学管理系统在教育教学中的应用价值。
2. 技能目标：（1）能够独立登录教学管理系统，进行个人信息管理与课程选择；（2）熟练运用教学管理系统进行教学资源搜索、下载与分享；（3）掌握教学管理系统中的互动交流功能，开展线上讨论与问题解答。
3. 情感态度价值观目标：（1）培养学生对教育信息化的认同感，认识到信息技术对教育教学的重要作用；（2）激发学生主动参与教学管理，提高自我管理、自我学习能力；（3）培养学生团队协作意识，学会在合作中共享资源、解决问题。
课程性质：本课程为实用性课程，以实践操作为主，结合理论讲解，注重培养学生的实际操作能力。
学生特点：学生为初中年级，具有一定的信息技术基础，对新事物充满好奇，善于探索与学习。
教学要求：结合学生特点，课程设计应注重理论与实践相结合，以任务驱动、案例教学为主，鼓励学生积极参与，提高教学效果。
通过分解课程目标，为后续教学设计和评估提供具体的学习成果依据。
二、教学内容本课程依据课程目标，选取以下教学内容，制定详细教学大纲，确保教学内容科学性和系统性：1. 教学管理系统概述- 教材章节：第一章- 内容：教学管理系统的定义、发展历程、功能特点及其在教育领域的应用。
2. 教学管理系统操作流程- 教材章节：第二章- 内容：系统登录、个人信息管理、课程选择、教学资源搜索与下载、互动交流等功能操作。
3. 教学资源的管理与运用- 教材章节：第三章- 内容：教学资源的分类、上传、下载、分享以及在教学中的应用。
4. 线上互动交流技巧- 教材章节：第四章- 内容：线上讨论、问题解答、协作学习等互动交流方式的技巧与策略。
教室管理系统java课程设计一、教学目标本课程旨在通过Java编程语言实现一个简单的教室管理系统，让学生掌握Java编程的基本语法、面向对象编程思想以及数据库操作。
在知识目标上，要求学生了解Java语言的基本数据类型、控制结构、类与对象、继承与多态等核心概念；在技能目标上，要求学生能够运用Java语言独立完成一个小型项目的开发；在情感态度价值观目标上，培养学生对编程的兴趣，提高学生解决问题的能力。
二、教学内容本课程的教学内容主要包括Java语言的基本语法、面向对象编程、数据库操作以及项目实践。
具体安排如下：1.第一章：Java语言概述，学习Java语言的基本语法，包括数据类型、控制结构等。
2.第二章：面向对象编程，学习类与对象、继承与多态等概念，并能够运用这些知识解决实际问题。
3.第三章：数据库操作，学习SQL语言的基本操作，包括创建表、插入数据、查询数据等。
4.第四章：项目实践，利用所学知识完成一个教室管理系统的开发。
三、教学方法为了提高学生的学习兴趣和主动性，本课程将采用多种教学方法，如讲授法、讨论法、案例分析法和实验法等。
在教学过程中，教师将引导学生通过查阅教材、编写代码、分析案例、讨论问题等方式，深入理解Java编程语言和数据库操作的相关知识，并能够运用这些知识解决实际问题。
四、教学资源为了支持教学内容和教学方法的实施，丰富学生的学习体验，我们将选择和准备以下教学资源：1.教材：《Java编程思想》、《SQL基础教程》等。
2.参考书：提供一些与课程相关的参考书籍，供学生自主学习。
3.多媒体资料：制作课件、教学视频等，以图文并茂的形式呈现教学内容。
4.实验设备：提供计算机实验室，让学生能够进行实际操作和练习。
五、教学评估本课程的教学评估将采用多元化评价方式，全面反映学生的学习成果。
评估方式包括平时表现、作业、考试等。
平时表现主要评估学生的课堂参与度、提问回答、团队协作等情况；作业分为编程练习和理论作业，要求学生按时完成，并对作业质量进行评估；考试分为期中和期末考试，内容涵盖课程所有知识点，采用闭卷考试方式。
教学管理系统sql课程设计一、教学目标本课程的教学目标是使学生掌握SQL语言的基本语法和使用方法，能够使用SQL语言进行数据库的增删改查操作，了解数据库的基本概念和原理。
1.掌握SQL语言的基本语法。
2.掌握数据库的增删改查操作。
3.了解数据库的基本概念和原理。
4.能够使用SQL语言进行数据库的增删改查操作。
5.能够使用SQL语言进行简单的数据库设计和优化。
情感态度价值观目标：1.培养学生对数据库技术的兴趣和好奇心。
2.培养学生对数据的尊重和保护意识。
二、教学内容教学内容主要包括SQL语言的基本语法和使用方法，数据库的增删改查操作，以及数据库的基本概念和原理。
具体的教学大纲如下：1.数据库的基本概念和原理1.1 数据库的定义和作用1.2 数据库的组成和结构1.3 数据库的分类和特点2.SQL语言的基本语法2.1 SQL语言的介绍和特点2.2 SQL语言的基本操作语句2.3 SQL语言的高级操作语句3.数据库的增删改查操作3.1 数据库的增加操作3.2 数据库的删除操作3.3 数据库的修改操作3.4 数据库的查询操作三、教学方法本课程主要采用讲授法、案例分析法和实验法相结合的教学方法。
1.讲授法：通过讲解和演示，使学生掌握SQL语言的基本语法和使用方法，数据库的增删改查操作，以及数据库的基本概念和原理。
2.案例分析法：通过分析实际案例，使学生更好地理解和应用SQL语言进行数据库操作。
3.实验法：通过实验操作，使学生亲手实践，加深对SQL语言和数据库操作的理解和掌握。
四、教学资源教学资源包括教材、实验设备等。
1.教材：选用《SQL语言教程》作为主要教材，辅助以相关参考书籍和资料。
2.实验设备：需要准备计算机和数据库服务器，以及相关的网络设备。
五、教学评估教学评估是检验学生学习成果的重要手段，主要包括平时表现、作业和考试三个部分。
1.平时表现：通过观察学生在课堂上的参与度、提问和回答问题的情况，以及课堂讨论的表现来评估学生的学习状态。
教务管理系统c语言课程设计一、教学目标本课程的教学目标是使学生掌握教务管理系统的基本原理和设计方法，能够运用C语言进行简单的教务管理系统开发。
具体分为以下三个部分：1.知识目标：使学生掌握C语言的基本语法、数据结构、算法和面向对象编程思想，了解教务管理系统的功能和结构。
2.技能目标：培养学生具备运用C语言进行程序设计的能力，能够独立完成简单的教务管理系统模块设计与实现。
3.情感态度价值观目标：培养学生对编程事业的热爱，提高学生解决实际问题的积极性，培养学生的团队协作精神和自主学习能力。
二、教学内容本课程的教学内容主要包括以下几个部分：1.C语言基础知识：数据类型、运算符、表达式、语句、函数等。
2.数据结构：数组、链表、栈、队列、树、图等。
3.算法：排序算法、查找算法、常用算法分析等。
4.面向对象编程：类、对象、封装、继承、多态等。
5.教务管理系统设计：系统需求分析、系统架构设计、模块划分、功能实现等。
三、教学方法为了达到本课程的教学目标，我们将采用以下几种教学方法：1.讲授法：通过讲解知识点，使学生掌握基本概念和原理。
2.案例分析法：分析实际案例，使学生了解教务管理系统的应用场景和设计方法。
3.实验法：让学生动手编写代码，培养实际编程能力。
4.讨论法：分组讨论问题，培养学生的团队协作精神和解决问题的能力。
四、教学资源为了支持本课程的教学内容和教学方法，我们将准备以下教学资源：1.教材：《C程序设计语言》（K&R）、《C Primer Plus》等。
2.参考书：《数据结构与算法分析》（C语言版）、《深度探索C++对象模型》等。
3.多媒体资料：教学PPT、视频教程、在线编程练习等。
4.实验设备：计算机、网络环境、编程调试工具等。
五、教学评估本课程的评估方式包括以下几个部分：1.平时表现：通过课堂参与、提问、讨论等环节，评估学生的学习态度和积极性。
2.作业：布置课后作业，评估学生的编程能力和对知识的理解程度。
教务管理系统课程设计报告一、引言教务管理系统是为了提高学校教务工作效率而开发的一种信息管理系统。
本课程设计报告主要介绍了教务管理系统的设计思路、功能模块以及系统实现等方面的内容。
二、设计思路教务管理系统的设计思路是基于学校教务工作的需求和特点，通过信息技术手段对教务工作进行信息化管理，提高工作效率和服务质量。
在设计思路上，本系统采用了模块化的设计，将教务工作拆分成多个模块，分别进行管理。
同时，系统还采用了数据库技术，将数据存储在数据库中，方便对数据进行管理和查询。
三、功能模块教务管理系统的功能模块包括学生管理模块、课程管理模块、教师管理模块、成绩管理模块和课表管理模块等。
1. 学生管理模块学生管理模块主要包括学生信息的录入、修改和查询功能。
系统管理员可以通过该模块实现对学生信息的管理和维护。
2. 课程管理模块课程管理模块主要包括课程信息的录入、修改和查询功能。
教务处老师可以通过该模块实现对课程信息的管理和维护。
3. 教师管理模块教师管理模块主要包括教师信息的录入、修改和查询功能。
系统管理员可以通过该模块实现对教师信息的管理和维护。
4. 成绩管理模块成绩管理模块主要包括学生成绩的录入、修改和查询功能。
教师可以通过该模块实现对学生成绩的管理和维护。
5. 课表管理模块课表管理模块主要包括课表信息的录入、修改和查询功能。
教务处老师可以通过该模块实现对课表信息的管理和维护。
四、系统实现教务管理系统的实现主要包括前端界面设计和后端数据库设计两个方面。
1. 前端界面设计前端界面设计主要包括系统登录界面、主页面和各个功能模块的页面设计。
界面设计应简洁明了，符合用户使用习惯，提高用户体验。
2. 后端数据库设计后端数据库设计主要包括数据库表的设计和数据表之间的关系设计。
数据库表的设计应符合数据的规范和一致性要求，同时保证数据的安全性和可靠性。
五、总结教务管理系统是提高学校教务工作效率的重要工具，通过对教务工作进行信息化管理，可以提高工作效率和服务质量。
教学管理系统课程设计一、课程目标知识目标：1. 学生理解教学管理系统的基本概念，掌握系统的功能模块及其操作流程。
2. 学生掌握教学信息管理、课程安排、成绩管理的数据处理方法。
3. 学生了解信息技术在教育教学中的应用，认识教学管理系统在现代教育中的重要性。
技能目标：1. 学生能够独立登录教学管理系统，完成个人信息的基本设置。
2. 学生能够利用系统进行课程查询、选课操作，并能合理安排学习计划。
3. 学生能够运用系统进行成绩查询，分析个人学习状况，制定有效的学习策略。
情感态度价值观目标：1. 培养学生对教学管理系统的正确使用意识，养成数字化学习的良好习惯。
2. 增强学生的信息素养，培养他们面对问题时积极寻求技术解决方案的态度。
3. 提高学生的团队协作意识，通过教学管理系统的交流平台，促进同学间的学术交流与合作。
分析课程性质、学生特点和教学要求：本课程为实践性较强的信息技术课程，旨在使学生在掌握教学管理系统知识的基础上，提高实际操作能力。
考虑到学生所在年级的特点，课程目标强调对信息技术工具的熟练运用，以辅助学习生活。
教学要求注重理论与实践相结合，以学生为主体，充分调动他们的主动性和积极性，培养信息时代下的自主学习能力。
通过具体学习成果的分解，使学生在课程结束后能够具备独立使用教学管理系统，优化学习过程的能力。
二、教学内容1. 教学管理系统概述- 系统定义与功能介绍- 教学管理系统的发展历程及其在现代教育中的应用2. 教学管理系统功能模块- 用户登录与个人信息管理- 课程查询与选课操作- 成绩查询与分析- 交流互动平台的使用3. 教学管理系统操作流程- 系统登录与界面导航- 常用功能操作步骤详解- 常见问题及其解决方法4. 教学管理系统在实际中的应用案例- 个人学习计划制定与实施- 成绩分析与学习策略调整- 同学间学术交流与合作教学大纲安排与进度：第一周：教学管理系统概述，系统定义与功能介绍第二周：用户登录与个人信息管理，课程查询与选课操作第三周：成绩查询与分析，交流互动平台的使用第四周：教学管理系统操作流程详解，常见问题及其解决方法第五周：教学管理系统在实际中的应用案例分析与讨论教材章节关联：第一章：教学管理系统简介第二章：系统功能模块介绍第三章：操作流程与技巧第四章：应用案例与拓展教学内容确保科学性和系统性，结合课程目标，使学生能够全面掌握教学管理系统的使用，提高学习效率。
数据库教学管理系统课程设计报告一、项目背景数据库教学管理系统是一种用于管理学校教学信息和学生数据的系统，通过该系统可以方便地管理学生信息、教师信息、课程信息等数据，并支持教务管理、成绩管理、课程安排等功能。
该系统可以提高教学管理效率，实现教学信息的自动化管理，是现代教育管理的重要工具。
二、需求分析1.功能需求•管理学生信息，包括学生基本信息、选课情况等；•管理教师信息，包括教师基本信息、授课情况等；•管理课程信息，包括课程名称、上课时间、上课地点等；•支持教务管理，包括学生选课、成绩录入等功能；•支持课程安排，包括课程表生成、教师排课等功能。
2.性能需求•系统要求稳定可靠，能够处理大量数据；•系统响应速度快，能够快速查询数据；•系统安全性高，能够保护学生和教师信息不被泄露。
三、系统设计1.数据库设计系统采用MySQL数据库，包括以下表格设计： - 学生表（Student）：存储学生基本信息，包括学号、姓名、性别等字段； - 教师表（Teacher）：存储教师基本信息，包括工号、姓名、职称等字段； - 课程表（Course）：存储课程信息，包括课程编号、课程名称、学分等字段； - 选课表（Enrollment）：存储学生选课情况，包括学生学号、课程编号等字段； - 成绩表（Grade）：存储学生成绩信息，包括学生学号、课程编号、成绩等字段。
2.系统架构设计系统采用B/S架构，前端使用HTML、CSS、JavaScript实现，后端采用Java 语言开发，并采用Spring框架实现业务逻辑，数据库连接采用JDBC连接MySQL 数据库。
四、系统实现1.前端实现前端页面采用响应式设计，包括学生信息管理页面、教师信息管理页面、课程信息管理页面等，使用Bootstrap框架实现页面布局，并通过AJAX与后端交互。
2.后端实现后端采用MVC架构，包括控制器层、服务层、数据访问层，使用Spring MVC 和Spring JDBC框架实现，对前端请求进行处理并访问数据库。
课程设计管理系统一、教学目标本课程的学习目标包括知识目标、技能目标和情感态度价值观目标。
知识目标要求学生掌握管理系统的基本概念、原理和应用；技能目标要求学生能够运用管理系统的方法和技巧，解决实际问题；情感态度价值观目标要求学生树立正确的管理意识，认识到管理系统在个人和社会中的重要性。
通过分析课程性质、学生特点和教学要求，明确课程目标，将目标分解为具体的学习成果，以便后续的教学设计和评估。
二、教学内容根据课程目标，选择和教学内容，确保内容的科学性和系统性。
本课程的教学内容主要包括：管理系统的基本概念、原理和应用；管理系统的各个组成部分及其相互作用；管理系统的构建、运行和维护。
制定详细的教学大纲，明确教学内容的安排和进度。
教材的章节安排如下：1.管理系统概述2.管理系统的构建3.管理系统的运行4.管理系统的维护5.管理系统的应用三、教学方法选择合适的教学方法，如讲授法、讨论法、案例分析法、实验法等。
通过教学方法应多样化，以激发学生的学习兴趣和主动性。
1.讲授法：用于讲解管理系统的基本概念、原理和应用。
2.讨论法：用于探讨管理系统的构建、运行和维护中的问题。
3.案例分析法：用于分析实际案例，让学生深入理解管理系统的应用。
4.实验法：用于让学生动手实践，掌握管理系统的操作方法。
四、教学资源选择和准备适当的教学资源，包括教材、参考书、多媒体资料、实验设备等。
教学资源应该能够支持教学内容和教学方法的实施，丰富学生的学习体验。
1.教材：选用权威、实用的管理系统教材。
2.参考书：提供相关领域的参考书籍，扩展学生知识面。
3.多媒体资料：制作精美的PPT、视频等多媒体资料，提高教学质量。
4.实验设备：配置合适的实验设备，开展实验教学，增强学生实践能力。
五、教学评估本课程的评估方式包括平时表现、作业和考试等。
评估方式应客观、公正，能够全面反映学生的学习成果。
1.平时表现：通过课堂参与、提问、讨论等环节评估学生的平时表现。
教学管理系统课程设计目录一、概述 (1)二、总体设计 (2)1、软件环境： (2)2、硬件环境： (2)三、实验主要内容 (2)1、主要数据表 (2)2、功能模块 (2)四、系统分析报告 (2)1、数据流图 (2)2、系统功能模块 (3)3、业务流图 (4)4、系统数据模型设计 (4)五、代码实现 (7)1.登录界面 (7)2.注册界面 (9)3.教师界面 (11)4.课表管理 (12)5.成绩管理 (13)6.学生界面 (15)7.网上评教 (16)六、系统实现结果 (16)七、实验分工及总结 (21)一、概述数据库课程设计是集中实践性环节之一，是学习完《数据库原理及应用》课程后进行的一次全面的综合的实践练习，主要目的在于加深学生对数据库基础理论和基本知识的理解，熟悉数据库的设计方法，掌握基于数据库的信息管理系统的开发方法，进一步加强学生综合运用知识和实践动手的能力。
学生根据所学的数据库原理与程序设计的知识，能够针对一个小型的数据库管理系统，进行系统的需求分析，系统设计，数据库设计，编码，测试等，完成题目要求的功能，从而达到掌握开发一个小型数据库的目的。
二、总体设计1、软件环境：Visual Studio 2010、SQL Server Management Studio2、硬件环境：PC机三、实验主要内容1、主要数据表课程信息表，学生信息表单，教师信息表，学生成绩表等。
2、功能模块（1）课程设置，包括：查询、添加、删除、查询和修改课程信息（2）学生成绩查询，网上评教。
（3）教师查询课程时间和教室的安排。
（4）教师管理学生成绩查询，添加，修改，删除。
（5）学生和教师信息的注册。
四、系统分析报告1、数据流图教学管理系统的基本数据流图如下所示：学生选课信息课程信息图1教学管理系统的基本数据流图学生成绩信息成绩确认信息图 2 教学管理系统的基本数据流图排课信息图3 教学管理系统的基本数据流图2、系统功能模块本系统主要包括学生信息管理、课程信息管理、成绩信息管理等模块，另外还包括进行系统管理的一些辅助模块。
其示意图如下：3、业务流图4、系统数据模型设计（1）系统ER图各实体图：学生信息：课程信息：教师信息：选考授学生课程成绩教师学生学号姓名登录密码课程信息课程号课程名上课时间上课教室登录密码学生成绩：（2）关系模式学生信息（姓名，学号，登录密码）课程信息（课程号，课程名，上课教室，登录密码，）教师信息（教师编号，姓名，登录密码）学生成绩（学号，课程号，课程名，成绩）（3）数据表课程信息表教师信息表个人成绩表学生成绩表学生课表五、代码实现1.登录界面Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim min, max, rndnum, i As Integermin = 10max = 99TextBox4.Text = ""For i = 0 To 1rndnum = CStr(CInt(min + Rnd() * (max - min)))TextBox4.Text = TextBox4.Text & "" & rndnumNextEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim ConnStr As String = "Server=(local);uid=sa;pwd=1234;database=shiy"Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnStr) '建¡§立¢¡é连¢?接¨®对?象¨®，ê?同ª?时º¡À说¦Ì明¡Â连¢?接¨®字Á?符¤?串ä?Dim cmd As New SqlClient.SqlCommand'生¦¨²成¨¦命¨¹令¢?对?象¨®，ê?用®?于®¨²执¡ä行DSQL语®?句?Dim dr As IDataReader'用®?来¤¡ä临¢¨´时º¡À存ä?放¤?执¡ä行D语®?句?后¨®的Ì?结¨¢果?Dim SQLStr As StringIf RadioButton1.Checked = True ThenSQLStr = "select * from teacher where tusernum=" + "'" + TextBox1.Text + "'" cmd.Connection = cncn.Open()mandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!tpwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登Ì?录?成¨¦功|")Dim jiaoshi As New Form3jiaoshi.ShowDialog()Hide()ElseMsgBox("验¨¦证¡è码?错䨪误¨®")End IfElseMsgBox("密¨¹码?不?正y确¨¡¤")End IfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")End Ifdr.Close()cn.Close()ElseSQLStr = "select * from student where snum=" + "'" + TextBox1.Text + "'"cmd.Connection = cncn.Open()mandText = SQLStrdr = cmd.ExecuteReader()If dr.Read() ThenIf dr!spwd.ToString().Trim = TextBox2.Text ThenIf TextBox3.Text = TextBox4.Text ThenMsgBox("登Ì?录?成¨¦功|")Dim xuesheng As New Form6xuesheng.Show()Me.Hide()ElseMsgBox("验¨¦证¡è码?错䨪误¨®")End IfElseMsgBox("密¨¹码?不?正y确¨¡¤")End IfElseMsgBox("该?用®?户¡ì不?存ä?在¨²")End Ifdr.Close()cn.Close()End IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim zhuce As New Form2zhuce.Show()Me.Hide()End Sub2.注册界面Public Class Form2Dim objDS As New DataSetDim objXSTable As DataTableDim objda As New SqlClient.SqlDataAdapterDim cn As New SqlClient.SqlConnection("server=(local);uid=sa;pwd=1234;database=shiy")Public Sub refreshdata()objda.Update(objDS, "teacher") '第̨²二t个?参?数ºy为a需¨¨要°a更¨¹新?数ºy据Y库a表À¨ª名?objXSTable.Clear()Me.zhuce_Click(Nothing, Nothing)objDS.AcceptChanges()End SubPrivate Sub zhuce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zhuce.ClickDim cmd As New SqlClient.SqlCommandcmd.Connection = cn '数ºy据Y从䨮当Ì¡À前¡ã建¡§立¢¡é的Ì?连¢?接¨®cn中D进?入¨?If RadioButton1.Checked = True ThenDim builder As SqlClient.SqlCommandBuilder = NewSqlClient.SqlCommandBuilder(objda)Trycn.Open()mandText = "select * from teacher"objda.SelectCommand = cmdobjda.Fill(objDS, "teacher")objXSTable = objDS.Tables("teacher")cn.Close()Dim response As MsgBoxResultresponse = MsgBox("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?")If response = MsgBoxResult.Ok ThenDim myRow As DataRowmyRow = objXSTable.NewRowmyRow("tusernum") = TextBox1.TextmyRow("tusername") = username1.TextmyRow("tpwd") = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS, "teacher")objDS.AcceptChanges()refreshdata()End IfCatch ex As ExceptionEnd TryElseDim builder As SqlClient.SqlCommandBuilder = NewSqlClient.SqlCommandBuilder(objda)cn.Open()mandText = "select * from student"objda.SelectCommand = cmdobjda.Fill(objDS, "student")objXSTable = objDS.Tables("student")cn.Close()Dim response As MsgBoxResultresponse = MsgBox("确¨¡¤实º¦Ì要°a注Á¡é册¨¢吗e？ê?", vbOKCancel + vbQuestion, "系¦Ì统ª3提¬¨¢示º?")If response = MsgBoxResult.Ok ThenDim myRow As DataRowmyRow = objXSTable.NewRowmyRow("snum") = TextBox1.TextmyRow("sname") = username1.TextmyRow("spwd") = mima1.TextobjXSTable.Rows.Add(myRow)objda.Update(objDS, "student")objDS.AcceptChanges()refreshdata()End IfEnd IfDim denglu As New Form1denglu.Show()Me.Hide()End SubPrivate Sub chongzhi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chongzhi.Clickusername1.Text = ""mima1.Text = ""qmima1.Text = ""End SubEnd Class3.教师界面Public Class Form3Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim kebiao As New Form4kebiao.Show()Me.Hide()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button4.ClickDim denglu As New Form1denglu.Show()Me.Hide()End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim chengjig As New Form5chengjig.Show()Me.Hide()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)End Sub4.课表管理Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "select * from course where coursenum ='" & Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"comm.Connection = connmandText = "select coursename from course where coursenum ='" &Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"Me.TextBox3.Text = comm.ExecuteScalarcomm.Connection = connmandText = "select coursetime from course where coursenum ='" &Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"Me.TextBox4.Text = comm.ExecuteScalarcomm.Connection = connmandText = "select courseaddress from course where coursenum ='" &Me.TextBox1.Text & "' and courxseclass='" & Me.TextBox2.Text & "'"Me.TextBox5.Text = comm.ExecuteScalarcomm.Connection = connconn.Close()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim jiaoshijiemian As New Form3jiaoshijiemian.Show()Me.Hide()End Sub5.成绩管理Imports System.Data.SqlClientPublic Class Form5Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickDim jiaoshi As New Form3jiaoshi.Show()Me.Hide()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "select * from chengji"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "chengji")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "insert into chengji values('" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "')"comm.Connection = conncomm.ExecuteNonQuery()mandText = "select * from chengji"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "chengji")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "update chengji set snum='"& Me.TextBox2.Text & "',coursenum=" & Me.TextBox3.Text & ",coursename='" & Me.TextBox4.Text & "',coursegrade='" &Me.TextBox5.Text & "' where snum='" & Me.TextBox2.Text & "'"comm.Connection = conncomm.ExecuteNonQuery()mandText = "select * from chengji"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "chengji")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "delete from chengji where snum =" & Me.TextBox2.Textcomm.Connection = conncomm.ExecuteNonQuery()mandText = "select * from chengji"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "chengji")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End Sub6.学生界面Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.ClickDim denglu As New Form1denglu.Show()Me.Hide()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "select * from scourse"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "scourse")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickDim conn As New SqlConnectionDim comm As New SqlCommandconn.ConnectionString = "server=(local); uid=sa;pwd=1234;database=shiy"conn.Open()mandText = "select * from grchengji"comm.Connection = connDim da As New SqlDataAdapter(mandText, conn)Dim ds As New DataSetda.Fill(ds, "grchengji")conn.Close()Me.DataGridView1.DataSource = ds.Tables(0)End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickDim pingjiao As New Form7pingjiao.Show()Me.Hide()End Sub7.网上评教Public Class Form7Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim denglu As New Form6denglu.Show()Me.Hide()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickMsgBox("提¬¨¢交?成¨¦功|")End SubEnd Class六、系统实现结果七、实验分工及总结首先，在开始做课程设计时对整个模块的把握不够好，以至于浪费了好多时间而没能按想象中的顺利完成。
