学生信息管理系统-作品制作说明

学生信息管理系统-作品制作 说明 关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书 作品制作说明 课题 学生信息管理信息系统 系 科 专业(方向) 班 级 学 号 姓 名 完成日期 指导教师 电子工程系 计算机应用技术(信息管理) 微机085(信息) 080203527 任伟 2010-12-14 黄晓亚 南通职业大学电子工程系作品制作说明 学生信息管理系统 作品简介 本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能，因而具有较强的实用性和先进性。 在系统和数据的安全性方面，系统采用数据库级用户权限和应用程序及运行权限的双重控制机构，提供了统一的基于角色的用户管理手段，通过数据库系统的数据安全机制，具有完善的系统和数据安全的保障体系。 在功能方面，系统面向学校用户的需求，为学生信息管理提供全面、及时、准确的信息和可靠的依据。 1(功能划分 本系统由“系统管理”，“学生基本信息管理 ”， “学生课程管理”，“学生成绩管理”，“班级管理”，“学生考勤管理”，“帮助管理”等子系统组成。 2(描述 在操作性方面，采用图形用户界面技术，使系统能够以多得图形窗口和丰富便利的操作界面，通过鼠标或键盘的操作，为用户提供最简洁的使用方法。 1.学生管理功能:为了方便学生信息的增加、删除、修改、查询。 2.课程管理功能:管理员可以通过填写表格的形式修改、设置课程等相关信息 3.成绩管理功能:管理员可以对数据库中的学生成绩信息进行增加、修改，教师可以通过登录系统对学生的成绩进行输入、修改。学生可以通过登录查询自己的考试成绩。 4.班级管理功能:管理员可以通过此功能对班级信息进行增加、删除、修改、查询。 支持学生调班的功能。 5.系统管理功能:可以增加、删除、修改、查看该程序的登陆用户，密码的修 改和用户的删除。 6.考勤管理功能:管理员可以对各班级的学生在校期间的表现进行记录增加、 查询。 7.帮助管理功能:添加了用户的反馈意见、关于系统、系统帮助、有关系统信 MDI窗体模式。 息。 附加: 2 南通职业大学电子工程系作品制作说明 引言 学校作为教育机构势必与新技术、新知识紧密联系，势必在各方面实现信息化。 同时随着学生，教师数量的增多对学生教师的管理和了解，即时的处理各种状况 越来越必要。本系统就是为这方面的迫切需求而实现的。 本阶段已在系统的需求分析的基础上，对学生管理系统做概要 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 。主要解决 实现该系统需求的程序模块设计问题。包括如何把该系统划分成若干个模块、决 定各个模块之间的接口、模块之间传递的信息，以及数据结构、模块结构的设计 等。在以下的概要设计 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 中将对在本阶段中对系统所做的所有概要设计进行详 细的说明。 在下一阶段的详细设计中，程序设计员可参考此概要设计报告，在概要设计对 人事管理系统所做的模块结构设计的基础上，对系统进行详细设计。在以后的软 件测试以及软件维护阶段也可参考此说明书，以便于了解在概要设计过程中所完 成的各模块设计结构，或在改时找出在本阶段设计的不足或错误。 本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以 输入数据或者进行其它的查询或浏览等操作;总体来说，本系统属于一个事务型 管理系统。学生信息管理系统不简单的是一个软件，它覆盖了学生信息管理的职 能，是学生信息管理事务中关键环节。是一个将学生信息管理思想以及当今最新 计算机技术完美统一起来，实现科学化、自动化管理的集成应用系统。 3 南通职业大学电子工程系作品制作说明 目录 学生信息管理系统 ........................................................................ 2 作品简介 ................................................................................ 2 引言 .................................................................................... 3 第1章 系统概述 ......................................................................... 6 1.1 项目背景 ........................................................................ 6 1.2 项目目标 ........................................................................ 6 1.3 需求分析 ........................................................................ 6 1.3.1系统需求 ................................................................... 6 1.3.2功能需求 ................................................................... 7 1.4可行性分析 ....................................................................... 7 1.5系统设计的背景 ................................................................... 8 1.6系统的功能简介 ................................................................... 9 1.6.1项目规划 ................................................................... 9 1.6.2系统管理模块 (ALT+S) ...................................................... 10 1.6.3班级管理模块(ALT+C) ..................................................... 10 1.6.4学籍管理模块(ALT+A) ..................................................... 10 1.6.5课程专业管理模块(ALT+F) ................................................. 10 1.6.6成绩管理模块(ALT+M) ..................................................... 10 1.6.7学生考核管理模块(ALT+K) ................................................. 10 ..................................................... 10 1.6.8帮助管理模块(ALT+H) 1.6.9 MDI窗体切换 .............................................................. 10 1.6.10窗口 ..................................................................... 10 1.7 系统开发的目标 .................................................................. 11 第2章 系统分析 ........................................................................ 12 2.1系统流程 ........................................................................ 12 2.2数据存储分析 .................................................................... 12 第3章 系统设计 ........................................................................ 14 3.1系统模块结构设计 ................................................................ 14 3.1.1系统 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 确定 ............................................................... 14 3.1.2系统结构设计 ............................................................... 14 3.2数据库设计 ...................................................................... 15 3.2.1 Acess数据库简介 .......................................................... 15 3.2.2 建立连接数据库 ............................................................ 15 第4章 系统的功能 ...................................................................... 20 4.1系统登陆界面和主界面 ............................................................ 20 4.2系统管理 ........................................................................ 23 4.2.1增加删除管理员 ............................................................ 23 4.2.2增加删除教师 .............................................................. 24 4.2.3密码修改 .................................................................. 24 4.3班级管理 ........................................................................ 25 4.3.1班级查询模块设计 .......................................................... 25 4.3.2注销班级模块设计 .......................................................... 26 4.3.3添加班级模块设计 .......................................................... 26 4 南通职业大学电子工程系作品制作说明 4.3.4学生调班模块设计 .......................................................... 27 4.4学生档案管理 .................................................................... 28 4.4.1档案添加模块设计 .......................................................... 28 4.4.2档案浏览模块设计 .......................................................... 29 4.4.3档案查询模块设计 .......................................................... 29 4.4.4档案修改模块设计 .......................................................... 29 4.5课程及专业管理 .................................................................. 30 4.5.1基本课程设置模块设计 ...................................................... 30 4.5.2学生选课模块设计 .......................................................... 32 4.5.3课程查询 .................................................................. 32 4.5.4修改课程 .................................................................. 33 4.5.5选修课退选 ................................................................ 35 4.6成绩管理 ........................................................................ 35 4.6.1输入成绩 .................................................................. 35 4.6.2修改成绩 .................................................................. 36 4.6.3查询成绩 .................................................................. 37 4.7学生考勤管理 .................................................................... 37 4.7.1奖惩查询 .................................................................. 37 4.7.2学生奖惩录入 .............................................................. 37 4.8帮助管理 ........................................................................ 39 4.8.1关于 ...................................................................... 39 4.8.2系统信息 .................................................................. 39 4.8.3帮助 ...................................................................... 39 4.8.4意见反馈 .................................................................. 39 4.8.5手机归属地查询 ............................................................ 41 4.9MDI ............................................................................. 42 4.9.1MDI窗体模式 ............................................................... 42 4.9.2关闭MDI模式 .............................................................. 42 第5章 总结谢 ................................................................................. 45 5 南通职业大学电子工程系作品制作说明 第1章 系统概述 1.1 项目背景 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术 上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存 要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应 的管理信息系统。目前，在学校里，随着高校规模的不断扩大和招生人数的不断 增加，需要处理大量的学生数据信息。如何更好的组织学生信息，更加快捷的管 理学生信息显得尤为的重要。 作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无 法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿 命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是学校的科 学化、正规化管理,与世界接轨的重要条件。 我们为此开发了一套学生信息管理系统，本系统面向学校的教务人员，目的是 为学校办公管理提供一个快速、简单规范的管理平台，使学院在学生信息管理方 面更加规范化,快捷化。 1.2 项目目标 本章以学校的学生信息管理为依托，结合教务教学管理，设计并开发一个学生 信息管理系统，提供一个信息更新快捷、管理方便、功能设置合理的学生信息管 理解决方案。针对学校大量的学生信息，就学生管理的几个方面，提供一个互动 式的学生管理平台。系统目标如下: 通过学生信息管理系统的实现，使学校 的学生信息管理更加科学化。 提供灵活、方便的操作。 节约学生信息管理的成本，提高学校管理的效率。 对系统提供必要的权限管理。 为学校考核学生的综合素质提供必要的数据支持。 1.3 需求分析 1.3.1 系统需求 在各大中专院校，学校的教务管理的主要内容包括学生的信息管理和教师排课，学生信息管理传统的手工管理主要包括学生档案管理，学生成绩管理。其中学生信息管理对大数据量要求较高，而教师排课系统由于需要十分专业的算法并且系统需求不断的变化，因此在实际应用时，往往会遇到很大的问题，需要进一步研究，目前一般的学校管理系统都包含了学 6 南通职业大学电子工程系作品制作说明 生信息管理的功能。本系统不包含教师排课管理和教师管理的详细业务，只提供学生相关信息的查询。 1.3.2功能需求 根据上述的信息管理系统的业务流程、要求以及所要实现的目标，我们可以拟出以下需求目标: (1)建立学生档案的管理和维护。实现计算机自动化管理体制。 (2)建立学生成绩管理机制，在计算机的支持下快速的完成学生成绩的查询和修改。 (3)建立课程设置管理，在计算机的支持下实现课程的添加、删除、修改。 (4)建立班级设置管理，在计算机的支持下实现班级的添加、删除和修改。 (5)实现系统的权限设置管理，保证系统安全性。 根据系统的需求分析，得到本系统的功能要求如下: (1)班级、课程的设置管理:学校的教务秘书可以根据本校具体情况在每学期开始时设置所需班级数量和人数。并设置本学期的课程。 (2)权限管理:为了很好的保证系统的安全性，学校相关负责人可以设置不同类型的人员的权限。 (3)学生档案管理:学生档案的数量十分庞大，教务管理人员进行新生入学的档案录入及更改。其中包括学生个人信息的修改。 (4)学生成绩管理:教务管理人员可以查询和修改学生的历年考试成绩，掌握学生学习情况，作为评定学生素质的数据依据。 1.4可行性分析 在高校，计算机也应用得非常普遍，各系基本都配备了计算机。在这种实用的学生信息管理系统使这种局面大为改观。学生成绩管理系统主要提供方便高效的管理功能以及网上的信息查阅平台，学生可以通过该系统查阅相关信息，管理员可以管理所有信息。 (1)对象运用可行性 由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。 (2)社会与经济可行性 利用学生信息管理系统实现了无纸化办公，提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作，可以在几个小时，最多几天内完成， 7 南通职业大学电子工程系作品制作说明 大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排，第一时间录入到系统。学生也可以第一时间登录到该系统，查询自己本学期课程安排和考试方式，大大提高了时间成本。 1.5系统设计的背景 本系统的设计是在Windows XP中文版操作系统环境下，使用VisualBasic.NET 中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下: Visual Basic语言 Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与 Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 总的来说，Visual Basic具有以下特点: Visual Basic 语言用其设计应用程序时具有两个基本特点:可视化设计和事件驱动编程。 (1) 可视化设计:表现在VB.NET在设计应用于程序界面时有“所见即所得”的处理功能。 (2) 事件驱动编程:在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。 (3) 结构化的程序设计语言:VB具有丰富的数据类型和结构化程序结构，而且简单易学。此外，作为一种程序设计语言，VB还有许多独到之处。 (4) 提供了易学易用的应用程序集成开发环境:在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件在Windows中运行，使用户在友好的开发环境中工作。 (5) 支持多种数据库系统的访问: VB利用数据控件可以访问多种数据库，VB.NET提供 8 南通职业大学电子工程系作品制作说明 的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。 (6) 支持动态交换、动态链接技术: 通过动态数据交换(DDE)的编程技术，VB开发的应用程序能与其他Windows应用程序之间建立数据通信。 1.6系统的功能简介 本系统主要可以实现以下的管理功能:班级管理、学生档案管理、课程管理、成绩管理、学生考核管理、帮助等等。 1.6.1 项目规划 学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、课程管理、成绩管理等模块组成,特规划如下图1.1所示。 9 南通职业大学电子工程系作品制作说明 1.6.2系统管理模块 (ALT+S) 该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、重新登录、删除用户、密码修改等。 1.6.3班级管理模块(ALT+C) 该模块的功能是实现对全校班级的管理工作，包括:班级信息游览、班级信息添加、班级信息查询等，这三个功能模块各自独立，完成学校的全部班级的管理。 1.6.4学籍管理模块(ALT+A) 该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案浏览、档案查询、档案修改等功能，从而方便学校管理部门对学校的基本情况 快速查询和了解。 1.6.5课程专业管理模块(ALT+F) 该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和选修课程设置两个模块。可以实现学生在线选课、退选，课程设置修改，课程查询，课程设置，课程查询，专业查询等。 1.6.6成绩管理模块(ALT+M) 学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期末考试两种类型，考试类型分考试、考查俩种。还设置了成绩添加、成绩游览、成绩修改功能模块。 1.6.7学生考核管理模块(ALT+K) 教学管理中对学生的日常考核时必修的，本模块功能是学生惩奖的录入、惩奖的查询。及时的将学生的表现情况录入系统、学生也可通过本系统查询到自己的惩奖情况。 1.6.8帮助管理模块(ALT+H) 刚开发的系统对用户来说比较陌生，所以增加一个帮助管理模块是必要的。本 模块包含:关于、系统信息、帮助、用户意见反馈、手机归属地查询。 1.6.9MDI窗体切换 分别MDI窗体和独立多窗体模式由用户自己的喜好任意选择。 1.6.10窗口 10 南通职业大学电子工程系作品制作说明 在MDI窗体模式下对父窗体中的子窗体排列(垂直、水平、层叠)三种、在多个窗体的轻快下选择用户要的窗体。 1.7 系统开发的目标 出于本系统是学校学生管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。 11 南通职业大学电子工程系作品制作说明 第2章 系统分析 2.1系统流程 在用户启动应用程序时，首先进入登陆界面进行用户的身份验证。如果用户通过身份验证，系统将根据用户的不同级别分别引导用户进入不同的界面，超级管理员和老师可进入各自的管理界面进行操作和查询，而学生用户则只能通过输入 姓名、学号来查询自己的信息。如图2.1所示。 图2.1-系统流程图 2.2数据存储分析 1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。 12 南通职业大学电子工程系作品制作说明 2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系;一位学生要学习多门课程，一门课 程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的;“学生甲70分”或“英语70分”是不完全的，说“学生甲英语70分”才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R图可画成下图。 学生、课程、成绩、学习，如图2.2所示。 图2.2-学生成绩管理系统中学生与课程的E-R图 教师与课程这两个实体之间，是一对多联系;一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其E-R图，如下图2.3所示。 图2.3教师、课程、教学的E-R图 教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图， 就可以设计数据库。下图为最后的e-r图。如图2.4所示。 13 南通职业大学电子工程系作品制作说明 第3章 系统设计 3.1系统模块结构设计 3.1.1系统方案确定 通过对系统的调研与分析，系统主要应完成的功能有:班级管理、学生成绩管理、课程管理、成绩管理、系统管理、考核管理等功能。 3.1.2系统结构设计 本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作;总体来说，本系统属于一个事务型管理系统。 学生信息管理系统不简单的是一个软件，它覆盖了学生信息管理的职能，是学生信息管理事务中关键环节。是一个将学生信息管理思想以及当今最新计算机技术完美统一起来，实现科学化、自动化管理的集成应用系统。 在功能方面，系统面向学校用户的需求，为学生信息管理提供全面、及时、准确的信息和可靠的依据。 在通用性设计方面，以 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 化为基础，通过信息流程和管理过程的合理模型化、管理对象的模型化，使得系统具有一定的通用性和规范性。 在系统开放性方面，按照软件工程开发规范实现系统的开放性，既便于扩充又便于升级，以适应今后学生信息管理发展及体系改革的需求。 在系统和数据的安全性方面，系统采用数据库级用户权限和应用程序级运行权限的双重控制机构，提供了统一的基于角色的用户管理手段，通过数据库系统的数据安全机制，具有完善的系统和数据安全的保障体系。 在操作性方面，采用图形用户界面技术，使系统能够以多得图形窗口和丰富便利的操作界面，通过鼠标或键盘的操作，为用户提供最简洁的使用方法。 1.学生管理功能:为了方便学生信息的增加、删除、修改、查询。 2.课程管理功能:管理员可以通过填写表格的形式修改课程等相关信息 3.成绩管理功能:管理员可以对数据库中的学生成绩信息进行增加、修改，教师可以通过登录系统对学生的成绩进行输入、修改。学生可以通过登录查询自己的考试成绩。 4.班级管理功能:管理员可以通过此功能对班级信息进行增加、删除、修改、查询。 支持学生调班的功能。 5.系统管理功能:可以增加、删除、修改、查看该程序的登陆用户，密码的修改和用户的删除。 6.考勤管理功能:管理员可以对各班级的学生在校期间的表现进行记录增加、查询。 7(帮助管理功能:添加了用户的反馈意见、关于系统、系统帮助、有关系统信息。 14 南通职业大学电子工程系作品制作说明 3(2数据库设计 3.2.1 Acess数据库简介 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库中的数据可以是文字、图像、声音等。 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系(或称关联，连接)，以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。 3.2.2建立连接数据库 ActiveX Data Objects (ADO) 是微软最新的数据访问技术，是一个用于存取数据源的COM组件。它提供了编程语言和统一数据访问方式OLE DB的一个中间层。它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通 用数据访问(Universal Data ACCESS)。OLE DB是一个低层的数据访问接口，用它可以访问各种数据源，包括传统的关系型数据库，以及电子邮件系统及自定义的商业对象。 本系统中所涉及到的主要实体共有八个数据表: 我们使用的数据库系统是Microsoft Access 2003。从上面的功能分析看出本系统需要建立以下几个数据表:管理员表，学生信息表，教师表，课程表，成绩表，班级表，学生选课表，用户反馈表等。 -1所示。 A(管理员表中包括用户名、密码、姓名等字段，具体设置如表3 表3-1 管理员表 B(学生信息表中包括学号、班级、姓名、性别、出生日期、民族、籍贯、等字段，具体设置如表3-2所示。 15 南通职业大学电子工程系作品制作说明 -2 学生信息表 表3 C(课程表包括课程号、课程名称、授课老师等字段，具体设置如表3-3所示。 表3-3课程表 16 南通职业大学电子工程系作品制作说明 D(教师表中包括教工号、姓名、密码、密码、性别、年龄、联系电话等字段，具体设置如表3-4所示。 表3-4 教师表 17 南通职业大学电子工程系作品制作说明 -5 E(班级表中包括班级名称、班级联系人、所属系别等字段，具体设置如表3示。 表3-5 班级表 F(成绩表中包括课程代码、课程名、课程类别、学分、成绩、学期等信息，具体设置如表3-6所示。 18 南通职业大学电子工程系作品制作说明 G(学生选课表中包括课程编号、课程名称、课程类别、学时、教工号、任课老师、上课地点、上课时间、上课周次、星期等，具体设置如表3-7所示。 H(用户反馈表中包括 用户ID、用户名、性别、单位名称、部门、身份、反馈意见、发送日期、发送时间。具体设置如表3-8所示。 19 南通职业大学电子工程系作品制作说明 系统的功能 第4章 本部分主要?学生登录 Dim s As String Dim a As String objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb?" objconn.Open() objcomm.CommandText = "select * from 学生用户表 " 20 南通职业大学电子工程系作品制作说明 If Trim(TextBox1.Text) <> "" Then s = "学号= „" & Trim(TextBox1.Text) & "?" End If If s <> "" Then objcomm.CommandText = objcomm.CommandText & " where " & s End If objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox("该用户不存在", 0 + 48, "提示") TextBox1.Text = "" TextBox2.Text = "" Label6.Text = "系统不存在该用户，请输入正确的用户名" TextBox1.Focus() Else MsgBox("您的用户名为:" & qq(1).ToString(), vbInformation, "通知") a = qq(2).ToString() If (a <> (TextBox2.Text)) Then MsgBox("密码或用户名错误") TextBox2.Text = "" Label7.Text = "请重新输入密码" Else Dim form2 As New Form2 Me.Hide() form2.Show() form2.ToolStripStatusLabel9.Text = "当前操作员:" & qq(1).ToString() End If End If qq.Close() objconn.Close() End If 以上只是学生用户登录代码，教师和管理员的登录代码与这类似不全部列举出 来。 主界面简介: 使用菜单编辑器，按照功能流程图的位置制作“主界面”的下拉菜单。完成后设 置主页面属性，将“Text”命名为“学生信息管理系统”;通过属性，对主界面的背 景进行设置;调整主界面大小，并设置“Window State”属性为“Normal”,并将“Start Position”属性设置为“Center Screen”将页面调整到屏幕的中央。添加代码，完善 《学生信息管理系统》主页面的代码设计。 具体详图如图4.2所示。 21 南通职业大学电子工程系作品制作说明 图4.2-系统主界面 Dim a ,b As String Dim c As Boolean = False Dim m, oldtime As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel8.Text = "系统时间:" & TimeOfDay If Me.Opacity = 100 Then Else Me.Opacity += 0.05 End If Dim aa, bb, cc As String m = Microsoft.VisualBasic.DateAndTime.Timer - oldtime aa = Format(Int(m Mod 60), "00") bb = Format(Int(m / 60), "00:") cc = Format(Int(m / 3600), "00:") Label11.Text = "您在线时间" & cc & bb & aa Select Case aa Case "00" : Me.BackgroundImage = 学生管理信息系 统.My.Resources.d668f6efdaaee574adafd5d4 Case "10" : Me.BackgroundImage = 学生管理信息系 统.My.Resources.d794ad13fe7a0464f919b818 Case "20" : Me.BackgroundImage = 学生管理信息系 统.My.Resources.c7e2de91bf75c7b8a877a4f5 Case "30" : Me.BackgroundImage = 学生管理信息系 统.My.Resources._9de5fffa3ed829576d22eb8b Case "40" : Me.BackgroundImage = 学生管理信息系统 .My.Resources.a87f5279dd793bb20bd187c1 22 南通职业大学电子工程系作品制作说明 Case "50" : Me.BackgroundImage = 学生管理信息系 统.My.Resources._007e01f47b03337edcc47428 End Select End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Opacity = 0 oldtime = Microsoft.VisualBasic.DateAndTime.Timer Timer1.Start() Dim a As Integer Dim w As String a = Microsoft.VisualBasic.Weekday(Now) Select Case a Case 1 : w = "星期日" Case 2 : w = "星期一" Case 3 : w = "星期二" Case 4 : w = "星期三" Case 5 : w = "星期四" Case 6 : w = "星期五" Case 7 : w = "星期六" End Select Label10.Text = "今天是:" & Date.Today & w & " 欢迎你" ToolStripStatusLabel9.Text = "当前操作员:任伟" End Sub 这些是主界面的计时器和日期代码。 4.2系统管理 4.2.1增加删除管理员 23 南通职业大学电子工程系作品制作说明 本功能实现如图4.3所示。 Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb?" objcomm.CommandText = "insert into 管理员表(用户ID,姓名,密码)values(„" & (TextBox1.Text) & "?,?" & TextBox2.Text & "?, „" & (TextBox3.Text) & "? )" objcomm.Connection = objconn objda.InsertCommand = objcomm objconn.Open() objda.InsertCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功添加,是否继续～", vbOK, "添加用户") Dim objdb As New DataSet objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb?" objconn.Open() objcomm.CommandText = "select 用户ID,姓名 from 管理员表 " objcomm.Connection = objconn objda.Fill(objdb) objconn.Close() DataGridView1.DataSource = objdb.Tables(0) 以上是添加代码，删除的只要将insert添加SQL语句改成相应的delete语句即可。 4.2.2增加删除教师 (图省略) 本模块由删除添加管理员模块的操作界面就可以看的出来。 4.2.3密码修改 学生密码修改、管理员密码修改、教师密码修改三部分组成。 以下列举删除教师的代码，学生管理员的代码类似就不逐一展示: Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim s As String Dim qq As System.Data.OleDb.OleDbDataReader objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objconn.Open() objcomm.CommandText = "select * from 教师表 " If (TextBox1.Text) = "" Then MsgBox("请输入教师名称") Else s = "教师姓名=„" & Trim(TextBox1.Text) & "?" objcomm.CommandText = objcomm.CommandText & " where " & s 24 南通职业大学电子工程系作品制作说明 objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox("该教师不存在", 0 + 48, "提示") TextBox1.Text = "" Else MsgBox("您要删除的教师所在系:" & qq(3).ToString(), vbInformation, "通知") qq.Close() objconn.Close() objcomm.CommandText = "delete * from 教师表 where 教师姓名= „" & (TextBox1.Text) & " „" objcomm.Connection = objconn objda.DeleteCommand = objcomm objconn.Open() objda.DeleteCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功删除", vbYes, "删除教师") If MsgBoxResult.Yes Then TextBox1.Text = "" End If End If End If End If 4.3班级管理 4.3.1班级查询模块设计 图4.4-班级查询 25 南通职业大学电子工程系作品制作说明 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim s As String Dim qq As System.Data.OleDb.OleDbDataReader objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objconn.Open() objcomm.CommandText = "select * from 学生用户表 " If (TextBox1.Text) = "" Then MsgBox("请输入班级名称") Else s = "班级= „" & Trim(TextBox1.Text) & "?" If s <> "" Then objcomm.CommandText = objcomm.CommandText & " where " & s End If objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox("该班级不存在", 0 + 48, "提示") Else Label6.Text = qq(4).ToString Label7.Text = Microsoft.VisualBasic.Left(qq(0).ToString, 7) LinkLabel1.Text = qq(5).ToString LinkLabel2.Text = qq(3).ToString End If qq.Close() objconn.Close() End If End Sub 4.3.2注销班级模块设计 注销班级的界面为了节省篇幅没有列出来，但是在查询的基础上将select语句改成delete语句。 4.3.3添加班级模块设计 在查询的基础上将select语句改成insert语句即可。班级添加如图4.5所示。 26 南通职业大学电子工程系作品制作说明 图4.5-班级添加 4.3.4学生调班模块设计 objcomm.CommandText = "update 学生用户表 set 班级=„" & Trim(TextBox5.Text) & "? , 系科= „" & Trim(ComboBox1.Text) & "? , 专业=„" & (TextBox6.Text) & "? where 学号=„" & Trim(TextBox1.Text) & "?" 这是学生调班的代码(主要SQL)界面如图4.6所示。 图4.6-学生调班 27 南通职业大学电子工程系作品制作说明 4.4学生档案管理 4.4.1档案添加模块设计 图4.7-学生档案添加 Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim qq As System.Data.OleDb.OleDbDataReader If (TextBox1.Text) = "" Then MsgBox("请输入学号等必要信息") Else objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb?" Dim q As Integer q = MsgBox("确定要继续吗,", vbYesNo, "添加学籍") If q = 6 Then ,密码,系科, objcomm.CommandText = "insert into 学生用户表 (学号,姓名 班级,专业,性别,身份证号,民族,出生日期,年龄,籍贯,政治面貌,地址,联系电话,邮 编,原毕业院校,注册日期,备注) values(„" & Trim(TextBox1.Text) & "?,?" & Trim(TextBox2.Text) & "?,?" & Trim(TextBox1.Text) & "?,?" & Trim(ComboBox3.Text) & "?,?" & Trim(TextBox4.Text) & "?,?" & Trim(TextBox3.Text) & "?,?" & Trim(ComboBox1.Text) & "?,?" & Trim(TextBox11.Text) & "?,?" & Trim(TextBox12.Text) & "?,?" & Trim(DateTimePicker1.Text) & "?,?" & Trim(ComboBox2.Text) & "?,?" & Trim(TextBox6.Text) & "?,?" & Trim(ComboBox4.Text) & "?,?" & Trim(TextBox9.Text) & "?,?" & Trim(TextBox8.Text) & "?,?" & Trim(TextBox7.Text) & "?,?" & Trim(TextBox5.Text) & "?,?" & Trim(DateTimePicker2.Text) & "?,?" & Trim(TextBox10.Text) & "? )" objcomm.Connection = objconn objda.InsertCommand = objcomm 28 南通职业大学电子工程系作品制作说明 objconn.Open() objda.InsertCommand.ExecuteNonQuery() objconn.Close() End If objconn.Open() objcomm.CommandText = "select count(*)as 总记录 from 学生用户表 " objcomm.Connection = objconn objda.SelectCommand = objcomm qq = objcomm.ExecuteReader If qq.Read = True Then Label21.Text = qq(0).ToString & "条记录" „记录总学生个数 qq.Close() objconn.Close() End If 4.4.2档案浏览模块设计 本模块结合在添加模块中的具有浏览功能。 4.4.3档案查询模块设计 在查询的基础上将insert语句改成select语句。图省略。 = „" objcomm.CommandText = "select * from 学生用户表 where 学号 & Trim(TextBox1.Text) & "?" 4.4.4档案修改模块设计 主要代码如下: objcomm.CommandText = "update 学生用户表 set 学号=„" & Trim(TextBox1.Text) & "?,姓名=„" & Trim(TextBox2.Text) & "?,系科=„" & Trim(ComboBox3.Text) & "?,班级=„" & Trim(TextBox4.Text) & "?,专业=„" & Trim(TextBox3.Text) & "?,性别=„" & Trim(ComboBox1.Text) & "?,身份证号=„" & =„" & Trim(TextBox12.Text) Trim(TextBox11.Text) & "?,民族 & "?,出生日期=„" & Trim(DateTimePicker1.Text) & "?,年龄=„" & Trim(ComboBox2.Text) & "?,籍贯=„" & Trim(TextBox6.Text) & "?,政治面貌=„" & Trim(ComboBox4.Text) & "?,地址=„" & Trim(TextBox9.Text) & "?,联系电话=„" & Trim(TextBox8.Text) & "?,邮编=„" & Trim(TextBox7.Text) & "?,原毕业院校=„" & Trim(TextBox5.Text) & "?,注册日期=„" & Trim(DateTimePicker2.Text) & "?,备注=„" & Trim(TextBox10.Text) & "? where 学号=„" & (TextBox1.Text) & "? " 29 南通职业大学电子工程系作品制作说明 4.5课程及专业管理 4.5.1基本课程设置模块设计 这是我在系统设计的阶段最费事的一个设计阶段，从代码中就可以看出这个代码的分析花了我大部分分时间。包含先查询、判断、插入。如图4.8所示。 图4.8-课程设置 Me.Text = "课程设置中,请稍后..." Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim objdb As New DataSet Dim qq As System.Data.OleDb.OleDbDataReader objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb?" objconn.Open() objcomm.CommandText = "select * from 学生用户表 " Dim s As String If Trim(TextBox3.Text) = "" Then MsgBox("请输入班级名称") Else If Trim(TextBox3.Text) <> "" Then s = "班级= „" & Trim(TextBox3.Text) & "?" 30 南通职业大学电子工程系作品制作说明 End If If s <> "" Then objcomm.CommandText = objcomm.CommandText & " where " & s End If objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox("班级不存在", 0 + 48, "提示") Else qq.Close() objconn.Close() Dim xh As Integer Dim x As String Dim a As String a = TextBox14.Text xh = 1 While xh < 100 x = Format(Int(xh), "00") xh += 1 TextBox14.Text = a & x objconn.Open() objcomm.CommandText = "select * from 学生用户表 where 学号=„" & (TextBox14.Text) & "? " objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then „ MsgBox("该用户不存在", 0 + 48, "提示") Else „ MsgBox("您的用户名为:" & qq(1).ToString(), vbInformation, "通知") TextBox16.Text = qq(1).ToString() qq.Close() objconn.Close() objcomm.CommandText = "insert into 课程表 (教工号,任课老师,课程代 码,课程名,课程类别,学分,学时,周次,星期,上课地点,上课时间,学号,学生姓名,系 科,班级) values(„" & Trim(TextBox1.Text) & "?,?" & Trim(TextBox2.Text) & "?,?" & Trim(TextBox5.Text) & "?,?" & Trim(TextBox6.Text) & "?,?" & Trim(TextBox7.Text) & "?,?" & Trim(TextBox8.Text) & "?,?" & Trim(TextBox9.Text) & "?,?" & Trim(TextBox10.Text) & "?,?" & Trim(TextBox11.Text) & "?,?" & Trim(TextBox12.Text) & "?,?" & Trim(TextBox13.Text) & "?,?" & Trim(TextBox14.Text) & "?,?" & Trim(TextBox16.Text) & "?,?" & Trim(TextBox4.Text) & "?,?" & Trim(TextBox3.Text) & "?)" objcomm.Connection = objconn objda.InsertCommand = objcomm objconn.Open() objda.InsertCommand.ExecuteNonQuery() objconn.Close() End If qq.Close() 31 南通职业大学电子工程系作品制作说明 objconn.Close() Button1.Enabled = False End While 4.5.2学生选课模块设计 学生选课系统代码和添加学生代码相似在这里就不一一展示了，在选修课表中 查询再插入到课程表中的过程。 4.5.3课程查询 1选课查询、2专业查询、3课程查询三部分。 (查询代码就不一一列举) 选课查询的界面图如图4.9所示。 图4.9-选课查询 32 南通职业大学电子工程系作品制作说明 4.5.4修改课程 图4.10-课程修改 Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim objdb As New DataSet Dim s As String Dim qq As System.Data.OleDb.OleDbDataReader objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objconn.Open() objcomm.CommandText = "select * from 课程表 " If Trim(TextBox3.Text) = "" Then MsgBox("请先输入班级名称") Else If Trim(TextBox5.Text) = "" Then Label18.Text = "请输入教工号" Else s = "课程代码=„" & Trim(TextBox5.Text) & "? And 班 级=„" & Trim(TextBox3.Text) & "?" If s <> "" Then objcomm.CommandText = objcomm.CommandText & " where " & s End If objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then Label18.Text = "该班级课程表中无代码为‘" & (TextBox5.Text) & "’的课程 " 33 南通职业大学电子工程系作品制作说明 Else If Trim(TextBox1.Text) = "" Then Dim q As Integer q = MsgBox("您还有教师信息没输入", vbYesNo, "提示") If q = 6 Then qq.Close() objconn.Close() MsgBox("") objcomm.CommandText = "update 课程表 set 教工号=„" & Trim(TextBox1.Text) & "? , 任课老师=„" & =„" & Trim(TextBox3.Text) Trim(TextBox2.Text) & "? , 班级 & "? , 系科=„" & Trim(TextBox4.Text) & "? , 课程代码=„" & Trim(TextBox5.Text) & "? , 课程名=„" & Trim(TextBox6.Text) & "? , 课程类别=„" & Trim(TextBox7.Text) & "? , 学分=„" & Trim(TextBox8.Text) & "? , 学时=„" & Trim(TextBox9.Text) & "? , 周次=„" & Trim(TextBox10.Text) & "? , 星期=„" & Trim(TextBox11.Text) & "? , 上课地点=„" & Trim(TextBox12.Text) & "? , 上课时间=„" & Trim(TextBox13.Text) & "? where 课程代码=„" & Trim(TextBox5.Text) & "? And 班级=„" & Trim(TextBox3.Text) & "?" objcomm.Connection = objconn objda.UpdateCommand = objcomm objconn.Open() objda.UpdateCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功修改", vbYes, "修改") objcomm.CommandText = " select * from 课程表 where 课程代码=„" & Trim(TextBox5.Text) & "? And 班级=„" & Trim(TextBox3.Text) & "?" objda.SelectCommand = objcomm objda.Fill(objdb) DataGridView1.DataSource = objdb.Tables(0) objconn.Close() End If Else qq.Close() objconn.Close() objcomm.CommandText = "update 课程表 set 教工号=„" & Trim(TextBox1.Text) & "? , 任课老师=„" & Trim(TextBox2.Text) & "? , 班级=„" & Trim(TextBox3.Text) & "? , 系科=„" & Trim(TextBox4.Text) & "? , 课程代码=„" & Trim(TextBox5.Text) & "? , 课程名=„" & Trim(TextBox6.Text) & "? , 课程类别=„" & Trim(TextBox7.Text) & "? , 学分=„" & Trim(TextBox8.Text) & "? , 学时=„" & Trim(TextBox9.Text) & "? , 周次=„" & Trim(TextBox10.Text) & "? , 星期=„" & Trim(TextBox11.Text) & "? , 上课地点=„" & Trim(TextBox12.Text) & "? , 上课时间=„" & Trim(TextBox13.Text) & "? where 课程代码=„" & Trim(TextBox5.Text) & "? And 班级=„" & Trim(TextBox3.Text) & "?" objcomm.Connection = objconn objda.UpdateCommand = objcomm objconn.Open() objda.UpdateCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功修改", vbYes, "修改") objcomm.CommandText = " select * from 课程表 where 课程代码 =„" & 34 南通职业大学电子工程系作品制作说明 Trim(TextBox5.Text) & "? And 班级=„" & Trim(TextBox3.Text) & "?" objda.SelectCommand = objcomm objda.Fill(objdb) DataGridView1.DataSource = objdb.Tables(0) objconn.Close() End If End If qq.Close() objconn.Close() End If End If 课程修改代码如上。 4.5.5选修课退选 也就是按照学号和课程代号从课表中删除delete语句的运用。在这里不一一列 举。 4.6成绩管理 4.6.1输入成绩 图4.11-成绩输入 objcomm.CommandText = "insert into 成绩表 (课程代码,课程名,课程类 别,学分,成绩,学期,姓名,学号,系科,班级,教工号,任课老师,考试性质) values(„" & Trim(TextBox3.Text) & "?,?" & Trim(TextBox4.Text) & "?,?" & Trim(TextBox5.Text) & "?,?" & Trim(TextBox10.Text) & "?,?" & Trim(TextBox11.Text) & "?,?" & Trim(TextBox12.Text) & "?,?" & Trim(TextBox7.Text) & "?,?" & Trim(TextBox6.Text) & "?,?" & Trim(TextBox8.Text) & "?,?" & Trim(TextBox9.Text) & "?,?" & Trim(TextBox1.Text) & "?,?" & 35 南通职业大学电子工程系作品制作说明 Trim(TextBox2.Text) & "?,?" & Trim(TextBox13.Text) & "?)" objcomm.Connection = objconn objda.InsertCommand = objcomm objconn.Open() objda.InsertCommand.ExecuteNonQuery() objconn.Close() 以上成绩录入的主要代码。 4.6.2修改成绩 成绩修改功能界面如下图4.12所示。 图4.12-成绩修改 objcomm.CommandText = "update 成绩表 set 课程代码=„" & Trim(TextBox3.Text) & "?,课程名= „" & Trim(TextBox4.Text) & "?,课程类别=„" & Trim(TextBox5.Text) & "?,学分=„" & Trim(TextBox10.Text) & "?,成绩=„" & Trim(TextBox11.Text) & "?,学期=„" & Trim(TextBox12.Text) & "?,姓名=„" & Trim(TextBox7.Text) & "?,学号=„" & Trim(TextBox6.Text) & "?,系科=„" & Trim(TextBox8.Text) & "?,班级=„" & Trim(TextBox9.Text) & "?,教工号=„" & Trim(TextBox1.Text) & "?,任课老师=„" & Trim(TextBox2.Text) & "?,考试性质= „" & Trim(TextBox13.Text) & "? where 课程代码=„" & Trim(TextBox3.Text) & "? And 学号=„" & Trim(TextBox6.Text) & "? " objcomm.Connection = objconn objda.UpdateCommand = objcomm objconn.Open() objda.UpdateCommand.ExecuteNonQuery() 36 南通职业大学电子工程系作品制作说明 objconn.Close() 以上成绩修改的主要代码 4.6.3查询成绩 查询代码就更加的简单了，将插入代码改成select语句即可。 4.7学生考勤管理 4.7.1奖惩查询 对已有学生奖惩情况进行查询。按照学号查询。Select语句运用。 图4.13-奖惩管理 objcomm.CommandText = "select 学号,姓名,班级,系科,专业,民族,籍贯,年龄,性别,备注 from 学生用户表 " 主要SQL语句如上。 4.7.2学生奖惩录入 学生奖惩管理界面如下图4.14所示。 37 南通职业大学电子工程系作品制作说明 图4.14-学生奖惩录入 If TextBox1.Text = "" Then MsgBox("请输入学号") Else Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim objdb As New DataSet objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objcomm.CommandText = "update 学生用户表 set 备注=„" & Trim(TextBox6.Text) & "? where 学号=„" & (TextBox1.Text) & "?" objcomm.Connection = objconn objda.UpdateCommand = objcomm objconn.Open() objda.UpdateCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功修改", vbYes, "修改") objcomm.CommandText = "select 学号,姓名,班级,系科,备注 from 学生用户表 where 学号=„" & Trim(TextBox1.Text) & "? " objda.SelectCommand = objcomm objda.Fill(objdb) DataGridView1.DataSource = objdb.Tables(0) objconn.Close() 38 南通职业大学电子工程系作品制作说明 End If 4.8帮助管理 4.8.1关于 图4.15-关于系统 4.8.2系统信息 系统信息(图省略) 本模块中包含了关于作者，系统有关信息等信息，便于用户浏览。 4.8.3帮助 用户的帮助信息用于使用该系统。 4.8.4意见反馈 输入教师的教工号和口令密码、学生的学号和密码就可以对本系统的欠缺之处提出意见，也可以作为学校的教学意见反馈。 界面如下图4.16所示。 39 南通职业大学电子工程系作品制作说明 图4.16-意见反馈 Dim objconn As New OleDb.OleDbConnection „ 列举的是学生的发送意见，教师意见反馈同学生。 Dim objda As New OleDb.OleDbDataAdapter Dim objcomm As New OleDb.OleDbCommand Dim objdb As New DataSet Dim s As String Dim qq As System.Data.OleDb.OleDbDataReader objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objconn.Open() " objcomm.CommandText = "select * from 学生用户表 If Trim(TextBox5.Text) = "" Then MsgBox("请输入学号") Else If Trim(TextBox5.Text) <> "" Then s = "学号=„" & Trim(TextBox5.Text) & "?" End If If s <> "" Then objcomm.CommandText = objcomm.CommandText & " where " & s 40 南通职业大学电子工程系作品制作说明 End If objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox("该学生不存在", 0 + 48, "提示") TextBox1.Text = "" Else If TextBox7.Text = qq(2).ToString Then Dim q As Integer q = MsgBox("确定发送吗,", vbYesNo, "通知") If q = 6 Then qq.Close() objconn.Close() objconn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=„..\..\db1.mdb? " objcomm.CommandText = "insert into 用户反馈表 (用户ID,用户名,单位 名称,部门,身份,性别,反馈意见,发送日期,发送时间) values(„" & Trim(TextBox5.Text) & "?,?" & Trim(TextBox1.Text) & "?,?" & Trim(TextBox2.Text) & "?,?" & Trim(TextBox3.Text) & "?,?" & Trim(TextBox4.Text) & "?,?" & Trim(TextBox8.Text) & "?,?" & Trim(TextBox6.Text) & "?,?" & (Date.Today) & "?,?" & (TimeOfDay) & "? )" objcomm.Connection = objconn objda.InsertCommand = objcomm objconn.Open() objda.InsertCommand.ExecuteNonQuery() objconn.Close() MsgBox("成功发送", vbYes, "通知") objcomm.CommandText = " select * from 用户反馈表 where 用户ID=„" & Trim(TextBox5.Text) & "? " objda.SelectCommand = objcomm objda.Fill(objdb) DataGridView1.DataSource = objdb.Tables(0) objconn.Close() End If End If qq.Close() objconn.Close() End If 4.8.5手机归属地查询 本模块是一个附件功能，在这里就不详细讲解了。实现的是模糊查询。 41 南通职业大学电子工程系作品制作说明 4.9MDI 4.9.1MDI窗体模式 对于不同用户的习惯对窗体进行切换，以适应广大用户。 4.9.2关闭MDI模式 返回到初始窗体模式。 42 南通职业大学电子工程系作品制作说明 第5章 总结内容 在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。因为对学生管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在学生管理系统中的应用不是很多，但是未来的发展方向，在本次开发过程由于硬件的限制，未能实现网络功能 。 尽管本管理系统存在着很多不足，但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本学生管理系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统，我掌握了基本的项目过程，了解了的基本知识巩固了我对VisualBasic.Net的学习，但在这次毕业设计中的最大收获并不是掌握这几门开发工具的应用，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。 确定了本系统的实用价值后，选用了目前最常用也最简便的Access数据库作为后台，鉴于ADO在很多程序里的广泛应用，使用ADO来连接数据库将是最为适用的，并且在定义了ADO的连接模块后，对于将来的升级也会很方便，只要修改一下连接源，就可以轻松的更换后台，Access适用于单机版，当想转换为网络版的SQL数据库时，就很容易做到。 为了减少系统的数据资源，选用了目前最方便的将数据交给后台处理的方法，即使用SQL的语句将数据库交给ACCESS后台，由后台来处理，这样系统的执行会加快，也使用程序本身变得简单。 43 南通职业大学电子工程系作品制作说明 参考文献 本系统的过程中，主要的参考文献有: 1(林陈雷 《Visual Basic6.0》 人民邮电出版社 2005 2(龚沛曾 《面向对象程序设计系列教材》 高等教育出版社 2005 《Visual Basic.NET程序设计教程》 机械工程出版社 3(郑阿奇 彭作民 2005 4(徐红 《 Visual Basic可视化程序设计 》 人民邮电出版社 2006 5(沈大林 6(李兰友 《Visual Basic.NET实例教程》 《Visual Basic.NET 应用教程(.Net2.0)》电子工程出版社 2006 清华大学出版社 2006 44 南通职业大学电子工程系作品制作说明 致 谢 在论文即将完成之际，回顾紧张但又充实的学习班和开发过程，本人在此向所有关心我的及帮助我的老师和同学们致以最真诚的感谢。 通过本次课题的设计，让我熟练的掌握了制作程序的一些流程及规划，在本次毕业设计中，我从指导老师--------黄老师，身上学到了很多东西。她认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。在撰写论文阶段，黄老师几次审阅我们的论文，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。 另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里表示感谢。 45