VB编程环境下的高校学生成绩管理系统设计研究

第一篇：VB编程环境下的高校学生成绩管理系统设计研究

VB编程环境下的高校学生成绩管理系统设计研究

【摘 要】本文通过对VB编程方面相关的研究，致力于VB编程环境下的高校学生成绩管理系统设计研究，希望通过学生成绩管理系统的应用来减少学生信息管理方面的工作量。

【关键词】VB 编程环境 高校 学生 成绩管理 系统设计

在我国教育改革工作的深入，在以往的成绩管理模式，管理体系和管理方式上逐渐显露出它的缺陷。VB编程是以计算机技术为依托，学生的成绩管理的需要为要求，采用程序设计知识和人工智能设计来弥补我校成绩管理系统中的不足之处。由此来开发一套智能化的高等教育学院的大学生成绩管理系统。

一、VB 语言

VB就是 Visual Basic，它是由美国微软公司支持开发的一种事件驱动编程语言，VB在BASIC编程语言的基础上进行改造的。VB为一种可视化以事件启动方式的高级架构花的程序驱动语言。Visual Basic常用于windows环境下各类应用软件程序的开发。VB具有效率高、操作简便、功能强等特点，它可以与专业的开发软件Software Development Kit软件相提并论。在VB环境中，通过事件的驱动机制与新型的可视化工具，连接windows内部的程序通口、应用程序编程接口。连接延迟锁相环、开放数据库互连、对象连接与嵌入等技术可达到快速发掘windows环境中的功能以及开发界面中各种应用软件。

二、VB编程环境下的高校学生成绩管理系统设计研究

（一）高校学生成绩管理系统的总体结构

本系统设计构架如图1所示，其界面风格采用的是windows界面风格，系统启动开启Splash动画效果。在高校学生成绩管理系统进行登入时，由于信息录入是一件较为重要的工作，应对具有操作权限的用户设定专门的账户与密码，通过账户与密码的访问限制才可进入主界面，用户通过下拉菜单选项进行选定和工作、也可采用右键式的菜单设计以及工作栏菜单等多种菜单设计。同时也可设置快捷键、老板键等，设计者可由自己的习惯来进行系统设计。

图1系统总体结构

（二）高校学生成绩管理系统的设计

1.信息录入模块设计

在高校学生成绩管理系统的信息录入模块中，在录入的信息包括：学生成绩、基本情况、军训情况、综合测定、评优评先、奖惩情况、学位申报以及学籍变动等等数据资料。系统操作人员可以对这些信息进行增加、修改删除等系统操作。学生成绩管理工作是一种特殊同时重要的工作，该系统会自动的记录用户的登入情况以便日后对工作人员的登入信息进行查询。

2.系统数据库设计

数据库的用途是存放系统中需要保存的数据、信息作用的储存设备。本系统设计中所采用的数据类型为字符串型、数值型两种。根据数据库中所保存的数据特点，本系统采用Microsoft Access 2000数据库，将数据表采用集合的方式，放入程序中所使用的储存设备中。该系统中储存数据包括学生的基本情况、基本情况、军训情况、毕业鉴定、综合测定、评优评先、奖惩情况、学位申报以及学籍变动等等数据资料，结合系统设计中的特点，采用结构化查询语言（Structured Query Language），简称为SQL语言来进行学生信息查询工作。SQL语言具有拓展性强、通用性强、操作简便、容易使用等优势。以下为SQL语言学生成绩登记表，见表1。

3.信息查询、浏览、帮助模块的设计

（1）信息查询模块：可进行学生基本信息的查询，在信息查询模块用户可通过学生的姓名、身份证号码、学号等信息进行查询。也可进行多条件进行查询。同时可通过输出设备将操作人员需要导出的信息进行打印。（2）信息浏览模块：可进行学生数据、信息的核对，在该模块中操作人员可根据学生的入学年份、专业信息、毕业年份对学生的基本信息进行核实和检查等工作。在对信息浏览模块进行设计时设计人员应以工作的实际需要进行设计，以易于浏览、修改为设计重点。（3）帮助模块：是对于还不熟悉系统的操作人来来进行系统的操作学习，遇到不会操作的地方也可通过帮助模块来获取帮助。该模块是本系统的详细说明，对操作人员尽快熟悉本系统有极大的帮助。本系统采用的是VB6.0系统的TabStrip、Toolbar、RichTextBox、treeview等控件相组合的设计方案来进行系统设计的，以一般的Windows传统的帮助系统相比操作更加简便、容易学习。

