VB学生信息管理系统1演示教学

1、Good is good, but better carries it.精益求精，善益求善。VB学生信息管理系统1-毕业设计（论文）题目学生信息管理系统设计与实现系别软件工程系专业软件技术班级姓名学号指导老师（职称）日期兰州工业高等专科学校毕业设计（论文）任务书软件工程系2008届计算机软件专业毕业设计（论文）任务书毕业设计（论文）题目VB学生管理系统课题内容性质软件开发课题来源性质教师收集的结合生产实际的课题设计/论文校内（外）指导教师职称工作单位及部门联系方式赵双萍副教授软件工程、题目说明（目的和意义）：VisualBasic是一个强有力的系统开发软件之一，以其实

2、用、方便、快捷、开发周期短，越来越被广大编程人员所青睐。VB更容易上手，进而提高软件开发的效率。通过实际设计，掌握VB应用程序开发软件的设计方法，理解软件工程思想。本次设计的主要目的是提高学生综合分析问题和解决实际问题的能力，为将来走上工作岗位打下一个良好的基础。学生信息管理系统主要包括对学生信息的查询和修改等操作。二、设计（论文）要求（工作量、内容）：（一）系统需求分析（占全部工作量的20%）1、认真阅读毕业设计任务书，对设计题目的实用性、可行性进行论证。2、收集资料：认真阅读毕业设计任务书。了解设计目标及要求与开发环境。主要是软件环境，即系统中将采用的开发工具，如有异议，可及时与指导老师进

3、行交流。3、设计目标及要求：实现对学生信息的查询和修改。主要实现以下几方面功能：用户登录系统：实现用户可以以各种身份登录。信息查询：包括单项查询和综合查询。系统维护：包括系统中涉及到的规范化数据字典表的管理、用户管理等。（二）数据库系统分析、设计（占全部工作量的20%）1、采用VB数据库系统VB+ACCESS2、设计数据库中需要的表设计表结构，设计表中的字段、类型、长度等。3、分析系统中表之间的关系（三）程序设计、调试（占全部工作量的30%）（四）系统测试（占全部工作量的20%）（五）书写设计论文（占全部工作量的10%）三、进度表日期内容第15周第一阶段：系统需求分析1。系统的实用性、可行性分

4、析2。业务分析3。设计目标4。功能设计第16周第二阶段：数据库设计1。数据库设计：设计数据库结构2。给出ER图及相应数据流图第17-18周第三阶段：程序设计、调试和系统测试程序编制系统测试系统打包、完成第19-20周第四阶段：写毕业论文完成日期答辩日期四、主要参考文献、资料、设备和实习地点及翻译工作量：1主要参考文献：1萨师煊王珊。数据库系统概论。第三版。北京：高等教育出版社，2000。2周霭如、官士鸿、林伟健。VisualBasic程序设计。北京：电子工业出版社，2003。1。3尹贵祥。VisualBasic6。0程序设计案例教程。北京：中国铁道出版社，2005。14(美)StephenR。

5、Schach。软件工程。北京：机械工业出版社，1999。92设备：计算机一台，自己解决。3翻译工作量：论文摘要。指导教师签字教研室主任签字主管系领导签字年月日年月日年月日注：本任务书要求一式两份，一份系部留存，一份报教务处实践教学科。摘要随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。学生成绩管理系统主要提供方便高效的管理功能，该实现以下一些基本功能：1。系统管理模块：维护系统的正常运行和安全性设置，包括添加用户、修改密

6、码、删除用户等等。2。学院信息模块：实现对学校院系、专业、班级操作。包括：添加、修改、删除院系、专业、班级等信息。这三个功能模块各自独立，完成学校的全部班级的管理。3。学生学籍管理模块：实现对学生的个人信息的管理工作，包括学籍添加、学籍查询、学籍修改等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。4。课程管理模块：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。5。成绩管理模块：检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类

7、型，还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。6。退出模块：此模块完成程序的退出。该程序界面友好，功能强大，适合实际应用。关键字：数据库ACCESS数据库AbstractAlongwiththeinformationtechnologyinthemanagementofamoreprofoundandextensiveapplication,managementinformationsystemsimplementation,technologyhasgraduallymatured.Managementinformationsystemisacontinuousdevelop

