vbaccess学生成绩管理系统
SELECT各子句的主要功能
SELECT子句 -- 指定由查询返回的列 INTO 子句 -- 创建新表并将结果行插入新表中 FROM 子句 -- 指定从其中检索行的表 WHERE 子句 -- 指定用于限制返回行的搜索条件 GROUP BY -- 子句指定查询结果的分组条件 HAVING 子句 -- 指定组或聚合的搜索条件 ORDER BY 子句 -- 指定结果集的排序 UNION运算符 -- 将两个或更多查询的结果组合为
关键词
学生成绩管理系统 Access数据库 Visual Basic开发语言 管理信息系统
系统需求分析
院系（年级）信息的添加、修改、删除和查询。 此功能为学生的分类管理提供依据。
学生基本信息的添加、修改、删除和查询。 课程设置信息的添加、修改、删除和查询。 学生成绩信息的添加、修改、删除、查询。
具体表结构参见书中的内容。
常用SQL语句
SELECT语句：实现数据查询。 INSERT语句：插入数据。 UPDATE：更新数据。 DELETE：删除数据。
SELECT语句的基本语法
SELECT子句 [ INTO 子句 ] FROM 子句 [ WHERE 子句 ] [ GROUP BY 子句] [ HAVING 子句 ] [ ORDER BY 子句 ]
DELETE语句的基本语法
DELETE FROM <表名> WHERE <条件表达式>
ADO数据访问技术
ActiveX Data Objects 的缩写，提供对各种数据库访问的标 准接口。
包括的主要对象有： 连接对象Connection。连接时必须指定要连接到的数据源
以及连接所使用的用户名和口令等信息。 命令对象Command。可以通过已建立的连接发出命令，对
Connection对象
Connection对象代表与数据源的连接。如果 是客户端/服务器数据库系统，该对象可以 等价于到服务器的实际网络连接。
C onn ection E rrors
C om m and
R ecordset
数据库连接字符串
conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\学生成绩.mdb; "
在本系统中，应该首先增加院系（年级）信息。 添加院系信息后，就可以添加学生信息了。 在课程设置管理模块中，可以对课程信息进行添
加、修改、删除和查看等操作。 在学生成绩管理模块中，可以对成绩信息进行添
加、修改、删除和查看等操作。
开发工具的选择
前台开发工具选择Visual Basic 6.0 后台数据库选择Access 中间层采用ADO数据访问技术，将对数据
单个结果集，该结果集包含联合查询中的所有查 询的全部行
INSERT语句的基本语法
INSERT INTO <表名> [（列名列表）] VALUES （插入值列表）
“列名列表”是可选项，由要插入数据的列名组 成，必须用圆括号将其括起来，并且用逗号对列 名进行分隔。 如果顺序插入表中所有列的值，则 可以将“列名列表”省略。
设计表结构
数据库结构设计是总体设计阶段非常重要 的环节，好的数据库结构可以简化开发过 程，使系统功能更加清晰明确。
数据库中包含7个表，即院系班级表Classes、 学生基本信息表Students、学期信息表Terms、 课程信息表Lessons、课程安排表 Arrangement、学生成绩表Scores和用户信息 表Users。
学生成绩管理系统
摘要
随着信息系统的普及，很多大、中、小学校都在 开发自己的学生成绩管理系统，以便对本学校学 生的基本信息和学习情况进行管理。
后台数据库使用Access，前台开发工具使用Visual Basic。
本系统采用目前比较流行的ADO数据访问技术， 并将每个数据库表的字段和操作封装到类中，从 而成功地将面向对象的程序设计思想应用到数据 库应用程序设计中。这也是本系统的特色和优势。
① 管理自己的用户信息 ② 管理普通用户的用户信息
学生成绩管理模块
院系信息管理 学生信息管理 课程设置管理 学生成绩管理
所需实用技术
所选开发工具的基本编程方法。 基本的后台数据库管理方法，例如创建数
据库、创建表、创建查询、备份和还原数 据库等。 常用SQL语句的使用。 ADO数据库访问技术。
VALUES子句中包含要插入的数据值列表。如果指 定了“列名列表”，则数据值列表必须与“列名 列表”完全对应；如果没有指定“列名列表”， 则数据值列表必须与表的所有列顺序完全对应。
UPDATE语句的基本语法
UPDATE <表名> SET <列名> = <值> [, …n] WHERE <条件表达式>
系统功能模块示意图
学生成绩管理系统
院
学
课
学
系 信 息
生 信 息
程 设 管置
成生 管绩
管
管
理
理
理
理
针 对 各 个 模 块 不 同 的 表 实 现 添 加 记 录 、修 改 记 录 、删 除 记 录 以 及 查询显示记录等功能
简单使用说明
运行系统后，首先会看到登录窗体，对用户的身 份进行认证。如果需要对普通用户进行管理，则 使用Admin用户登录；否则建议使用Users用户登 录。如果还要创建其他用户，可以在用户管理模 块中创建和管理。
库的操作以类的形式封装
用户管理功能模块
系
Admin 用户
统
用
户
信
息
管 普通用户
理
修改 Admin 用户的密码 创建、修改和删除普通用户信息 修改自身的用户名和密码
系统流程分析如图
开始 用户登录
重试 失败
否 失败超过 3 次
是 退出程序
成功 读取户
用户管理模块
管理自己的用户信息
数据源进行指定的操作。 记录集对象Recordset。查询命令可以将查询结果存储在本
地，这些数据以“行”（记录）为单位，返回数据的集合 被称为记录集。 字段对象Field。一个记录集行包含一个或多个字段。如果 将记录集看作二维网格，字段将排列起来构成列。每一字 段（列）都分别包含有名称、数据类型和值的属性。
学生信息管理系统VB+Access
学生信息管理系统VB+Access毕业学生信息管理系统摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。
管理信息系统是1门不断发展的新型学科，任何1个单位要生存发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。
本文介绍了在Visual Basic6.0环境下采用“自上而下的总体规划，自下而上的应用开发”策略开发1个管理信息系统的过程。
通过分析某1学校学生管理的不足，创建了1套行之有效的计算机管理学生信息的方案。
文章介绍了学生信息管理系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统说明了部分了几个主要模块的算法，本系统界面友好，操作简单，实用。
关键词：信息管理系统；学生管理；Visual Basic The management system of students information Abstract: Along with the technique of information in management more and more widespread and profound application, the implementation of the management information system to be gradually mature in the technique. The management information system is the new discipline which unceasingly develops, anyunit must survive the development, which wants the high efficiency to organize the internal activity, must establish the management information system which adapts with own characteristic. This article introduced environment uses "the top-down overall plan, the down-top application development" strategy to develop a management information system and the process under Visual Basic6.0. Through analyzes the insufficiency which some school student manages, founded a set of effective computer managements student information plan. The article introduced the student information management system system analysis part, including feasibility analysis, service flow analysis and so on; The system design partial mainly introduced the system function design and the database design and the code design; The system explained partial several main modules algorithm, this system contact surface friendly, the operation is simple, practical. Keywords：MIS；student management；Visual Basic注释：不含源代码。
用access创建学生成绩管理系统
制作成绩维护窗体
还可在命令按 钮的属性窗口， 修改设置其他
属性
准备表、查询、报表 制作数据查询窗体
建应用系统的切换面板
上一页 下一页 返回主页 结束放映
还可在命令按钮的属性窗口，修改、设置按钮的属性，保存 运行窗体，添加查找记录命令按钮，完成窗体创建工作
在设计视图中修改窗体
单击设计按钮 选择需要修改的窗体
调整控件布局和大小调 整完毕保存文件
上 一 页 下 一 页 返回主页 结束放映
制作成绩维护窗体
使用窗口下方命令按钮可实现数据的定位 添加删除记录命令按钮控件 点击命令按钮，拖动鼠 标，放到窗体上
准备表、查询、报表 准备表、查询、报表
制作数据查询窗体 制作数据查询窗体
准备表、查询、报表
双击运行窗体， 确定参数查询
制作数据查询窗体
运行新建窗体
设计视图中修改窗体
结束放映
•1、我们的市场行为主要的导向因素，第一个是市场需求的导向，第二个是技术进步的导向，第三大导向是竞争对手的行为导向。 •2、市场销售中最重要的字就是“问”。 •3、现今，每个人都在谈论着创意，坦白讲，我害怕我们会假创意之名犯下一切过失。 •4、在购买时，你可以用任何语言；但在销售时，你必须使用购买者的语言。 •5、市场营销观念：目标市场，顾客需求，协调市场营销，通过满足消费者需求来创造利润。2021年11月4日星期四 2021/11/42021/11/42021/11/4 •6、我就像一个厨师，喜欢品尝食物。如果不好吃，我就不要它。2021年11月2021/11/42021/11/42021/11/411/4/2021 •7、我总是站在顾客的角度看待即将推出的产品或服务，因为我就是顾客。2021/11/42021/11/4November 4, 2021 •8、利人为利已的根基，市场营销上老是为自己着想，而不顾及到他人，他人也不会顾及你。2021/11/42021/11/42021/11/42021/11/4
VB+access成绩分析统计系统论文
摘要成绩分析统计系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
此系统设计采用Visual Basic 6.0作为数据库的前端开发工具，采用Microsoft Access 2000关系数据库管理系统作为后台建立数据库并对其进行维护，可以对数据库进行添加、修改、删除等操作。
系统能够完成对成绩的查询、录入、修改、删除等有关信息管理的操作，并能对成绩做出简单的分析。
除此之外，系统还能够对总成绩及单科成绩进行一些常规的统计，为学生成绩管理者减少繁重而枯燥的工作，节约人力和物力，以及避免一些因人的情绪烦躁而出现的失误。
本系统适合于班级成绩管理及统计分析，可以大大提高成绩管理者的工作效率。
关键字：成绩分析统计系统 Visual Basic 6.0Microsoft Access 2000 数据库目录摘要 (1)引言 (2)第一章相关知识1.1Visual Basic 6.0简介 (2)1.2数据库概论及ACCESS 2000简介 (3)1.3管理信息系统概述 (3)1.3.1管理信息系统的组成1.3.2 系统开发的一般方法1.3.3管理信息系统的开发过程第二章系统需求分析及可行性分析2.1设计概要 (4)2.2考虑因素 (5)2.2.1实用性2.2.2可靠性2.2.3稳定性2.3需求分析 (5)2.3.1进行需求分析，初步规划系统功能2.3.2确定管理系统所要具备的功能2.4可行性分析 (6)2.4.1技术可行性2.4.2经济可行性2.4.3操作可行性]2.4.4法律可行性第三章系统总统规划3.1系统规划 (6)3.2系统方框图 (7)3.3数据库和数据表的设计 (7)第四章系统详细设计4.1用户登录模块设计 (8)4.2系统封面模块设计 (9)4.3成绩管理模块设计 (10)4.3.1成绩查询模块4.3.2成绩录入模块4.3.3成绩修改模块4.3.4成绩删除模块4.4成绩分析模块设计 (19)4.4.1及格率4.4.2优秀率4.5成绩统计模块设计 (19)4.5.1总成绩统计4.5.2单科成绩统计4.6关于模块的设计第五章软件测试5.1 系统测试环境 (22)5.2系统总统测试 (22)第六章总结语致谢 (23)主要参考文献引言当今社会是一个讲究效率的信息时代，生活节奏的加快，人们为了节省时间提高工作效率，进行着各种改造、常识和分析，运用各种高科技手段来适应不断变化的社会，致使人们越来越趋向于信息化、数字化发展，各种各样的信息管理系统逐渐成为了人们工作中不可缺少的工具。
VB课程设计--学生成绩管理系统
VB课程设计--学生成绩管理系统课程设计说明书 NO.1学生课程成绩管理系统1.1课程设计目的本课程的课程设计实际是学生学习完《可视化编程技术》课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。
1.2 课程设计的实验环境硬件要求能运行Windows 9.X操作系统的微机系统。
软件:Microsoft Visual Basic 6.0Microsoft Access 20031.3 课程设计的预备知识熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。
沈阳大学课程设计说明书 NO.2 2.1系统功能设计2.1.1 系统功能分析本学生课程管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生班级管理、学生成绩管理、学生的课程安排、成绩管理、用户等多种功能，因而具有较强的实用性和先进性。
系统主要可以实现以下的管理功能:班级管理、学生课程管理、学生成绩管理、用户管理等等。
2.1.2 系统功能模块设计学生课程成绩管理系统课成系程绩统管管维理理护课课课班成学班用退程程程级绩生级户出库安安课库成成管系管排排表管绩绩理统理查理查分登询询析录图2.1系统功能模块图沈阳大学课程设计说明书 NO.3 2.2系统详细设计2.2.1 登录模块设计1.界面设计本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USER表中，用户可以选择不同的登录编号及密码。
图2.2 登录模块2.属性设计名称 Text Passwordchar 用户编号输入框 txtUserName Admin 密码输入框txtPassword Admin *3.代码设计Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()EndEnd SubPrivate Sub cmdOK_Click()Dim Conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strUserID As StringDim strPassword As StringDim strSQL As String沈阳大学课程设计说明书 NO.4Static Count As BytestrUserID = Replace(Trim(txtUserName.Text), "'", "") strPassword = Replace(Trim(txtPassword.Text), "'", "") If strUserID = "" ThenMsgBox "用户名不能为空，请输入用户名～", , "登录错误"txtUserName.SetFocusExit SubElseIf strPassword = "" ThenMsgBox "密码不能为空，请输入密码～", , "登录错误" txtPassword.SetFocusExit SubEnd IfSet Conn = New ADODB.ConnectionSet rs = New ADODB.RecordsetstrSQL = "SELECT * FROM USERS WHERE UserID='" & strUserID & "' " strSQL = strSQL & " AND Password = '" & strPassword & "';" Conn.Open ConnStringrs.Open strSQL, ConnIf rs.EOF ThenCount = Count + 1MsgBox "用户名不存在或密码错误!", , "登录失败"txtUserName.Text = ""txtPassword.Text = ""txtUserName.SetFocusElseLoginSucceeded = TrueUserID = strUserIDUserName = rs("UserName").ValueMe.Hide沈阳大学课程设计说明书 NO.5End Ifrs.CloseConn.CloseSet rs = NothingSet Conn = NothingIf Count >= 3 ThenMsgBox "超过登录次数，无权登录本系统～", , "登录失败"EndEnd IfEnd Sub2.2.2 系统主界面模块设计1.界面设计主控模块起着连接各个程序的作用，通过此模块可以方便的进入其他各子模块中。
vb+access学生成绩管理系统课件
vb+access学生成绩管理系统
摘要
• 随着信息系统的普及，很多大、中、小学校都在开发自己的学生 成绩管理系统，以便对本学校学生的基本信息和学习情况进行管 理。
• 后台数据库使用Access，前台开发工具使用Visual Basic。 • 本系统采用目前比较流行的ADO数据访问技术，并将每个数据库
普通用户
Admin 用户
用户管理模块
管理自己的用户信息
① 管理自己的用户信息 ② 管理普通用户的用户信息
学生成绩管理模块
院系信息管理 学生信息管理 课程设置管理 学生成绩管理
vb+access学生成绩管理系统
所需实用技术
• 所选开发工具的基本编程方法。 • 基本的后台数据库管理方法，例如创建数据库、创建表、创建查
Field
vb+access学生成绩管理系统
Visual Basic数据库访问控件
• ADO Data控件 • DataList控件 • DataCombo控件 • DataGrid控件
vb+access学生成绩管理系统
数据库应用系统工程规划
• 本书实例中使用到的模块及其内容描述如下： • Const 用来管理工程中的全局常量。 • DbFunc 用来管理与数据库操作相关的函数，例如连接数据库、
• Provider 数据提供者。 • Data Source 指定数据库文件名，最后使用绝对路径。
vb+access学生成绩管理系统
Command对象
• Command对象定义了将对数据源执行的命令。
Connection Command Parameters
vb+access学生成绩管理系统
vb学生成绩管理系统
学生成绩管理系统组长(姓名、学号)：组员(姓名、学号)：专业班级：计算机指导教师：结束时间(年、月、日):目录摘要 (1)第1章开发背景和系统概述 (2)1.1开发背景 (2)1.2系统概述 (2)1.3开发环境 (3)第2章需求分析与功能介绍 (5)2.1需求分析 (5)2.2系统软件结构 (7)2.3系统功能介绍 (8)第3章主要界面设计与关键模块设计 (10)3.1主要界面设计 (10)3.2关键模块设计 (15)第4章系统数据库设计 (17)4.1数据库系统 (17)4.2系统数据库与VB的连接 (17)4.3数据库逻辑结构设计 (17)第5章系统整体评价及展望 (21)5.1整体评价 (21)5.2展望 (21)总结 (23)参考文献 (24)附录 (25)摘要为了更好的存储和管理学生信息, 在Windows XP平台上，使用Visual Basic6.0+Access 设计实现了学生信息管理系统。
学生成绩管理系统分为多个窗口：系统登陆窗口，系统主窗口，数据录入窗口，数据查询窗口，数据修改窗口等。
学生成绩管理系统启动后，出现登陆界面，在登陆界面输入用户相关信息，系统验证后，登陆到系统主界面，在系统主界面上根据不同的用户权限进行系统操作。
通过对窗口菜单的选择进入相应的管理界面，在相应的管理界面对所需管理的数据进行修改、添加、清理等操作。
本系统实现的功能包括用户管理（添加用户、撤销用户），信息维护（查找个人信息、修改密码），信息查询（成绩浏览、成绩查询、成绩添加、成绩删除）等。
本系统创建了一个数据库02.mdb，数据库中包括三个表：1.用户管理（use）---用户的基本信息（用户名、用户密码、用户类型）。
2.成绩管理---学生的课程包括学号、姓名、院系、专业、年制、学期、课程名称、分数等。
3.个人信息---学生的个人信息包括院系、专业、班级、学号、姓名、性别、政治面貌等。
同时还可利用系统中的文档编译器进行系统管理的同步记录及相关的文字信息记录。
基于VB的学生简易成绩管理系统的设计
1概述随着信息化的普及，对学生成绩的信息化管理在各院校得以广泛地应用。
各院校管理学生成绩的信息系统基本功能都大而全，对系统的控制权基本集中在与教学过程脱节的教务管理人员手中。
每次考试结束后，任课教师仅有在规定的时间内录入和查看自己所讲授课程成绩的权限。
成绩录入以后，学生可以以自己的学号、密码登录查看其成绩。
而任课教师要在教学的过程中，全面了解学生，尤其是想通过考试分数了解学生对其他课程的学习掌握情况几乎是很困难的。
因而，开发一个供教师使用的简易的学生成绩管理系统，能够实现任课教师对学生所有课程成绩的查看，是非常必要的。
它有助于教师更好地了解学生，在教学过程中因材施教，提高教学效率。
2系统功能模块设计本文设计开发的简易的学生成绩管理系统，选用Access2010完成数据库后台信息的管理，以Microsoft Visual Basic6.0作为开发平台。
学生成绩管理系统要实现的主要功能界面如下。
2.1登录模块：成绩系统的使用人员多为教师和学生两种类型。
无论是哪一类用户，登录的时候都必须填写用户名和密码。
学生用户的用户名为自己的学号，初始密码也是学号，他们对本系统仅可以进行成绩的查询。
教师用户作为管理员，有输入、查看并管理和维护学生各门课成绩的权限。
2.2编辑模块：在用户未正确登录之前，编辑模块是不可用的，只有用户成功登录，方可使用。
此模块只供教师用户使用。
界面包含三个标签，供教师编辑和管理学生的信息和成绩。
2.3查询模块：此模块供教师和学生用户查询成绩，提供了按学号和课程两种查询方式，用户正确登录后方可激活使用。
教师用户可以查看所有学生的成绩，学生用户只有查看自己成绩的权利。
2.4退出模块：供各类用户退出系统使用。
3数据库设计VB默认的数据库是微软的Access数据库。
它操作简便、灵活，具有强大的数据组织、用户管理等功能，能满足学生成绩管理的基本需求，而且对操作环境的要求较低。
系统开发者可以在VB中直接创建mdb数据库文件。
Access数据库VBA编程实例通用成绩处理系统
Access数据库VBA编程实例通⽤成绩处理系统Access数据库VBA编程实例——通⽤成绩处理系统诏安⼀中信息技术组吴瑶民同学们通过学习⾼中选修课4《数据库管理技术》第四章“开发数据库应⽤系统”，已初步学会了简单应⽤系统的设计，为了让同学们能进⼀步提升开发能⼒，以学⽣熟知的成绩统计为实例，结合VBA编写通⽤成绩处理系统。
⼀、系统总体分析与设计成绩录⼊采⽤EXCEL电⼦表格模板⽅式，各班以电⼦表格形式上缴年段，由年段汇总后导⼊通⽤成绩处理系统，然后由系统进⾏计算总分、排名次、质量分析后，通过导出功能导出EXCEL表格形式并打印出统计结果。
录⼊成绩与打印成绩都在教师悉熟的EXCEL电⼦表格进⾏，⽅便教师操作，数据的统计与分析由系统⾃动完成，提⾼⼯作效率。
将上述模块设计图⽰化后我们便可以得到所⽰的系统功能模块图：⼆、数据库分析与设计1．数据库数据结构分析通过对成绩统计过程分析及数据要求，创建该管理系统数据库，名为“通⽤成绩管理系统．mdb”，主要包含的数据表有“学⽣成绩”、“质量分析”两个表。
“学⽣成绩”为EXCEL 格式的“学⽣成绩”通过导⼊模块⽣成，EXCEL格式的“学⽣成绩”格式如下：通⽤成绩处理系统导⼊成绩（EXCEL格式）导⼊信息浏览统计分析三率浏览学⽣站队浏览退出系统导出学⽣站队表返回导出质量分析导出结果（EXCEL格式）使⽤帮助计算三率返回班级排名年段排名“质量分析”表结构设计如下表：字段名称数据类型字段⼤⼩⼩数位班级⽂本 2科⽬⽂本8与考⼈数数字长整形⾃动及格⼈数数字长整形⾃动⾼分⼈数数字长整形⾃动平均分数字单精度 2及格率数字单精度 4⾼分率数字单精度 42、窗体的设计与实现窗体是Access 2003数据库系统的⼀个重要对象。
前⾯介绍的数据导⼊、浏览记录、质量分析、显⽰查询结果、导出数据等都是在“数据表”视图中所进⾏的操作。
（1）通⽤成绩处理系统窗体：图⼀该窗体及命令按钮VBA代码：Private Sub Form_Load()MsgBox ("使⽤前先进⼊“使⽤帮助”，花⼏分钟阅读⼀下使⽤说明，会使你的⼯作事半功倍!")End SubPrivate Sub 命令0_Click()On Error GoTo errDim db As DatabaseSet db = CurrentDb()For i = 0 To db.TableDefs.Count - 1If db.TableDefs(i).Name = "学⽣成绩" ThenDoCmd.DeleteObject acTable, "学⽣成绩"End IfNext iSet db = NothingMsgBox ("请将要导⼊的⽂件置于“成绩统计”⽂件夹中，⽂件名必须是“学⽣成绩”") DoCmd.TransferSpreadsheet acImport, 8, "学⽣成绩", CurrentProject.Path & "\学⽣成绩.xls", TrueMsgBox ("导⼊完成!")Exit Suberr:MsgBox ("找不到⽂件或⽂件格式不对")End SubPrivate Sub 命令11_Click()DoCmd.OpenTable "学⽣成绩"End SubPrivate Sub 命令12_Click()MsgBox ("提⽰：00表⽰年段，01表⽰⼀班，02表⽰⼆班.....")DoCmd.OpenTable "质量分析"End SubPrivate Sub 命令13_Click()DoCmd.OpenQuery "temp"End SubPrivate Sub 命令15_Click()FollowHyperlink CurrentProject.Path & "\功能说明.doc" End SubPrivate Sub 命令22_Click()DoCmd.Quit acQuitSaveAllEnd SubPrivate Sub 命令6_Click()DoCmd.OpenForm "质量分析"End SubPrivate Sub 命令7_Click()DoCmd.OpenForm "导出结果"End Sub（2）质量分析窗体各命令按钮VBA代码：Private Sub 命令10_Click()Dim kmzf(15) As DoubleDim kmmc(15) As StringFor i = 1 To 11kmzf(i) = Val(Me.Controls("txtzf" & i).Value)Nextkmmc(1) = "数学"kmmc(2) = "语⽂"kmmc(3) = "英语"kmmc(4) = "物理"kmmc(5) = "化学"kmmc(6) = "地理"kmmc(7) = "政治"kmmc(8) = "历史"kmmc(9) = "⽣物"kmmc(10) = "⽂综"kmmc(11) = "理综"Dim k As Stringtt = Falsek = ""'Dim db As DAO.Database '声明数据库对象变量Set db = CurrentDb()db.Execute "DELETE * FROM 质量分析;"For i = 1 To 11If Me.Controls("check" & i) <> 0 ThenCall 统计(kmmc(i), kmzf(i), "00") '算年段三率For j = Val(TXTbjks.Value) To Val(TXTbjks.Value) + bjzs - 1 If j < 10 Then k = "0" & CStr(j)Call 统计(kmmc(i), kmzf(i), k) '算班级三率Elsek = CStr(j)Call 统计(kmmc(i), kmzf(i), k)End IfNext jEnd IfNext iIf tt = False ThenMsgBox ("统计完毕，请返回主菜单导出结果打印")End IfEnd SubPrivate Sub 命令97_Click()Call 查询End SubPrivate Sub 命令100_Click()DoCmd.CloseEnd SubPrivate Sub 命令111_Click()Dim kk As StringCall 计算总分For i = Val(TXTbjks.Value) To Val(TXTbjks.Value) + Val(txtbjzs.Value) - 1 Debug.Print iIf i < 10 Thenkk = """0" & CStr(i) & "*"""Elsekk = """" & CStr(i) & "*"""End IfDebug.Print kkCall RangBerechnen_bj("学⽣成绩", kk, "总分")Next iMsgBox ("处理完毕！")End SubPrivate Sub 命令98_Click()tt = True'Call 计算总分Call RangBerechnen("学⽣成绩", "总分") '年段排名Call 查询If tt ThenMsgBox ("统计完毕，请返回主菜单导出结果打印")End IfEnd Sub（3）导出结果窗体各命令按钮VBA代码：Private Sub 命令0_Click()DoCmd.OutputTo acOutputQuery, "temp", acFormatXLS, CurrentProject.Path & "\学⽣站队表.xls" MsgBox "导出完毕!结果为“成绩统计\学⽣站队表.xls”"End SubPrivate Sub 命令1_Click()DoCmd.OutputTo acOutputTable, "质量分析", acFormatXLS, CurrentProject.Path & "\质量分析.xls" MsgBox "导出完毕!结果为“成绩统计\质量分析.xls”"End SubPrivate Sub 命令3_Click()DoCmd.CloseEnd Sub（4）通⽤模块代码Public tt As BooleanPublic i As IntegerPublic j As IntegerPublic str As StringPublic bjzs As IntegerPublic kmzf(15) '存放各科总分Public kmmc(15) '存放科⽬名称Sub 统计(km As String, kmzf As Double, jj As String)Dim sum As LongDim intI As LongDim avg As SingleDim gfli As SingleDim jgli As SingleDim strsql As StringDim db As DAO.Database '声明数据库对象变量Dim recName As DAO.Recordset '声明记录集对象变量Dim strName As DAO.Field '声明字段对象变量On Error GoTo wrongSet db = CurrentDb() '指定数据库为当前数据库If jj = "00" ThenSet recName = db.OpenRecordset("学⽣成绩") '计算年段ElseSet recName = db.OpenRecordset("select * from 学⽣成绩 where 班号 like " & """" & jj & "*" & """") '计算班级End IfSet strName = recName.Fields(km) '指定记录集“科⽬”字段' 计算三率jgrs = 0 '及格⼈数sum = 0 '总分gfrs = 0 '⾼分⼈数intI = 0 '总⼈数Do Until recName.EOFsum = sum + IIf(IsNull(strName), 0, strName) ' 将“科⽬”字段读⼊数组If strName >= kmzf * 0.6 Thenjgrs = jgrs + 1 '及格⼈数End IfIf strName >= 0.8 * kmzf Thengfrs = gfrs + 1 '⾼分的⼈数End IfintI = intI + 1 '总⼈数recName.MoveNext '读取记录集的下⼀⾏记录Loopavg = sum / intI '平均分gfli = gfrs / intI '⾼分率jgli = jgrs / intI '及格率'写⼊“质量分析”表Set recName = db.OpenRecordset("质量分析") '将“”表读⼊记录集recName.AddNew recName.Fields(0) = jjrecName.Fields(1) = kmrecName.Fields(2) = intIrecName.Fields(3) = jgrsrecName.Fields(4) = gfrsrecName.Fields(5) = avgrecName.Fields(6) = jglirecName.Fields(7) = gflirecName.UpdateExit Subwrong:MsgBox ("找不到科⽬成绩或者班级总数设置不对!请检查并重新设置")i = 11: j = 18000: tt = TrueEnd Sub'⽣成temp查询Public Sub 查询()Dim db As DAO.Database '声明数据库对象变量Dim qry As DAO.QueryDefSet db = CurrentDb()For i = 0 To db.QueryDefs.Count - 1If db.QueryDefs(i).Name = "temp" ThenDoCmd.DeleteObject acQuery, "temp"End IfNext iSet qry = db.CreateQueryDef("temp")qry.SQL = "SELECT * FROM 学⽣成绩 ORDER BY 总分 DESC"Set db = NothingEnd SubPublic Sub 计算总分()Dim db As DAO.Database '声明数据库对象变量Dim recName As DAO.Recordset '声明记录集对象变量Dim strName As DAO.Field '声明字段对象变量kmmc(1) = "数学"kmmc(2) = "语⽂"kmmc(3) = "英语"kmmc(4) = "物理"kmmc(5) = "化学"kmmc(6) = "地理"kmmc(7) = "政治"kmmc(8) = "历史"kmmc(9) = "⽣物"kmmc(10) = "⽂综"kmmc(11) = "理综"Set db = CurrentDb() '指定数据库为当前数据库Set recName = db.OpenRecordset("学⽣成绩") '将“”表读⼊记录集On Error GoTo errDo Until recName.EOFsum = 0For i = 1 To 11If Form_质量分析.Controls("check" & i) <> 0 Thensum = sum + IIf(IsNull(recName.Fields(kmmc(i))), 0, recName.Fields(kmmc(i))) End IfNext irecName.EditrecName.Fields("总分") = sumrecName.UpdaterecName.MoveNextLoopExit Suberr:MsgBox "找不到成绩!请重新设置科⽬"End Sub'计算名次Public Function RangBerechnen(TableName As String, LeistungFeld As String) As Boolean On Error GoTo Err_Rang Dim db As DAO.DatabaseDim iRang As LongDim iLeistung As IntegerDim iGleicherRang As IntegerSet db = CurrentDbSet rst = db.OpenRecordset("SELECT * FROM " & TableName & " ORDER BY " & LeistungFeld & " DESC", dbOpenDynaset)iRang = 1With rstDo While Not .EOFiLeistung = .Fields(LeistungFeld).Edit!年名 = iRang.Update.MoveNextIf .EOF Then Exit DoiGleicherRang = 0Do While (.Fields(LeistungFeld) = iLeistung).Edit!年名 = iRang.UpdateiGleicherRang = iGleicherRang + 1.MoveNextIf .EOF Then Exit DoLoopiRang = iRang + 1 + iGleicherRangLoop.CloseEnd WithRangBerechnen = TrueSet db = NothingSet rst = NothingExit FunctionErr_Rang:RangBerechnen = FalseResume Exit_RangEnd Function'计算班级名次Public Function RangBerechnen_bj(TableName As String, tiaoj As String, LeistungFeld As String) As BooleanOn Error GoTo Err_RangDim rst As DAO.RecordsetDim iRang As LongDim iLeistung As IntegerDim iGleicherRang As IntegerDim sqlstr As Stringsqlstr = "SELECT * FROM " & TableName & " where 班号 like " & tiaoj & " ORDER BY " & LeistungFeld & " DESC;" Set db = CurrentDbSet rst = db.OpenRecordset(sqlstr, dbOpenDynaset)iRang = 1With rstDo While Not .EOFiLeistung = .Fields(LeistungFeld).Edit!班名 = iRang.Update.MoveNextIf .EOF Then Exit DoiGleicherRang = 0Do While (.Fields(LeistungFeld) = iLeistung).Edit!班名 = iRang.UpdateiGleicherRang = iGleicherRang + 1.MoveNextIf .EOF Then Exit DoLoopiRang = iRang + 1 + iGleicherRang Loop.CloseEnd WithRangBerechnen_bj = TrueSet db = NothingSet rst = NothingExit_Rang:Exit FunctionErr_Rang:RangBerechnen_bj = False Resume Exit_RangEnd Function。
(ACCESS数据库VB编程)学生信息管理系统
大学数据库课程设计报告题目：学生信息管理系统班级：计本063班姓名：学号：指导教师：2009年 6 月24 日学生信息管理系统摘要：随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。
管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。
学生成绩管理系统主要提供方便高效的管理功能，该实现以下一些基本功能：1.系统管理模块：维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。
2.班级管理模块：实现对全校班级的管理工作，包括：班级游览、班级添加、班级修改等，这三个功能模块各自独立，完成学校的全部班级的管理。
3.学生学籍管理模块：实现对学生的个人信息的管理工作，包括学籍添加、学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。
4.课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。
该模块包括基本课程设置和班级课程设置两个模块。
5.成绩管理模块：检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。
6.奖惩信息管理模块：奖惩信息是用来督促学习学习活动的一种手段，包括奖惩信息的添加和修改。
7.个人信息查询模块：用于学生个人信息的查询，分为奖惩信息查询和成绩查询两个模块。
8. 退出模块：此模块完成程序的退出。
该程序界面友好，功能强大，适合实际应用。
关键字：数据库ACCESS数据库学生信息操作VB编程1.概述该信息管理系统可以说是一个综合性的学校学生管理系统，它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统等多种功能，因而具有较强的实用性和先进性。
项目开发背景：学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,对学生来说也可以轻松的查阅自己在校的成绩以及信息等.但是一直以来人们都是靠传统人工的方式管理学生成绩,这种管理方式存在着许多缺点,如:效率低,保密性差,另外时间一长,将产生大量的文件和数据,这对于查找,更新和维护都带来了不少的困难。
Access数据库VBA编程实例通用成绩处理系统
Access数据库VBA编程实例通用成绩处理系统Access Database VBA Programming Example - General Score Processing SystemBy Wu Yaomin。
n Technology Group。
Zhaoan No.1 Middle SchoolAfter studying Chapter 4 "Developing Database n Systems" of the elective course "Database Management Technology" in high school。
students have learned how to design simple n systems。
In order to XXX capabilities。
a general score processing system is developed using VBA。
with score XXX.I。
Overall Analysis and Design of the SystemThe score entry adopts the EXCEL electronic spreadsheet template method。
Each class submits the electronic spreadsheet in the form of a grade level。
which is then imported into the generalscore processing system after being summarized by the grade level。
The system then calculates the total score。
ranking。
and quality analysis。