管理信息系统课程设计学生信息管理系统模板

《管理信息系统》课程设计设计报告设计名称：学生管理系统班级：信管031学号：姓名：施日华指导老师：陈朝晖日期：2023年1月4日至2023年1月12日摘要随着计算机技术的飞速发展，计算机在学生管理中应用的普及，运用计算机实现管理势在必行。我作为一个信息管理专业的大学生，希望能有所奉献。用我三年的所学编制了一个实用的程序来帮助教师们进行更有效的学生信息管理。本系统采用面向对象的程序设计思想进行编制，整个系统数据存在表格文献中，由数据库文献进行管理。并且运用信息系统分析与设计方法，应用Access数据库，VisualBasic发工具等开发出来的基于WINDOWS系列的学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理的查询和数十种记录报表的输出打印功能。减少了部门之间工作的中间环节，提高了跨部门管理的效率。文章介绍了学生管理信息系统的系统分析部分，涉及可行性分析、业务流程分析等；系统设计部分重要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个重要模块的算法，本系统界面和谐，操作简朴，比较实用。【关键字】：学生管理系统，学生管理，数据库，信息系统分析，VisualBasic应用。目录TOC\o"1-3"\h\z摘要 ...................................................II1.系统概述 ...................................................41.1系统及需求分析 41.1.1系统需求 41.1.2可行性分析 41.2系统设计的背景 51.3系统的功能简介 61.3.1用户管理模块(CTRL+A): 61.3.2班级管理模块（CTRL+C）: 61.3.3学生档案管理模块（CTRL+D）： 71.3.4课程管理模块（CTRL+E）： 71.3.5成绩管理模块（CTRL+F）： 71.3.6奖惩管理模块（CTRL+G）： 71.3.7报表打印模块（CTRL+J）： 71.3.8帮助模块 71.4系统开发的目的 72.系统分析 ................................................82.1业务流程分析 82.2数据流程分析： 82.3数据存储分析：实体联系图 92.4功能分析：功能层次图 113.系统设计 ................................................123.1软件模块结构设计 123．1．1系统方案拟定 123．1．2软件结构设计 123.2数据库设计 144.系统的功能 .............................................164．1系统登陆界面： 164．2用户管理模块： 184．3学藉管理模块： 245.运营及调试 .............................................276.全文总结 ................................................28致谢 ...................................................28参考文献 ................................................291.系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，它集成了班级管理、学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生奖惩管理，因而具有较强的实用性和先进性。1.1系统及需求分析1.1.1系统需求通过调查,规定系统需要有以下功能:=1\*GB2⑴界面和谐，易于操作；=2\*GB2⑵针对不同的使用对象,规定有较好的权限管理；=3\*GB2⑶能按学期、按班级完毕对学生成绩的录入、修改；=4\*GB2⑷能查询学生成绩，及学生名单；=5\*GB2⑸能对各班级信息进行录入修改；=6\*GB2⑹能按班级输出学生的成绩；1.1.2可行性分析经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的奔腾，为此重要表现有以下几个方面：第一，本系统的运营可以代替人工进行许多繁杂的劳动；第二，本系统的运营可以节省许多资源；第三，本系统的运营可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：为本系统的开发我特对我校管理系进行了进一步的调查研究。现我校管理系有33个班，其中05级有7个班，04级10个班，03级有10个班,02级6个班，共有学生人数为1500多人。并且对用户的规定也都可以满足。本系统的开发我运用Access作为本系统的数据库，它是一个支持多用户的新型数据库，合用于中小规模的数据量需求。学校的硬件建设也为新系统提供了硬件的支持。使用VisualBasic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户规定的系统，保证了代码的模块化规定，而代码模块化的提高，非常有助于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。运营上可行性：本系统为一个小型的学生管理系统，所花费的资源非常的小，学校的电脑无论是硬件还是软件都可以满足条件，因此，本系统在运营上是可行的。法律可行性：本系统纯为私人设计，在开发过程中没有涉及协议、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运营的规定。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。1.2系统设计的背景本系统的设计是在Windows98中文版操作系统环境下，使用VisualBasic6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和合用范围，因此，在选择数据库时，应考虑数据库应用的特点及合用范围，本系统选用的数据库语言介绍如下：VisualBasic语言VisualBasic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的多种应用程序。它简朴易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，并且程序开发人员不必具有C/C++编程基础。在VisualBasic环境下，运用事件驱动的编程机制、新奇易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据互换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。电脑已经成为挂在我们嘴角的一句口头禅，它已经进一步到平常工作和生活的方方面面，比如文字解决、信息管理、辅助设计、图形图像解决、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须通过特别的训练就可以使用电脑完毕许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们仍然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。我们都知道，学生管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生管理系统应当可认为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文献档案，这种管理方式存在着许多缺陷,如:效率低、保密性差,此外时间一长,将产生大量的文献和数据,这对于查找、更新和维护都带来了不少的困难。而使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点可以极大地提高学生管理的效率,也是公司的科学化、正规化管理的重要途径。因此开发这样一套管理软件很有必要,在下面的各章中我将就这一套学生档案管理系统的开发,谈谈其开发过程和所涉及到的问题及解决方法。1.3系统的功能简介本系统重要可以实现以下的管理功能：学生档案管理、课程管理、成绩管理、奖惩管理等。学生管理系统是一个典型的数据库应用程序,由学生档案管理、课程管理、成绩管理、奖惩管理等模块组成,特规划如下:1.3.1用户管理模块(CTRL+A):该模块的重要任务是维护系统的正常运营和安全性设立,涉及添加用户、修改密码、删除用户等等。1.3.2班级管理模块（CTRL+C）:该模块的功能是实现对全系班级的管理工作，涉及：班级信息添加、班级信息修改、班级信息删除，这三个功能模块各自独立，完毕班级信息的管理。1.3.3学生档案管理模块（CTRL+D）：该模块的重要功能是实现对学生的个人信息的管理工作，涉及档案添加、档案修改、档案查询、删除等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。1.3.4课程管理模块（CTRL+E）：该模块对各个班级的课程进行设立，方便了学校教务处的教学管理人员的工作。该模块涉及基本课程添加和班级课程设立两个模块。1.3.5成绩管理模块（CTRL+F）：学校的成绩管理工作是检查学生学习情况的一个重要手段，本模块涉及成绩添加、成绩修改、成绩查询、删除等功能模块。1.3.6奖惩管理模块（CTRL+G）：奖惩管理工作是检查学生在校综合表现的一个方式，本模块涉及奖项添加、学生获奖设立等到功能模块。1.3.7报表打印模块（CTRL+J）：该模块是方便管理人员打印相关信息，涉及打印班级信息、学生学藉信息、学生成绩、学生获奖情况等模块。1.3.8帮助模块该模块为初次操作该系统的人员提供了方便，它提供了有关操作的信息以及系统的版权。1.4系统开发的目的出于本系统是学校学生管理的一个综合性的系统，系统开发的总体任务是实现学生管理系统化、规范化，系统设计目的将最终定位于完毕以上所述的系统重要业务的基本模型上。以提高工作效率为目的。2.系统分析2.1业务流程分析班级管理业务流程图：学生班级班级学生班级班级输出教务处输入计算机班主任图2—1档案管理业务流程图：输出输出档案学生档案教务处输入计算机班主任图2—2课程管理业务流程图：输出教务处输出教务处输入计算机教师学生课程课程图2—3成绩管理业务流程图：输出输出教务处输入计算机教师学生成绩教师图2—42.2数据流程分析：数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学生成绩管理系统0层数据流程图：查询查询记录分析学生成绩管理系统学生情况学籍管理部门学生成绩教师教务处学生教师图2—5学生成绩管理系统1层数据流程图：成绩成绩1.0学生管理2.0课程管理3.0成绩管理4.0记录分析学生D1课程D2D3管理部门教务教师查询管理图2—62.3数据存储分析：实体联系图1、数据模型设计。一方面来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。一方面，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才干与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在两者的联系“学习”边。由于成绩既不是学生独有的，也不是课程独有的而是学生和课程两者共有的。这个E-R图可画成下图。学生管理系统中学生与课程的E-R图：mmn学生课程成绩学习图2—7学生与班级的E-R图:mmn学生班级学生人员组成图2—8教师与课程的E-R图：nn教师课程教学l图2—9实体之间关系E-R图:nnl班级组成组成人员nlmn课程成绩选修教学教师学生图2—10教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为数据模型图。实体模型实体模型数据模型lmn学习学生课程教师学习学习m课程教师学生数据库图2—112.4功能分析：功能层次图学生管理学生管理登录打印报表课程管理班级程设基本课程添加成绩管理学生费浏览学生缴费添加基本学费设立学生费查询信息查询学藉管理档案查询档案添加档案浏览档案删除奖惩管理奖惩设立奖项添加用户管理添加用户退出班级管理添加班级班级浏览班级修改助图2—12图2—1图2—13.系统设计3.1软件模块结构设计3．1．1系统方案拟定通过对系统的调研与分析，系统重要应完毕的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。3．1．2软件结构设计系统总体设计:cc班级课程(各班相关课程)；cf班级信息(各班的资料)；cuf课程信息(各门课程资料)；pf奖惩信息(奖惩信息)；ps奖惩情况(获奖人员情况)；sf成绩(学生成绩)；stf学生信息(学生的资料)；uf用户信息(用户名和密码)1.ufufufufpspssfsfcufcufstfstfufufufufcfcfSfpsSfps学生信息管理判断用户身份分派处理用户管理班级管理学藉管理课程管理成绩管理奖惩管理打印报表输入数据辨认身份帮助输入数据更新用户输入数据更新信息输入数据输入数据输入数据输入数据输入数据更新信息更新课程更新成绩更新信息打印帮助信息图3—1 sfsfcfstfstfcufcufsfsfpspspsps代码设计：学号：xxxxxxx班级编号：xxxx年级专业编号年级编号输出设计：a.拟定输出内容：输出的内容重要是系统给出对用户进行的分析结果，其中涉及用户的基本信息，选课情况，成绩单，成绩趋势表等。b.拟定输出设备及介质：我们拟定采用打印机为重要输出设备，打印出来的内容可以供以后用户随时随地查阅分析。c.拟定输出格式：采用类似报表的形式输出，分表头，表体和表尾。报表的输出，可以根据用户的需求采用不同形式。对于单个用户一次性使用的表格，由于没有保存价值，可以在显示终端上输出。对于个用户需要多次使用的表格，可打印输出。需要长期保存的输出的报表，可采用磁盘文献形式输出，以便保存。输入设计：输入设计的目的是保证向系统输入对的的数据。在此前提下，应做到输入方法简朴，迅速，经济，方便。所以，因该遵循最小量原则，也就是保证满足解决规定的前提下，使输入量最小，这样犯错几率小；简朴性原则，输入的准备，输入的过程应尽量容易，以减少错误发生。早检查原则，对数据的检查尽量接近原数据发生点，使错误能及时得到改正；少转换原则，输入数据尽量用其解决所需形式记录，以避免数据转换介质时发生错误。3.2数据库设计在关系数据库中的关系必须满足一定的规定。满足不同限度规定的为不同范式。目前重要有六种范式：第一范式、第二范式、第三范式、BC范式、第四范式和第五范式。在这六种范式中，一般只用前三种,对于常用系统就足够了。并且这五种范式是“向上兼容”的,即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式，……，依此类推。简朴的介绍前三种范式。第一范式(firstnormalform，简称1stNF)就是指在同一表中没有反复项出现，假如有则应将反复项去掉。这个去掉反复项的过程就称之为规范化解决。在本文所讨论的开发方法里，1stNF事实上是没有什么意义的。由于我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足1stNF。第二范式(secondnormalform，简称2ndNF)是指每个表必须有一个(并且仅一个)数据元素为主关键字(primarykey)，其它数据元素与主关键字一一相应。。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标记。第三范式(thirdnormalform，简称3rdNF)就是指表中的所有数据元素不仅要可以唯一地被主关键字所标记，并且它们之间还必须互相独立，不存在其它的函数关系。也就是说对于一个满足了2ndNF的数据结构来说，表中有也许存在某些数据元素依赖于其它非关键字数据元素的现象，必须加以消除。此外，在这过程中要注意好表的主键、外键、用户自定义约束的条件，在模式分解过程中要尽量的保持函数依赖和无损联接。遵循上述说明，就可以设计出一个良好的关系数据库模式。考虑到我们暂时制作的是一个简朴的桌面数据库系统，不需要网络的支持，因此我们采用的是access的数据库，他功能强大，简朴易用。我们整个程序只需一个数据库（db.dbf），库中有8张物理表。Student表字段名类型宽度限制student_NO文本20不能为空student_Name文本10不能为空student_Sex文本2不能为空student_Bir短日期不能为空student_Cla文本20不能为空student_Tel文本13不能为空student_Esd短日期不能为空student_Add文本60不能为空student_Rem备注不能为空class_Cour表字段名类型宽度限制class_NO文本20不能为空course_Name文本20不能为空Class表字段名类型宽度限制class_NO文本20不能为空class_Name文本10不能为空class_Teacher文本10不能为空class_Remarks文本不能为空Course表字段名类型宽度限制course_Name文本20不能为空course_Rem备注60不能为空Prize表字段名类型宽度限制prize_Name文本20不能为空prize_Rem备注60不能为空Score表字段名类型宽度限制score_NO文本14不能为空score_Per文本20不能为空score_Cla文本20不能为空score_Stu文本20不能为空score_Cou文本20不能为空score_Sco文本20不能为空prize_Stud表字段名类型宽度限制prize_NO文本14不能为空prize_Stu文本20不能为空prize_Dat短日期10不能为空prize_Nam文本20不能为空User表字段名类型宽度限制user_ID文本20不能为空user_PWD文本20不能为空user_DATE短日期不能为空4.系统的功能本部分重要内容为本系统的运营界面以及重要界面的源代码。4．1系统登陆界面：本界面的重要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USER表中，本系统根据不同的用户而设立了不同的权限，可以用111;111为用户名和密码来登陆本系统。OptionExplicitPrivateDeclareFunctionGetUserNameLib"advapi32.dll"Alias"GetUserNameA"(ByVallpbufferAsString,nSizeAsLong)AsLongPublicOKAsBooleanDimtxtSQLAsStringDimmrcAsADODB.RecordsetDimMsgTextAsStringDimmiCountAsIntegerPrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)WithtxtUserNameDoWhileNotmrc.EOFi=i+1.AddItemTrim(mrc!user_ID)mrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=TrueThenMsgBox"没有这个用户，请重新输入用户名!",vbOKOnly+vbExclamation,"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"输入密码不对的，请重新输入！",vbOKOnly+vbExclamation,"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()txtPassword.Text=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSub4．2用户管理模块：本模块是本系统的安全性设立模块，根据学校不同部门以及不同使用人员对本系统的规定和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"用户名称不能为空!",vbOKOnly,"提醒"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"用户密码不能为空!",vbOKOnly,"提醒"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"两次密码输入不同!",vbOKOnly,"提醒"Text1(1)=""Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenMsgBox"此用户名已经存在!",vbOKOnly,"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=0To2Text1(i)=""NextMsgBox"用户信息添加成功!",vbOKOnly,"提醒"ListappEndSubPrivateSubCommand2_Click()Text1(0)=""Text1(1)=""Text1(2)=""EndSubPrivateSubCommand3_Click()DimtxtSQLAsStringIfText1(3)=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提醒"List1.SetFocusExitSubEndIfIfText1(4)=""ThenMsgBox"修改密码要旧密码!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfIfText1(5)=""ThenMsgBox"新的密码不能为空!",vbOKOnly,"提醒"Text1(5).SetFocusExitSubElseIfText1(5)<>Text1(6)ThenMsgBox"两次密码输入不同!",vbOKOnly,"提醒"Text1(5)=""Text1(6)=""Text1(5).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'anduser_PWD='"&Trim(Text1(4))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(3))&"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text1(4).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(3))mrc.Fields(1)=Trim(Text1(5))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=3To6Text1(i)=""NextMsgBox"用户信息修改成功!",vbOKOnly,"提醒"EndSubPrivateSubCommand4_Click()Text1(3)=""Text1(4)=""Text1(5)=""Text1(6)=""EndSubPrivateSubCommand5_Click()DimtxtSQLAsStringIfText1(7)=""ThenMsgBox"请你选择用户名称!",vbOKOnly,"提醒"List1.SetFocusExitSubElseIfText1(7)=UserNameThenMsgBox"不可以删除正在使用的用户!",vbOKOnly,"警告"Text1(7)=""Text1(8)=""List1.SetFocusExitSubEndIfEndIfIfText1(8)=""ThenMsgBox"删除用户需要密码!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'anduser_PWD='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThentxtSQL="deletefromuser_Formwhereuser_ID='"&Trim(Text1(7))&"'"ElseMsgBox"用户密码输入错误!",vbOKOnly,"警告"Text1(8).SetFocusExitSubEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)Text1(7)=""Text1(8)=""MsgBox"用户信息已经删除!",vbOKOnly,"提醒"ListappEndSubPrivateSubCommand6_Click()Text1(7)=""Text1(8)=""EndSubPrivateSubForm_Load()Me.Caption="用户信息->添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftListappFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="用户信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To8Text1(i)=""NextEndSubPrivateSubListapp()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromuser_Form"Setmrcc=ExecuteSQL(txSQL,MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!user_ID)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList1_Click()IfPicture1(1).Visible=TrueThenText1(3)=List1.TextEndIfIfPicture1(2).Visible=TrueThenText1(7)=List1.TextEndIfEndSubPrivateSubList1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSub4．3学藉管理模块：由于本系统中有些功能模块具有相似之处，因此在本文只用此模块进行一个简朴的说明。其它的相似模块的代码可以参阅本模块的设计思绪。PrivateSubText1_Change(IndexAsInteger)IfIndex=0ThentxtSQL="select*fromstudent_Formwherestudent_NO='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenFori=1To6Text1(i)=mrc.Fields(i)NextPicture1.Visible=TrueElsePicture1.Visible=FalseFori=1To6Text1(i)=""NextEndIfmrc.ClosetxtSQL="select*fromprize_Studwhereprize_Stu='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenWithMSFlexGrid1.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fields(i).TypeCaseadDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i)&""EndSelectNextimrc.MoveNextLoopEndWithmrc.CloseMSFlexGrid1.Visible=TrueElseMSFlexGrid1.Visible=FalseWithMSFlexGrid1.Clear.Cols=4.ColWidth(0)=0.ColWidth(1)=0.ColWidth(2)=1700.ColWidth(3)=1700.TextMatrix(0,2)="奖惩日期".TextMatrix(0,3)="奖惩名称".Rows=1EndWithEndIftxtSQL="select*fromscore_Formwherescore_Stu='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.EOF=FalseThenWithMSFlexGrid2.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fields(i).TypeCaseadDBDateTextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i)&""EndSelectNextimrc.MoveNextLoopEndWithmrc.CloseMSFlexGrid2.Visible=TrueElseMSFlexGrid2.Visible=FalseWithMSFlexGrid2.Clear.Cols=6.ColWidth(0)=0.ColWidth(1)=1550.ColWidth(2)=1550.ColWidth(3)=0.ColWidth(4)=1550.ColWidth(5)=1550.TextMatrix(0,1)="考试期号".TextMatrix(0,2)="学生班号".TextMatrix(0,4)="考试课程".TextMatrix(0,5)="考试分数".Rows=1EndWithEndIfPrivateSubShowData()Setmrc=ExecuteSQL(txtSQL,MsgText)WithMSFlexGrid1.Rows=1DoWhileNotmrc.EOF.Rows=.Rows+1Fori=0Tomrc.Fields.Count-1SelectCasemrc.Fields(i).TypeCaseadDBDateTextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&"","yyyy-mm-dd")CaseElse.TextMatrix(.Rows-1,i)=mrc.Fields(i)&""EndSelectNextimrc.MoveNextLoopEndWithmrc.CloseEndSub5.运营及调试学生管理系统建立后，应装入数据，进入试运营及调试阶段。装入数据:往数据库中装入数据又称为数据库加载。由于数据库中通常包含着不同格式、规格的数据，所以在加载之前要对这些数据作严格地检查、整理，并建立严格的数据登录和校验规范，设计出完善的数据检查和校正程序，尽也许在加载之前把不合格的数据排除掉。然后，将数据装入数据库。试运营及调试:这个阶段的工作重要是实际运营学生管理应用程序，进入学生管理系统登录界面，输入对的的用户名和口令，单击拟定进入主菜单。在前一阶段，虽然也作了性能预测，但是仅仅做了性能估计，且在估计过程中，做了许多简化和假设，忽略了许多次要因素，因而估计是粗糙的，并也许失真。在试运营阶段，必须进行实际测量和评价，测试数据尽也许覆盖现实世界的各种情况。假如实际测试结果不符合设计目的，则需返回物理设计阶段，修改参数。有时也许还需要返回初始阶段。程序运营成功。完毕了课题题目所规定大部分功能但尚有报表打印等部分功能尚未实现。系统数据结构的设计比较适合查找。程序的界面和谐能方便用户的操作。6.全文总结本次课程设计是本人第一次做较为大的系统，应用到了信息系统的设计思想，使理论和实践能得以结合。同时在设计中也碰到了许多问题，为解决问题，我查了不少资料，扩展了思绪,对系统设计的全过程有了一个更为进一步的结识和了解。系统要注意程序的结构化设计，功能模块化。进行设计的时候，应当一方面分析问题，设计数据结构。只有在数据结构都设计好了的基础上才也许实现各种操作。所以，数据结构的设计非常重要。系统分析和设计的思想在系统编写过程的应用要注意。这样的系统最佳能采用结构化的方法,这样做能让系统开发更加有条理,更有效率,并且不容易犯错。它是编写系统要注意的问题分解和逐步求精