8、mentofnewdisciplines,anyoneunittosurviveandtodevelop,efficientactivitiesoftheinternalorganizationoforganic,itmustestablishitsowncharacteristicsandtoadaptthemanagementofinformationsystem.Studentachievementmanagementsystemtofacilitatetheprovisionofefficientmanagement,theimplementationofthefollowingbas

9、icfunctions：1systemmanagementmodule：maintainingthenormaloperationofthesystemandsecuritysettings,includingadd,modify,deleteuserpassworduserandsoon.2Schoolofinformationmodule:therealizationofschoolfaculty,professionaloperation,class.Include:add,modify,delete,professionalcolleges,classandotherinformati

10、on.Thethreefunctionmodulesareindependent,completethewholeschoolclassmanagement.3studentmanagementmodule:therealizationofstudentspersonalinformationmanagement,includingadd,querystudentschool,studentmodifyfunctions,therebyfacilitatingschooladministrationtotheschoolsbasicsituationoffastinquiryandunders

11、tanding.The4curriculummanagementmodule:Thismoduleofthevariousclassesofcurriculumsetting,andcanbesetupinwhichthecourseoftheteachingmaterialselection,convenientschoolteachingmaterialmanagementdepartmentandtheschooladministrationofficeoftheteachingmanagementstaff.Themoduleincludesthebasiccurriculumandt

12、hecoursessettingoftwomodules.5performancemanagementmodule:testingthestudentslearningisoneofthemainmeans,themoduletesttypesetting,atotalofmidtermandfinalexamsintwotypes,alsosetuptheachievementtoadd,queryresults,performance,functionmodulessuchasbrowsingperformancechanges.6：Thismoduleexitmoduleprograme

13、xit.Theprocessfriendlyinterface,powerful,suitableforpracticalapplications.Keywords:databaseACCESSdatabase第一章绪论1.概述该信息管理系统可以说是一个综合性的学校学生管理系统，它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统等多种功能，因而具有较强的实用性和先进性。项目提出的意义现在我国的大中专院校的学生信息管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了许多的人力和物力。在当今信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所

14、代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。项目开发背景学生信息管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，对学生来说也可以轻松的查阅自己在校的成绩以及信息等。但是一直以来人们都是靠传统人工的方式管理学生成绩，这种管理方式存在着许多缺点，如：效率低，保密性差，另外时间一长，将产生大量的文件和数据，这对于查找，更新和维护都带来了不少的困难。随着科学技术的不断提高，计算机对学生信息进行管理，有着手工管理所无法比拟的优点。例如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本低等。

15、这些优点能够极大地提高学生信息管理的效率，方便系统管理员对学生成绩等信息的添加，修改，删除，查询，留言等操作，同时一样的方面学生对自己各科成绩查询，学习的交流。项目开发的目标建立学生信息管理系统，采用计算机对学生信息进行管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生信息管理工作流程的系统化、规范化和自动化。二、相关技术与开发工具介绍本系统采用面向对象的软件开发办法，以Microsoft公司的可视开发环境VisualBasic6.0作为主要开发工具，使用MicrosoftAccess2000作为关系数据库，并为VB编程语言中采用ADO数据库编程模型，配合功能强大的SQL

16、查询语言实现建立关系数据库，放问数据库，对数据库的更新，较好地实现了预定的需求功能。第二章需求分析通过调查，要求系统需要有以下功能：要求有良好的人机界面；较好的权限管理；原始数据修改简单方便，支持多条件修改；方便的数据查询，支持多条件查询；相应的权限下，删除数据方便简单，数据稳定性好；数据计算自动完成，尽量减少人工干预；可行性分析：由于本系统管理的对象单一，都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是奔腾3以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考

17、文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：VisualBasic是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，可以高效、快速地开发出Windows环境下功能强大、图