三、总结

本文中设计的学生成绩管理系统主要应用于学生成绩管理，其目的是实现学生成绩的统一化管理，通过计算机技术对学生的成绩进行日常的管理工作。VB编程软件可以与专业的开发软件Software Development Kit软件相提并论，采用VB来完善学生成绩管理系统具有效率高、操作简便、功能强等特点，值得广泛推广。

参考文献：

[1]周姝，张惠茹.基于VB的学生成绩档案管理系统的设计与实现[J].计算机光盘软件与应用，2012（21）：229-230.[2]赵亚娟.VB学生信息管理系统设计与实现[J].电脑编程技巧与维护，2011（3）：38-42.

第二篇：VB作业-模拟成绩管理系统

VB程序设计 模拟成绩管理系统

学院：汽车学院

专业：（交通运输）汽车运用工程 班级： 姓名 学号：

模拟成绩管理系统

2016 《VB程序设计》作业要求

1.做一个成绩管理系统。

2.系统中包括部分学生个人信息，如学号，姓名，性别，出生年月日，班级，籍贯，家庭住址，家庭电话，备注等，及若干（不少于8门）课程成绩和课程学分；输入不少于10条记录；

3.需计算总评成绩（即学分加权平均成绩），并计算排名，且反映在字段中； 4.程序需具备的功能：记录浏览，添加，修改，删除，查询（按姓名或学号查询）

5.建议不要用ADO控件 6.作业的提交：（1）电子版。

a.该版本应该是在你的或老师的电脑上都能运行的，与数据库的路径无关的，提交以前请在其他同学电脑上运行一下，确保程序的运行和电脑无关；

b.把所有文件放在同一个文件夹中，压缩文件名：VB-班级-学号-姓名，如：VB-汽运1班-xxxxxxxx-张三.zip； c.提交邮箱随后公布；

（2）纸质版。纸质版应包括：

a.封面，作业要求； b.主要界面；

c.主要代码，附程序功能注释及主要语句注释。d.附必要的说明。

模拟成绩管理系统

系统运行界面

查询功能

检索框内输入学号或姓名，点击查询，即可在右方显示基本信息，并显示总评成绩。点击清空按钮后，可继续输入。

例如:输入学号“09”后，显示界面如下图

如果没有找到纪录，则发出警告，如下图

主要代码： 查询按钮: Private Sub Command1_Click()

Me.Data1.Recordset.Movefirst 将记录指针指向第一个纪录

If Me.Combo1.Text <> “" Then

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”请重新输入！“, 48, ”注意“ 未找到匹配的纪录，则显示提示

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“ 查找

Combo2.Text = Data1.Recordset(”number“)显示

End If

End If

If Me.Combo2.Text <> ”“ Then 输入学号时

模拟成绩管理系统

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”请重新输入！“, 48, ”注意“

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

Combo1.Text = Data1.Recordset(”name“)

End If End If Private grade As String * 5

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))

计算加权成绩

Me.Text19.Text = grade End Sub

添加功能

点击“添加”按钮后，弹出新窗口，输入完整信息后，点击更新，如果信息 不完整，系统会提示“请输入完整数据！”。输入完成后，点击更新，数据便录入 数据表中，并返回初始界面，可继续输入。点击“取消”按钮后，退出窗口2，返回窗口一，继续进行其他操作。

模拟成绩管理系统

主要代码： 添加按钮

Private Sub Command3_Click()

inNum = 1

Form2.Show 1

End Sub 窗口二代码

Private Sub Command1_Click()

If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Or Text7.Text = ”“ Or Text8.Text = ”“ Or Text9.Text = ”“ Or Text10.Text = ”“ Or Text11.Text = ”“ Or Text12.Text = ”“ Or Text13.Text = ”“ Or Text14.Text = ”“ Or Text15.Text = ”“ Or Text16.Text = ”“ Or Text17.Text = ”“ Or Text18.Text = ”“ Or Text20.Text = ”“ Or Text21.Text = ”“ Or Text22.Text = ”“ Or Text23.Text = ”“ Or Text24.Text = ”“ Or Text25.Text = ”“ Or Text26.Text = ”“ Then 提示输入完整数据

