学生信息管理系统VB课程设计

学生信息管理系统VB课程设计 河南工程学院《数据库原理及应用》课程设计 成果报告 学生成绩管理系统设计与实现 学生学号: 201212211115 学生姓名: 朱华 学 院: 计算机学院 专业班级: 软件工程1241 专业课程: 《数据库原理及应用》 指导教师: 张鸿彦 2014 年 12 月 30 日 题 目 学生成绩管理系统设计与实现 考核项目 考核内容 得分 (30分)出勤情况、态度、效率;知识掌握情况、基本操平时考核 作技能、知识应用能力、获取知识能力 系统设计 (20分)分析系统的功能模块 编程调试 (20分)实现系统的各个功能模块，并完成调试 回答问题 (15分)回答老师针对课程设计提出的问题 课程设计报告撰写 (10分)严格按照规范要求完成课程设计报告 源代码 (5分)按照规范要求完成课程设计源代码的排版 总 评 成 绩 指导教师评语: 日期: 年 月 日 数据库原理及应用课程设计 目录 第1章 系统设计目的................................................. 1 1.1 系统介绍.................................................... 1 1.2 系统目的及意义.............................................. 1 1.3研究方法、发展趋势 .......................................... 1 第2章 系统实现思路................................................. 2 2.1 系统功能分析................................................ 2 2.2 系统结构图.................................................. 2 2.3 系统E-R图.................................................. 3 2.4 数据库设计.................................................. 4 第3章 系统详细设计................................................. 5 3.1 模块设计.................................................... 5 3.2 登录窗体设计................................................ 5 3.3 主界面设计.................................................. 7 3.4 部分功能设计................................................ 9 第4章 系统调试运行................................................ 14 4.1 登陆窗体调试............................................... 14 4.2 主窗体调试................................................. 14 4.3 部分功能调试............................................... 15 第5章 课程设计体会................................................ 16 参考文献........................................................... 17 I 数据库原理及应用课程设计 第1章 系统设计目的 1.1 系统介绍 高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，决定:结合我校实际情况，自行研制一个学生信息管理系统。 1.2 系统目的及意义 由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。 计算机已经成为我们学习和工作的得力助手:今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面: 首先，计算机可以代替人工进行许多繁杂的劳动; 其次，计算机可以节省许多资源; 第三，计算机可以大大的提高人们的工作效率; 第四，计算机可以使敏感文档更加安全等等。 1.3研究方法、发展趋势 本系统采用功能分析法即通过说明社会现象怎样满足一个社会系统的需要(即具有怎样的功能)来解释社会现象和CS模式共同完成。 现代教育技术特别是网络与多媒体技术的发展，对学习活动产生了具有深远意义的冲击，人们可以选择或者设计适合其学习特点的信息采集、加工与重组方式。本系统采用CS模式，在某些方面还不是表现的很好，但未来有关学生信息管理的应该采用多层架构的系统，是真正适应教育信息化发展三大趋势的校园网络应用系统，全面支持Internet功能、远程访问功能，采用先进的CS和BS模式共同开发，支持有关学校信息交流、日常教学、教务管理等的各种应用，提供一个基于校园内联网中支持各种类型的学校应用产品的服务平台和开发平台，基本目标是在学校内部和外部建立起顺畅的信息通道，让信息技术成为推动教育生产力的有力工具，提高学校的管理水平和效率，同时充分利用全球的教育资源为学校的教育服务，克服目前大部分学校的校园网建设只起到宣传作用的通病。 1 数据库原理及应用课程设计 第2章 系统实现思路 2.1 系统功能分析 随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量就需要有一个学生信息管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。设计内容为教师或学生身份登录该系统进行三个模块操作: (1) 学生成绩维护:查询(本学号) (2) 教师成绩维护:录入成绩、删除成绩、查询(按学号)、修改成绩 (3) 密码修改:修改教师用户密码、修改学生用户密码 2.2 系统结构图 本系统主要包括学生基本情况更新，学生基本情况维护、学生成绩维护、密码修改和数据维护5个大的模块，各个模块的具体功能如下图图2-1所示: 学生信息管理系统 系成 统绩 管信 理息 管 理 成成成成密用关绩绩绩绩码户于 查录修删管注 询入改除理销 管管管管 理理理理 图2-1 系统结构图 2 数据库原理及应用课程设计 2.3 系统E-R图 (1) 学生实体图中的属性包含姓名、年龄、专业、学号、密码、性别，实体为学生。学生实体图如下图2-2所示 专业学号姓名 密码年龄 性别 学生 图2-2学生实体图 (2) 教师实体图学的属性包含姓名、密码、工号，实体为教师。教师实体图如下图2-3所示: 密码姓名工号 教师 图2-3教师实体图 (3) 学生选课关系图的学生实体的属性包含学号、姓名、性别组成，其与课程实体的联系为“选课”，选课的属性为成绩，而课程实体的属性有课程名和课程号。学生选课关系图如下图2-4所示: 姓名 学号性别 学生 选课成绩 课程 图2-4学生选课关系图 课程名课程号 3 数据库原理及应用课程设计 2.4 数据库设计 在系统设计过程中，首先要建立的就是数据库。本数据库采用SQL Server 2005来构造，共使用了3个表，它们分别是学生表(student)、教师表 (teachers)、学生成绩表(SC)。 (1)学生表(student):表结构如下表2-1所示: 表2-1 名称 字段名称 类型 长度 学号 Sno Char 11 姓名 Sname char 11 密码 Spwd char 11 性别 Ssex char 4 专业 Sdept char 11 (2) 教师表(teachers):表结构如下表2-2所示: 表2-2 名称 字段名称 类型 长度 工号 Tno Char 11 姓名 Tname char 11 密码 Tpwd char 11 (3) 学生成绩表(SC):表结构如下表2-3所示: 表2-3 名称 字段名称 类型 长度 学号 Sno char 11 课程名 Cname char 11 成绩 Grade char 11 4 数据库原理及应用课程设计 第3章 系统详细设计 本部分主要内容为本系统的各个运行界面以及主要界面的源代码 3.1 模块设计 添加一个模块module1。该部分包括利用ADODB控件将写好的SQL语句经过ADODB控件连接数据库并将结果存储在RecordSet中。代码如下: Public UserName As String Public rst As ADODB.Recordset Public Function chaxun(sqlstr As String) As ADODB.Recordset Dim cn As New ADODB.Connection Dim cn_str As String cn_str = "driver=SQL;Server;server=(local);database= Stu_Course" cn.Open cn_str Dim rs As New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic Set chaxun = rs End Function 3.2 登录窗体设计 添加一个窗体(login.frm)。运行系统将首先弹出用户选择对话框，本界面的主要功能是由用户根据自己的角色登录来使用系统，不同的用户角色具有不同的系统使用权限，用户选择管理员则会弹出用户登录对话框，管理员登录界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在pwad表中，本系统根据不同的用户而设置了不同的密码，当使用正确的用户名和密码例如:用户名001密码:001来登录本系统时，就可以进入本系统对应的主界面对该系统进行相应的操作如对信息进行增加、删除、修改和查询等操作。 5 数据库原理及应用课程设计 用户登录模块功能结构图如3-1所示 图3-1 用户登录模块功能结构图 登陆窗体如下图3-2所示: 图3-2登录界面图 代码如下: Public UserName As String Private Sub Command1_Click() Dim sqlstr As String If Me.Option1.Value = True Then sqlstr = "select * from student where Sno='" + Me.Sno.Text + "'" Else: If Me.Option2.Value = True Then sqlstr = "select * from Teachers where Tno='" + Me.Sno.Text + "'" End If 6 数据库原理及应用课程设计 End If Set rst = chaxun(sqlstr) If Not rst.EOF Then If Trim(rst.Fields(1)) = password.Text Then UserName = Trim(rst.Fields(2)) information.Show Me.Hide Else MsgBox "密码错误", vbOKOnly + vbExclamation End If Else MsgBox "用户名错误", vbOKOnly + vbExclamation End If End Sub Private Sub Command2_Click() Unload Me End Sub 3.3 主界面设计 添加一个MDI窗体(information.frm)。该部分主要添加StatusBar、Toolbar 控件和菜单编辑器。以用户名为001、密码为001登录，窗体运行情况如下图3-2 所示: 图3-3主界面图 7 数据库原理及应用课程设计 代码如下: Public flag As Boolean '=======StatusBar控件的运用 ======= Private Sub MDIForm_Load() Me.flag = True If login.Option1.Value = True Then lrcj.Visible = False sccj.Visible = False xgcj.Visible = False xsgl.Visible = False StatusBar1.Panels(1).Text = "当前用户:" + login.UserName + " 用户身份:学生" Else StatusBar1.Panels(1).Text = "当前用户:" + login.UserName + " 用户身份:教师" End If End Sub Private Sub logout_Click() '=======注销功能的代码======= If MsgBox("您确定要退出登录,", vbYesNo + vbQuestion, "注销") = vbYes Then Me.flag = False login.Show Unload Me login.Sno = "" login.password = "" Else Exit Sub End If 8 数据库原理及应用课程设计 End Sub '=======跳转到修改成绩窗体的代码======= Private Sub xgcj_Click() tlrcj.Visible = False tcxcj.Visible = False tsccj.Visible = False txgcj.Visible = True txgcj.WindowState = 2 sxgmm.Visible = False End Sub 3.4 部分功能设计 (1)信息录入功能设计 信息录入模块的功能是具有添加每个班级的每个学生的各个门课的成绩的 添加。其中添加成绩是指对已记录的学生各个门课程成绩进行添加、并保存到相 应对应的数据库文件表中。信息录入功能图如图3-4所示: 图3-4信息录入功能图 主要代码如下: Private Sub Command1_Click() Dim rst As New ADODB.Recordset 9 数据库原理及应用课程设计 Dim str As String str = "select * from SC" Set rst = chaxun(str) rst.AddNew rst.Fields(0) = Text1.Text rst.Fields(1) = Text2.Text rst.Fields(2) = Text3.Text rst.Update MsgBox "录入成功～", vbOKOnly + vbExclamation End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() If Me.WindowState = 0 Then Me.WindowState = 2 End Sub (2)信息查询功能设计 查询功能是指查看学生的成绩信息以及课程信息。可以按学号为条件查找各 个学科的具体成绩、查找模块功能结构图如图3-5所示 信息查询 按学号查询 学课 生程 成名 绩称 图3-5 信息查询功能图 10 数据库原理及应用课程设计 信息查询功能窗体图3-6如下所示 图3-6 信息查询功能窗体图 主要代码如下: Public rst As New ADODB.Recordset Public str As String Private Sub Command1_Click() rst.MoveFirst display End Sub Private Sub Command2_Click() rst.MoveLast display End Sub Private Sub Command3_Click() rst.MoveNext If rst.EOF Then MsgBox "已经是最后一条记录～", vbOKOnly + vbExclamation rst.MoveLast End If display 11 数据库原理及应用课程设计 End Sub Private Sub Command4_Click() rst.MovePrevious If rst.BOF Then MsgBox "已经是第一条记录～", vbOKOnly + vbExclamation rst.MoveFirst End If display End Sub Private Sub Command5_Click() Label2.Visible = True ‘当输入学号是，点击按钮，显示 Label1.Visible = True ‘该学生的成绩 Text1.Visible = True Text2.Visible = True Command1.Visible = True Command2.Visible = True Command3.Visible = True Command4.Visible = True str = "select Cname,Grade from Course,SC,Student where Student.Sno = SC.Sno and Course.Cno=SC.Cno and student.Sno= '" + Text3.Text + "'" Set rst = chaxun(str) display End Sub Private Sub Form_Load() If Me.WindowState = 0 Then Me.WindowState = 2 Label2.Visible = False Label1.Visible = False Text1.Visible = False 12 数据库原理及应用课程设计 Text2.Visible = False Command1.Visible = False Command2.Visible = False Command3.Visible = False Command4.Visible = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim IntR As Integer IntR = MsgBox("确认要退出程序吗,", vbYesNo, "退出确认") If IntR = vbNo Then Cancel = -1 ' End End Sub Public Sub display() Text1.Text = rst.Fields(1) Text2.Text = rst.Fields(0) End Sub 13 数据库原理及应用课程设计 第4章 系统调试运行 4.1 登陆窗体调试 登陆时先进行用户身份的选择，如果是用户身份学生则在输入正确的用户名和密码之后进入学生信息管理界面，如果是用户身份是教师则进入教师信息管理界面，如果密码或用户名报错则提示错误。登陆错误图如图4-1所示: 图4-1 登陆错误图 4.2 主窗体调试 当用户登录后进入主窗体，根据代码进行判断用户身份是学生还是教师，如果是学生则隐藏教师功能，如果是教师则隐藏学生功能。在主窗体下方的statusbar中会显示当先登录用户的姓名，身份，时间信息。如图主窗体图4-2所示 图4-2 主窗体图 14 数据库原理及应用课程设计 4.3 部分功能调试 (1)成绩查询功能调试 在输入学生学号文本框中输入要查询的学生学号，界面下方会出现该学生的课程名字以及相对应的成绩。但如果该学生没有成绩时，则会报该记录已被删除或没有该记录的错误。成绩查询报错图如图4-3所示: 图4-3 成绩查询报错图 (2)成绩录入功能调试 成绩录入是需要输入该学生的学号，课程号以及成绩。当其中某一项不存在于相对应的学生表，课程表，成绩表中时都汇报违反主键约束的错误。当符合要求就会提示录入成功，相应的成绩表中便会有其记录。录入成绩报错图如图4-4所示: 图4-4 录入成绩报错图 15 数据库原理及应用课程设计 第5章 课程设计体会 在课程设计中，我们遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。 在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。 在程序编写中，我认识到软件要有简便的界面，良好的程序风格，较全的代码注释。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手。 我认为，所谓友好的界面，就是用户需要的界面，力求简便全面。所以设计一个界面时，开发人员必须要了解用户的想法，从用户的角度去设计，当然，开发不能全听用户的意见，在详细分析了系统后，开发人员可以向用户提出一些修改的意见，在双方多次交流后定出程序所需的功能，以决定界面的实现。 在编码中，良好的编程风格与习惯是提高工作效率的一个重要方面，而且良好的编程风格与习惯也是使软件便于维护的基础。那如何是良好的编程风格与习惯呢,我认为主要是程序的模块化、必要的注释。所谓模块化就是使程序的功能实现分成多个单独的功能模块，而不能在一大段代码中实现多个功能，如果这样做，别的人是非常难读懂你的程序。必要的注释，显而易见是要在程序的编写中加入对程序的说明，原因就是为了别人能读懂你的程序，过一段时间后你自己还能读懂自己的程序。 总结这次毕业设计给我感受最深的至少有三点: (1) 进行软件开发这样的工作，要有恒心，要能静下新来做，而不能浮躁。 (2) 要善于同别人交流与合作，善于获取各种有用的资源。 (3) 要真真实实的多查资料，多问，多看。 16 数据库原理及应用课程设计 参考文献 (1)董鹏、吴艳群(《学生成绩分析决策辅助系统的设计与实现?》甘肃科技纵横(第33卷5期 (2)董彦霞、陈志刚(《基于b,s的成人教育管理系统的设计与实现》[J](电脑与信息技术(2005(13(4) (3)黄梯云(主编《管理信息系统》(机械工业由版社(1997(3 (4)美克努特(《计算机程序设计艺术》(苏运林译( 机械工业出版社 (5)萨师煊、王珊(《数据库系统概论》[M](北京高等教育出版社(2000(2 (6)林陈雷.《Visual Basic6.0》(人民邮电出版社 (7)龚沛曾(《面向对象程序设计系列教材》(高等教育出版社 (8)潭 浩(《学用Visual Basic 编程》(西安电子科技大学出版社 (9)敬 铮(《Visual Basic6.0 数据库开发与专业应用》(国防工业出版社 (10)温贤发(《Visual Basic6.0 数据库程序设计高手》(科学出版社 17