18、形界面丰富的应用软件系统。第三章功能设计2.3业务流程分析学生信息管理系统普通用户中级用户管理员查询个人信息查询个人成绩查询个人信息改查学生成绩修改密码添加学生教师添加管理员查询数据设置学院信息2.4数据流程分析：普通用户（学生）：提供查询（需登录，仅显示登录用户信息）中等用户（教师）：提供增删改查（需登录，只可操作成绩表，并且教师工号对自己对应的成绩）管理员（教务处）：提供增删改查（可对学生，教师，成绩等操作）学生信息管理系统普通用户中级用户管理员学生表教师表管理员表成绩表普通用户：登录账户为学生学号中级用户：登录账号为教师工号，密码自定义，可修改管理员：登录账号为特定，密码可修改，可增加特

19、殊账号管理员管理员表增查个人信息增查教师信息教师表修改学院信息专业表院系表班级表软件功能设计第四章详细设计数据库设计学生表(student):列字段名类型长度是否为空主键学号IdChar20否是姓名nameChar20否否性别sexChar2是否出生年月birthdayDate/time8是否民族nationText10是否籍贯nativetext10是否入学时间enterTimeDate/time8是否院系编号fIDtext5是否专业编号speIDtext5是否班级编号cIDtext5是否教师表：（）列字段名类型长度是否为空主键教师工号tIDtext20否是教师姓名tNametext10否否

20、性别tSextext2是否名族tNationtext10是否籍贯tNativetext10是否政治面貌Politicaltext10是否职称titaltext10是否所属部门departmenttext10是否登陆密码passwordtext50是否管理员表：（）列字段名类型长度是否为空主键管理员编号adIDtext10否是管理员账号adNametext50否否密码adPasswordtext50否否所属部门adDeparttext10否否成绩表：（）列字段名类型长度是否为空主键学生编号stuIDtext12否否学科编号subIDtext10否否平时成绩usualtext10否否期末final

21、text10否否总评efftext10是否教师工号teacherIDtext20否否院系表（faculty）：列字段名类型长度是否为空主键院系编号fIDtext2否是院系名称fNametext10否否专业表（special）：列字段名类型长度是否为空主键专业编号speIDtext2否是专业名称sNametext50否否所属院系sfIDtext2否否学科表（subject）：列字段名类型长度是否为空主键编号subIDtext5否是名称subNametext50否否班级表（class）：列字段名类型长度是否为空主键班级编号cIDtext2是否班级名称cNametext50是否所属院系fIDtext

22、2是否所属专业sIDtext2是否程序代码设计要求：根据系统的主要功能及上一章的总体设计，系统开发进入第二个阶段：详细设计。在这一阶段的工作中，主要任务有以下几项：1、根据原型化的开发原则，为系统的每个模块功能进行界面设计，作为进一步优化的基础。2、进行系统的流程分析，为模块的细化做好准备。3、对每个模块进行详细的算法设计。详细代码设计公共模块：解决登陆用户信息以及数据库标志等公共信息，所以定义通用变量PublicgUserNameAsString保存用户名称PublicgTidAsString保存教师信息PublicgStuIDAsString保存学生登录信息PublicflagAsInte

23、ger添加和修改的标志PublicgSQLAsString保存SQL语句Publickqsql2AsString保存查询其他考勤结果SQL语句PublicArecordIDAsIntegerPublicLrecordIDAsIntegerPublicorecordIDAsIntegerPublicErecordIDAsIntegerPubliciflagAsInteger数据库是否打开标志数据库连接选用ADODB连接方式，首先先编写一公共模块，用于存放数据库访问类。PublicFunctionTransactSQL(ByValsqlAsString)AsADODB.RecordsetDimco

