管理信息系统》课程设计学生信息管理系统模板(25页).doc

《管理信息系统》课程设计学生信息管理系统模板(25页).doc》由会员分享，可在线阅读，更多相关《管理信息系统》课程设计学生信息管理系统模板(25页).doc（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、管理信息系统课程设计学生信息管理系统模板管理信息系统课程设计设计报告设计名称设计名称：学生管理系统班班级级：信管 031学学号号：2003075006姓姓名名：施日华指导老师指导老师：陈朝晖日日期期：2006 年 1 月 4 日至2006 年 1 月 12 日摘 要随着计算机技术的飞速发展，计算机在学生管理中应用的普及，利用计算机实现管理势在必行。我作为一个信息管理专业的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助教师们进行更有效的学生信息管理。本系统采用面向对象的程序设计思想进行编制，整个系统数据存在表格文件中，由数据库文件进行管理。并且运用信息系统分析与设计方法，应用

2、Access 数据库，Visual Basic 发工具等开发出来的基于WINDOWS 系列的学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理的查询和数十种统计报表的输出打印功能。减少了部门之间工作的中间环节，提高了跨部门管理的效率。文章介绍了学生管理信息系统的系统分析部分，包括可-第 II 页行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。【关键字】：学生管理系统，学生管理，数据库

3、，信息系统分析，Visual Basic 应用。-第 3 页目录摘 要.I1.系统概述.错误！未定义书签。错误！未定义书签。系统及需求分析.错误！未定义书签。错误！未定义书签。1.1.1 系统需求.41.1.2 可行性分析.4系统设计的背景.错误！未定义书签。错误！未定义书签。系统的功能简介.6用户管理模块(CTRL+A):.6班级管理模块（CTRL+C）:.6学生档案管理模块（CTRL+D）：.6课程管理模块（CTRL+E）：.6成绩管理模块（CTRL+F）：.6奖惩管理模块（CTRL+G）：.6报表打印模块（CTRL+J）：.7帮助模块.错误！未定义书签。错误！未定义书签。系统开发的目标.

4、72.系统分析.7业务流程分析.错误！未定义书签。错误！未定义书签。数据流程分析：.7数据存储分析：实体联系图.7功能分析：功能层次图.83.系统设计.错误！未定义书签。错误！未定义书签。软件模块结构设计.错误！未定义书签。错误！未定义书签。311 系统方案确定.8312 软件结构设计.8数据库设计.错误！未定义书签。错误！未定义书签。4.系统的功能.错错误！未定义书签。误！未定义书签。41 系统登陆界面：.1142 用户管理模块：.1343 学藉管理模块：.185.运行及调试.216.全文总结.错误！未定义书签。错误！未定义书签。致谢.22-第 4 页参考文献.22本学生信息管理系统可以说是

5、一个综合性的学校学生管理系统，它集成了班级管理、学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生奖惩管理，因而具有较强的实用性和先进性。.1 系统需求通过调查,要求系统需要有以下功能:界面友好，易于操作；针对不同的使用对象,要求有较好的权限管理；能按学期、按班级完成对学生成绩的录入、修改；能查询学生成绩，及学生名单；能对各班级信息进行录入修改；能按班级输出学生的成绩；1.1.2 可行性分析经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；

6、第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：为本系统的开发我特对我校管理系进行了深入的调查研究。现我校管理系有 33 个班，其中 05 级有 7 个班，04 级 10 个班，03 级有 10 个班,02 级 6 个班，共有学生人数为 1500 多人。并且对用户的要求也都能够满足。本系统的开发我利用 Access 作为本系统的数据库，它是一个支持多用户的新型数据库，适用于中小规模的数据量需求。学校的硬件建设也为新系统提供了硬件的支持。使用 Visual Basic6.0

7、作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，-第 5 页因此，它在技术上是可行的。运行上可行性：本系统为一个小型的学生管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。由

8、于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是 PIII 以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在 Windows 98 中文版操作系统环境下，使用 Visual Basic 6.0中文版开发成功的。数据库是 MIS 中的重要支持技术，在 MIS 开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适