b = MsgBox(”请输入完整数据！“, 4 + 48, ”注意“)

Text1.SetFocus

Exit Sub

End If

With Data1

.Recordset.AddNew

.Recordset(”number“)= Text1.Text 将数据写入data1

.Recordset(”name“)= Text2.Text

.Recordset(”sex“)= Text3.Text

.Recordset(”birthday(year)“)= Text4.Text

……

.Recordset.Update

End With

Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“: Text4.Text = ”“: Text5.Text = ”“: Text6.Text = ”“: Text7.Text = ”“: Text8.Text = ”“: Text9.Text = ”“: Text10.Text = ”“: Text11.Text = ”“: Text12.Text = ”“: Text13.Text = ”“: Text14.Text = ”“: Text15.Text = ”“: Text16.Text = ”“: Text17.Text = ”“: Text18.Text = ”“: Text20.Text = ”“: Text21.Text = ”“: Text22.Text = ”“: Text23.Text = ”“: Text24.Text = ”“: Text25.Text = ”“: Text26.Text = ”“: Text1.SetFocus End Sub Private Sub Command2_Click()

Unload Me

点击取消按钮时

Form1.Show

End Sub

窗口二与data1数据表连接

Private Sub Form_Load()

Me.Data1.DatabaseName = App.Path + ”201322020301-吕天翔.mdb“

Me.Data1.RecordSource = ”grade management“

模拟成绩管理系统

End Sub

修改功能

点击“修改”按钮后，按钮消失，‘保存’按钮出现，同时课程学分部分显现，可一并修改，修改完成后，点击保存，显示警告“当前记录将被修改，确定修改？”

点击确定，完成修改，并回到初始界面。

主要代码： 点击修改按钮

Private Sub Command4_Click()

Me.Text17.Visible = True

Me.Text18.Visible = True

Me.Text20.Visible = True

Me.Text21.Visible = True

Me.Text22.Visible = True

Me.Text23.Visible = True

Me.Text24.Visible = True

Me.Text25.Visible = True

Me.Text26.Visible = True

Label8(2).Visible = True

Me.Command3.Visible = False

Me.Command4.Visible = False

Me.Command5.Visible = False

Me.Command6.Visible = False

Me.Command10.Visible = True End Sub 点击保存按钮

调整 课程学分部分 可见性

调整按钮可见性

显示提示

选择“否”时选择退出 否则进入

写入

状态

模拟成绩管理系统

Private Sub Command10_Click()

a = MsgBox(”当前记录将被修改，确定修改？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Edit

With Data1

.Recordset(”number“)= Text1

.Recordset(”name“)= Text2

.Recordset(”sex“)= Text3

… …

.Recordset(”transportation-xuefen“)= Me.Text24

.Recordset(”automobile-xuefen“)= Me.Text25

.Recordset(”engine-xuefen“)= Me.Text26

End With

Data1.Refresh

Combo1.Clear

Combo2.Clear

End Sub

删除功能

点击“删除”按钮后将弹出“当前记录将被删除，确认删除？”对话框，点击“是”按钮后，将当前记录从data1中删除，并更新data1；若点击“否”，则退出，返回初始界面。

主要代码：

Private Sub Command5_Click()

显示提示

a = MsgBox(”当前记录将被删除，确定删除？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Delete

进行删除操作

Me.Data1.Refresh

更新data1

Combo1.Clear

Combo2.Clear End Sub

总评成绩计算

算法介绍

用课程学分部分数据与考试成绩计算总评成绩，课程学分部分通常隐藏在窗体中。

情况一 浏览时即显示总评成绩

模拟成绩管理系统

点击data控件按钮浏览数据的同时，该数据的总评成绩也同时显示。

主要代码: Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Me.Data1.Recordset.EOF = True Then

如果当前界面没有显示数据

Me.Data1.Recordset.Movefirst

为防止浏览时出错

Else

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)*

Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)*

Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)*

Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)*

Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+

Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+

Val(Me.Text26.Text))

总评成绩的计算

