学生信息管理系统毕业论文定稿版

学生信息管理系统

班级：化学工程

姓名：李丹丹

学号：2011017

成绩：

第一章项目背景

随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟，管理信息系统是一个不断发展

的新型学科，任何一个单位要生存发展，要高效率的把内部活动有机的组织起来，就必须建立与自身特点相适应的管理信息系

统。

管理信息系统是一个集计算机技术、信息技术、数据库技术、现代管理理论为一体的综合性系统。建立这样一个复杂的系统需要付出昂贵的代价的，因为它属于劳动密集型、智力密集型、资金技术密集

型的项目。所以我们有必要对管理信息系统有一个深入的了解，这是建立比较实用的应用系统的前提所在。出于本系统是高校教师管理的一个综合性的系统，本文介绍了在Visual Basic 6.0环境下与Access 数据库联用设计的学生管理系统。文章包括学生信息管理及学生

成绩管理。主要有系统运行界面、运行代码及说明。本系统界面

友好，操作简单，具有一定的实用性。

第二章概要设计

下面简要的介绍一下系统的功能：

（1）学生档案管理：该部分的主要任务是对学生信息进行查询和管理，包括学生基本信息的查询，添加，删除等操作。

（2）学生成绩管理：该部分的主要任务是进行成绩录入及成绩查询。

系统总体功能模块如图1所示：

学生信息管理

学生成绩管理学生档案管理

学生成绩录入学生成绩查询

第三章详细设计

一．登录窗口

图1 系统登陆界面

（1）登陆按钮执行代码：

Private Sub Command1_Click()

If Text1.Text = "student" And Text2.Text = "12345" Then

Form2.Show: Unload Me

Else

MsgBox "密码不正确，请重新输入！", vbOKOnly + vbCritical, "错误"

End If

End Sub

登陆代码说明：

沈阳化工大学用户名为student,密码是12345，输入用户名和密码后，

点击登陆按钮，如果正确，则进入第二个窗体，界面如下：

图2 系统成功登陆界面

若密码错误出现提示窗口，界面如下：

图3 密码输入错误提示窗口

（2）退出按钮执行代码：执行退出程序

Private Sub Command2_Click()

s = MsgBox("您确定要退出吗？", vbQuestion + vbYesNo, "退出")

If s = 6 Then Unload Me

End Sub

代码说明：

点击退出按钮时提示是否确定退出程序

图4 提示是否确定退出程序

（3）时间显示代码：显示当前时间

Private Sub Timer1_Timer()

Text3.Text = Time

End Sub

系统在右上角显示当前时间

二、主窗体模块

系统登陆成功后进入第二个窗体，即form2，进入窗体后显示当前日期：在工具栏上单击右键，添加部件microsft windows common control 2-6.0，点选MonthView在窗体上画出日历。

利用菜单编辑器编辑以下信息：

标题名称

学生档案管理学生档案管理

成绩管理成绩管理

,成绩添加,成绩添加

,成绩查询,成绩查询

界面如下图所示：

图5 成功登陆界面

（一）学生档案管理

单击学生档案管理菜单，会弹出学生信息界面，如下图所示：

图6 学生档案管理界面

该界面共有十个命令按钮，分别是添加按钮、删除按钮、刷新按钮、更新按钮、查询按钮、关闭按钮、前一条记录按钮、第一条记录按钮、下一条记录按钮及最后一条记录按钮，执行代码如下：（1）添加按钮代码：

Private Sub cmdAdd_Click()

Data1.Recordset.AddNew

End Sub

（2）删除按钮代码：

Private Sub cmdDelete_Click()

Dim x As Integer

x = MsgBox("确定要删除此记录吗？", vbYesNo, "提醒")

Select Case x

Case vbYes

Data1.Recordset.Delete

Case vbNo

Unload Me

End Select

End Sub

图7 删除记录时警告窗口

点击删除记录按钮后，会有提醒对话框出现，若是点击是，则删

除记录，否则返回原界面。

（3）刷新按钮代码：

Private Sub cmdUpdate_Click()

Data1.UpdateRecord

Data1.Recordset.Bookmark = stModified

End Sub

（4）查询按钮代码：

Private Sub Command5_Click()

Form4.Show

End Sub

图8 form4在单击查询按钮后显示界面（5）前一条记录按钮代码：

Private Sub Command2_Click()

If Data1.Recordset.BOF = True Then

MsgBox ("已经在第一条记录")

Else

Data1.Recordset.MovePrevious

End If

End Sub