9、用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：Visual Basic 语言Visual Basic 是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发 Windows 环境下的多种应用程序。它简单易学、效率高，且功能强大，可以与 Windows 的专业开发工具 SDK 相媲美，而且程序开发人员不必具有C/C+编程基础。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows 内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接

10、与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。电脑已经成为挂在我们嘴角的一句口头禅，它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。Windows 系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。我们都知道，学生管理系统是一个教育单位不可缺少的部分

11、,它的内容对于学校的决策者和管理者来说都至关重要,所以学生管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困-第 6 页难。而使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生管理的效率,也是企业的科学化、正规化管理的重要途径。因此开发这样一套管理软件很有必要,在下面的各章中我将就这一套学生档案管理系统的开发,谈

12、谈其开发过程和所涉及到的问题及解决方法。1.3 系统的功能简介本系统主要可以实现以下的管理功能：学生档案管理、课程管理、成绩管理、奖惩管理等。学生管理系统是一个典型的数据库应用程序,由学生档案管理、课程管理、成绩管理、奖惩管理等模块组成,特规划如下:(CTRL+A):该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。（CTRL+C）:该模块的功能是实现对全系班级的管理工作，包括：班级信息添加、班级信息修改、班级信息删除，这三个功能模块各自独立，完成班级信息的管理。（CTRL+D）：该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案修改、档

13、案查询、删除等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。（CTRL+E）：该模块对各个班级的课程进行设置，方便了学校教务处的教学管理人员的工作。该模块包括基本课程添加和班级课程设置两个模块。（CTRL+F）：学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括成绩添加、成绩修改、成绩查询、删除等功能模块。-第 7 页（CTRL+G）：奖惩管理工作是检验学生在校综合表现的一个方式，本模块包括奖项添加、学生获奖设置等到功能模块。（CTRL+J）：该模块是方便管理人员打印相关信息，包括打印班级信息、学生学藉信息、学生成绩、学生获奖情况等模块。该模块为首次操作该系统的人员提

14、供了方便，它提供了有关操作的信息以及系统的版权。1.4 系统开发的目标出于本系统是学校学生管理的一个综合性的系统，系统开发的总体任务是实现学生管理系统化、规范化，系统设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。以提高工作效率为目的。2.系统分析班级管理业务流程图：档案管理业务流程图：课程管理业务流程图：成绩管理业务流程图：2.2 数据流程分析：数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学生成绩管理系统 0 层数据流程图：学生成绩管理系统 1 层数据流程图：学生班级班级输出教务处输入计算机班主任图 21输出档案学生档案教务处输入计算机班主任图

15、22输出教务处输入计算机教师学生课程课程图 23输出教务处输入计算机教师学生成绩教师图 24查询统计分析学生成绩管理系统学生情况学籍管理部门学生成绩教师教务处学生教师图 25学生管理课程管理学生D1课程D2管理部门教务-第 8 页2.3 数据存储分析：实体联系图1、数据模型设计。首先来做出学生成绩管理系统的 E-R 图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系，因而先不考虑。课程与学生这两

16、个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边。因为成绩既不是学生独有的，也不是课程独有的而是学生和课程二者共有的。这个 E-R 图可画成下图。学生管理系统中学生与课程的 E-R 图：学生与班级的 E-R 图:教师与课程的 E-R 图：实体之间关系 E-R 图:教师与课程的 E-R 图组合到一起，得到最后的 E-R 图，有了 E-R 图，就可以设计数据库。下图为数据模型图。功能分析：功能层次图311 系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生成绩管理、学生交费

