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

1、学生信息管理系统VB课程设计河南工程学院数据库原理及应用课程设计成果报告学生成绩管理系统设计与实现学生学号： 201212211115 学生姓名： 朱华 学 院： 计算机学院 专业班级： 软件工程1241 专业课程： 数据库原理及应用指导教师： 张鸿彦 2014 年 12 月 30 日 题 目学生成绩管理系统设计与实现考核项目考核内容得分平时考核（30分）出勤情况、态度、效率；知识掌握情况、基本操作技能、知识应用能力、获取知识能力系统设计（20分）分析系统的功能模块编程调试（20分）实现系统的各个功能模块，并完成调试回答问题（15分）回答老师针对课程设计提出的问题课程设计报告撰写（10分）严格

2、按照规范要求完成课程设计报告源代码（5分）按照规范要求完成课程设计源代码的排版总 评 成 绩指导教师评语： 日期： 年 月 日第1章 系统设计目的1.1 系统介绍高校学生信息的管理是一项既重要又繁琐的工作。为更好的做好这项工作，提过工作效率，更好的为学校的发展和一线教学服务，决定：结合我校实际情况，自行研制一个学生信息管理系统。1.2 系统目的及意义由于现今的学生信息管理非常繁琐，行政人员付出大量的工作时间，得到的效率很低。因此为提高工作效率，减轻校方人员的工作负担，决定开发学生信息管理系统。计算机已经成为我们学习和工作的得力助手：今天，计算机的价格已经十分低廉，性能有了长足的进步。它已经被应

3、用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全等等。1.3研究方法、发展趋势本系统采用功能分析法即通过说明社会现象怎样满足一个社会系统的需要（即具有怎样的功能）来解释社会现象和CS模式共同完成。现代教育技术特别是网络与多媒体技术的发展，对学习活动产生了具有深远意义的冲击，人们可以选择或者设计适合其学习特点的信息采集、加工与重组方式。本系统采用CS模式，在某些方面还不是表现的很好，但未来有关学生信息管理的应该采用多层架构的系统，是真正

4、适应教育信息化发展三大趋势的校园网络应用系统，全面支持Internet功能、远程访问功能，采用先进的CS和BS模式共同开发，支持有关学校信息交流、日常教学、教务管理等的各种应用，提供一个基于校园内联网中支持各种类型的学校应用产品的服务平台和开发平台，基本目标是在学校内部和外部建立起顺畅的信息通道，让信息技术成为推动教育生产力的有力工具，提高学校的管理水平和效率，同时充分利用全球的教育资源为学校的教育服务，克服目前大部分学校的校园网建设只起到宣传作用的通病。第2章 系统实现思路2.1 系统功能分析随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量就需要有一

5、个学生信息管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的规范管理、快速查询、修改、增加、删除等，从而减少管理方面的工作量。设计内容为教师或学生身份登录该系统进行三个模块操作：（1） 学生成绩维护：查询（本学号）（2） 教师成绩维护：录入成绩、删除成绩、查询（按学号）、修改成绩（3） 密码修改：修改教师用户密码、修改学生用户密码2.2 系统结构图本系统主要包括学生基本情况更新，学生基本情况维护、学生成绩维护、密码修改和数据维护5个大的模块，各个模块的具体功能如下图图2-1所示：2.3 系统E-R图（1） 学生实体图中的属性包含姓名、年龄、专业、学号、密码、性别，实体为学生。学生实

6、体图如下图2-2所示（2） 教师实体图学的属性包含姓名、密码、工号，实体为教师。教师实体图如下图2-3所示：（3） 学生选课关系图的学生实体的属性包含学号、姓名、性别组成，其与课程实体的联系为“选课”，选课的属性为成绩，而课程实体的属性有课程名和课程号。学生选课关系图如下图2-4所示：2.4 数据库设计在系统设计过程中，首先要建立的就是数据库。本数据库采用SQL Server2005来构造，共使用了3个表，它们分别是学生表（student）、教师表（teachers）、学生成绩表（SC）。（1）学生表（student）：表结构如下表2-1所示：表2-1名称字段名称类型长度学号SnoChar11

7、姓名Snamechar11密码Spwdchar11性别Ssexchar4专业Sdeptchar11（2） 教师表（teachers）：表结构如下表2-2所示：表2-2名称字段名称类型长度工号TnoChar11姓名Tnamechar11密码Tpwdchar11（3） 学生成绩表（SC）：表结构如下表2-3所示：表2-3名称字段名称类型长度学号Snochar11课程名Cnamechar11成绩Gradechar11第3章 系统详细设计本部分主要内容为本系统的各个运行界面以及主要界面的源代码3.1 模块设计添加一个模块module1。该部分包括利用ADODB控件将写好的SQL语句经过ADODB控件连

8、接数据库并将结果存储在RecordSet中。代码如下：Public UserName As StringPublic rst As ADODB.RecordsetPublic 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

