软件开发与项目管理-1期 学生作品 KC02_学生作品_学生信息管理系统.docVIP

常州信息职业技术学院 《软件开发与项目管理》 学生作品 作品题目： 学生信息管理系统 作品作者： 金一鸣 指导教师： 贺宁 完成时间： 2015.06.20 一、项目简介 随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟，管理信息系统是一个不断发展的新型学科，任何一个单位要生存发展，要高效率的把内部活动有机的组织起来，就必须建立与自身特点相适应的管理信息系统。 管理信息系统是一个集计算机技术、信息技术、数据库技术、现代管理理论为一体的综合性系统。建立这样一个复杂的系统需要付出昂贵的代价的，因为它属于劳动密集型、智力密集型、资金技术密集型的项目。所以我们有必要对管理信息系统有一个深入的了解，这是建立比较实用的应用系统的前提所在。出于本系统是高校教师管理的一个综合性的系统，本文介绍了在Visual Basic 6.0环境下与Access数据库联用设计的学生管理系统。文章包括学生信息管理及学生成绩管理。主要有系统运行界面、运行代码及说明。本系统界面友好，操作简单，具有一定的实用性。 二 概要设计 下面简要的介绍一下系统的功能： 学生档案管理：该部分的主要任务是对学生信息进行查询和管理，包括学生基本信息的查询，添加，删除等操作。 学生成绩管理：该部分的主要任务是进行成绩录入及成绩查询。 系统总体功能模块如图1所示： 三 详细设计 3.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 系统在右上角显示当前时间 3.2、主窗体模块 系统登陆成功后进入第二个窗体，即form2，进入窗体后显示当前日期：在工具栏上单击右键，添加部件microsft windows common control 2-6.0，点选MonthView在窗体上画出日历。 利用菜单编辑器编辑以下信息： 标题 名称 学生档案管理 学生档案管理 成绩管理 成绩管理 …成绩添加 …成绩添加 …成绩查询 …成绩查询 界面如下图所示： 图5 成功登陆界面 （一）学生档案管理 单击学生档案管理菜单，会弹出学生信息界面，如下图所示： 图6 学生档案管理界面 该界面共有十个命令按钮，分别是添加按钮、删除按钮、刷新按钮、更新按钮、查询按钮、关闭按钮、前一条记录按钮、第一条记录按钮、下一条记录按钮及最后一条记录按钮，执行代码如下： 添加按钮代码： 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 删除记录时警告窗口 点击删除记录按钮后，会有提醒对话框出现，若是点击是，则删除记录，否则返回原界面。 刷新按钮代码： Private Sub cmdUpdate_Click() Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastM