VB学生管理系统设计.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
黔东南民族职业技术学院 - PAGE 8 黔 东 南 民 族 职 业 技 术 学 院 学生管理系统 课程名称为:用于VB学生管理系统的应用和实现 姓名: 邓英英 专业: 计算机应用技术 班级: 11计算机班 指 导 老 师: 杨波老师 制作时间: 2013年 功能描述 该学生成绩管理系统是用Visual Basic 制作的,该系统可以实现教师进行对学生的成绩管理,添加学生用户以及可以查询学生的成绩;还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码;还有的是教师用户和学生用户可以退出系统。 该系统采用了对窗体、基本控件的应用,选择结构的if语句,循环结构的循环语句for…next结构,菜单设计,过程,数据文件来构建整个程序。 在此报告中重点叙述了学生成绩系统的各个功能,特别是学生的成绩查询和密码修改以及教师和学生的登录。整个系统会以系统结构图、程序流程图、功能模块,让大家能知晓该系统的功能。 概要设计 1.1、目标 本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。该系统可以帮助我们更方便的管理学生的成绩,替代了以前的手工操作管理学生的成绩,节约我们珍贵的时间。 1.2、需求分析 根据该系统的需求分析,系统的需求可以分为以下的几个方面: 1.2.1、鼠标操作 你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。 1.2.2、键盘操作 你可以利用键盘对该系统的某些操作。 该学生管理系统分为三个模块:如图1-1所示: 学生管理系统 学生管理系统 学生登录界面教师登录界面管理员登录界面 学生登录界面 教师登录界面 管理员登录界面摘要 学生成绩录入课程成绩管理打印报表教师课程个人密码修改退出系统系统管理计划管理教师信息学生信息 学生成绩录入 课程成绩管理 打印报表 教师课程 个人密码修改 退出系统 系统管理 计划管理 教师信息 学生信息 打印报表退出系统个人成绩查询班级课程成绩查询学生基本信息 打印报表 退出系统 个人成绩查询 班级课程成绩查询 学生基本信息 学生信息打印班级成绩打印 学生信息打印 班级成绩打印 教师基本信息任务查询打印数据修改数据添加数据备份名称设置班级设置 教师基本信息 任务查询打印 数据修改 数据添加 数据备份 名称设置 班级设置 图1-1 系统结构图 三、详细设计 1.1根据功能分析析框架构设计的思想,设计出登录界面系统功能如图1.2所示: 如图1-2运行的界面 登录界面代码如下: Private Sub Command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset Dim conn As New ADODB.Connection conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= App.Path \mydate.mdb If Trim(Text1.Text) = Then MsgBox 用户名不能为空,请重新输入! Text1.SetFocus Else sql = select * from 用户表 where 用户名称= Trim(Text1.Text) rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重新输入!, vbOKOnly + vbExclamation, Text1.Text = Text1.SetFocus Else UserName = Text1.Text If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then Select Case Combo1.Text Case 管理员 dldhk.Hide Form1.Show Case 教师 Form3.Show dldhk.Hid Case 学生 Form4.Show dldhk.Hide End Select Else MsgBox 密码不正确,请重新输入!, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text =

文档评论(0)

22255990 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档