Me.Text19.Text = grade

End If End Sub

情况二：查询时即显示其总评成绩

计算方法相同，此处不再赘述。

排名功能

点击“排名”按钮后，根据总评成绩大小，在list控件中显示当前数据的排名情况，可以同时显示“名次”“姓名”“总评成绩”；同时在删除或添加部分数据后，能重新计算排名，此处通过动态数组实现显示个数随数据个数同时变化。

算法介绍：

添加一个text控件，用来存放当前窗口的总评成绩。使用data1控件的movefirst,movenext,eof 等属性完成数据库“数据个数计算”“所有数据姓名与成绩的提取与匹配”，使用动态数组完成数据存放；利用循环完成赋值及大小比较，最后通过list显示出来。

主要代码：

Private Sub Command8_Click()

Do Until Me.Data1.Recordset.EOF = True

Me.Data1.Recordset.Movenext

h = h + 1

Loop

模拟成绩管理系统

Me.Data1.Recordset.Movefirst

Dim t As String

Dim w As String

ReDim a(h, 2)As String * 5

定义与数据个数相同行数的二位动态数组

Do Until Me.Data1.Recordset.EOF = True

Me.Text27.Text =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))Text27中存放当前数据的成绩

a(i, 1)= Text2.Text

a(i, 2)= Text27.Text 把姓名和成绩赋值给数组

i = i + 1

Me.Data1.Recordset.Movenext

Loop

For i = 1 To h

For j = i + 1 To h

If a(i, 2)< a(j, 2)Then

t = a(i, 1)

w = a(i, 2)对数组中的成绩进行比较并重新排序

a(i, 1)= a(j, 1)

a(i, 2)= a(j, 2)

a(j, 1)= t

a(j, 2)= w

End If

Next

Next

p = ” 第 “ & k & ” 名 “ & a(1, 1)& a(1, 2)

List1.AddItem p

List1.AddItem ”“ 输出排序

For i = 2 To h

k = k + 1

p = ” 第 “ & k & ” 名 “ & a(i, 1)& a(i, 2)

List1.AddItem p

List1.AddItem ”“

Next

Text19.Text = ”"

End Sub

模拟成绩管理系统

课程学分的显示及修改功能

通过点击 课程学分显示 按钮，课程学分部分变为可见，并可通过点击修改按钮进行修改，点击 返回 按钮后，该部分继续隐藏。

浏览功能

通过点击data1控件按钮进行浏览。

第三篇：vb学生成绩管理系统论文

目 录

摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系统设计的目的与要求...........................................3 1.1系统设计的目的....................................................3 1.2系统设计的实验环境................................................4 1.3系统设计的预备知识................................................3 1.4系统设计的要求....................................................4

第三章 系统的概述.....................................................3 2.1系统的需求........................................................3 2.2可行性分析........................................................4 第四章 前台界面分析...................................................4 3.1 登陆界面..........................................................4 3.2信息查询..........................................................6 第五章 数据库的分析...................................................6 4.1 YONGHU表...........................................................7 4.2 STUDENT 表.........................................................7 4.3 SCORE表...........................................................7 4.4 COURSE表...........................................................8 第六章 软件维护.......................................................8 5.1数据维护..........................................................9 5.2代码维护..........................................................9 结语及致谢............................................................9 参考文献..............................................................9

VB学生成绩管理系统

摘要:随着科学技术在管理上越来越深入而广泛的应用，管理信息系统的技术已逐步成熟。学生成绩管理系统是一个不断发展的新型学科，任何一个学校要生存要发展，要高效率地把内部活动有机地组织起来，因为管理这些庞大的体系是非常困难的，要想有机地组织起来，就必须建立与自身特点相适应的成绩管理系统。本文对Visual Basic6.0应用程序设计等工具进行了较深入的学习和应用，利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，主要完成了对学生成绩管理系统的系统分析部分，界面的设计、数据库的设计等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；

关键词：visual basic，学生成绩管理系统，数据库，查询

