基于VB毕业设计论文

- I - 基于 VB 的学生信息管理的设计与实现 课程设计任务书 目 录 课程设计任务书 I 第 1 章 绪论 1 1.1 系统设计背景 1 1.2 系统的功能简介 1 第 2 章 系统开发方案 2 2.1 开发环境介绍 2 2.2.1 系统开发环境 2 2.2.2 系统开发工具介绍 2 第 3 章 系统结构分析 4 3.1 系统结构分析 4 3.2 系统需求分析 4 3.2.1 系统概述 4 3.2.2 系统运行环境 5 3.2.3 系统功能模块 5 3.3 系统可行性分析 6 第 4 章 数据库的实现 8 4.1 数据库需求分析 8 4.2 数据表的物理结构 9 第 5 章 系统的实现及其程序 10 5.1 登录模块 10 5.2 管理人员模块 11 5.2.1 管理人员主界面 11 基于 VB 的学生信息管理的设计与实现 - II - 5.3 普通用户模块 24 5.3.1 一般用户主界面 24 5.3.2 修改密码 24 5.3.3 学生信息查询 28 第 6 章 系统测试 29 结 论 32 参考文献 33 - 1 - 第 1章 绪论 1.1系统设计背景 随着学校规模的不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增加。面对庞大的信息量，就 需要有学生信息管理系统来提高学生管理工作的效率。通过这样 的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。学生信息管理系统是一个教育单位不可缺少的部分 ,它的内容对于学校的决策者和 管理者来说都至关重要 ,所以学生信息管理系统应该能够为用户提供充足的信息和快捷 的查询手段 。 在国内外发展概况及存在问题一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点 , 如 :效率低、保密性差 ,另外时间一长 ,将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。作为计 算机应用的一部分 ,使用计算机对学生信息进行管理 ,具有着手工管理所无法比拟的优点。例如 :检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率 ,也是企业的科学化 、 正规化管理与世界接轨的重要条件。因此，开发这样一套管理软件是很有必要的事情。 1.2 系统的功能简介 本系统主要分成三个部分：学生信息管理，成绩管理及用户管理。 1、学生信息管理 为每位在校学生就其中学号、性别、姓名、出生日期、出生地、备案，以同一年入学的学生为单位，资料来源为入学档案。其中，学 号为唯一标志。在该系统中多为浏览和查询之用打印作用很少用，而且以中考成绩作为分 班的依据，可以对学生信息进行添加，删除，修改。 2、成绩管理每个学期组织期末考试，并对每个学生的各门成绩进行登记、汇总、排名。涉及的主要数据是每个班每个学期一张成绩单，内容是学生的学号、姓名及成绩，在该 管理中主要完成成绩的浏览、查询、分数的计算、打印的功能，而且成绩作为学生学习状况的主要依据和教师教学质量考核的主要依据之一。 3、用户管理该模块的主要功能是实现对用户的各种权限管理工作，包括登记新用户、老用户找回信息、修改用户密码、 修改用户注册信息、删除用户帐号等功能，从而方便于对用户的管理。 基于 VB 的学生信息管理的设计与实现 - 2 - 第 2章 系统开发方案 2.1 开发环境介绍 2.2.1 系统开发环境 系统 开发环境： Microsoft Visual Basic 6.0 数据库 Access 2.2.2 系统开发工具介绍 1.Microsoft Visual Basic 6.0： （ 1） VB 的发展过程 ： 公司在 1991 年推出的用于开发 Windows VB 是 Microsoft公司在应用程序的开发工具，是基于 DOS 平台下 Basic 编程语言的可视化的程序设计语 言。它继承了 Basic 所具有的程序设计语言简单易用的特点，同时在其编程系统中采用了面向对象、事件驱动的编程机制，开创了可视化编程的一代先河。自 1991年推出后， Microsoft 公司又相继推出了 VB2.0、 VB3.0、 VB4.0 和 VB5.0 等版本。近年来，微软公司又推出了可视化开发工具套件 Visual Studio 6.0。 （ 2） VB 主要功能特点如下： 1 具有面向对象的可视化设计工具 。 在 VB 中，应用面向对象的程序设计方法（ OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需 用现有工具根据界面设计的要求，直接在屏幕上 “画 ”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。 2 事件驱动的编程机制事件驱动是非常适合图形用户界面的编程方式。掌握着程序运行的流向，每个事件都能驱动一段程序的运行。程序员只需编写响应用户动作的代码，而各个动运行作之间不一定有联系。这样的应用程序代码一般较短，所以程序既易于编写又易于维护 。 3 提供了易学易用的应用程序集成开发环境 提供了易学易用的应用程序 VB 集成开发环境中，用户可设计界面、编写代码、集成开发环境中试程序，直至把应用程序编译成可执 行文件在 Windows 中运行试程序 ， 使用户在友好的开发环境中工作。 4 结构化的程序设计语言 VB 具有丰富的数据类型和结构化程序结构，而且简单易学 。 此外，作为一种程序设计语言， VB 还有许多独到之处： 强大的数值和字符串处理功能。 丰富的图形指令，可方便地绘制各种图形。 提供静态和动态数组，有利于简化内存管理。 过程可递归调用，使程序 - 3 - 更为简练。 支持随机文件访问和顺序文件访问。 提供了一个可供应用程序调用的包含多种类型的图标库。 具有完善的运行出错处理。 5 支持多种数据库系统的访问 ， 利用数据控件可访 问的数据库系统有：可访问 Microsoft Access、 Btrieve、dBASE、 Microsoft FoxPro 和 Paradox 、 Microsoft Excel， Lotusl-2-3 等多种电子表格 。6 支持动态数据交换（ DDE）、动态链接库（ DLL）的链接与嵌入（动态链接库（ DLL）的链接与嵌入（ OLE）技术 ） 动态数据交换（ 动态数据交换（ DDE）的编程技术，使 VB 开发应用程序能 ）的编程技术， 开发应用程序能与其他 Windows 应用程序之间建立数据通信 。 通过 VB 的动态链接库（ DLL）技术，在 VB 程序中可方便地调用用 C 语言或汇编语言编写的函数 也可调用 Windows 应用 语言或汇编语言编写的函数，也可调用应用程序接口函数，以实现 SDK 所能实现的功能。 VB 的所能实现的功能核心是其对对象的链接与嵌入的支持， 有对象的一种方法。利用 OLE 技术，VB 将其他应用软件视为技术，将其他应用软件视为有对象的一种方法。利用技术一个对象嵌入到 VB 应用程序中，进行各种操作，也可将各种应用程序中基于 Windows的应用程序嵌入到应用程序，实现声音、图 、 动画等多媒体功能。 7 完备的 Help 联机帮助功能与 Windows 环境下的软 件一样，在 VB 中，利用帮助菜单和 环境下的软件一样 中 F1 功能键，用户可随时方便地得到所需的帮助信息。 VB 帮助功能键，用户可随时方便地得到所需的帮助信息。帮窗口中显示了有关的示例代码，通过复制、窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了极大方便。 2.数据库 Access： Access 能够存取 Access/Jet、 Microsoft SQL Server、 Oracle(甲骨文软件公司 )，或者任何 ODBC 兼容 数据库 内的资料。熟练的 软件设计师 和资料分析师利用它来开发应用软件，而一些不熟练的 程序员 和非程序员的 进阶用户 则能使用它来开发简单的应用软件。虽然它支援部分 面向对象 （ OOP）技术，但是未能成为一种完整的面向对象开发工具。 特点： （ 1）存储方式简单，易于维护管理 Access 管理的对象有表、查询、窗体、报表 、 页、宏和模块，以上对象都存放在后缀为（ .mdb 或 .accdb）的 数据库文件中，便于用户的操作和管理 （ 2） 面向对象 Access 是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将 数据库管理 的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定 义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（ 3）界面友好、易操作 Access 是一个 可视化工具 ，是风格与 Windows 完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报 表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（ 4）集成环境、处理多种数据信息 Access 基于 Windows 操作系统 下的集成开发环境，该环境集成了各种基于 VB 的学生信息管理的设计与实现 - 4 - 向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。（ 5） Access 支持ODBC（开发数据库互连， Open Data Base Connectivity），利用 Access 强大的 DDE（ 动态数据交换 ）和 OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、 Excel 表格、 Word 文档，还可以建立动态的数据库报表和窗体等。 Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成 HTML 文件 ，轻松构建 Internet/Intranet 的应用。（ 6）支持广泛，易于扩展，弹性较大能够将通过链接表的方式来打开 EXCEL 文件、格式化文本文件等，这样就可以利用数据库的高效率对其中的数据进行查询、处理。还可以通过以 Access 作为前台客户端，以 SQL Server 作为 后台数据库 的方 式（如 ADP）开发大型 数据库应用系统 。总之， Access 是一个既可以只用来存放数据的数据库，也可以作为一个客户端开发工具来进行 数据库应用系统开发 ；即可以开发方便易用的小型软件，也可以用来开发大型的应用系统。 第 3章 系统结构分析 3.1 系统结构分析 要开发一个学生信息管理系统，首先要对其进行需求分析和总体设计，分析系统的使用对象和用户需要，设计系统的体系结构和数据库结构，决定使用的开发工具和后台数据库，规划项目开展进度。规划好主要的模块需求，这对学生的基本信息了解有很大的帮助。 3.2 系统需求分析 通过此系统可以了解学生姓名、学号、班级、年龄及各科成绩等。可用于学校及各个部门，来进行对学生及员工等信息的统计，以此来提高对学生或员工了解的程度 3.2.1 系统概述 学生信息管理系统主要用于学校及教育部门对学生各方面的统计与了解，记录学生的基本信息，主要功能包括： (1) 学生姓名管理。完成姓名的添加、删除、修改及查询。 - 5 - (2) 学生学号管理。完成学号的添加、删除、修改及查询。 (3) 学生班级管理。可以看出学生所在的班级。 (4) 学生性别管理。可以对学生性别进行修改及查询。 (5) 添加学生信息管理。添加一些学生的信息或加入一些新生。 (6) 查询学生成绩。输入学生姓名和考号即可知道学生的成绩和基本信息。 3.2.2系统运行环境 1.硬件环境 处理器： Intel Pentium 166 MX 或更高。 内存： 32MB 以上。 硬件空间： 1GB 以上 。 显卡： SVGA 显卡适配器。 2.软件环境 操作系统： Windows 98/ME/2000XP。 3.2.3 系统功能模块 系统功能模块如图 3-1 所示。 基于 VB 的学生信息管理的设计与实现 - 6 - 图 3-1 系统功能模块 3.3 系统可行性分析 学生管理信息系统可以通过使用计算机技术等手段 , 学生管理信息系统可以通过使用计算机技术等手段 ,将教师 从重复、繁琐的手工处理工作中解脱出来 ,避免了重复劳动 , 从重复、繁琐的手工处理工作中解脱出来 ,避免了重复劳动 ,规范 教学管理行为 ,提高了管理效率和水平 , 教学管理行为 ,提高了管理效率和水平 ,降低了人工处理产生的错 误，使教育基础管理管理迈出了一个新的台阶，从而逐步向教育 现代化的目标前进。因此 ,网络和计算机技术迅速发展的今天 , 现代化的目标前进。因此 ,网络和计算机技术迅速发展的今天 ,学 校推进信息系统有着天时地利的有利条件 , 校推进信息系统有着天时地利的有利条件 ,学生管理信息系统的 实施也势在必行。 学生信息管理系统 返 回 主 界 面 修 改 密 码 信 息 统 计 安 全 退 出 直 接 返 回 确 认 修 改 密 码 放 弃 修 改 密 码 查 看 学 生 成 绩 删 改 学 生 信 息 取 消 修 改 直 接 退 出 系 统 - 7 - 一、计算机的普及和现代化的办公是学生管理信息系统实施 的基础 21 世纪是计算机普及的时代，也是计算机发展最迅猛的年代， 计算机的价格不断的下降 的年 代，计算机的价格不断的下降 ,使得计算机得到广泛的应用，简 不断的下降 又使得计算机成为工作和学习中必不 单易行的操作系统与软件， 可少的一部分 , 可少的一部分 ,而学校只需购买几台服务器，就足够支持信息系 统的建设，因而信息系统的使用也成了现实，具有可行性。 二、现代软件技术的发展和变革使信息系统成本降低，管理 现代软件技术的发展和变革使信息系统成本降低，系统实施可行同样支持计算机技术的语言也在 计算机技术在不断的发展，不断变革，计算机语言从最早的机器语言到汇编语言，再到 C语 言 ， PASCAL,VC,POWDERBUIDER,DEPHI 语 言 ，PASCAL,VC,POWDERBUIDER,DEPHI 等，再到现在流行的 C+， JAVA， .NET 等开发语言，经历了从机器语言到面向过程语言再到现在面向对象的过程。同时，软件产品也历经从 CS 化产品到 BS 化产品的过渡，使用更加方便，操作更加简单， 使用界面更加友好，扩展性更强，维护简单。廉价的管理信息系统的成本，使得学校不用过多的考虑其对教育经费和科研经费的影响，这使管理系统的实施具有可行性。 三、互联网络的流行与普及使信息系统更易被传播 和使用随着互联网的广泛普及，各高校都建立了自己的校园网，为管理信息系统的普及和应用铺平了道路。只要有电脑，有网络，而不需要在每个客户端装相应的软件，降低了使用系统的难度， 就能够轻松的访问信息系统，加快了管理信息系统广泛的应用。学生可以在宿舍登录系统查询成绩、课程、请假等；老师也可以在家设置课程、管理信息、给学生答疑解惑，让工作和生活一样轻松。 四、教师素质和技能的提高使信息系统的使用不再是难题现代化的教学要求教师不仅具备传统授课方式，还要求掌握计算机教学技术来实现多媒体教学。因而，教师素质的提高和计算机 技能的计算机技术的广泛应用给教育事业带来了一场革命， 同时学校可以提高给学生管理信息系统的推广和应用创造条件 。 此外 ， 他们了解教学方面的工作，熟悉教学管理流程，省去大量的培训和宣传的费用。能够给管理信息系统的建设提供设计方案和意见。 基于 VB 的学生信息管理的设计与实现 - 8 - 计算机的普及、软件使用的方便性、成本的降低 ， 综上所述， 互联网的流行还有教师综合素质和计算机技能的提高都给高效 管理信息系统建设、推广提供了动力和智力支持，管理信息系统 的实现成为现实，具有可行性。 第 4章 数据库的实现 4.1数据库需求分析 数据库 需求分析在设计数据库结构时，以及可能地满足用户所提出的各项要求，同时又避免同时又要 避免冗余数据产生。由于在学生信息管理系统中，需要采集大量的信息，包括学生信息， 班级信息，课程信息，成绩信息，专业信息等，如果不能够合理有效地组织数据表的结构，以及合理设置每张表所包含的字段，那么后期进行的数据的整理以及汇总时，就会增加编程人员的开发难度，并造成成绩效益的大幅度下降。根据学生基本信息以及其他相关信息的特点，归纳出以下规律： 1、学生信息管理 为每位在校学生就其中学号、性别、姓名、 班级 、 家庭 地 址 、年龄 。其中， 学号为唯一标志。在该系统中多为浏览和查询之用 ， 打印作用很少用，可以对学生信息进行添加，删除，修改。 2、成绩管理 每个学期组织期末考试，并对每个学生的各门成绩进行登记、汇总、排名。涉及 的主要数据是每个班每个学期一张成绩单，内容是学生的学号、姓名及成绩，在该管理中主要完成成绩的浏览、查询、分数的计算、打印的功能，而且成绩作为学生学习状况的主要依据和教师教学质量考核的主要依据之一。 3、用户管理 该模块的主要功能是实现对用户的各种权限管理工作，包括登记新用户、老用户找 回信息、修改用户密码、修改用户注册信 息、删除用户帐号等功能，从而方便于对用户的管理。 - 9 - 4.2 数据表的物理结构 管理员登录名称和密码与数据库的链接，从数据表中可以看出管理员名称和他的登录密码，可以顺利登录，有利于信息管理。 表 4-1 adminlogin 表 编号 字段名称 数据类型 主键 1 admin 文本 NO 2 password 文本 NO 表 4-2 basic 表 编号 字段名称 数据类型 主键 1 学号 文本 YES 2 姓名 文本 NO 3 班级 数字 NO 4 年龄 数字 NO 5 家庭住址 文本 NO 6 性别 文本 NO 7 照片 OLE 对象 NO 基于 VB 的学生信息管理的设计与实现 - 10 - 8 专业 文本 NO 表 4-3 guestlogin 表 编号 字段名称 数据类型 主键 1 guest 文本 NO 2 password 文本 NO 表 4-4 mark 表 编号 字段名称 数据类型 主键 1 高数 数字 NO 2 外语 数字 NO 3 C 语言 数字 NO 4 数据结构 数字 NO 5 VisualBasic 数字 NO 6 总分 数字 NO 7 学号 文本 YES 8 姓名 文本 NO 9 专业 文本 NO 第 5章 系统的实现及其程序 5.1 登录模块 本系统考虑到系统的安全性，主要设置了用户登录界面，其中包括用户登录验证和密码校验，保证了信息的“可控”透明性。而且，为了方便管理人员对员工各种信息进行更改，设置了用户权限，增强了信息的安全性。 登陆界面主要用于身份验证，输入用户名和密码后，选择用户权限。如果用户名和密码或权限错误，点击提交时，会在 Label1 的位置显示信息错误，需要重新输信息。当信息输入正确时，若用户为管理人员，会跳转到管理人员界面；当用户为一般 用户时，会跳转到一般用户界面。 - 11 - 登录界面如下图 5-1 所示 图 5-1 登录界面 5.2 管理人员模块 当用户为管理人员时，登录到了管理人员主界面。 5.2.1管理人员主界面 登录后的界面如图 5-2 所示 基于 VB 的学生信息管理的设计与实现 - 12 - 图 5-2 登录后界面 其中的返回主界面、修改密码、信息统计、输出信息、安全退出的程序如下 Private Sub changepassword_Click() password.Show End Sub Private Sub Command1_Click(Index As Integer) On Error Resume Next Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.MoveFirst Adodc2.Recordset.MoveFirst Case 1 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast - 13 - Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast Adodc2.Recordset.MoveLast Case 5 ask = MsgBox(delete?, vbYesNo) If ask = 6 Then If Adodc1.Recordset.RecordCount = 0 Or Adodc2.Recordset.RecordCount = 0 Then MsgBox (there is no record to be deleted) Else Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition Adodc1.Recordset.Delete Adodc2.Recordset.Delete Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End If End If Case 4 addinformation.Show Case 6 Adodc1.Recordset.Update Case 7 Adodc1.Recordset.CancelUpdate End Select End Sub Private Sub Command2_Click() Dim mpath$, mlink$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 以下两行代码可合成一句， mlink 存放 ConnectionString 属性的设置值 基于 VB 的学生信息管理的设计与实现 - 14 - mlink = Provider=Microsoft.Jet.OLEDB.4.0； 指定提供者 mlink = mlink + Data Source= + mpath + database1.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） Adodc2.ConnectionString = mlink 设置连接属性 Adodc2.CommandType = adCmdUnknown sc = Text6.Text lc = Text7.Text If sc And lc Then Adodc1.RecordSource = Select * from basic where 姓名 = & sc & and 学号 = & lc & Adodc2.RecordSource = Select * from mark where 姓名 = & sc & and 学号 = & lc & Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2 ElseIf sc Then Adodc1.RecordSource = Select * from basic where 姓名 = & sc & Adodc2.RecordSource = Select * from mark where 姓名 = & sc & Adodc1.Refresh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2 ElseIf lc Then Adodc1.RecordSource = Select * from basic where 学号 = & lc & Adodc2.RecordSource = Select * from mark where 学号 = & lc & Adodc1.Refresh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 - 15 - Set DataGrid2.DataSource = Adodc2 Else MsgBox 你应该输入查询条件 , vbOKOnly, 查询错误 End If End Sub Private Sub Command3_Click() On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二进制读方式打开源文 件 Image1.Picture = LoadPicture(CommonDialog1.FileName) fl = LOF(1) 获得文件长度 ReDim strb(fl) 从文件中读取内容并 Get #1, , strb 读到内存块中 adminform.Adodc1.Recordset.Fields(照片 ).AppendChunk strb adminform.Adodc1.Recordset.Update Close #1 End Sub Private Sub DataGrid1_Click() Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition End Sub Private Sub exit_Click() 当有新 学生 时，管理人员需要添加新学生的信息，点击添加按钮，进入到了添加员工信息界面 ，添加学生信息界面如图 5-3 所示。 基于 VB 的学生信息管理的设计与实现 - 16 - 图 5-3 添加学生信息界面 当管理人员添加完学生信息，点击添加按钮，学生的信息就可以添加进去了。 学生信息添加后的界面如图 5-4 所示。 - 17 - 图 5-4 添加成功界面 学生信息添加程序代码如下： Private Sub Command1_Click() adminform.Adodc1.RecordSource = select * from basic where 学号 = & Text8 & adminform.Adodc1.Refresh adminform.Adodc2.RecordSource = select * from mark where 学号 = & Text8 & adminform.Adodc2.Refresh If adminform.Adodc1.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else adminform.Adodc1.Recordset.AddNew adminform.Adodc1.Recordset.Fields(学号 ) = Text8 adminform.Adodc1.Recordset.Fields(姓名 ) = Text7 adminform.Adodc1.Recordset.Fields(性别 ) = Combo1.Text adminform.Adodc1.Recordset.Fields(班级 ) = Text10 adminform.Adodc1.Recordset.Fields(年龄 ) = Text11 adminform.Adodc1.Recordset.Fields(专业 ) = Text12 基于 VB 的学生信息管理的设计与实现 - 18 - adminform.Adodc1.Recordset.Fields(家庭住址 ) = Text9 adminform.Adodc1.Recordset.Update adminform.Adodc1.Refresh adminform.Adodc1.Refresh End If If adminform.Adodc2.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else adminform.Adodc2.Recordset.AddNew adminform.Adodc2.Recordset.Fields(高数 ) = Val(Text1) adminform.Adodc2.Recordset.Fields(外语 ) = Val(Text2) adminform.Adodc2.Recordset.Fields(C 语言 ) = Val(Text3) adminform.Adodc2.Recordset.Fields(数据结构 ) = Val(Text4) adminform.Adodc2.Recordset.Fields(VisualBasic) = Val(Text5) adminform.Adodc2.Recordset.Fields(总分 ) = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) adminform.Adodc2.Recordset.Fields(学号 ) = Text8 adminform.Adodc2.Recordset.Fields(姓名 ) = Text7 adminform.Adodc2.Recordset.Fields(专业 ) = Text12 adminform.Adodc2.Recordset.Update adminform.Adodc2.Refresh MsgBox (succeed) Unload Me adminform.Show End If End Sub Private Sub Command2_Click() adminform.Adodc1.Recordset.CancelUpdate Unload Me adminform.Show - 19 - End Sub Private Sub Command3_Click() On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二进 制读方式打开源文件 Image1.Picture = LoadPicture(CommonDialog1.FileName) fl = LOF(1) 获得文件长度 ReDim strb(fl) 从文件中读取内容并 Get #1, , strb 读到内存块中 adminform.Adodc1.Recordset.Fields(照片 ).AppendChunk strb Close #1 End Sub Private Sub Text1_LostFocus() If Text1 = Then MsgBox (请输入数据 ) End Sub Private Sub Text2_LostFocus() If Text2 = Then MsgBox (请输入数据 ) End Sub Private Sub Text3_LostFocus() If Text3 = Then MsgBox (请输入数据 ) End Sub Private Sub Text4_LostFocus() If Text4 = Then MsgBox (请输入数据 ) End Sub Private Sub Text5_LostFocus() If Text5 = Then MsgBox (请输入数据 ) End Sub Private Sub Text7_LostFocus() If Text7 = Then MsgBox (请输入数据 ) 基于 VB 的学生信息管理的设计与实现 - 20 - End Sub Private Sub Text8_LostFocus() If Text8 = Then MsgBox (请输入数据 ) End Sub Private Sub Text9_LostFocus() If Text9 = Then MsgBox (请输入数据 ) End Sub Private Sub Text10_LostFocus() If Text10 = Then MsgBox (请输入数据 ) End Sub Private Sub Text11_LostFocus() If Text11 = Then MsgBox (请输入数据 ) End Sub Private Sub Text12_LostFocus() If Text12 = Then MsgBox (请输入数据 ) End Sub 管理员修改密码界面如图 5-5 所示 图 5-5 修改密码 修改密码的程序如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 请输入用户名！ , vbOKOnly + vbInformation, 注意 - 21 - Text1.SetFocus Exit Sub ElseIf Text2.Text = Then MsgBox 请输入密码！ , vbOKOnly + vbInformation, 注意 Text2.SetFocus Exit Sub ElseIf Text3.Text = Then MsgBox 请再次输入密码！ , vbOKOnly + vbInformation, 注意 Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then MsgBox 两次输入的密码不同，请重新输入密码！ , vbOKOnly + vbInformation, 注意 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End If Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） If admin = True Then Adodc1.RecordSource = select * from adminlogin where admin= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else Adodc1.RecordSource = Select * from adminlogin where admin= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(admin) = Text1 基于 VB 的学生信息管理的设计与实现 - 22 - Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End If Else Adodc1.RecordSource = select * from guestlogin where guest= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the username has already exist) Exit Sub Else Adodc1.RecordSource = Select * from guestlogin where guest= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(guest) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End If End If End Sub Private Sub Command2_Click() Unload Me loginform.Show End Sub Private Sub Form_Load() Dim mpath$ - 23 - mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 以下两行代码可合 成一句， mlink 存放 ConnectionString 属性的设置值 mlink = Provider=Microsoft.Jet.OLEDB.4.0； 指定提供者 mlink = mlink + Data Source= + mpath + Database1.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown If admin = True Then Adodc1.RecordSource = Select * from adminlogin where admin= Adodc1.Refresh Else Adodc1.RecordSource = Select * from guestlogin where guest= Adodc1.Refresh End If End Sub 基于 VB 的学生信息管理的设计与实现 - 24 - 5.3普通用户模块 5.3.1一般用户主界面 用户管理模块是为了方便管理人员对员工权限管理和修改用户密码而设置的，当用户经过人事调动升职以后，他的用户权限可能会发生改变；若是员工自己修改密码后，可能会忘记密码，这时，管理人员就可以根据员工的需要，重新修改密码。 用户登录后界面如图 5-6 所示。 图 5-6 用户登录后界面 5.3.2修改密码 修改用户密码界面如图 5-7、 5-8 所示。 - 25 - 图 5-7 用户修改密码 图 5-8 密码修改成功 修改用户密码程序代码如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 请输入用户名！ , vbOKOnly + vbInformation, 注意 Text1.SetFocus Exit Sub ElseIf Text2.Text = Then MsgBox 请输入密码！ , vbOKOnly + vbInformation, 注意 Text2.SetFocus 基于 VB 的学生信息管理的设计与实现 - 26 - Exit Sub ElseIf Text3.Text = Then MsgBox 请再次输入密码！ , vbOKOnly + vbInformation, 注意 Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then MsgBox 两次输入的密码不同，请重新输入密码！ , vbOKOnly + vbInformation, 注意 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End If Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定记录集命令类型（可在设计时指定） If admin = True Then Adodc1.RecordSource = select * from adminlogin where admin= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else Adodc1.RecordSource = Select * from adminlogin where admin= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(admin) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show - 27 - End If Else Adodc1.RecordSource = select * from guestlogin where guest= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the username has already exist) Exit Sub Else Adodc1.RecordSource = Select * from guestlogin where guest= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(guest) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End If End If End Sub Private Sub Command2_Click() Unload Me loginform.Show End Sub Private Sub Form_Load() Dim mpath$ mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 以下两行代码可合成一句， mlink 存放 Connection