17、管理、课程管理、成绩管理、系统管理等功能。312 软件结构设计系统总体设计:cc 班级课程(各班相关课程)；cf 班级信息(各班的资料)；cuf 课程信息(各门课程资mn学生课程成绩学习图 27mn学生班级学生人员组成图 28n教师课程教学l图 29实体模型数据模型lmn学习学生课程教师学习学习m课程教师学生数据库图 211图 21学生管理登录打印报表课程管理班级程设基本课程添加成绩管理学生费浏览学生缴费添加基本学费设置学生费查询信息查询学藉管理档案查询档案添加档案浏览档案删除奖惩管理奖惩设置奖项添加用户管理添加用户退出班级管理添加班级班级浏览班级修改助nl班级组成组成人员nlmn课程成绩选修

18、教学教师学生图 210-第 9 页料)；pf 奖惩信息(奖惩信息)；ps 奖惩情况(获奖人员情况)；sf 成绩(学生成绩)；stf学生信息(学生的资料)；uf 用户信息(用户名和密码)1.sfsfcfstfstfcuf cufsfsfpspspsps代码设计：学号：xxxxxxx班级编号：xxxx年级专业编号年级编号输出设计：a.确定输出内容：输出的内容主要是系统给出对用户进行的分析结果，其中包括用户的基本信息，选课情况，成绩单，成绩趋势表等。b.确定输出设备及介质：我们拟定采用打印机为主要输出设备，打印出来的内容可以供以后用户随时随地查阅分析。c.确定输出格式：采用类似报表的形式输出，分表头

19、，表体和表尾。报表的输出，可以根据用户的需求采用不同形式。对于单个用户一次性使用的表格，因为没有保留价值，可以在显示终端上输出。对于个用户需要多次使用的表格，可打印输出。需要长期保留的输出的报表，可采用磁盘文件形式输出，以便保存。输入设计：输入设计的目的是保证向系统输入正确的数据。在此前提下，应做到输入方法简单，迅速，经济，方便。所以，因该遵循最小量原则，也就是保证满足处理要求的前提下，使输入量最小，这样出错几率小；简单性原则，输入的准备，输入的过程应尽量容易，以减少错误发生。早检验原则，对数据的检验尽量接近原数据发生点，使错误能及时得到改正；少转换原则，输入数据尽量用其处理所需形式记录，以避

20、免数据转换介质时发生错误。在关系数据库中的关系必须满足一定的要求。满足不同程度要求的为不同范式。目前主要有六种范式：第一范式、第二范式、第三范式、BC 范式、第四范式和第五范式。在这六种范式中，一般只用前三种,对于常用系统就足够了。而且这五种范式是“向上兼容”的,即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式，依此类推。简单的介绍前三种范式。第一范式(first normal form，简称 1st NF)就是指在同一表中没有重复项出现，如果有则应将重复项去掉。这个去掉重复项的过程就称之为规范化处理。在本文所讨论的开发方法里，1st NF 实

21、际上是没有什么意义的。因为我们按规范化建立的指标体系ufufpspssfsfcufcufstfstfufufufufcfcfSfpsSfps学 生 信 息 管判 断 用户身份分 配处 理用户管理班级管学藉管理课程管理成绩管理奖惩管打印报表输入数据识别身份帮助输入数据更新用户输入数据更新信息输入数据输入数据输入数据输入数据输入数据更新信息更新课程更新成绩更新信息打印帮助信息图 31-第 10 页和表的过程都自动保证了所有表都满足 1st NF。第二范式(second normal form，简称 2nd NF)是指每个表必须有一个(而且仅一个)数据元素为主关键字(primary key)，其它数

22、据元素与主关键字一一对应。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标识。第三范式(third normal form，简称 3rd NF)就是指表中的所有数据元素不但要能够唯一地被主关键字所标识，而且它们之间还必须相互独立，不存在其它的函数关系。也就是说对于一个满足了 2nd NF 的数据结构来说，表中有可能存在某些数据元素依赖于其它非关键字数据元素的现象，必须加以消除。此外，在这过程中要注意好表的主键、外键、用户自定义约束的条件，在模式分解过程中要尽量的保持函数依赖和无损联接。遵循上述说明，就可以设计出一个良好的关系数据库模式。考虑到我们暂时制作的是一个简单的桌面

23、数据库系统，不需要网络的支持，因此我们采用的是 access 的数据库，他功能强大，简单易用。我们整个程序只需一个数据库（），库中有 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表表字段名字段名类型类型宽度宽度限制限制clas

