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

作品制作说明课题学生信息管理信息系统系 科电子工程系专业（方向）计算机应用技术（信息管理）班 级微机085（信息）学 号080203527姓 名任伟完成日期2010-12-14指导教师黄晓亚学生信息管理系统作品简介本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、系统等多种功能，因而具有较强的实用性和先进性。在系统和数据的安全性方面，系统采用数据库级用户权限和应用程序及运行权限的双重控制机构，提供了统一的基于角色的用户管理手段，通过数据库系统的数据安全机制，具有完善的系统和数据安全的保障体系。在功能方面，系统面向学校用户的需求，为学生信息管理提供全面、及时、准确的信息和可靠的依据。1功能划分本系统由“系统管理”，“学生基本信息管理 ”， “学生课程管理”，“学生成绩管理”，“班级管理”，“学生考勤管理”，“帮助管理”等子系统组成。2描述在操作性方面，采用图形用户界面技术，使系统能够以多得图形窗口和丰富便利的操作界面，通过鼠标或键盘的操作，为用户提供最简洁的使用方法。1.学生管理功能：为了方便学生信息的增加、删除、修改、查询。 2.课程管理功能：管理员可以通过填写表格的形式修改、设置课程等相关信息3.成绩管理功能：管理员可以对数据库中的学生成绩信息进行增加、修改，教师可以通过登录系统对学生的成绩进行输入、修改。学生可以通过登录查询自己的考试成绩。4.班级管理功能：管理员可以通过此功能对班级信息进行增加、删除、修改、查询。支持学生调班的功能。5.系统管理功能：可以增加、删除、修改、查看该程序的登陆用户，密码的修改和用户的删除。6.考勤管理功能：管理员可以对各班级的学生在校期间的表现进行记录增加、查询。7.帮助管理功能：添加了用户的反馈意见、关于系统、系统帮助、有关系统信息。附加：MDI窗体模式。引言学校作为教育机构势必与新技术、新知识紧密联系，势必在各方面实现信息化。同时随着学生，教师数量的增多对学生教师的管理和了解，即时的处理各种状况越来越必要。本系统就是为这方面的迫切需求而实现的。本阶段已在系统的需求分析的基础上，对学生管理系统做概要设计。主要解决实现该系统需求的程序模块设计问题。包括如何把该系统划分成若干个模块、决定各个模块之间的接口、模块之间传递的信息，以及数据结构、模块结构的设计等。在以下的概要设计报告中将对在本阶段中对系统所做的所有概要设计进行详细的说明。在下一阶段的详细设计中，程序设计员可参考此概要设计报告，在概要设计对人事管理系统所做的模块结构设计的基础上，对系统进行详细设计。在以后的软件测试以及软件维护阶段也可参考此说明书，以便于了解在概要设计过程中所完成的各模块设计结构，或在改时找出在本阶段设计的不足或错误。本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。学生信息管理系统不简单的是一个软件，它覆盖了学生信息管理的职能，是学生信息管理事务中关键环节。是一个将学生信息管理思想以及当今最新计算机技术完美统一起来，实现科学化、自动化管理的集成应用系统。目录学生信息管理系统2作品简介2引言3第1章 系统概述61.1 项目背景61.2 项目目标61.3 需求分析61.3.1系统需求61.3.2功能需求71.4可行性分析71.5系统设计的背景81.6系统的功能简介91.6.1项目规划91.6.2系统管理模块 (ALT+S)101.6.3班级管理模块（ALT+C）101.6.4学籍管理模块（ALT+A）101.6.5课程专业管理模块（ALT+F）101.6.6成绩管理模块（ALT+M）101.6.7学生考核管理模块（ALT+K）101.6.8帮助管理模块（ALT+H）101.6.9 MDI窗体切换101.6.10窗口101.7 系统开发的目标11第2章 系统分析122.1系统流程122.2数据存储分析12第3章 系统设计143.1系统模块结构设计143.1.1系统方案确定143.1.2系统结构设计143.2数据库设计153.2.1 Acess数据库简介153.2.2 建立连接数据库15第4章 系统的功能204.1系统登陆界面和主界面204.2系统管理234.2.1增加删除管理员234.2.2增加删除教师244.2.3密码修改244.3班级管理254.3.1班级查询模块设计254.3.2注销班级模块设计264.3.3添加班级模块设计264.3.4学生调班模块设计274.4学生档案管理284.4.1档案添加模块设计284.4.2档案浏览模块设计294.4.3档案查询模块设计294.4.4档案修改模块设计294.5课程及专业管理304.5.1基本课程设置模块设计304.5.2学生选课模块设计324.5.3课程查询324.5.4修改课程334.5.5选修课退选354.6成绩管理354.6.1输入成绩354.6.2修改成绩364.6.3查询成绩374.7学生考勤管理374.7.1奖惩查询374.7.2学生奖惩录入374.8帮助管理394.8.1关于394.8.2系统信息394.8.3帮助394.8.4意见反馈394.8.5手机归属地查询414.9MDI424.9.1MDI窗体模式424.9.2关闭MDI模式42第5章 总结内容43参考文献44致 谢45第1章 系统概述1.1 项目背景随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。目前，在学校里，随着高校规模的不断扩大和招生人数的不断增加，需要处理大量的学生数据信息。如何更好的组织学生信息，更加快捷的管理学生信息显得尤为的重要。作为计算机应用的一部分,使用计算机对学生信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是学校的科学化、正规化管理,与世界接轨的重要条件。我们为此开发了一套学生信息管理系统，本系统面向学校的教务人员，目的是为学校办公管理提供一个快速、简单规范的管理平台，使学院在学生信息管理方面更加规范化,快捷化。1.2 项目目标本章以学校的学生信息管理为依托，结合教务教学管理，设计并开发一个学生信息管理系统，提供一个信息更新快捷、管理方便、功能设置合理的学生信息管理解决方案。针对学校大量的学生信息，就学生管理的几个方面，提供一个互动式的学生管理平台。系统目标如下：通过学生信息管理系统的实现，使学校的学生信息管理更加科学化。提供灵活、方便的操作。节约学生信息管理的成本，提高学校管理的效率。对系统提供必要的权限管理。为学校考核学生的综合素质提供必要的数据支持。1.3 需求分析1.3.1 系统需求在各大中专院校，学校的教务管理的主要内容包括学生的信息管理和教师排课，学生信息管理传统的手工管理主要包括学生档案管理，学生成绩管理。其中学生信息管理对大数据量要求较高，而教师排课系统由于需要十分专业的算法并且系统需求不断的变化，因此在实际应用时，往往会遇到很大的问题，需要进一步研究，目前一般的学校管理系统都包含了学生信息管理的功能。本系统不包含教师排课管理和教师管理的详细业务，只提供学生相关信息的查询。1.3.2功能需求 根据上述的信息管理系统的业务流程、要求以及所要实现的目标，我们可以拟出以下需求目标：（1）建立学生档案的管理和维护。实现计算机自动化管理体制。（2）建立学生成绩管理机制，在计算机的支持下快速的完成学生成绩的查询和修改。（3）建立课程设置管理，在计算机的支持下实现课程的添加、删除、修改。（4）建立班级设置管理，在计算机的支持下实现班级的添加、删除和修改。（5）实现系统的权限设置管理，保证系统安全性。根据系统的需求分析，得到本系统的功能要求如下：（1）班级、课程的设置管理：学校的教务秘书可以根据本校具体情况在每学期开始时设置所需班级数量和人数。并设置本学期的课程。（2）权限管理：为了很好的保证系统的安全性，学校相关负责人可以设置不同类型的人员的权限。（3）学生档案管理：学生档案的数量十分庞大，教务管理人员进行新生入学的档案录入及更改。其中包括学生个人信息的修改。（4）学生成绩管理：教务管理人员可以查询和修改学生的历年考试成绩，掌握学生学习情况，作为评定学生素质的数据依据。1.4可行性分析在高校，计算机也应用得非常普遍，各系基本都配备了计算机。在这种实用的学生信息管理系统使这种局面大为改观。学生成绩管理系统主要提供方便高效的管理功能以及网上的信息查阅平台，学生可以通过该系统查阅相关信息，管理员可以管理所有信息。（1） 对象运用可行性由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。（2）社会与经济可行性 利用学生信息管理系统实现了无纸化办公，提高效率的同时还保护了环境。本来大量的计算、数据统计工作需要几天、甚至一个月完成的工作，可以在几个小时，最多几天内完成，大量节省了人力资本。学生信息管理系统同时也给老师和学生带来了极大的方便。老师可以将课程安排，第一时间录入到系统。学生也可以第一时间登录到该系统，查询自己本学期课程安排和考试方式，大大提高了时间成本。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提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。(6) 支持动态交换、动态链接技术: 通过动态数据交换(DDE)的编程技术，VB开发的应用程序能与其他Windows应用程序之间建立数据通信。1.6系统的功能简介本系统主要可以实现以下的管理功能：班级管理、学生档案管理、课程管理、成绩管理、学生考核管理、帮助等等。1.6.1 项目规划学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、课程管理、成绩管理等模块组成,特规划如下图1.1所示。主界面系统管理用户管理返回登陆增删管理员增删教师学生密码修改管理员密码修改教师密码修改选课查询专业查询课程查询关于系统信息系统帮助意见反馈帮助成绩管理密码修改学生考勤管理学籍管理课程专业管理班级管理添加学生档案修改档案注销档案查询添加班级查询班级注销班级学生调班学生选课课程设置课程查询修改课程选课退选输入成绩查询成绩修改成绩奖惩查询奖惩录入 图1.1 系统总体框图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窗口在MDI窗体模式下对父窗体中的子窗体排列（垂直、水平、层叠）三种、在多个窗体的轻快下选择用户要的窗体。1.7 系统开发的目标出于本系统是学校学生管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第2章 系统分析2.1系统流程在用户启动应用程序时，首先进入登陆界面进行用户的身份验证。如果用户通过身份验证，系统将根据用户的不同级别分别引导用户进入不同的界面，超级管理员和老师可进入各自的管理界面进行操作和查询，而学生用户则只能通过输入姓名、学号来查询自己的信息。如图2.1所示。开始登陆界面选择用户类型，输入用户登录信息身份验证用户密码正确管理员登陆主界面教师登录主界面学生登录主界面否图2.1-系统流程图2.2数据存储分析1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的；“学生甲70分”或“英语70分”是不完全的，说“学生甲英语70分”才是正确的，因为70分是学生甲和英语课二者共有的。这个E-R图可画成下图。学生、课程、成绩、学习，如图2.2所示。n学生成绩课程m图2.2-学生成绩管理系统中学生与课程的E-R图教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其E-R图，如下图2.3所示。1教师教学课程n图2.3教师、课程、教学的E-R图教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为最后的e-r图。如图2.4所示。n选修任 课领导课程 程学生教 师nnm图2.4-教师与课程最组合后的E-R图 n 1 第3章 系统设计3.1系统模块结构设计3.1.1系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生成绩管理、课程管理、成绩管理、系统管理、考核管理等功能。3.1.2系统结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。学生信息管理系统不简单的是一个软件，它覆盖了学生信息管理的职能，是学生信息管理事务中关键环节。是一个将学生信息管理思想以及当今最新计算机技术完美统一起来，实现科学化、自动化管理的集成应用系统。在功能方面，系统面向学校用户的需求，为学生信息管理提供全面、及时、准确的信息和可靠的依据。在通用性设计方面，以标准化为基础，通过信息流程和管理过程的合理模型化、管理对象的模型化，使得系统具有一定的通用性和规范性。在系统开放性方面，按照软件工程开发规范实现系统的开放性，既便于扩充又便于升级，以适应今后学生信息管理发展及体系改革的需求。在系统和数据的安全性方面，系统采用数据库级用户权限和应用程序级运行权限的双重控制机构，提供了统一的基于角色的用户管理手段，通过数据库系统的数据安全机制，具有完善的系统和数据安全的保障体系。在操作性方面，采用图形用户界面技术，使系统能够以多得图形窗口和丰富便利的操作界面，通过鼠标或键盘的操作，为用户提供最简洁的使用方法。1.学生管理功能：为了方便学生信息的增加、删除、修改、查询。 2.课程管理功能：管理员可以通过填写表格的形式修改课程等相关信息3.成绩管理功能：管理员可以对数据库中的学生成绩信息进行增加、修改，教师可以通过登录系统对学生的成绩进行输入、修改。学生可以通过登录查询自己的考试成绩。4.班级管理功能：管理员可以通过此功能对班级信息进行增加、删除、修改、查询。支持学生调班的功能。5.系统管理功能：可以增加、删除、修改、查看该程序的登陆用户，密码的修改和用户的删除。6.考勤管理功能：管理员可以对各班级的学生在校期间的表现进行记录增加、查询。7帮助管理功能：添加了用户的反馈意见、关于系统、系统帮助、有关系统信息。32数据库设计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。从上面的功能分析看出本系统需要建立以下几个数据表：管理员表，学生信息表，教师表，课程表，成绩表，班级表，学生选课表，用户反馈表等。A管理员表中包括用户名、密码、姓名等字段，具体设置如表3-1所示。表3-1 管理员表字段名称数据类型字段大小必填字段用户ID文本50是密码文本50是姓名文本50否B学生信息表中包括学号、班级、姓名、性别、出生日期、民族、籍贯、等字段，具体设置如表3-2所示。表3-2 学生信息表字段名称数据类型字段大小必填字段学号文本50是姓名文本50是密码文本50是性别文本50是系科文本50是专业文本50是班级文本50是系科文本50是出生日期文本50否年龄文本50是民族文本50否籍贯文本50否地址文本50否政治面貌文本50否身份证号文本50否联系电话文本50否邮编文本50否原毕业院校文本50否注册日期文本50否备注文本200否C课程表包括课程号、课程名称、授课老师等字段，具体设置如表3-3所示。表3-3课程表字段名称数据类型字段大小必填字段课程号文本50是课程名称文本50是课程类别文本50是学号文本50是学生姓名文本50是学分文本50是学时文本50是周次文本50是星期文本50是上课时间文本50是上课地点文本50是班级文本50是系科文本50是教工号文本50是授课老师文本50是D教师表中包括教工号、姓名、密码、密码、性别、年龄、联系电话等字段，具体设置如表3-4所示。表3-4 教师表字段名称数据类型字段大小必填字段教工号文本50是教师姓名文本50否密码文本50是姓名文本50否年龄文本50否身份证号文本50否政治面貌文本50否民族文本50否籍贯文本50否所学专业文本50否联系电话文本50否邮编文本50否家庭住址文本50否注册日期文本50否备注文本200否E班级表中包括班级名称、班级联系人、所属系别等字段，具体设置如表3-5示。表3-5 班级表字段名称数据类型字段大小必填字段班级名称文本50是所属系别文本50否班主任文本50是班长文本50否学习委员文本50否联系人文本50是联系方式文本50是F成绩表中包括课程代码、课程名、课程类别、学分、成绩、学期等信息，具体设置如表3-6所示。表3-6 成绩表字段名称数据类型字段大小必填字段课程代码文本50是课程名文本50否课程类别文本50是学分文本50否成绩文本50否学期文本50是姓名文本50是学号文本50是系科文本50否班级文本50是教工号文本50是任课老师文本50否考试性质文本50是G学生选课表中包括课程编号、课程名称、课程类别、学时、教工号、任课老师、上课地点、上课时间、上课周次、星期等，具体设置如表3-7所示。表3-7 学生选课表字段名称数据类型字段大小必填字段课程编号文本50是课程名称文本50否课程类别文本50是学分文本50否学时文本50否教工号文本50是任课老师文本50是上课地点文本50否上课时间文本50是周次文本50是星期文本50是H用户反馈表中包括 用户ID、用户名、性别、单位名称、部门、身份、反馈意见、发送日期、发送时间。具体设置如表3-8所示。表3-8 用户反馈表字段名称数据类型字段大小必填字段用户ID文本50是用户名文本50是性别文本50否单位名称文本50否部门文本50否身份文本50否反馈意见文本200是发送日期文本50是发送时间文本50是第4章 系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。41系统登陆界面和主界面本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在对应的用户表中，本系统根据不同的用户而设置了不同的权限，可以用001;001为管理员用户名和密码来登陆本系统。具体设置是：选择“项目”里的“添加Window窗体”，且填写代码，完成与数据库的链接。对窗体的属性进行设置，登录界面添加 “学生信息管理系统”字样加上英文字体。用户类型为管理员、教师、学生。登陆界面如下图4.1所示。 图4.1-系统登录界面If (ComboBox1.Text = 一般用户/学生) Then 学生登录Dim s As StringDim a As String objconn.ConnectionString = Provider=Microsoft.jet.OLEDB.4.0;Data Source=.db1.mdb objconn.Open() objcomm.CommandText = select * from 学生用户表 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所示。 图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 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增加删除管理员 图4.3-增删管理员本功能实现如图4.3所示。Dim objconn As New OleDb.OleDbConnection Dim objda As New OleDb.OleDbDataAdapterDim objcomm As New OleDb.OleDbCommandobjconn.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 objcomm.Connection = objconn qq = objcomm.ExecuteReader If qq.Read = False Then MsgBox(该教师不存在, 0 + 48, 提示) TextBox1.Text = ElseMsgBox(您要删除的教师所在系： & 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 If4.3班级管理4.3.1班级查询模块设计图4.4-班级查询 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.