Abstract:Along with science technique is on the management more and more thorough but extensive application, manage information system of technique already gradually mature.Student result management the system is a new academics which develops continuously, the whichever school wants to exist to want a development, high-efficiencily internal activity organically the organization get up, because manage these huge systems are very difficult, think organically the organization get up, have to build up is mutually accommodative with oneself characteristics of result management system.This text to Visual Basic6.0 application program design etc.the tool carried on more thorough study and application, making use of what it provide various development tool which face to object, is the intelligence that data window way's this ability is convenient and simple and direct to manipulate a database to turn object particularly, mainly completed to manage the analysis part of the system of system to student's result, the design, database of interface of design etc.;The system design part mainly introduced design and database design of the system function and code design;Keywords: visual basic，Student result management the system，database, enquiries

第一章 引言

在高科技不断发展的今天，计算机技术己经广泛应用到社会的各个领域。从六十年代中期爆发了著名的软件危机开始，计算机界就一直在探索软件开发理论和方法，以确保计算机技术能够高效地应用于各领域。随着计算机技术不断发展、完善，如何开发、应用高效率计算机软件、信息系统一直是开发人员在试图解决的难题。尽管开发人员已经提供了很多解决的方法，但是现在开发、应用管理信息系统软件的过程中，仍会碰到以下的情形。学生成绩管理系统软件应用的好坏直接影响到学校以及学校今后发展。只有确定出简单、安全、高效的开发设计方法并应用于学生成绩管理系统的开发设计中，才能使先进的计算机工具为个人发展提供高效的服务:才能开发出完整灵活的学生成绩管理系统，具有良好的可扩充性、适应性，系统安全性能高，具有友好的用户界面并且操作简便，因此，学生成绩管理系统开发设计方法的应用研究具有积极的现实意义。第二章 系统设计的目的与要求 2.1 系统设计的目的

本课程设计是计算机科学与技术专业重要的实践性环节之一，是在学生学习完《程序设计语言(C)》课程后进行的一次全面的综合练习。本课程设计的目的和任务： 2.2 系统设计的实验环境

硬件要求能运行Windows 2000/XP操作系统的微机系统。C语言程序设计及相应的开发环境。

2.3 系统设计的预备知识

熟悉C语言及C语言开发工C语言与Access。

第二章 系统的概述

本学生成绩管理系统可以说是一个综合性的学校学生成绩管理系统，这它集成了多种功能，因而具有较强的实用性和先进性。2.1系统的需求

通过调查,要求系统需要有以下功能: ⑴ 由于操作人员的计算机知识普遍较差,要求有良好的人机界面;⑵ 由于该系统的使用对象多,要求有较好的权限管理;⑶ 原始数据修改简单方便,支持多条件修改 ⑷ 方便的数据查询，支持多条件查询;⑸ 在相应的权限下，删除数据方便简单，数据稳定性好； ⑹ 数据计算自动完成，尽量减少人工干预;2.2可行性分析

由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows XP中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。第三章 前台界面分析 3.1 登陆界面

主要代码

Option Explicit Dim m As Integer

Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private rsmc As ADODB.Recordset Public username As String Private Sub cmdOk_Click()Dim ee As String rs.MoveFirst If m < 3 Then If Trim(txtusername.Text)= “" Or pwd.Text = ”“ Then MsgBox ”用户名或密码不能为空！请重新输入！“, vbInformation, ”登录信息“ Exit Sub End If Do While Not rs.EOF If rs.Fields(0)= txtusername.Text And rs.Fields(1)= pwd.Text Then MsgBox ”欢迎你进入学生成绩管理系统,“ frmmain.Show Unload Me Exit Sub End If rs.MoveNext Loop m = m + 1 ee = MsgBox(”用户名或密码错误！请重新输入！“, vbCritical + vbRetryCancel, ”登录信息“)'重试/取消 txtusername.Text = ”“ If ee = vbNo Then Unload Me Else pwd.Text = ”“ txtusername.SetFocus

End If Else MsgBox ”对不起，您的输入次数已达到最大限度！请退出！“, vbExclamation, ”提示信息“ '提示信息，确定 End End If End Sub Private Sub Form_Load()Set conn = New ADODB.Connection

conn.Provider = ”Microsoft.Jet.OLEDB.4.0“ conn.ConnectionString = ”Data Source=“ & App.Path & ”aa.mdb“ conn.Open Set rs.ActiveConnection = conn With rs.Open(”select * from yonghu“).MoveFirst End With txtusername.Text = rs.Fields(0)Do While Not rs.EOF txtusername.AddItem(rs.Fields(0))rs.MoveNext Loop txtusername.Text = ”" End Sub 3.2信息查询

