- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
学生信息管理系统
班级:化学工程
姓名:李 丹 丹
学号:2011017
成绩:
第一章 项目背景
随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟,管理信息系统是一个不断发展的新型学科,任何一个单位要生存发展,要高效率的把内部活动有机的组织起来,就必须建立与自身特点相适应的管理信息系统。
管理信息系统是一个集计算机技术、信息技术、数据库技术、现代管理理论为一体的综合性系统。建立这样一个复杂的系统需要付出昂贵的代价的,因为它属于劳动密集型、智力密集型、资金技术密集型的项目。所以我们有必要对管理信息系统有一个深入的了解,这是建立比较实用的应用系统的前提所在。出于本系统是高校教师管理的一个综合性的系统,本文介绍了在Visual Basic 6.0环境下与Access数据库联用设计的学生管理系统。文章包括学生信息管理及学生成绩管理。主要有系统运行界面、运行代码及说明。本系统界面友好,操作简单,具有一定的实用性。
第二章 概要设计
下面简要的介绍一下系统的功能:
学生档案管理:该部分的主要任务是对学生信息进行查询和管理,包括学生基本信息的查询,添加,删除等操作。
学生成绩管理:该部分的主要任务是进行成绩录入及成绩查询。
系统总体功能模块如图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 学生档案管理界面
该界面共有十个命令按钮,分别是添加按钮、删除按钮、刷新按钮、更新按钮、查询按钮、关闭按钮、前一条记录按钮、第一条记录按钮、下一条记录按钮及最后一条记录按钮,执行代码如下:
添加按钮代码:
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.LastModified
End Sub
查询按钮代码:
Private Sub
您可能关注的文档
- 大学物理() 7-2.ppt
- 大学物理1章物理答案3.doc
- 大学物理95.ppt
- 大学物理1 量子物理基础1.ppt
- 大学物理2习提纲2010-2011.1.doc
- 大学物理习--5.机械波.doc
- 大学物理习册及解答_第二版_第一章_质点的运动.ppt
- 大学物理上作业参考答案20090418.doc
- 大学物理习答案第2章.doc
- 大学物理(大3版)答案(11-15章).doc
- 莒南东方文旅集团有限公司招聘笔试题库2024.pdf
- 江阴文化商业旅游产业集团有限公司招聘笔试题库2024.pdf
- 云南红河弥勒市城市发展集团有限公司招聘笔试题库2024.pdf
- 云南玉溪澄江市公路建设开发有限公司招聘笔试题库2024.pdf
- 山东齐河县城市经营建设投资有限公司招聘笔试题库2024.pdf
- 江苏无锡市国联发展(集团)有限公司招聘笔试题库2024.pdf
- 江西抚州南城县金创集团及工创投公司招聘笔试题库2024.pdf
- 浙江宁波慈溪市城乡公共交通有限公司招聘笔试题库2024.pdf
- 山西晋城无烟煤矿业集团有限责任公司招聘笔试题库2024.pdf
- 山西省文化旅游投资控股集团有限公司招聘笔试题库2024.pdf
文档评论(0)