学生信息管理系统设计和实现课程设计.doc

数据库课程设计报告学生信息管理系统的设计与实现姓 名： 李会林 杨 银 艳学 号：2006081833 2006081866 指导老师： 余晓萍老师二八年五月第一章 绪论1§1.1 引言1§1.2 内容摘要2§1.3 目的和意义3第二章 开发运行环境4§2.1 系统开发环境与开发工具4§2.2 开发工具介绍4§2.3 硬件环境8第三章 需求分析8§3.1编写目的8§3.2任务概述9§3.3运行环境规定9§3.4安全性与完整性要求10§3.5对课题提出的任务要求及实现目标的可行性分析10第四章 系统设计11§4.1 系统总体设计11§4.2 功能模块设计12第五章 概念结构设计13§5.1 E-R图13第六章 逻辑结构设计16§6.1 E-R图到关系模型及其优化16§6.2 配置与SQL Server2000的ODBC连接17§6.3系统实现19结束语：29参考文献31第一章 绪论§1.1 引言随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。 本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、规范化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改 、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。本次课程设计是以学生信息管理系统为模拟模型，运用VB编程语言结合SQL数据库所开发系统。对学生的信息进行管理,并且确保信息的正确性和无误性。 学生信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。 经过分析，我们使用VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成满意的可行系统。 §1.2 内容摘要随着计算机产业的迅速发展，电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。通过学习关系代数，关系演算，函数依赖，关系模式分解，关系模式的规范化让我们建立了扎实的关系数据库理论基础。而在掌握基本理论的基础上掌握关系数据库的设计方法，掌握现代信息系统的开发方法也显得尤为必要。目前在关系数据库中用得最多的SQL数据库，开发数据库的语言工具多数用VB。所以对于计算机专业的学生来说掌握数据库应用的基本技术，熟悉编程语言与SQL数据库的结合运用是我们计算机专业学生之必备本领。此次课程设计针对设计要求主要要做以下工作，在设计系统时，应尽可能的贴近学生，便于用户操作。在信息的管理上更加方便，并且确保信息的无误性。设计开发了适用于新环境下的学生信息管理系统。通过使用此系统，可以使管理者能够快捷的对学校的学生的成绩、班级、学号及有关具体的信息进行合理有效的管理。提高工作效率，节省人力、物力、财力，提高了数据的可靠性、条理性。从繁杂的数据统计，数据计算工作中脱离出来。结合此次课程设计的过程将几个值得关注的问题列举如下：一、SQL中所要注意的问题： 错误！未找到引用源。 数据库的建立，根据所需信息合理设立表。 错误！未找到引用源。确立外码约束，建关系图。 错误！未找到引用源。根据与用户所交互的信息，创造方便的视图以便于查询显示。 错误！未找到引用源。保证一些操作的原子性，即要创建事务。二、VB中所注意的问题VB中所遇到的问题主要怎样运用VB开发工具设计出交互性好的界面，合理组织各单元文件之间的调用问题，及在VB中调用SQL语句问题等等。 §1.3 目的和意义学生信息管理系统是高校管理中的一个重要组成部分，固定资产具有价值高，使用周期长、使用地点分散、管理难度大等特点。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对固定资产进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高固定资产管理的效率,也是科学化、正规化管理的重要条件。固定资产管理系统通过采集固定资产日常工作中所产生的各种原始数据，根据资产管理的要求，对数据进行分类、统计、汇总、分析，建立程序化、制度化、规范化的固定资产计算机软件管理系统，包括了固定资产的一般特性、固定资产状态数据和固定资产能力数据，及时准确地报出各种报表，为固定资产管理提供了一个现代化的管理手段，这一手段可以强化和规范对固定资产的管理。便于计划、财务、审计等管理部门的介入，形成严格的监督、约束机制。 第二章 开发运行环境 §2.1 系统开发环境与开发工具2.1.1开发环境数据库服务器： 操作系统：Windows xp 及以上版本学生信息管理系统： 操作系统：Windows xp 及以上版本 应用程序：Visual Basic+SQL server §2.2 开发工具介绍2.2.1 Visual Basic 语言的特点 Visual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱动编程。（1） 可视化设计：表现在VB在设计应用于程序界面时有“所见即所得”的处理功能。（2） 事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户基本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘作所引发的事件做出响应，来执行一段应用程序。Visual Basic 系统几个在程序应用中的常用名词Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名其基本含义如下：(1) 视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。(2) 对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。(3) 属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。(4) 事件 (Events)事件是指用户或作者对计算机进行的某一作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPre （按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。(5) 方法 (Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。(6) 过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(7) 模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。 2.2.2 Visual Basic的背景 1991年，美国微软公司推出了Visual Basic(可间称VB），目前的最新版本是.net中文版。 Visual 意即可视的、可见的，指的是开发像windows操作系统的图形用户界面（Graphic User Interface,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。 Basic指的是Beginners all_purpose symbolic instruction code 初始者通用符号指令代码语言。 Visual Basic有学习版、专业版和企业版三种版本，以满足不同的开发需要。学习版适用于普通学习者及大多数使用Visual Basic开发一般Windows应用程序的人员；专业版适用于计算机专业开发人员，包括了学习版的全部内容功能以及Internet控件开发工具之类的高级特性；企业版除包含专业版全部的内容外，还有自动化构件管理器等工具，使得专业编程人员能够开发功能强大的组骨子里分布式应用程序。 VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高，且功能强大可以与Windowsr专业开发工具SDK相媲美。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（SPI）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，Visual Basic的功能也越来越强。5.0版以后，Visual Basic推出了中文版，与前个版本相比，其功能有了很大提升。Visual Basic 6.0 是1998年的产品,后来又有几次的升级,现在用的大多数是SP4. 在二十一世纪初，microsoft公司推出Visual Studio 2003与Visual Basic之间有了重大变化，Visual Studio为各种编程工具做了一个平台，Visual Basic.NET可在这种平台上运行。相对于传统VB，有很大的不同。VB.Net，首次使用.Net构架进行可视化编程，并且能很好地与COM构架兼容。2005年Visual Studio 2005则运用了NET 2.0的技术，更加的方便了程序员的工作。可是新的程序对系统配置要求也较高，需要微软.Net Framework 2.0以上的.Net构架支持。2.23 SQL serverSQL Server是一个关系数据库管理系统。它最初是由Microsoft Sybase和Ashton-Tate三家公司共同开发的，于1988年推出了第一个OS/2版本。在Windows NT推出后，Microsoft与Sybase在SQL Server的开发上就分道扬镳了。Microsoft将SQL Server移植到Windows NT系统上，专注于开发推广SQL Server的Windows NT版本。Sybase则较专注于SQL Server在UNIX操作系统上的应用。SQL Server 2000，是Microsoft公司推出的SQL Server数据库管理系统的新版本。该版本继承了SQL Server 7.0版本的优点，同时又比它增加了许多更先进的功能，具有使用方便、可伸缩性好、与相关软件集成程度高等优点。可跨越从运行Microsoft Windows 98的膝上型电脑，到运行Microsoft Windows 2000的大型多处理器的服务器等多种平台使用。以下简单介绍它的功能特性，详细功能请访问微软网站或参阅SQI。Server 2000“联机丛书”。 1）实现了客户机服务器模式 客户机服务器(CS)模式数据库计算是一种分布式的数据存储、访问和处理技术，它已成为大多数企业计算的标准。Microsoft SQIServer是客户服务器系统应用的完美的例子。 2）与Internet集成 SQIJ Server 2000数据库引擎提供完整的XMI支持。具备构造大型Web站点的数据存储组件所需的可伸缩性、可用性和安全性。 3）具备很强的可伸缩性和可用性 SQI。Server 2000包含企业版、标准版、开发版和个人版等4个版本，使同一个数据库引擎可以在不同的操作系统平台上使用，从运行Windows 9x的便携式电脑，到运行Windows2000 Data Center Server的大型多处理器的服务器。增强的图形用户界面管理工具，使管理更加方便。 4）具备企业级数据库功能 SQIServer 2000关系型数据库引擎支持当今苛刻的数据处理环境所需的功能，可同时管理上千个并发数据库用户，其分布式查询使用户可以引用来自不同数据源的数据，同时具备分布式事务处理系统，保障分布式数据更新的完整性。 5）易于安装、部署和使用 SQ。Server一2000的安装向导可帮助用户方便地实现各种方式的安装，如网络远程安装、多实例安装、升级安装和无人职守安装等。SQIServer 2000还提供了一些管理开发工具，使用户可以快速开发应用程序。 6）数据仓库功能 企业在正常的业务运作过程中需要收集各种数据，包含企业的动态历史记录，数据仓库的目的是合并和组织这些数据，以便可对其进行分析并用来支持业务决策。数据仓库是一种高级、复杂的技术。Microsoft SQIServer 2000提供的强大工具，可帮助您完成创建、使用和维护数据仓库的任务。如：数据转换服务、复制、Analysis ServiCeS、English Query。和MetaData Services等。 §2.3 硬件环境个人微型计算机一台，具体要求如下1）系统内存：1G，推荐4G。2）CPU主频：2.60GHz，推荐2.6GHz 。3)网络条件:PC连入计算机网络.第三章 需求分析 §3.1编写目的 现在，随着计算机的快速发展，电子计算机已经可以代替人完成很多的工作，使我们的工作效率大大的得到了提高。 我的课程设计题目的选定应该是顺应了这个社会的发展。对于大学的学生信息管理来说，其数据量大，各种信息管理内容复杂，查询和管理学生及班级的信息等工作由人工完成将是个非常大的工作量，而且也不切合实际，不仅浪费时间人力物力，而且很容易出现错误，所以有个符合要求的软件对其进行智能化的学生信息进行管理是最好不过的了，节省了人力物力资源，并且能够对学生的不同信息进行分类管理及建立响应的联系，对所有的信息有了个全局的掌握。 §3.2任务概述 3.2.1目标1） 要求系统能够正常的运转，这是最基本的要求；即能够稳定而且正确的工作。好的系统第一要素是正确的稳定的系统；其次才是操作界面的简洁。2） 要求系统能够满足用户的基本需求，即能够提供用户需要的绝大部分的功能，系统要求能够较好的查询能及打印的功能；能够使用现有系统中的绝大多数数据。3.2.2对功能的规定 本设计要实现的是对全体学生信息进行具体的管理，在设计系统是，应尽可能的贴近实际，便于用户操作。系统在实现上应该具有如下功能。1） 系统要求用户必须输入正确的用户名和密码才能进入系统。2） 系统应该提供对用户的更改、添加、删除及登陆密码设置。3） 系统应该提供学生基本信息的登记，如班级、课程、成绩等。4） 系统应该对学生的成绩按照一定的要求进行统计分析处理。5） 系统应该提供查询功能，便于用户对学生基本信息的查询（要求实现按多条件的查询）。6） 系统应该提供增加、删除、修改学生基本信息的功能。7） 系统应该提供学生信息之间的联系。8） 系统应该提供退出设置。 §3.3运行环境规定数据库服务器：安装VB+SQL Server 2000 建议配置：CPU: AMD 4200+内存：1G以上，建议最好为4G。其他设备：网卡客户端：安装Windows系列+SQL Server2000客户端 §3.4安全性与完整性要求3.4.1安全性：1. 用户登陆设置：用户只能通过正确的账号和密码登录本系统，2. 非法数据的输入：每个字段信息都有自己确定的类型，不能插入不合乎该类型的数据。可以在VB程序中屏蔽掉，也可以在SQL数据库中作错误处理。3.用户查询情况：在用户的查询过程中一些数据应该屏蔽掉，3.4.2完整性要求：数据完整性是指数据的精确性和可靠性，首先就是实体的完整性，就是指每一行记录在表中是唯一的实体，不能插入有重复主码的记录。再一个就是参照完整性，是指两个表的主关键字和外关键字的数据对应一致，防止数据的丢失或者无意义的数据在数据库中的扩散。表现在：a 禁止在表中插入包含主表中不存在的关键字的数据行。b 禁止删除在从表中的有对应记录的主表记录。完整性问题可以通过一些工具来实现，如：规则，约束，触发器等。§3.5对课题提出的任务要求及实现目标的可行性分析3.5.1、对课题提出的任务要求1）收集大量资料阅读，分析并总结。2）设计系统的初步模型框架。3）编写程序代码并调试运行。4）能够实现管理系统的各种基本功能。5）编写用户界面：坚持简单，友好，好用的原则。3.5.2、完成课题需要使用的系统平台和主要开发工具1）Windows 2000 Server /windows XP 操作系统2) Visual Basic第四章 系统设计§4.1 系统总体设计总体设计的基本任务是解决系统如何做，即功能的实现。通常总体设计有两部分主要阶段组成：系统设计，即确定系统的具体实现方案，结构设计，是对软件模块之间的关系的确定。设计的目的与要求：学生信息管理系统具信息备管理、信息查询、成绩管理、系统管理、密码修改、退出系统等基本功能。实现学生信息管理系统的系统化，规范化和自动化。系统的功能模块如下图所示： 用户添加 用户删除用户管理 密码修改 退出系统 学校年级设置退出系统 启动程序主界面年级信息管理学校班级设置班级信息管理班级年级设置课程信息管理 课程信息设置 年级课程设置 学籍信息设置学籍信息管理 成绩信息设置成绩信息管理班级信息查询课程信息查询成绩信息查询学籍信息查询查询管理 班级信息统计报表统计报表中心 学生信息统计报表图1§4.2 功能模块设计4.2.1 用户管理用户管理主要是针对登陆时的用户进行管理，如添加和删除用户以及密码的设置等，在登陆时需要输入设置的信息才能登陆，确保了系统的安全性。4.2.2 年级信息管理年级信息管理主要针对学校信息以及学校各个年级进行名称、编号进行管理，并且设置了查询功能，根据年级编号可以对某一年级进行查询。4.2.3 班级信息管理班级信息管理主要时对所有年级进行编号以及包括班主任的编号，并且也设置了根据班号的查询功能。4.2.4 课程信息管理课程信息管理主要事对各个年级开设的所有课程名称进行编号、分类以及描述，并且开设了根据课程编号进行查询的功能。4.2.5 学籍信息管理 学籍信息管理主要是对所有的学生信息进行统一具体的管理，并且根据班号及姓名进行查询。4.2.6 成绩信息管理 成绩信息管理主要事对学生的考试成绩进行管理，并且可以根据学生的学号对学生的成绩进行查询。4.2.7 查询管理 查询管理主要是对班级信息查询、课程信息查询、成绩信息查询、学籍信息查询，可以根据不同的查询条件进行具体的查询，是整个系统的查询中心。4.2.8统计报表中心 统计报表中心是对系统的信息进行统计处理，并且以报表的形式显示出来，方便了用户查看。第五章 概念结构设计§5.1 E-R图5.1.1、实体集及属性描述实体1：学生（学号，专业号，院系号，姓名，性别，出生日期，身份证号，入学时间，政治面貌，家庭住址，籍贯，邮政编码，民族），此为学生实体对应的关系模式。实体2：教师（教工号，姓名，性别，职称，所属院系，电话），此为老师实体对应的关系模式。实体3：课程（课程号，课程名，学分），此为课程实体对应的关系模式。实体4：选修（学号，课程号，成绩），此为选修关系对应的关系模式。实体5：授课（课程号，教工号，课时），此为老师授课关系对应的关系模式。实体6：开设（专业号，课程号），此为专业开设课程关系对应的关系模式。5.1.2、E-R图分ER图：实体：学生属性：学号 姓名 出生日期 班号 电话号码 地址 入校时间 学生拥有学号姓名班号电话号码地址入校时间出生日期学生拥有学号姓名班号电话号码地址入校时间出生日期图2实体：课程属性：课程号 课程名 课程类型 课程描述学生查询课 程成 绩学 籍课程号课程名分数学号学期注册学籍异动档案管理学生证的办理学生查询课 程成 绩学 籍课程号课程名分数学号学期注册学籍异动档案管理学生证的办理图3合ER图：课程编号课程教师任课课程安排教室教室编号学生选课学生学号学生成绩教师教师编号教师考勤情况课程编号课程教师任课课程安排教室教室编号学生选课学生学号学生成绩教师教师编号教师考勤情况图5对ER图的说明： 通过上学期对的学习，能够画出相应系统结构的图。通过合ER图，我们可以清晰的看出，学生及相关信息，例如：相应的成绩，选课情况，以及教师与学生之间的联系，通过它，想要了解学生的某一信息，可以从任一实体出发，例如：当学生登录系统后，进入学生选课系统，不仅能够了解需要的课程，还可以了解这门课的上课地址，这门课的相应的老师及上课时间，想要查询班主任的情况，可以从班级信息添加设置中找到班主任编号，从而了解班主任的信息，每个模块之间都是相互联系的，例如：想要了解有关成绩方面的信息，可以从成绩信息管理设置中查找到想要的成绩，对应到学生的学号。通过学号，又可以找到学生的相关信息。图是反应各个实体之间的联系，并通过它能很好的掌握所需要的信息，使信息一目了然。第六章 逻辑结构设计§6.1 E-R图到关系模型及其优化由函数依赖关系及E-R图得关系模型如下:函数依赖关系如下图：图6 §6.2 配置与SQL Server2000的ODBC连接Visual Basic 6.0提供了ADO来对数据进行操作。数据库在SQL Server 2000中创建成功后，ADO通过ODBC创建与数据库的连接。首先启动操作系统的控制面板/管理工具/数据源（ODBC），如图所示。图7单击添加之后系统将添加一个数据库，会弹出创建新的数据源对话框，在这里选择SQL SEVER，在弹出的对话框，在名称一栏输入“sims_four”作为新的数据源名称，在描述文本框内容可以为空，服务器一栏中选择相应的服务器。如图：图8单击下一步，选择默认选项，到弹出对话框：图9更改默认数据库，单击下一步，到弹出如下对话框就成功：图10测试数据库成功的对话框单击确定按钮，完成新数据源的配置。§6.3系统实现学生信息管理系统是根据自己创建的学生的相关信息管理而创建的，它以学生的管理为研究对象，经过调查和需求分析认真仔细的设计软件可以实现的功能。其开发主要包括后台数据库的建立和维护以压前端应用程序的开发两个方面。系统主要完成对学生信息的管理，包括系统管理、信息设置、学生信息管理、学生成绩管理以压系统帮助等5个功能模块6.3.1、用户登陆的工作流程及其子模式开始用户名和密码是否为空？在数据库中查找该用户名。用户名是否存在？密码是否正 确？登陆成功提示用户是是否否是是否否开始用户名和密码是否为空？在数据库中查找该用户名。用户名是否存在？密码是否正 确？登陆成功提示用户是是否否是是否否图11 6.3.2、用户登陆框登录界面：图12点击确定的代码： UseridSQL = "select * from User_Info where user_Id='" & txtUserID.Text & "'" MyLogin.rsDK1 UseridSQL If MyLogin.rs1.EOF = False Then txtUserName.Text = Trim(MyLogin.rs1!user_name) Level = MyLogin.rs1!user_level If txtPass.Text = Trim(MyLogin.rs1!user_pwd) Then CurrentUser = Trim(MyLogin.rs1!user_name) Unload Me FrmMain.Show Else MsgBox "密码错误！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" txtPass.Text = "" txtPass.SetFocus Exit Sub End If Else MsgBox "用户编号不存在！" & vbCrLf & vbCrLf & "请重新输入！", vbOKOnly + vbInformation, "用户登陆" txtUserID.Text = "" txtUserID.SetFocus Exit Sub End If 填写登陆信息完成后，系统从数据库中检索信息，检查用户名与密码是否合法，如果合法则调用主窗体的权限分配函数，刷新权限设置.6.3.3、窗体主界面图13窗体的状态栏分别显示了年月日，星期，当前用户，及欢迎信息。关键代码如下：Dim mypanel As PanelSet mypanel = StatusBar1.Panels.Add(1, , , sbrDate) '状态栏1显示日期Set mypanel = StatusBar1.Panels.Add(2) '状态栏2显示星期几Call MyWeekDaySet mypanel = StatusBar1.Panels.Add(3)StatusBar1.Panels(3).Text = "当前用户：" & FrmLogin.CurrentUsermypanel.AutoSize = sbrContentsSet mypanel = StatusBar1.Panels.Add(4) '状态栏3显示文本消息mypanel.AutoSize = sbrSpringIf Myinfo = "" Then Myinfo = Space(85) & "欢迎使用学生信息管理系统！"End IfMyinfo = Right(Myinfo, Len(Myinfo) - 1)StatusBar1.Panels(4).Text = Myinfo6.3.4、年级信息管理模块通过这个窗体，可以进行相应的年级设置与管理。图14此窗体的关键代码如下：If txtGradeNo.Text = "" Then MsgBox "请选择要删除的记录！", vbOKOnly + vbInformation, "删除记录" Exit SubEnd IfIf MsgBox("确认要删除年级编号为 " & txtGradeNo.Text & " 的记录吗？", vbOKCancel + vbQuestion, "删除记录") = vbOK Then myAddGrade.rsDK1 "select * from schoolgrade_info where grade_No='" & txtGradeNo.Text & "'" myAddGrade.rs1.Delete myAddGrade.rsDK1 "select * from schoolgrade_info" If myAddGrade.rs1.EOF Then AddGradeGrid.Clear AddGradeGrid.FormatString = " | 年级编号|年级名称 " Else Set AddGradeGrid.DataSource = myAddGrade.rs1 AddGradeGrid.FormatString = " | 年级编号|年级名称 " End If cmdDel.Enabled = False cmdSave.Enabled = False txtGradeNo.Text = "" txtGradeName.Text = ""End If6.3.5、班级信息管理模块图15myModiClass.rsDK1 "select * from class_info where Class_No='" & txtClassNo.Text & "'" myModiClass.rs1!grade_no = Trim(cboGradeNo.Text) myModiClass.rs1!user_id = Trim(cboUserId.Text) myModiClass.rs1.Update Set ClassGrid.DataSource = myModiClass.rs1 ClassGrid.FormatString = " | 班号 |年级编号 |班主任编号 " MsgBox "班级信息已成功更新！", vbOKOnly + vbInformation, "班级信息添加" txtClassNo.Enabled = False cboGradeNo.Enabled = False cboUserId.Enabled = False cmdSave.Caption = "保存(&S)" cmdAdd.Caption = "添加(&A)" cmdSave.Enabled = False cmdDel.Enabled = FalseSet myModiClass = New OpenRs'添加年级编号myModiClass.rsDK1 "select * from schoolgrade_info"While Not myModiClass.rs1.EOF cboGradeNo.AddItem myModiClass.rs1!grade_no myModiClass.rs1.MoveNextWend'添加班主任编号myModiClass.rsDK1 "select * from user_info"While Not myModiClass.rs1.EOF cboUserId.AddItem myModiClass.rs1!user_id myModiClass.rs1.MoveNextWendClassGrid.FormatString = " | 班号 |年级编号 |班主任编号 "myModiClass.rsDK1 "select * from class_info"If Not myModiClass.rs1.EOF Then Set ClassGrid.DataSource = myModiClass.rs1 ClassGrid.FormatString = " | 班号 |年级编号 |班主任编号 "End IfcmdSave.Enabled = FalsecmdDel.Enabled = False6.3.6、成绩信息管理模块图16If cmdSave.Caption = "保存(&S)" Then With myResult.rs1 .AddNew !exam_no = txtExamNo.Text !student_id = CboStuNo.Text !course_no = CboCouNO.Text !result = TxtResult.Text .Update End With Set result_Grid.DataSource = myResult.rs1 result_Grid.FormatString = " | 考试编号|