信息查询主要是对学生的基本信息和学生的成绩进行查询。在查询的过程你可以利用学号、课程号、专业名等进行查询。第四章 数据库的分析

4.1 yonghu表

主要是登陆用户所用的表。

4.2 student 表

学生的各种信息都来源于这个表。4.3 score表

此表是记录学生成绩信息表。4.4 course表

此表是记录学生课程的表。第五章 软件维护

在软件运行维护阶段对软件产品所进行的修改就是维护。系统维护就是为了保证系统中的各个要素随着环境的变化始终处于最新的，正确的工作状态。系统维护的目的是保证管理信息系统正常而可靠地运行，并能使系统不断地得到改善和提高，以充

分发挥作用。

本系统的维护是面向系统中各种构成要素的，根据维护对象的不同，系统维护的内容可分为以下几类： 5.1数据维护

本系统对数据的需求是不断发生变化的，系统中查询题目中数据要定期正常更新，或随环境及需要的变化而进行调整。此外，数据的备份与恢复，都是数据维护的工作内容。5.2代码维护

随着系统应用范围的扩大，应用环境的变化，系统中的各种代码都需要进行一定程度的增加、修改、删除，以及设置新的代码。结语及致谢

通过这次的设计，让我对VB的使用有了进一步的了解。在我做设计的过程遇到了许多的困难。通过老师和同学的帮助, 一一化解了困难，并从中学到了很多编程方面的知识。

在本次毕业设计中，我要向我的指导老师致以深深的谢意，感谢指导老师在这段时间里在学习上和生活上所给予的悉心的教诲和无微不至的帮助，在我感觉到自己知识有所贫乏的时候给了我细心的指导和技术上的支持。使我自身的能力得到了不少的提高，这对于我以后的工作和学习都有一种巨大的帮助。感谢指导老师的耐心辅导。

参考文献

[1] 宗大华，陈吉人.C语言程序设计教程.人民邮电出版社，2004-6-1 [2] 韩春成.C语言程序设计教程/21世纪高等院校规划教材.中国水利水电出版社,2007，1，14 [3] 宁正元.数据结构--用C语言描述.中国水利水电出版社，2005-4-27 [4] 李梅.C语言编程入门.化学工业出版社，2002,01,01 [5] 于华,都一兵.优化Visual Basic．NET应用程序的性能[J].计算机系统应用,2004,10 [6] 邵英海.Visual Basic数据库开发技术的探讨.[J].丹东纺专学报,2004,11,4 [7] 金凤霞.VB中Paint Picture图形方法的使用 CAJ原文下载[J]., 1999,04 [8] 谭浩强.《C程序设计题解与上机指导（第3版）》.清华大学出版社,2005,7 [9] 聂雪军,贺军/译.[美]Harvey M.Deitel, Paul J.Deitel /著.《C程序设计经典教程(第4版)》，清华大学出版社,2006,3 [10] 李春葆,张植民,肖忠付.《C语言程序设计题典》.清华大学出版社 ,2002,7 [11] 张小潘/译，[美]科汉/著.《C语言编程（第3版）》.电子工业出版社 ,2006,3

[12] 徐宝文 李志/译，[美]Brian W.Kernighan, Dennis M.Ritchie /著.《C程序设计语言(第2版·新

版)》.机械工业出版社,2004,1 [13] 鲁沐浴.《C语言最新编程技巧200例》.电子工业出版社,1997，1

[14] 梁

翎，李爱齐.《C语言程序设计实用技巧与程序实例》.上海科普出版社,1996，5 [15] 陈国章.《Turbo C程序设计技巧与应用实例》.天津科学技术出版社,1995，5 [16] 王士元.《C高级实用程序设计》.清华大学出版社,1996，6

第四篇：学生成绩管理系统VB程序

登陆

登陆

Private Sub cmdLogin_Click()If txtUser.Text = “" Then

MsgBox(”请输入用户名!“)

txtUser.SetFocus Else Call openconn sql = ”select * from login where username='“ & Trim(txtUser.Text)& ”' and password='“ & Trim(txtPwd.Text)& ”'“ rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then

