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

VB课程设计学生信息管理系统 作者： 日期：2 个人收集整理 勿做商业用途 学生信息管理系统1.课程设计目的目的是进一步培养我们综合应用Visual Basic的各种编程知识和技巧进行程序设计的能力.通过课程设计，我们能达到具备设计功能较为复杂的Windows应用程序的能力。同时，通过课程设计,培养我们自主学习和独立创新的精神，是人才培养体系中极为重要的一环。随着高校规模的不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长，庞大学生信息的管理工作成了高校教学管理工作中的一项重要任务，一方面，假如遵从以往旧式的工作方式，该工作的工作量大,管理繁琐，既耗人力，又耗物力;另一方面，由于计算机技术的飞速发展及应用的普及，学生信息管理这样烦琐的工作更需要由计算机来完成。因此开发一套对学生信息进行管理的软件是极其重要的，而且是必需的，通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询,从而减少管理方面的工作量。学生信息管理系统是典型的信息管理系统 (MIS）,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点.针对高校现在存在的学生成绩管理的弊端和基本流程，设计了学生成绩管理系统,实现学生成绩管理的电子化,减轻管理人员的负担。利用这一系统，管理人员能够更好的对现有的学生成绩进行管理，也方便了学生自己查询成绩，同时可以避免人为错误。本模块实现的主要功能有专业信息、班级信息、学生信息及课程安排、成绩查询的功能.系统采用Visual basic 高级语言进行程序编制，以SQL Server 2000数据库为后台数据库。希望通过这次课程更清楚地了解自己的知识水平。充分的认识到自己真实情况。都说要想把学到的理论知识彻底的变成自己的东西就要不断地学习不停的实践，只有彻底明白的道理和它的一切结构才不至于学的一知半解.通过这次学生信息系统的设计，希望自己能把以前不会的东西学会，然后把自己会的东西能充分的运用到实际课程设计当中，做出理想的效果。彻底的把知识学透而不是把知识学死板了，自己做这次课程设计一定会让我得到很多我在课堂上多学不到的东西。更好的完善自己,为以后的学习生活以及工作奠定良好的基础。2。学生信息管理系统分析与设计2。1可行性分析由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性,涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾 3 以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理 是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下： Visual Basic 是一种可视化的、面对对象和调用事件驱动方式的结构化 高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大。在 Visual Basic 环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出 Windows 环境下功能强大、图 形界面丰富的应用软件系统。2.2系统功能分析此学生信息管理信息系统是面向大学的管理系统，其目的是对学校内的学生，班级，和其它信息进行统一有序的管理。班级管理信息的输入,包括班级设置、年级的设置等；班级管理信息管理的查询;班级管理信息的修改；学校基本课程信息的输入；基本课程信息的修改；学生课程信息的设置和修改；学生成绩信息的输入；学生成绩信息的修改;学生成绩信息的查询；学生成绩信息的统计.1） 系统安全性操作员在登录界面输入操作员帐号及密码进入主页面进行相应操作,加强了此系统的安全可靠性。2） 主页界面采用视窗的风格，点击菜单可以进入相应的界面，对其进行相应的操作。既方便又实用3） 专业信息管理对所有专业信息查询，并能直接实现添加记录、删除记录、刷新、打印报表等功能。专业信息表包括的字段：专业号、专业名。4） 班级信息管理对所有班级信息查询，并能直接实现添加记录、删除记录、打印报表及刷新等功能。班级信息表包括的字段：班级号,专业号。5) 学生信息管理 对全体学生信息查询，或某个学生信息查询,并能直接实现添加记录、删除记录、打印报表及刷新等功能。学生表包括的字段：学号、姓名、性别、出生日期、政治面貌、专业号、班级号。6） 课程安排管理 对所有课程具体安排信息进行查询或某一科单独查询，且也能够实现添加、删除记录、打印报表及刷新等功能。课程表包括的字段：课程号、课程名、专业号、开课学期、学时、教师编号。 7) 成绩查询管理 对全体的学生所有的科目成绩进行查询，也能单独对某一个学生某一科进行查询并能实现添加、删除记录、打印报表及刷新,还有就是能统计出补考的学生的名单及数量。成绩表包括的字段：学号、姓名、课程号、课程名、成绩、考核、教师编号、专业号、班级号。2. 3系统功能模块分析上述各功能的系统功能模块图如图1。学生信息管理系统成绩信息管理课程信息管理班级信息管理学籍信息管理系统管理成绩添加修改管理成绩查询年级课程设置班级课程信息管理学籍信息的添加班级信息修改班级信息添加学籍查询和修改密码设置用户设置图1 系统功能模块2。4数据库分析数据库在一个信息管理系统中占有非常重要的地位,数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率,保证数据的完整和一致。同时,合理的数据库结构也将有利于程序的实现。数据库需求分析用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构： 1)。学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。 2）。班级信息：包括的数据项有：班号、所在年级、班主任姓名、所在教室等。 3).课程基本信息：包括的数据项有:课程号、课程名称、课程类别、课程描述等. 4）。课程设置信息:包括数据项有：年级信息、所学课程等。 5).学生成绩信息：包括数据项有：考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。根据上面的数据结构、数据项和数据流程，进行数据库设计。3。详细设计3.1学生信息管理系统主窗体的创建(1).创建一个工程名为Student_Mis的工程文件Student_Mis.vbp。(2)。创建学生信息管理系统的主窗体MID窗体，窗体名为frmMain，窗体文件名为:frmMain。frm。创建主窗体的菜单，利用菜单设计器来设置住窗体如下图所示。图2 主窗体菜单表1 主菜单结果表对象属性属性值对象属性属性值主菜单项1名称sysMenu子菜单项2名称modifycionfoMenu标题系统标题修改班级信息子菜单项1名称adduserMenu主菜单项4名称courseMenu标题添加用户标题课程设置子菜单项2名称modifypwdMenu子菜单项1名称addcourseMenu标题修改密码标题添加课程设计子菜单项3名称exitMenu子菜单项2名称modifycourseMenu标题退出系统标题修改课程信息主菜单项2名称sinfoMenu子菜单项3名称gradecourseMenu标题学籍信息标题设计年级课程子菜单项1名称addsinfoMenu主菜单项5名称resultMenu标题添加学籍信息标题成绩管理子菜单项2名称modifysinfoMenu子菜单项1名称addresultMenu标题修改学籍信息标题添加成绩信息子菜单项3名称inquiresinfoMenu子菜单项2名称modifyresultMenu标题查询学籍信息标题修好学籍信息主菜单项3名称classinfoMenu子菜单项3名称inquireresultMenu标题班级管理标题查询成绩信息子菜单项1名称addcinfoMenu标题添加班级信息3.2系统用户管理模块的创建系统用户管理模块主页实现：用户登陆；用户添加；修改用户密码3。2.1用户登陆窗体的创建进入系统后出现如图3所示用户登陆窗体，用户首先输入用户名，然后输入密码。如果用户3次输入密码不正确，将退出程序。图3 系统登录界面3。2.2成绩管理模块的创建（1)成绩管理模块功能分析.成绩管理模块主要实现如下功能：添加成绩信息；修改成绩信息；查询成绩信息。(2）成绩信息管理模块图如下图所示。成绩信息管理添加成绩信息修改成绩信息查询成绩信息图4 成绩信息管理模块界面设计时添加窗体,添加相关控件，设置控件的相关属性来完成界面的设计要求,然后调整控件的排版问题，让整体达到美观的效果.界面的设计以及属性的设置如下图所示。图5 界面设计及属性设置3。2.3添加成绩信息窗体的创建选择“成绩管理添加成绩信息”菜单，将出现如图所示的窗体.图6 添加成绩信息打开添加成绩界面之后，可以通过系统添加考试编号、选择学生所在的班级、添加学生的学号、姓名、考试的课程科目以及考试所得的分数.添加完事之后如果没有错误和实际相符合就可以单击“确认添加”按钮把刚刚录入的成绩及学生信息保存到系统当中。方便以后用户的查询。如果发现在录入信息的时候不小心录入了错误信息,可以修改录入的信息，或者用户单击“取消添加”按钮取消添加信息。控件属性的设置：根据以上的操作界面，在设计时候创建窗体,往窗体当中添加相关的控件，调整控件的位置以达到美观优雅的设计效果，添加控件的同时也要在设计界面把把各个控件的相关属性按照设计要求目的来设置好，窗体中各种控件的属性列成表格的形式，如下表所示。表2 控件属性控件属性属性取值控件属性属性取值FrmAddgrade（Form）NameFrmAddgradeLabel1Caption考试编号Caption添加成绩信息Command2NameCommand2MIDChildTrueCaption取消添加txtTestnoNametxtTestnoLabel2Caption选择班号comboGradeNamecomboGradeLabel3Caption选择学号txtDirectorNametxtDirectorLabel4Caption姓名txtnameNametxtnameLable15Caption选择课程Command1NameCommand1Lable16Caption输入分数Caption确定添加3。2。4修改成绩信息窗体的创建这个窗体在添加成绩信息窗体的基础上又增加了两排按钮，方便了用户的相关操作。查看成绩信息和修改成绩信息。如7图所示.图7 修改成绩信息控件的属性设置：在设计操作界面的时候来设置相关控件的属性设置,修改框架的标题，让人看了之后就知道该操作界面是用来做什么的，设置该框架的Caption属性为“修改成绩信息”其他一些空间的属性按照设计要求和目的来分别设置。具体控件的属性设置如下表所示.表3 控件属性控件属性属性取值控件属性属性取值FrmChange（Form)NameFrmChangeLabel1Caption考试编号Caption修改成绩信息Command3NameCommand3MIDChildTrueCaption取消修改记录txtTestnoNametxtTestnoCommang4Caption删除记录comboGradeNamecomboGradeLabel2Caption选择班号txtDirectorNametxtDirectorLabel3Caption选择学号txtnameNamextnameLabel4Caption姓名Command1Caption修改记录Lable15Caption选择课程Command2Caption更新数据vLable16Caption输入分数当需要修改学生成绩信息的时候可以通过打开系统的如上界面来对成绩信息进行查看和修改，点击查看成绩信息栏里面的“第一条记录”按钮或者其他几个按钮可以根据点击按钮的不同来跳转到相关的界面来显示想要的信息。如果系统当中的数据需要做相关的修改时，点击修改成绩信息栏里面的按钮来修改当前系统当中的记录,更新数据，删除不想保存在数据库中的信息,如果不是想要修改数据和更新数据库信息可以单击“取消修改记录”按钮来放弃刚刚所作出的操作。3.2。5查询成绩信息窗体的创建新建一个Form窗体，在窗体上加入一个Data控件,其DatabaseName属性设置连接到数库，RecordSource属性连接到数据库中的相关表.在窗体上加入两个Frame控件，在一个上放置3wh TextBox控件，3个Label控件，其Caption属性分别设为“按学号”“按姓名”“按课程。设置有复选框。在另一个Frame控件上放置2个CommandButton控件,其Caption 属性分别设置为“查询、“退出查询。完成后的整个界面如下图所示。图8 查询成绩信息进入系统的查询成绩信息界面以后，可以按照不同的方式来查询想要查看的同学的成绩信息。该系统分为按学号查询学生的成绩信息，输入学生的学号之后，然后单击“查询”按钮跳转到下一界面，即为查询学生的成绩信息。按姓名查询学生成绩信息，如截图当中显示的即为通过按姓名的方式来查询数据库中已有的学生成绩信息.在按姓名文本框当中输入“张三”然后单击“查询”按钮即可以跳到张三的成绩相关信息界面。查询完毕之后通过单击“退出查询”按钮来退出该模块。图中即为数据库中有的关于张三的成绩信息，考试编号、张三的学号、班级号、所考试的课程名称，和该科目的考试成绩。再有按课程名称来查看学生成绩信息。手动输入课程名称来查询相关的成绩信息.4.设计体会在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。 因此,该系统必然会存在一些缺陷。因为对学生信息管理的整个流程的熟悉程度还不够深刻，在需求分析时未能做到完全满足用户的需求。虽然网络在学生成绩管理系统中的应用不是很多， 在本次开发过程由于硬件的限制,未能实现网络功能。 尽管本管理系统存在着很多不足，但其功能还是比较全面的、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是本管理系统所必需的。相信本学生管理系统是一套学校在日常管理中必不可少的管理软件，通过开发这个系统，掌握了信息管理设计过程。加强了对Visual Basic 6。0的学习，巩固了基本知识，提高了自学能力。在这次毕业设计中的最大收获并不仅是掌握了开发工具的应用，而是学会了设计系统的思维方法,以及与同学们之间相互帮助的精神.总之在这次设计中我知道了很多，获得了很多。有了这次的学生系统的课程设计,让我在课堂上学到的书本理论知识得到了更好理解。更进一步巩固了自己的知识,没有这次课程设计，自己一直以为自己学的还算很好一半知识自己都会，但是在做课设的时候发现有很多东西运用到实践当中还不我所达不到的水平，这才发现自己会得东西只是一知半解。运用到实际当中自己的欠缺还是很大。幸好很多热心的室友和同学以及老师的帮助,自己通过查阅丰富的图书资源，搜索丰富的网络资源，设计界面,设置各种控件的属性，编写相关的代码。反复的调试程序才算把这个学生信息管理的系统做完。虽然刚开始时候因为很多东西不会烦躁,无从下手.但是程序最后调试出来那一瞬间，真的很高兴。课程设计完成了，首先非常感谢学校给我们这次机会，让我们扩大了知识量，弥补了知识的欠缺，进一步完善了自我。忠心的感谢老师在设计过程中对我孜孜不倦的教导，使我的设计顺利完成。我还要感谢我的同学们，在这一阶段给了我极大的帮助.参考文献1 刘天慧等编著.Visual Basic程序设计教程M。北京：清华大学出版社，2006.2:1561852 萨师煊,王珊.数据库系统概论M,（第三版）。北京：高等教育出版社，2006.5：1982333 梁伟等编。 Visual Basic 管理信息系统项目开发实践，北京：科学出版社,2003：1272114 程斌等编. Visual Basic 6。0数据库开发指南，西安：电子科技大学出版社，2000：232-2545 武马群Visual Basic程序设计M北京：北京工业大学出版社,2005。03：67-906 陈元春。 Visual Basic数据库编程 M。 北京：清华大学出版社,2007。07：37-707 蒋加伏。Visual Basic程序设计教程M。 北京: 北京邮电大学出版社，2003.11：10-568 王国荣,VisualBasic6.0与Windows API讲座M.北京:人民邮电出版社。2007.4：100-130 9 刘新民，蔡琼,白康生编著.Visual Basic 6。0程序设计M.北京：清华大学出版社。2004.3 202510李春葆，曾平编著数据库原理与应用M. 北京：清华大学出版社. 2006。1 417411 A Blog Mining Framework IT Professional J。 卷次：11刊期：1 January 2009 . 附录：源代码学生信息管理系统主窗体代码如下：Private Sub MDIForm_Load(） Me.Left = GetSetting(App。Title， ”Settings， MainLeft， 1000） Me.Top = GetSetting（App。Title， Settings, MainTop， 1000) Me。Width = GetSetting（App。Title, Settings, MainWidth， 6500） Me.Height = GetSetting(App。Title， Settings, MainHeight, 6500）End SubPrivate Sub MDIForm_Unload（Cancel As Integer) If Me。WindowState vbMinimized Then SaveSetting App。Title， ”Settings, ”MainLeft”, Me。Left SaveSetting App。Title, Settings， ”MainTop， Me.Top SaveSetting App。Title, ”Settings”, MainWidth， Me.Width SaveSetting App.Title, ”Settings”, MainHeight， Me。Height End IfEnd SubPrivate Sub modifycinfoMenu_Click（） frmModifyclassinfo。ShowEnd SubPrivate Sub modifycourseMenu_Click（） frmModifycourseinfo。ShowEnd SubPrivate Sub modifypwdMenu_Click(） frmModifyuserinfo。ShowEnd SubPrivate Sub modifyresultMenu_Click（） frmModifyresult。ShowEnd SubPrivate Sub modifysinfo_Menu_Click(） frmModifysinfo。ShowEnd Sub创建公共模块。在工程资源管理器中为项目添加一个名称为Module的标准模块文件Module。bas。代码如下：Public fMainForm As frmMainPublic UserName As StringSub Main() Dim fLogin As New frmLogin fLogin。Show vbModal If Not fLogin。OK Then Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm.ShowEnd SubPublic Function ConnectString（） _ As Stringreturns a DB ConnectString ConnectString = ”FileDSN=studentinfo.dsnEnd FunctionPublic Function ExecuteSQL（ByVal SQL _ As String, MsgString As String） _ As ADODB.Recordsetexecutes SQL and returns Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens(） As String On Error GoTo ExecuteSQL_Error sTokens = Split（SQL） Set cnn = New ADODB。Connection cnn.Open ConnectString If InStr(INSERT，DELETE，UPDATE, _ UCase$(sTokens(0）) Then cnn。Execute SQL MsgString = sTokens（0） & _ ” query successful Else Set rst = New ADODB.Recordset rst。Open Trim（SQL), cnn， _ adOpenKeyset， _ adLockOptimistic rst。MoveLast get RecordCount Set ExecuteSQL = rst MsgString = ”查询到” rst。RecordCount _ ” 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查询错误： & _ Err.Description Resume ExecuteSQL_ExitEnd FunctionPublic Function Testtxt（txt As String) As Boolean If Trim(txt） = Then Testtxt = False Else Testtxt = True End IfEnd Function系统用户管理模块的创建代码如下：Option ExplicitPublic OK As Boolean记录确定次数Dim miCount As IntegerPrivate Sub Form_Load() OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click（) Dim txtSQL As String Dim mrc As ADODB。Recordset Dim MsgText As String ToDo： create test for correct password check for correct password UserName = ” If Trim（txtUserName。Text = ”） Then MsgBox 没有这个用户，请重新输入用户名！”, vbOKOnly + vbExclamation, 警告” txtUserName。SetFocus Else txtSQL = ”select * from user_Info where user_ID = txtUserName.Text ” Set mrc = ExecuteSQL（txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户,请重新输入用户名！”, vbOKOnly + vbExclamation， ”警告 txtUserName.SetFocus Else If Trim（mrc。Fields(1)） = Trim（txtPassword。Text） Then OK = True mrc.Close Me.Hide UserName = Trim（txtUserName.Text) Else MsgBox 输入密码不正确，请重新输入！”， vbOKOnly + vbExclamation, ”警告 txtPassword。SetFocus txtPassword.Text = End If End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd Sub成绩管理模块的创建代码如下：Private Sub Command1_Click(） Dim mrc As ADODB。Recordset Dim MsgText As String Dim txtSQL As String If Not Testtxt（txtClassno。Text) Then MsgBox ”请输入考试编号!”, vbOKOnly + vbExclamation， ”警告 txtClassno.SetFocus Exit Sub End If If Not Testtxt（comboGrade.Text) Then MsgBox ”请选择班号!, vbOKOnly + vbExclamation， 警告” comboGrade。SetFocus Exit Sub End If If Not Testtxt（txtDirector.Text） Then MsgBox ”请输入姓名！, vbOKOnly + vbExclamation, ”警告 txtDirector.SetFocus Exit Sub End If if Not Testtxt(txtClassroom.Text) Then MsgBox 请输入教室房间号!, vbOKOnly + vbExclamation, ”警告 txtClassroom。SetFocus Exit Sub End If If Not IsNumeric（Trim（txtClassno。Text） Then MsgBox 请输入数字！， vbOKOnly + vbExclamation, ”警告” Exit Sub txtClassno.SetFocus End If txtSQL = select from class_Info ” Set mrc = ExecuteSQL(txtSQL， MsgText) mrc.MoveFirst While （mrc.EOF = False) If (Trim（mrc.Fields（0)） = Trim(txtClassno。Text)） Then MsgBox ”班号已经存在,请重新输入班号！”， vbOKOnly + vbExclamation, ”警告 Exit Sub txtClassno.Text = ” txtClassno。SetFocus Else mrc。MoveNext End If Wend mrc。AddNew mrc。Fields（0) = Trim(txtClassno.Text) mrc.Fields(1） = Trim(comboGrade。Text) mrc。Fields（2） = Trim(txtDirector。Text） mrc.Fields(3) = Trim(txtClassroom。Text) mrc。Update mrc。Close MsgBox 添加成绩信息成功！”， vbOKOnly + vbExclamation, ”添加成绩信息 End SubPrivate Sub Command2_Click(） Unload MeEnd Sub修改查询成绩模块代码如下:Private Sub Command1_Click(）If Text1.Text = ThenMsgBox 请输入内容！Else 输入内容不能为空Data1。Recordset.EditData1。Recordset.Fields（0） = Text2。TextData1。Recordset。Fields(1) = Text3.TextData1。Recordset.Fields（2） = text4。TextData1.Recordset.Fields（3） = Text5。TextData1。Recordset。Fields（4） = Text6。TextData1.Recordset.Fields（5） = Text7.TextData1.Recordset.Fields(6） = Text8。TextText9.Text = Str(（Val(Text6.Text） + Val(Text8.Text） + Val（Text7.Text） / 3)Data1.Recordset。Fields（7) = Text9。TextData1。Recordset。UpdateMsgBox 修改成功” 对数据库进行修改,并将修改后的数据存入数据库End IfEnd SubPrivate Sub Command10_Click（）If Trim(Text1。Text） = ” ThenMsgBox ”学号不能为空,请重新输入!”， vbOKOnly + vbExclamation, 警告Text1.SetFocusElse 输入学号不能为空Data1.Recor