24、s_NO文本20不能为空course_Name文本20不能为空Class表表字段名字段名类型类型宽度宽度限制限制class_NO文本20不能为空class_Name文本10不能为空class_Teacher文本10不能为空class_Remarks文本不能为空-第 11 页Course表表字段名字段名类型类型宽度宽度限制限制course_Name文本20不能为空course_Rem备注60不能为空Prize表表字段名字段名类型类型宽度宽度限制限制prize_Name文本20不能为空prize_Rem备注60不能为空Score表表字段名字段名类型类型宽度宽度限制限制score_NO文本14不能为

25、空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短日期不能为空本部分主要内容为本系统的运行界面以及主要界面的源代码。41 系统登陆界面：本界面的主要功能

26、是为了对系统进行安全性管理，本系统的用户名和密码保存在USER 表中，本系统根据不同的用户而设置了不同的权限，可以用 111;111 为用户名和密码来登陆本系统。Option ExplicitPrivate Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA(ByVal-第 12 页lpbufferAs String,nSizeAs Long)As LongPublic OKAs BooleanDim txtSQLAs StringDim MsgTextAs StringDim miCountAs IntegerPr

27、ivate Sub Form_Load()Dim i As Integeri=0txtSQL=select*from user_FormSet mrc=ExecuteSQL(txtSQL,MsgText)With txtUserNamei=i+1.AddItem Trim(mrc!user_ID)Loop.ListIndex=i-1End WithOK=FalsemiCount=0End SubPrivate Sub cmdCancel_Click()OK=FalseEnd SubPrivate Sub cmdOK_Click()txtSQL=select*from user_Form whe

28、re user_ID=&txtUserName.Text&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=True ThenMsgBox 没有这个用户，请重新输入用户名!,vbOKOnly+vbExclamation,警告ElseIf Trim(mrc.Fields(1)=Trim(txtPassword.Text)ThenOK=TrueUserName=Trim(txtUserName.Text)ElseMsgBox 输入密码不正确，请重新输入！,vbOKOnly+vbExclamation,警告txtPassword.Text=-第 13 页End

29、 IfEnd IfmiCount=miCount+1If miCount=3 ThenEnd IfExit SubEnd SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer,ShiftAs Integer)EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii=13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_Click()txtPassword.

30、Text=End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer,ShiftAs Integer)EnterToTab KeyCodeEnd Sub42 用户管理模块：本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。Private Sub Command1_Click()Dim txtSQLAs StringIf Text1(0)=ThenMsgBox 用户名称不能为空!,vbOKOnly,提示Text1(0).SetFocusExit Sub