MsgBox ”用户不存在！“

Else

Unload Me

frmMain.Show End If End If End Sub

退出

Private Sub cmdRegister_Click()Unload Me End Sub

功能选择

选课管理

Private Sub cmdChoice_Click()frmChoice.Show Unload Me End Sub 退出

Private Sub cmdExit_Click()End End Sub 查询

Private Sub cmdFind_Click()frmFind.Show Unload Me End Sub 成绩管理

Private Sub cmdGrade_Click()frmGrade.Show Unload Me End Sub 学生管理

Private Sub cmdStu_Click()frmStu.Show Unload Me End Sub

学生管理

添加

Private Sub cmdAdd_Click()frmAddStu.Show Unload Me End Sub 删除

Private Sub cmdDel_Click()rs.Delete MsgBox(”删除成功！“)End Sub 编辑

Private Sub cmdEdit_Click()frmEditStu.Show Unload Me End Sub 查找

Private Sub cmdFind_Click()'查询功能 If cboFind.Text = ”学号“ Then

If txtInput.Text = ”“ Then

MsgBox(”学号输入不能为空!“)

txtInput.SetFocus

Else

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select * from stuInfo where ID='“ & txtInput.Text & ”'“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs1

DataGrid1.Refresh

End If

End If Else

If txtInput.Text = ”“ Then

MsgBox(”姓名输入不能为空!“)

txtInput.SetFocus

Else

Dim sql2 As String

Set rs2 = New ADODB.Recordset

sql2 = ”select * from stuInfo where name='“ & txtInput.Text & ”'“

rs2.CursorLocation = adUseClient

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相关信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs2

DataGrid1.Refresh

End If

End If End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 输出窗口

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

' txtInput.Text = DataGrid1.Columns.Item(4)''获取选中行的第5列数据

End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs 'datagrid绑定数据源 End Sub

成绩查询

返回 Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 确定

Private Sub Command1_Click()

lblGrade.Caption = Trim(cboCourse.Text)+ ”课程成绩“

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID,score.Num,score.score from score, course where name='“ & cboCourse.Text & ”' and score.Num=course.Num“

'sql1 = ”select * from course“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs1 End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from course“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF

cboCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

选课管理

返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID = ”“ Then

MsgBox(”请输入学号！“)

txtID.SetFocus ElseIf lstCourse.Text = ”“ Then

MsgBox(”请选择课程！“)Else

Dim sql1 As String

Dim sql2, name As String

Set rs2 = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID, score.Num from score , course where ID='“ & txtID.Text & ”' and name='“ & lstCourse.Text & ”' and score.Num=course.Num“

name = lstCourse.Text

sql2 = ”select Num from course where name='“ & name & ” '“

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic

If rs1.EOF Then

rs1.AddNew

rs1(”ID“)= txtID.Text

rs1(”Num“)= rs2(”Num“)

rs1.Update

MsgBox(”选课成功！“)

rs1.Close

Else

MsgBox(”已选过该课！“)

End If End If End Sub 窗体

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

sql = ”select * from course“

Call openconn

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF 'listbox控件利用循环读取课程表中的课程名

lstCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

查询

确定

Private Sub cmdOK_Click()If txtID = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus Else

Dim sql As String

Dim sum1, sum2 As Single

Dim n As Integer

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select course.name , score.score , course.credit from score , course where score.ID='“ & txtID.Text & ”' and score.Num=course.Num“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs

sum1 = 0

sum2 = 0

n = 0

Do While Not rs.EOF

sum1 = sum1 + Val(rs(”score“))

sum2 = sum2 + Val(rs(”credit“))

n = n + 1

rs.MoveNext

Loop

lblAvg.Caption = Format(sum1 / n, ”0.0“)

lblCredit.Caption = sum2 End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub

修改学生信息

返回

Private Sub cmdReturn_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”姓名不能为空！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”学分不能为空！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If Not rs.EOF Then

'判断学号是否存在 rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”修改成功！“)

Else

MsgBox(”学号不存在!“)

End If End If End Sub 窗体

Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“)cboPro.Text = rs(”pro“)End Sub

添加学生

返回

