学生成绩管理系统VB+SQL

.课程设计任务书题目学生成绩管理系统系 数理系专业班级学生姓名学号12月21日至12月25日共1周指导教师 系主任 年月日学生成绩管理系统通过完成从用户需求分析、概念结构设计,逻辑结构设计等一系列的数据库设计到上机编程、调试和应用等全过程,进一步理解和掌握教材中的相关内容。一实验要求 1先对选定的实验做简单的需求分析;2做出数据流图和数据字典;3在数据流图和字典的基础上做出E-R图;4在E-R图基础上进行关系模式设计至少满足3NF逻辑结构设计;5根据需求分析的各种数据请求得出各种视图以及各种约束、规则、触发器脚本描述;6根据第的内容在SQL-SERVER中设计中实例的数据库；7用自己熟悉的一门语言进行设计的功能的实现8整理前面几步的文档和程序源码,可执行程序,形成最终的实验报告。9实验报告的最后写出本次实验完成中遇到的问题及解决方法二需求分析1.功能需求本系统开发的目的,就是通过系统开发,实现课程管理有关工作的计算机化,提高关键环节的处理速度和规范化,并对有关的工作进行集成和重组,通过网络系统实现集中管理、分散操作,提高选课管理工作的质量和效率。通过对学校的选课及成绩管理工作进行实际调查,学生可以自由选择课程、选老师,学生注册的行政班和教学班是游离的,开发工作需要涉及任课教师、学生、管理员三种用户。2.学生需求在学校规定的选课期间,学生通过任何一台连接因特网计算机的浏览器就能进行网上选课。学生以用户名和密码进入选课系统。选课系统会根据用户名和密码自动识别所在的系,然后显示出与学生有关的课程列表。系统必须控制某一门课程在学期间只能选一次。在学生选课时能自动进行有关逻辑判断,如：是否选课超过了规定的门数,是否选择了不符合预修条件的课程,是否选择的课程超过此课程最大选择人数,只有符合要求的选择才能选课成功。学生可以更改部分个人信息如密码,号码等；学生可以查询已修课程成绩和已选课程信息。3.教师需求任课教师登录后,可以查看自己所教课程的课程表；对于同一学期内有多门课程的教师,需要选择具体课程后,才能查看已选这门课程的学生信息：期末,教师可以上传这些学生的成绩。4.管理员需求系统管理员登录后,可以对学生,教师,课程,教学班级的基本信息进行添加,修改,删除等工作。课程安排是选课的核心,只有按照实际的教学情况安排出每个学期必修和选修的课程,才能保证选课的顺利进行。在每学期,学生选课前,各院系管理员必须在该院系培养方案中录入本学期可以开设的课程和排课安排,对于需要预修条件的课程,需要设置好预修条件。基础部管理员负责公共课的课程开设和排课安排。其中排课及教学班级的安排上要保证同一个教师在同一时间只能上一门课程；同一个教室同一时间也只能开一门课程。三数据分析与建模1.数据流图和数据字典顶层图：数据字典：数据流项目：学生信息=姓名+学号+性别+年龄+专业+总学分成绩单=姓名+课目+成绩数据项条目：数据项名：成绩类型：int长度：4范围：100-0加工条目：处理过程：过程名：学籍管理系统输入：学生信息,考试成绩,学生记录输出：统计表,成绩单数据字典：数据存储：数据存储名：学生记录组成：姓名+学号+性别+年龄+专业+总学分处理过程：处理过程名：录入存储处理输入：学生信息处理要求：如果没有所输入的学生记录,则建立新的学生记录,存储基本情况和课目成绩处理过程名：查询处理输入：学生信息,课程号输出：成绩处理要求：根据学生的学号查询相应的成绩处理过程名：统计处理输入：学生考试成绩输出：平均成绩,排名成绩数据字典：数据流：新生信息=入学时间+姓名+年龄+专业+性别合格单=姓名+专业处理过程：处理过程名：审查输入：学生信息输出：合格单处理要求：根据学生信息判断是否是新生处理过程名：是否是新生输入：合格单输出：新生信息处理要求：根据合格单建立新生信息处理过程名：录入存储学生信息,各科成绩输入：新生信息,考试成绩输出：本次考试成绩数据字典：数据存储：数据存储名：考试成绩组成：姓名+专业+成绩+学号组织方式：一学号为关键字处理过程：处理过程名：有效性检查输入：学号,课程号输出：有效查询处理要求：根据所输入的信息查询有效性处理过程名：成绩查询输入：考试成绩输出：成绩处理要求：根据考试成绩查询成绩处理过程：处理过程名：统计选择输入：学生记录输出：按规定统计成绩处理要求：根据所输入学生记录查询成绩2.E_R图1） 学生实体E-R图2课程实体E-R图3） 教师实体E-R图4各实体之间的E-R图3.ER图转换为关系模式:1学生XS学号,姓名,专业sdept,性别,出生日期sbirth,总学分学生表：主码：学号函数依赖：sno U.此表中,不存在非主属性对码的部分依赖,传递依赖,以及主属性对码的部分依赖和传递依赖,故满足3NF2课程KC课程号,课程名,开课学期,学时,学分课程表：主码：课程号函数依赖：cno U此表中不存在非主属性对码的部分依赖,传递依赖,以及主属性对码的部分依赖和传递依赖,故满足3NF3选课XS_KC学号,课程号,成绩选课表：主码：学号,课程号外码：学号,课程号函数依赖： U此表中不存在非主属性对码的部分依赖,传递依赖,以及主属性对码的部分依赖和传递依赖,故满足3NF4教师TCH编号,姓名,性别,出生日期,职称,专业教师表：主码：编号函数依赖：tno U此表中不存在非主属性对码的部分依赖,传递依赖,以及主属性对码的部分依赖和传递依赖,故满足3NF5授课TCH_KC教师编号,课程号,上课地点授课表：主码：教师编号,课程号外码：教师编号,课程号函数依赖：U此表中不存在非主属性对码的部分依赖,传递依赖,以及主属性对码的部分依赖和传递依赖,故满足3NF4.逻辑设计结果：数据库表名XS学生字段名数据类型含义说明空值情况备注SnoChar学号不能为空主键SnameChar姓名不能为空ssexChar性别可以为空只能取男女,默认为男Sbirthdate出生日期可以空SdeptChar所在专业可以空All_creditInt总学分可以空数据库表名KC课程字段名数据类型含义说明空值情况备注CnoChar课程号不能为空主键SnameChar课程名不能为空creditint学分可以空Class_hourInt课时数可以空TermInt开课学期可以空数据库表名TCH教师字段名数据类型含义说明空值情况备注tnoChar教师号不能为空主键tnameChar姓名不能为空完全依赖Tno,是uniqueTbirthdate出生日期可以空TsexChar性别可以空只能取男女,默认为男ProfessionalChar10职称可以空DepartmentChar10专业可以空数据库表名XS_KC选课字段名数据类型含义说明空值情况备注CnoChar课程号不能为空主码 SnoChar学号不能为空主码Gradeint成绩可以空数据库表名TCH_KC授课字段名数据类型含义说明空值情况备注TnoChar教师编号不能为空主码 CnoChar课程号不能为空主码PlaceChar10授课地点可以空四数据库应用开发与运行此为主界面,有五个按钮,可进行查询,修改等操作。上图为学生信息查询窗口,可按学号,姓名,专业进行查询下图学生选课信息窗口,双击上图学生信息查询窗口中表格左边,可弹出此窗口显示该学生选课信息。上图为教师信息查询窗口,可按教师编号,姓名,职称部门进行查询,双击表格左部可显示教师授课信息,如下图所示。此为学生信息修改窗口,单击一行,可在上面文本框中显示该生信息,并进行插入,修改,删除等操作。此为学生成绩录入窗口,单击一行可现实该生学号及所选课程,并在成绩文本框中进行添加及修改该课程成绩操作。此为学生选课窗口,单击一行显示该行信息,可进行选课,删除操作五 结果分析、结论与体会在这次课程设计中,我遇到的困难很多,在解决它们的同时我又学到了很多,受益匪浅,特别是如何分析、建立、开发一个系统。 在一个系统开发的过程中编码不是重要的,重要的是分析系统、建立起系统模型。在分析一个系统前,分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识,然后将系统的模型建立起来。在程序编写中,我认识到软件要有简便的界面,良好的程序风格。拥有这些条件,程序的可读性才会好,开发的复杂度才能大大减少,修改代码时更加容易下手。 我认为,所谓友好的界面,就是用户需要的界面,力求简便全面。所以设计一个界面时,开发人员必须要了解用户的想法,从用户的角度去设计,当然,开发不能全听用户的意见,在详细分析了系统后,开发人员可以向用户提出一些修改的意见,在双方多次交流后定出程序所需的功能,以决定界面的实现。在编码中,良好的编程风格与习惯是提高工作效率的一个重要方面,而且良好的编程风格与习惯也是使软件便于维护的基础。那如何是良好的编程风格与习惯呢？我认为主要是程序的模块化、必要的注释。所谓模块化就是使程序的功能实现分成多个单独的功能模块,而不能在一大段代码中实现多个功能,如果这样做,别的人是非常难读懂你的程序。必要的注释,显而易见是要在程序的编写中加入对程序的说明,原因就是为了别人能读懂你的程序,过一段时间后你自己还能读懂自己的程序。最后说明下这次课程设计给我感受最深的有三点： 1进行管理系统开发这样的工作,要有恒心,要能静下新来做,而不能浮躁。 2要善于同别人交流与合作,善于获取各种有用的资源。 3要真真实实的多查资料,多问,多看。六 参考文献及资料1 学用Visual Basic 编程 潭浩 XX电子科技大学出版社 2 数据库原理 丁宝康 施伯乐著 经济科学出版社 3 SQL Server数据库开发入门与范例解析 夏邦贵著 北京机械工业出版社4 SQL Server 2005应用开发技术指南 彭东著 北京清华大学出版社 5Visual Basic6.0 林陈雷著 人民邮电出版社 6面向对象程序设计系列教材 龚沛曾著 高等教育出版社 7Visual Basic6.0 数据库开发与专业应用 敬 铮著 国防工业出版社 8Visual Basic6.0 数据库程序设计高手 温贤发著 科学出版社七.附录SQL Server 建立五张表VB程序及控件设置Private Sub Command3_Click 取消Stusno.Text = Stusname.Text = Stusbirth.Text = Stusdept.Text = Stuall_credit.Text = Stusexm = FalseStusexf = FalseEnd Sub修改元组Private Sub Stuchange_ClickIf Trim = Or Trim = Or ThenMsgBox 加*数据项不能为空,请重新设置, vbOKOnly, 信息提示Stusno.SetFocusExit SubEnd IfIf Trim ThenIf Not IsDateTrim ThenMsgBox 出生日期输入不正确,请重新输入, vbOKOnly, 信息提示Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimIf Stusexm = True ThenStuADO.Recordset.Fields = 男Else: Stusexf = TrueStuADO.Recordset.Fields = 女End IfEnd Sub删除元组Private Sub StuDel_Clickret = MsgBox是否要删除 + StuADO.Recordset + 号学生的记录?, vbYesNo, 提示If ret = vbYes ThenEnd IfStuADO.RecordSource = select sno 学号,sname 姓名,sdept 专业,ssex 性别,sbirth 出生日期,all_credit 总学分 from XSCommand3_ClickStuADO.RefreshEnd Sub选中一行显示元组Private Sub StuDG_ClickStusno.Text = StuADO.RecordsetStusname.Text = StuADO.RecordsetStusbirth.Text = StuADO.RecordsetStusdept.Text = StuADO.RecordsetStuall_credit = StuADO.RecordsetIf TrimStuADO.Recordset = 男 ThenStusexm = TrueElseStusexf = TrueEnd IfEnd Sub插入元组Private Sub Studinsert_ClickIf Trim = Or Trim = Or ThenMsgBox 加*数据项不能为空,请重新设置, vbOKOnly, 信息提示Stusno.SetFocusExit SubEnd IfIf Trim ThenIf Not IsDateTrim ThenMsgBox 出生日期输入不正确,请重新输入, vbOKOnly, 信息提示Stusbirth.SetFocusExit SubEnd IfEnd IfStuADO.Recordset.Fields = Trim = TrimStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimStuADO.Recordset.Fields = TrimIf Stusexm = True ThenStuADO.Recordset.Fields = 男Else: Stusexf = TrueStuADO.Recordset.Fields = 女End IfEnd Sub取消Private Sub Stucancel_ClickStusno.Text = Stusname.Text = Stucname.Text = End Sub选课Private Sub Stuchoose_ClickStuADOXS.RecordSource = select * from XS where sno= + Trim + StuADOXS.RefreshIf Trim = Or Trim = Or Trim = Thenret = MsgBoxElseIf Trim TrimStuADOXS.Recordset Thenret = MsgBoxElseStuADOXS_KC.RecordSource = select * from XS_KCStuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields = TrimStuADOKC.RecordSource = select * from KC where cname= + Trim + StuADOKC.RefreshStuADOXS_KC.Recordset.Fields = StuADOKC.RecordsetStuADO.RefreshEnd IfEnd Sub删除元组Private Sub Studelete_Clickret = MsgBox是否要删除 + StuADO.Recordset + 号学生的选课记录?, vbYesNo, 提示If ret = vbYes ThenStuADOXS_KC.RecordSource = select * from XS_KC where sno= + StuADO.Recordset + StuADOXS_KC.RefreshEnd IfStuADO.RefreshStucancel_ClickEnd Sub单击显示元组Private Sub StuDG_ClickStusno.Text = StuADO.RecordsetStusname.Text = StuADO.RecordsetStucname.Text = StuADO.RecordsetEnd SubPrivate Sub Stuadd_ClickIf Stugrade.Text = Thenret = MsgBoxElseStuADOKC.RecordSource = select * from KC where cname= + Trim + StuADOKC.RefreshStuADOXS_KC.RecordSource = select * from XS_KC where cno= + StuADOKC.Recordset + StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields = Stusno.TextStuADOXS_KC.Recordset.Fields = StuADOKC.RecordsetStuADOXS_KC.Recordset.Fields = Stugrade.TextStuADO.RecordSource = select sno 学号,XS_KCo 课程号,cname 课程名,grade 成绩 from KC,XS_KC where KCo=XS_KCoStuADO.RefreshEnd IfEnd Sub取消Private Sub Stucancel_ClickStusno.Text = Stucname.Text = Stugrade.Text = End Sub删除学生成绩Private Sub Studelete_Clickret = MsgBox是否要删除 + TrimStuADO.Recordset + 号学生成绩?, vbYesNo, 提示If ret = vbYes ThenStuADO.Recordset = NullEnd IfEnd Sub单击显示元组Private Sub StuDG_ClickStusno.Text = StuADO.RecordsetStucname.Text = StuADO.RecordsetEnd Sub修改学生成绩Private Sub Stusure_ClickIf Stugrade.Text = Thenret = MsgBoxElseStuADOKC.RecordSource = select * from KC where cname= + Trim + StuADOKC.RefreshStuADOXS_KC.RecordSource = select * from XS_KC where cno= + StuADOKC.Recordset + + and sno= + Trim + StuADOXS_KC.RefreshStuADOXS_KC.Recordset.Fields = TrimStuADO.RecordSource = select sno 学号,XS_KCo 课程号,cname 课程名,grade 成绩 from KC,XS_KC where KCo=XS_KCoStuADO.RefreshEnd IfEnd SubPrivate Sub Command1_ClickStuSearch.ShowEnd SubPrivate Sub Command2_ClickAddStu.ShowEnd SubPrivate Sub Command3_ClickAddStuCourse.ShowEnd SubPrivate Sub Command4_ClickAddStuGrade.ShowEnd SubPrivate Sub Command5_ClickTchSearch.ShowEnd SubDim SqlStr As StringPublic Sub MakeSqlStrSqlStr = If Trim ThenSqlStr = SqlStr + and sno like% + Trim + % End IfIf Trim ThenSqlStr = SqlStr + and sname like % + Trim + %End IfIf Trim ThenSqlStr = SqlStr + and sdept= + Trim + End IfEnd SubPrivate Sub Command1_ClickMakeSqlStrStuADO.RecordSource = select sno 学号,sname 姓名,sdept 专业,ssex 性别,sbirth 出生日期,all_credit 总学分 from XS where _& SqlStrStuADO.RefreshEnd SubPrivate Sub StuDG_DblClickShowStuKC.StuKCADO.RecordSource = select sname 姓名,cname 课程名,grade 成绩,credit 学分,term 开课学期,class_hour 课时 from XS,KC,XS_KC _& where XS.sno=XS_KC.sno and KCo=XS_KCo _& and XS.sno= + StuADO.Recordset + ShowStuKC.ShowStuSearch.Enabled = FalseEnd SubDim SqlStr As StringPublic Sub MakeSqlStrSqlStr = If Trim ThenSqlStr = SqlStr + and tno like % + Trim + % End IfIf Trim ThenSqlStr = SqlStr + and tname like % + Trim + %End IfIf Trim ThenSqlStr = SqlStr + and professional like % + Trim + %End IfIf Trim ThenSqlStr = SqlStr + and department like % + Trim + %End IfEnd SubPrivate Sub TchDG_DblClickShowTchKC.TchKCADO.RecordSource = select tname 姓名,cname 课程,credit 学分,place 上课地点 from KC,TCH,TCH_KC where TCH.tno=TCH_KC.tno and KCo=TCH_KCo _& and Tch.tno= + TchADO.Recordset + ShowTchKC.ShowEnd SubPrivate Sub Tchseek_ClickMakeSqlStrTchADO.RecordSource = select tno 教师编号,tname 姓名,tsex 性别,tbirth 出生日期,professional 职称,department 部门 from TCH where _& SqlStrTchADO.RefreshEnd Sub.