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

《学生信息管理系统 毕业论文 定稿版》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、学生信息管理系统班级：化学工程姓名：李丹丹学号：2011017成绩：第一章项目背景随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟，管理信息系统是一个不断发展的新型学科，任何一个单位要生存发展，要高效率的把内部活动有机的组织起来，就必须建立与自身特点相适应的管理信息系统。管理信息系统是一个集计算机技术、信息技术、数据库技术、现代管理理论为一体的综合性系统。建立这样一个复杂的系统需要付出昂贵的代价的，因为它属于劳动密集型、智力密集型、资金技术密集型的项目。所以我们有必要对管理信息系统有一个深入的了解，这是建立比较实用的应用系统的前提所在。出于本系

2、统是高校教师管理的一个综合性的系统，本文介绍了在VisualBasic6.0环境下与Access数据库联用设计的学生管理系统。文章包括学生信息管理及学生成绩管理。主要有系统运行界面、运行代码及说明。本系统界面友好，操作简单，具有一定的实用性。第二章概要设计下面简要的介绍一下系统的功能：（1）学生档案管理：该部分的主要任务是对学生信息进行查询和管理，包括学生基本信息的查询，添加，删除等操作。（2）学生成绩管理：该部分的主要任务是进行成绩录入及成绩查询。系统总体功能模块如图1所示：学生信息管理学生成绩管理学生档案管理学生成绩录入学生成绩查询第三章详细设计一．登录窗口图1系统登陆界

3、面（1）登陆按钮执行代码：PrivateSubCommand1_Click()IfText1.Text="student"AndText2.Text="12345"ThenForm2.Show:UnloadMeElseMsgBox"密码不正确，请重新输入！",vbOKOnly+vbCritical,"错误"EndIfEndSub登陆代码说明：沈阳化工大学用户名为student,密码是12345，输入用户名和密码后，点击登陆按钮，如果正确，则进入第二个窗体，界面如下：图2系统成功登陆界面若密码错误出现提示窗口，界面如下：图3密码输入错误提示窗口（2）退出按钮执行代码：执行退出程

4、序PrivateSubCommand2_Click()s=MsgBox("您确定要退出吗？",vbQuestion+vbYesNo,"退出")Ifs=6ThenUnloadMeEndSub代码说明：点击退出按钮时提示是否确定退出程序图4提示是否确定退出程序（3）时间显示代码：显示当前时间PrivateSubTimer1_Timer()Text3.Text=TimeEndSub系统在右上角显示当前时间二、主窗体模块系统登陆成功后进入第二个窗体，即form2，进入窗体后显示当前日期：在工具栏上单击右键，添加部件microsftwindowscommoncontrol2-6.0，点

5、选MonthView在窗体上画出日历。利用菜单编辑器编辑以下信息：标题名称学生档案管理学生档案管理成绩管理成绩管理…成绩添加…成绩添加…成绩查询…成绩查询界面如下图所示：图5成功登陆界面（一）学生档案管理单击学生档案管理菜单，会弹出学生信息界面，如下图所示：图6学生档案管理界面该界面共有十个命令按钮，分别是添加按钮、删除按钮、刷新按钮、更新按钮、查询按钮、关闭按钮、前一条记录按钮、第一条记录按钮、下一条记录按钮及最后一条记录按钮，执行代码如下：（1）添加按钮代码：PrivateSubcmdAdd_Click()Data1.Recordset.AddNewEndSub（2）删除

6、按钮代码：PrivateSubcmdDelete_Click()DimxAsIntegerx=MsgBox("确定要删除此记录吗？",vbYesNo,"提醒")SelectCasexCasevbYesData1.Recordset.DeleteCasevbNoUnloadMeEndSelectEndSub图7删除记录时警告窗口点击删除记录按钮后，会有提醒对话框出现，若是点击是，则删除记录，否则返回原界面。（3）刷新按钮代码：PrivateSubcmdUpdate_Click()Data1.UpdateRecordData1.Recordset.Bookmark=Data1.R

7、ecordset.LastModifiedEndSub（3）查询按钮代码：PrivateSubCommand5_Click()Form4.ShowEndSub图8form4在单击查询按钮后显示界面（4）前一条记录按钮代码：PrivateSubCommand2_Click()IfData1.Recordset.BOF=TrueThenMsgBox("已经在第一条记录")ElseData1.Recordset.MovePreviousEndIfEndSub（3）第一条记录按钮代码：PrivateSubCom