Private Sub cmdReset_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”学号不能为空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”请输入姓名！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”请输入性别！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年龄不能为空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If rs.EOF Then

'判断学号是否存在 rs.AddNew

rs(”ID“)= txtID.Text

rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”添加成功！“)

frmStu.Show

Unload Me

Else

MsgBox(”学号已存在!")

End If End If End Sub

第五篇：VB学生成绩管理系统任务书

河北联合大学

《软件设计基础-VB》课程设计任务书

学院班级设计人成绩

一、题目：学生成绩管理系统

二、目的与要求：

1.目的：

培养学生综合利用VisualBasic6.0语言进行程序设计的能力，主要培养学生使用ACCESS数据库和ADO控件设计信息管理类软件。

2.基本要求：

① 要求用ACCESS搭建数据库。

② 使用ADO控件实现与数据库的连接。

③ 使用MSChart图表控件绘制各种类型的图表；使用MSFlexGrid表格控件显示数据信息。④ 程序界面美观，运行无差错

3.创新要求：

在基本要求达到后，进行创新设计：

（1）允许更改密码。

（2）增加排名次的功能。

（3）可以按院系、专业和年级计算平均成绩并绘制图表。

（4）用户可以添加新的院系和专业名称。

三、设计方法和基本原理：

1.功能要求：

设计一个“学生成绩管理系统”程序，实现对学生成绩的添加、修改、删除、查询和图表绘制，具体如下：

（1）运行程序先进入“登录”界面，要求输入数据库密码，如果密码错误，给出提示。

（2）经过密码检验后，显示主界面，以表格形式显示数据库中所有学生的成绩信息。

（3）“添加”：其中院系、专业和年级使用组合框进行选择。

（4）“修改”：只允许修改学生成绩，不允许修改姓名、院系、专业和年级。

（5）“删除”：可以删除学生信息，删除前进行确认。

（6）“查询”：可以根据院系、专业和年级进行查询。

（7）“图表绘制”：分别以二维条形图、二维圆饼图和三维条形图的形式显示学生成绩中优、良、中、及格和不及格的分布情况。

2.问题的解决方案：

40-1

根据问题描述，可以将问题解决分为以下几个方面：

① 进行需求分析确定数据库的结构，建立相应的数据表。

② 利用ADO控件与数据库连接。

③ 设计主界面，要求有菜单、工具栏和状态栏，具体内容按功能要求自行设计。

④ 其他界面自行设计，满足基本功能要求即可。

四、难点与提示：

（1）本题目中数据库文件的设计是关键，可按如下方法：

创建一个数据库文件scores.mdb，包含三个数据表：院系、专业和成绩。“院系”表中保存院系代号和名称；“专业”表中保存专业代号和名称，以及所属院系的代号；“成绩”表中保存学生姓名、院系代号、专业代号、年级和各科成绩。

（2）ADO控件和数据库的连接代码：

provider = “provider=Microsoft.jet.oledb.4.0”

datasource = “data source=” & App.Path & “scores.mdb”

With Adodc1

.Mode = adModeReadWrite

.ConnectionString = provider & “;” & datasource

.CommandType = adCmdTable

.RecordSource = “yx”

.Refresh

End With

五、课程设计时间：2012年5月10日至2012年7月1日

六、课程设计进行地点：学校机房

七、书写设计报告的要求：

设计报告中包含以下几个方面：

1.设计题目

2.设计思路

①划分功能模块

②确定各模块的算法

3.用图示的方式给出过程或函数之间的调用关系

4.列出程序清单，并加以必要的注释

5.对该设计题目有何更完善的方案

6.通过本次设计，有何收获及心得体会

八、课程设计的考核方式及评分方法

40-2

1.考核方式

课程设计结束时，学生要提交课程设计报告（A4纸打印），并将电子文档和源程序上传至课程设计服务器中：

ftp://210.31.197.23

找到自已指导教师的文件夹后，进入班级文件夹，再找到自己的文件夹，然后将文档复制到该文件夹中即可。

2．评分方法

（1）出勤率

（2）课程设计准备工作

（3）课程设计期间纪律

（4）课程设计运行结果

（5）课程设计报告

（6）答辩情况

指导教师： 系主任签字：日期：40-3 年月日