31、End IfIf Text1(1)=ThenMsgBox 用户密码不能为空!,vbOKOnly,提示Text1(1).SetFocus-第 14 页Exit SubElseIf Text1(1)Text1(2)ThenMsgBox 两次密码输入不同!,vbOKOnly,提示Text1(1)=Text1(2)=Text1(1).SetFocusExit SubEnd IfEnd IftxtSQL=select*from user_Form where user_ID=&Trim(Text1(0)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False

32、 ThenMsgBox 此用户名已经存在!,vbOKOnly,警告Text1(0).SetFocusExit SubEnd IftxtSQL=select*from user_FormSet mrc=ExecuteSQL(txtSQL,MsgText)mrc.Fields(0)=Trim(Text1(0)(1)=Trim(Text1(1)mrc.Fields(2)=NowFor i=0 To 2Text1(i)=NextMsgBox 用户信息添加成功!,vbOKOnly,提示ListappEnd SubPrivate Sub Command2_Click()Text1(0)=Text1(1)=

33、Text1(2)=End SubPrivate Sub Command3_Click()Dim txtSQLAs StringIf Text1(3)=Then-第 15 页MsgBox 请你选择用户名称!,vbOKOnly,提示Exit SubEnd IfIf Text1(4)=ThenMsgBox 修改密码要旧密码!,vbOKOnly,警告Text1(4).SetFocusExit SubEnd IfIf Text1(5)=ThenMsgBox 新的密码不能为空!,vbOKOnly,提示Text1(5).SetFocusExit SubElseIf Text1(5)Text1(6)ThenM

34、sgBox 两次密码输入不同!,vbOKOnly,提示Text1(5)=Text1(6)=Text1(5).SetFocusExit SubEnd IfEnd IftxtSQL=select*from user_Form where user_ID=&Trim(Text1(3)&anduser_PWD=&Trim(Text1(4)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThentxtSQL=delete from user_Form where user_ID=&Trim(Text1(3)&ElseMsgBox 用户密码输入错误!

35、,vbOKOnly,警告Text1(4).SetFocusExit SubEnd IfSet mrc=ExecuteSQL(txtSQL,MsgText)txtSQL=select*from user_FormSet mrc=ExecuteSQL(txtSQL,MsgText)mrc.Fields(0)=Trim(Text1(3)mrc.Fields(1)=Trim(Text1(5)-第 16 页mrc.Fields(2)=NowFor i=3 To 6Text1(i)=NextMsgBox 用户信息修改成功!,vbOKOnly,提示End SubPrivate Sub Command4_Cl

36、ick()Text1(3)=Text1(4)=Text1(5)=Text1(6)=End SubPrivate Sub Command5_Click()Dim txtSQLAs StringIf Text1(7)=ThenMsgBox 请你选择用户名称!,vbOKOnly,提示Exit SubElseIf Text1(7)=UserName ThenMsgBox 不可以删除正在使用的用户!,vbOKOnly,警告Text1(7)=Text1(8)=Exit SubEnd IfEnd IfIf Text1(8)=ThenMsgBox 删除用户需要密码!,vbOKOnly,警告Text1(8).S

37、etFocusExit SubEnd IftxtSQL=select*from user_Form where user_ID=&Trim(Text1(7)&anduser_PWD=&Trim(Text1(8)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThentxtSQL=delete from user_Form where user_ID=&Trim(Text1(7)&Else-第 17 页MsgBox 用户密码输入错误!,vbOKOnly,警告Text1(8).SetFocusExit SubEnd IfSet mrc=Exe

38、cuteSQL(txtSQL,MsgText)Text1(7)=Text1(8)=MsgBox 用户信息已经删除!,vbOKOnly,提示ListappEnd SubPrivate Sub Command6_Click()Text1(7)=Text1(8)=End SubPrivate Sub Form_Load()Me.Caption=用户信息-添加Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0)

39、.LeftListappFor i=0 To 2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEnd SubPrivate Sub Label2_Click(Index As Integer)Me.Caption=用户信息Me.Caption=Me.Caption&-&Trim(Label2(Index).Caption)For i=0 To 2Label2(i).BackColor=&HE0E0E0Picture1(i).

40、Visible=FalseNextLabel2(Index).BackColor=&HFFFFFF-第 18 页Picture1(Index).Visible=TrueFor i=0 To 8Text1(i)=NextEnd SubPrivate Sub Listapp()Dim txSQLAs StringtxSQL=select*from user_FormSet mrcc=ExecuteSQL(txSQL,MsgText)List1.AddItem Trim(mrcc!user_ID)LoopEnd SubPrivate Sub List1_Click()If Picture1(1).V

41、isible=True ThenEnd IfIf Picture1(2).Visible=True ThenEnd IfEnd SubPrivate Sub List1_KeyDown(KeyCode As Integer,Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub Text1_GotFocus(Index As Integer)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index)End Sub43 学藉管理模块：因为本系统中有些功能模块具有相似之处，因此在本

42、文只用此模块进行一个简单的说明。其它的相似模块的代码可以参阅本模块的设计思路。Private Sub Text1_Change(Index As Integer)If Index=0 ThentxtSQL=select*from student_Form where student_NO=&Trim(Text1(0)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False Then-第 19 页For i=1 To 6Text1(i)=mrc.Fields(i)NextPicture1.Visible=TrueElsePicture1.Visibl

43、e=FalseFor i=1 To 6Text1(i)=NextEnd IftxtSQL=select*from prize_Stud where prize_Stu=&Trim(Text1(0)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenWith MSFlexGrid1.Rows=1.Rows=.Rows+1For i=0 To mrc.Fields.Count-1Select Case mrc.Fields(i).TypeCase adDBDate.TextMatrix(.Rows-1,i)=Format(mrc.Fiel

44、ds(i)&,yyyy-mm-dd)Case Else.TextMatrix(.Rows-1,i)=mrc.Fields(i)&End SelectNext iLoopEnd WithMSFlexGrid1.Visible=TrueElseMSFlexGrid1.Visible=FalseWith MSFlexGrid1.Clear.Cols=4.ColWidth(0)=0.ColWidth(1)=0.ColWidth(2)=1700.ColWidth(3)=1700-第 20 页.TextMatrix(0,2)=奖惩日期.TextMatrix(0,3)=奖惩名称.Rows=1End With

45、End IftxtSQL=select*from score_Form where score_Stu=&Trim(Text1(0)&Set mrc=ExecuteSQL(txtSQL,MsgText)If mrc.EOF=False ThenWith MSFlexGrid2.Rows=1.Rows=.Rows+1For i=0 To mrc.Fields.Count-1Select Case mrc.Fields(i).TypeCase adDBDateTextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&,yyyy-mm-dd)Case Else.TextM

46、atrix(.Rows-1,i)=mrc.Fields(i)&End SelectNext iLoopEnd WithMSFlexGrid2.Visible=TrueElseMSFlexGrid2.Visible=FalseWith MSFlexGrid2.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)=考试课程

47、-第 21 页.TextMatrix(0,5)=考试分数.Rows=1End WithEnd IfPrivate Sub ShowData()Set mrc=ExecuteSQL(txtSQL,MsgText)With MSFlexGrid1.Rows=1.Rows=.Rows+1For i=0 To mrc.Fields.Count-1Select Case mrc.Fields(i).TypeCase adDBDateTextMatrix(.Rows-1,i)=Format(mrc.Fields(i)&,yyyy-mm-dd)Case Else.TextMatrix(.Rows-1,i)=

48、mrc.Fields(i)&End SelectNext iLoopEnd WithEnd Sub5.运行及调试运行及调试学生管理系统建立后，应装入数据，进入试运行及调试阶段。装入数据:往数据库中装入数据又称为数据库加载。由于数据库中通常包含着不同格式、规格的数据，所以在加载之前要对这些数据作严格地检验、整理，并建立严格的数据登录和校验规范，设计出完善的数据检验和校正程序，尽可能在加载之前把不合格的数据排除掉。然后，将数据装入数据库。试运行及调试:这个阶段的工作主要是实际运行学生管理应用程序，进入学生管理系统登录界面，输入正确的用户名和口令，单击确定进入主菜单。在前一阶段，虽然也作了性能预测，

49、但是仅仅做了性能估计，且在估计过程中，做了许多简化和假设，忽略了许多次要因素，因而估计是粗糙的，并可能失真。在试运行阶段，必须进行实际测量和评价，测试数据尽可能覆盖现实世界的各种情况。-第 22 页如果实际测试结果不符合设计目标，则需返回物理设计阶段，修改参数。有时也许还需要返回初始阶段。程序运行成功。完成了课题题目所要求大部分功能但还有报表打印等部分功能尚未实现。系统数据结构的设计比较适合查找。程序的界面友好能方便用户的操作。本次课程设计是本人第一次做较为大的系统，应用到了信息系统的设计思想，使理论和实践能得以结合。同时在设计中也碰到了许多问题，为解决问题，我查了不少资料，扩展了思路,对系统

50、设计的全过程有了一个更为深入的认识和了解。系统要注意程序的结构化设计，功能模块化。进行设计的时候，应该首先分析问题，设计数据结构。只有在数据结构都设计好了的基础上才可能实现各种操作。所以，数据结构的设计非常重要。系统分析和设计的思想在系统编写过程的应用要注意。这样的系统最好能采用结构化的方法,这样做能让系统开发更加有条理,更有效率,并且不容易出错。它是编写系统要注意的问题分解和逐步求精方法。在这次的课程设计过程中，我得到了很好的锻炼。从一点点思想到流程图再到整个系统编写，调试，无一不花费了我许多的精力。看着自己的劳动成果，感到十分的欣慰，更认识到自己许多的不足。今后的学习过程中要不段的积累经验