9、rs.CursorLocation = adUseClient rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic Set chaxun = rsEnd Function3.2 登录窗体设计添加一个窗体（login.frm）。运行系统将首先弹出用户选择对话框，本界面的主要功能是由用户根据自己的角色登录来使用系统，不同的用户角色具有不同的系统使用权限，用户选择管理员则会弹出用户登录对话框，管理员登录界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在pwad表中，本系统根据不同的用户而设置了不同的密码，当使用正确的用户名和密码例

10、如：用户名001密码：001来登录本系统时，就可以进入本系统对应的主界面对该系统进行相应的操作如对信息进行增加、删除、修改和查询等操作。用户登录模块功能结构图如3-1所示图3-1 用户登录模块功能结构图登陆窗体如下图3-2所示：图3-2登录界面图代码如下：Public UserName As StringPrivate Sub Command1_Click()Dim sqlstr As StringIf Me.Option1.Value = True Thensqlstr = select * from student where Sno= + Me.Sno.Text + Else:If Me

11、.Option2.Value = True Then sqlstr = select * from Teachers where Tno= + Me.Sno.Text + End IfEnd IfSet rst = chaxun(sqlstr)If Not rst.EOF ThenIf Trim(rst.Fields(1) = password.Text Then UserName = Trim(rst.Fields(2)information.ShowMe.HideElseMsgBox 密码错误, vbOKOnly + vbExclamationEnd If ElseMsgBox 用户名错误

12、, vbOKOnly + vbExclamationEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub3.3 主界面设计添加一个MDI窗体（information.frm）。该部分主要添加StatusBar、Toolbar控件和菜单编辑器。以用户名为001、密码为001登录，窗体运行情况如下图3-2所示：图3-3主界面图代码如下：Public flag As Boolean=StatusBar控件的运用 =Private Sub MDIForm_Load()Me.flag = TrueIf login.Option1.Value

13、= True Thenlrcj.Visible = Falsesccj.Visible = Falsexgcj.Visible = Falsexsgl.Visible = FalseStatusBar1.Panels(1).Text = 当前用户： + login.UserName + 用户身份：学生ElseStatusBar1.Panels(1).Text = 当前用户： + login.UserName + 用户身份：教师End IfEnd SubPrivate Sub logout_Click()=注销功能的代码=If MsgBox(您确定要退出登录？, vbYesNo + vbQues

14、tion, 注销) = vbYes ThenMe.flag = Falselogin.ShowUnload Melogin.Sno = login.password = Else Exit Sub End IfEnd Sub=跳转到修改成绩窗体的代码=Private Sub xgcj_Click()tlrcj.Visible = Falsetcxcj.Visible = Falsetsccj.Visible = Falsetxgcj.Visible = Truetxgcj.WindowState = 2sxgmm.Visible = FalseEnd Sub3.4 部分功能设计（1）信息录入功

15、能设计信息录入模块的功能是具有添加每个班级的每个学生的各个门课的成绩的添加。其中添加成绩是指对已记录的学生各个门课程成绩进行添加、并保存到相应对应的数据库文件表中。信息录入功能图如图3-4所示：图3-4信息录入功能图主要代码如下：Private Sub Command1_Click() Dim rst As New ADODB.RecordsetDim str As String str = select * from SC Set rst = chaxun(str) rst.AddNew rst.Fields(0) = Text1.Text rst.Fields(1) = Text2.Tex

16、t rst.Fields(2) = Text3.Text rst.Update MsgBox 录入成功！, vbOKOnly + vbExclamationEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()If Me.WindowState = 0 Then Me.WindowState = 2End Sub（2）信息查询功能设计查询功能是指查看学生的成绩信息以及课程信息。可以按学号为条件查找各个学科的具体成绩、查找模块功能结构图如图3-5所示信息查询功能窗体图3-6如下所示图3-6 信息查询功能

17、窗体图主要代码如下：Public rst As New ADODB.RecordsetPublic str As StringPrivate Sub Command1_Click()rst.MoveFirstdisplayEnd SubPrivate Sub Command2_Click()rst.MoveLastdisplayEnd SubPrivate Sub Command3_Click()rst.MoveNextIf rst.EOF ThenMsgBox 已经是最后一条记录！, vbOKOnly + vbExclamationrst.MoveLastEnd IfdisplayEnd S

18、ubPrivate Sub Command4_Click()rst.MovePreviousIf rst.BOF ThenMsgBox 已经是第一条记录！, vbOKOnly + vbExclamationrst.MoveFirstEnd IfdisplayEnd SubPrivate Sub Command5_Click()Label2.Visible = True 当输入学号是，点击按钮，显示Label1.Visible = True 该学生的成绩 Text1.Visible = TrueText2.Visible = TrueCommand1.Visible = True Command

19、2.Visible = TrueCommand3.Visible = TrueCommand4.Visible = Truestr = 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)displayEnd SubPrivate Sub Form_Load()If Me.WindowState = 0 Then Me.WindowState = 2Label2

20、.Visible = FalseLabel1.Visible = FalseText1.Visible = FalseText2.Visible = FalseCommand1.Visible = FalseCommand2.Visible = FalseCommand3.Visible = FalseCommand4.Visible = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim IntR As IntegerIntR = MsgBox(确认要退出程序吗？, vbYesNo, 退出确认)If IntR = vbNo Th

21、en Cancel = -1 EndEnd SubPublic Sub display()Text1.Text = rst.Fields(1)Text2.Text = rst.Fields(0)End Sub第4章 系统调试运行4.1 登陆窗体调试 登陆时先进行用户身份的选择，如果是用户身份学生则在输入正确的用户名和密码之后进入学生信息管理界面，如果是用户身份是教师则进入教师信息管理界面，如果密码或用户名报错则提示错误。登陆错误图如图4-1所示：图4-1 登陆错误图4.2 主窗体调试当用户登录后进入主窗体，根据代码进行判断用户身份是学生还是教师，如果是学生则隐藏教师功能，如果是教师则隐藏学生功

22、能。在主窗体下方的statusbar中会显示当先登录用户的姓名，身份，时间信息。如图主窗体图4-2所示图4-2 主窗体图4.3 部分功能调试(1)成绩查询功能调试在输入学生学号文本框中输入要查询的学生学号，界面下方会出现该学生的课程名字以及相对应的成绩。但如果该学生没有成绩时，则会报该记录已被删除或没有该记录的错误。成绩查询报错图如图4-3所示：图4-3 成绩查询报错图（2）成绩录入功能调试成绩录入是需要输入该学生的学号，课程号以及成绩。当其中某一项不存在于相对应的学生表，课程表，成绩表中时都汇报违反主键约束的错误。当符合要求就会提示录入成功，相应的成绩表中便会有其记录。录入成绩报错图如图4-

23、4所示：图4-4 录入成绩报错图第5章 课程设计体会在课程设计中，我们遇到的困难很多，在解决它们的同时我又学到了很多，受益匪浅，特别是如何分析、建立、开发一个系统。在一个系统开发的过程中编码不是重要的，重要的是分析系统、建立起系统模型。在分析一个系统前，分析人员必须要对将要开发的系统所涉及到的各方面知识有一个认识，然后将系统的模型建立起来。而且一个成功的软件要符合用户的需要，要以用户为中心，开发出用户想要的软件，而不能自以为是、想当然的做。在程序编写中，我认识到软件要有简便的界面，良好的程序风格，较全的代码注释。拥有这些条件，程序的可读性才会好，开发的复杂度才能大大减少，修改代码时更加容易下手

24、。我认为，所谓友好的界面，就是用户需要的界面，力求简便全面。所以设计一个界面时，开发人员必须要了解用户的想法，从用户的角度去设计，当然，开发不能全听用户的意见，在详细分析了系统后，开发人员可以向用户提出一些修改的意见，在双方多次交流后定出程序所需的功能，以决定界面的实现。在编码中，良好的编程风格与习惯是提高工作效率的一个重要方面，而且良好的编程风格与习惯也是使软件便于维护的基础。那如何是良好的编程风格与习惯呢？我认为主要是程序的模块化、必要的注释。所谓模块化就是使程序的功能实现分成多个单独的功能模块，而不能在一大段代码中实现多个功能，如果这样做，别的人是非常难读懂你的程序。必要的注释，显而易见

25、是要在程序的编写中加入对程序的说明，原因就是为了别人能读懂你的程序，过一段时间后你自己还能读懂自己的程序。总结这次毕业设计给我感受最深的至少有三点：（1） 进行软件开发这样的工作，要有恒心，要能静下新来做，而不能浮躁。（2） 要善于同别人交流与合作，善于获取各种有用的资源。（3） 要真真实实的多查资料，多问，多看。参考文献（1）董鹏、吴艳群学生成绩分析决策辅助系统的设计与实现甘肃科技纵横第33卷5期（2）董彦霞、陈志刚基于bs的成人教育管理系统的设计与实现J电脑与信息技术200513(4)（3）黄梯云主编管理信息系统机械工业由版社19973（4）美克努特计算机程序设计艺术苏运林译 机械工业出版社（5）萨师煊、王珊数据库系统概论M北京高等教育出版社20002（6）林陈雷.Visual Basic6.0人民邮电出版社（7）龚沛曾面向对象程序设计系列教材高等教育出版社（8）潭 浩学用Visual Basic 编程西安电子科技大学出版社（9）敬 铮Visual Basic6.0 数据库开发与专业应用国防工业出版社（10）温贤发Visual Basic6.0 数据库程序设计高手科学出版社