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