24、nAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrConnectionAsStringDimstrArray()AsStringSetcon=NewADODB.ConnectionSetrs=NewADODB.RecordsetOnErrorGoToTransactSQL_ErrorstrConnection=Provider=Microsoft.jet.oledb.4.0;DataSource=&App.Path&DBStuData.mdbstrArray=Split(sql)con.OpenstrConnectionIfStrComp(UCase

25、$(strArray(0),select,vbTextCompare)=0Thenrs.OpenTrim$(sql),con,adOpenKeyset,adLockOptimisticSetTransactSQL=rsiflag=1Elsecon.Executesqliflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error:MsgBox查询错误：&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction解决关闭窗口后程序任在后台

26、运行类：PublicSubShutdown(OptionalByValForceAsBoolean=False)DimIAsLongOnErrorResumeNextForI=Forms.Count-1To0Step-1IfNotForceThenIfForms.CountIThenExitSubEndIfEndIfNextIIfForceOr(Forms.Count=0)ThenCloseIfForceOr(Forms.Count0)ThenEndEndSub识别tab键PublicSubTabToEnter(KeyAsInteger)IfKey=13ThenSendKeysTABEndIf

27、EndSub登陆界面设计由于有三类用户同时登陆其中，学生输入学号登陆，教师登陆由教工号于密码登陆，管理员由账号密码登陆。代码如下：PrivateSubcmdOK_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(UserName.Text=)ThenMsgBox没有输入用户名，请重新输入！,vbOKOnly+vbExclamation,警告UserName.SetFocusElsesql=select*fromAdministratorwhereadName=&UserName.Text&Setrs=TransactSQL(sql)Ififla

28、g=1ThenIfrs.EOF=TrueThenMsgBox没有这个用户，请重新输入！,vbOKOnly+vbExclamation,警告UserName.SetFocusElseIfTrim(rs.Fields(2)=Trim(adPassWord.Text)Thenrs.CloseMe.HidegUserName=Trim(UserName.Text)记录用户adminFrm.ShowUnloadMeElseMsgBox密码不正确，请重新输入！,vbOKOnly+vbExclamation,警告adPassWord.SetFocusadPassWord.Text=EndIfEndIfEls

29、eUnloadMeEndIfEndIfEndSub主窗体设计系统选项中提供管理员注册，修改，删除功能其中，注册界面代码如下：代码：PrivateSubcmdOK_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(adName.Text)=ThenMsgBox请输入用户名称,vbOKOnly+vbExclamation,警告ExitSubadName.SetFocusElsesql=select*fromAdministratorwhereadName=&adName.Text&Setrs=TransactSQL(sql)判断用户名是否存在Ifr

30、s.EOF=FalseThenMsgBox这个用户已存在，请重新输入！,vbOKOnly+vbExclamation,警告adName.SetFocusadName.Text=passW1.Text=passW2.Text=ExitSubElseIfTrim(passW1.Text)=ThenMsgBox请输入密码,vbOKOnly+vbExclamation,警告passW1.SetFocusExitSubElseIfTrim(passW2.Text)=ThenMsgBox请再次输入密码！,vbOKOnly+vbExclamation,警告passW2.SetFocusExitSubElse

31、IfTrim(passW1.Text)Trim(passW2.Text)ThenMsgBox两次输入不一致，请重新输入,vbOKOnly+vbExclamation,警告passW2.Text=passW2.SetFocusExitSubElsesql=insertintoAdministrator(adID,adName,adPassword,adDepart)values(&id.Text&,&adName.Text&,&passW1.Text&,&Depart.Text&)CallTransactSQL(sql)MsgBox注册成功！,vbOKOnly+vbExclamation,添加结

32、果CallinitEndIfEndIfEndIfEndSub学生注册页面优化功能：为用户提供便捷的操作，以及在目标中提到的要求，在学生注册系统中加入了一些便捷操作：由于没个学生由于院系，专业，班级不同学号有所不同所以学号由系统自动生成，以减少人工干预，降低系统出错率。PrivateSubcmdID_Click()DimsqlAsStringDimrsAsNewADODB.RecordsetDimendIDAsStringDimtempIDAsStringDimeIDAsStringDimrsaAsStringDimfaculty,special,classAsStringIffacultyID

33、=ThenMsgBox请输入院系！,vbOKOnly+vbExclamation,警告faculty.SetFocusExitSubElseIfspecialID=ThenMsgBox请输入专业！,vbOKOnly+vbExclamation,警告special.SetFocusExitSubElseIfclassID=ThenMsgBox请输入班级！,vbOKOnly+vbExclamation,警告class.SetFocusExitSubElseenterTime=Mid(entTime.Value,1,4)sql=selectidfromstudentwhereidandfID=&fa

34、cultyID&andspeID=&specialID&andcID=&classID&orderbyiddescSetrs=TransactSQL(sql)eID=rs(0)eID=Right(eID,2)+1native.Text=classIDnative.Text=sqlendID=Right(Format(1000+eID),2)rs.ClosetempID=enterTime&facultyID&specialID&classID&endIDid.Text=tempIDEndIfEndSub院系，专业，班级都从数据库中提取，在学生表中只存储编号代码。DimsqlAsStringDi

35、mrsAsADODB.Recordsetsql=select*fromspecialwheresName=&special.Text&Setrs=TransactSQL(sql)classID=rs(0)rs.Close由于院系，专业，班级有包含关系所以在这里combobox控件加入代码，实现选择院系后所包含的专业自动加入队列。PrivateSubfaculty_click()DimsqlAsStringDimrsAsADODB.RecordsetDimfIDAsStringDimsAsStringspecial.Clear选定院系后刷新获得院系所含专业specialID=class.Clea

36、rclassID=sql=select*fromfacultywherefName=&faculty.Text&Setrs=TransactSQL(sql)facultyID=rs(0)rs.Closesql=select*fromspecialwheresfID=&facultyID&Setrs=TransactSQL(sql)DoWhileNotrs.EOFs=rs(1)special.AddItem(s)rs.MoveNextLooprs.CloseEndSub由于在表中只存储编号信息，程序中显示名称我们以添加新的班级为例。在窗口加载时得将院系信息加入到combobox控件队列，实现代码

37、如下：PrivateSubForm_Load()DimsqlAsStringDimrsAsADODB.RecordsetDimfAsStringsql=select*fromfacultywherefNameSetrs=TransactSQL(sql)DoWhileNotrs.EOFf=rs(1)fID.AddItem(f)rs.MoveNextLooprs.CloseEndSub在选取院系信息后要将院系所包含的专业信息加入到队列，实现代码如下：PrivateSubfID_Click()DimsqlAsStringDimrsAsADODB.RecordsetDimsAsStringsID.Cl

38、ear选定院系后刷新获得院系所含专业sql=select*fromfacultywherefName=&fID.Text&Setrs=TransactSQL(sql)facID=rs(0)rs.Closesql=select*fromspecialwheresfID=&facID&Setrs=TransactSQL(sql)DoWhileNotrs.EOFs=rs(1)sID.AddItem(s)rs.MoveNextLooprs.CloseEndSub由于班级编号在同一专业不能重复，所以编号由系统自动生成。当选定院系，专业后系统将从所数据库获得选定院系，专业现存的班级编号，按倒序排列后获得最

39、后的编码，由系统自动加1显示在控件上。实现代码如下：PrivateSubinit()DimtempIDAsStringDimsqlAsStringDimrsAsADODB.RecordsetDimnumAsIntegersql=selectcIDfromclasswherefID=&facID&andsID=&speID&orderbycIDdescSetrs=TransactSQL(sql)num=rs(0)num=num+1+0rs.ClosecID.Text=numEndSub其中参数facID，speID在选取时记录如以下代码：PrivateSubsID_Click()DimsqlAs

40、StringDimrsAsADODB.Recordsetsql=select*fromspecialwheresfID=&facID&Setrs=TransactSQL(sql)speID=rs(0)rs.CloseCallinitEndSub修改用户信息由严谨的逻辑关系控制，确保数据库中信息安全。以修改管理员密码为例。基本流程为：验证原密码-新密码与确认密码相同然后执行修改。代码实现如下：PrivateSubcmdOK_Click()DimsqlAsStringDimrsAsADODB.RecordsetIfTrim(oldPas.Text)=ThenMsgBox请输入旧密码！,vbOKOn

41、ly+vbExclamation,警告oldPas.SetFocusExitSubElseIfTrim(newPas1.Text)=ThenMsgBox请输入新密码！,vbOKOnly+vbExclamation,警告newPas1.SetFocusExitSubElseIfTrim(newPas2.Text=)ThenMsgBox请再次输入新密码,vbOKOnly+vbExclamation,警告newPas2.Text=newPas2.SetFocusExitSubElseIfTrim(newPas1.Text)Trim(newPas2.Text)ThenMsgBox两次输入不一致！,vbOKOnly+vbExclamation,警告newP