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

管理信息系统课程设计设计报告设计名称： 学生管理系统 班 级： 信 管 031 学 号： 姓 名： 施 日 华 指导老师： 陈 朝 晖 日 期：2023年1月4日 至 2023年 1月12日摘 要随着计算机技术的飞速发展，计算机在学生管理中应用的普及，运用计算机实现管理势在必行。我作为一个信息管理专业的大学生，希望能有所奉献。用我三年的所学编制了一个实用的程序来帮助教师们进行更有效的学生信息管理。本系统采用面向对象的程序设计思想进行编制，整个系统数据存在表格文献中，由数据库文献进行管理。并且运用信息系统分析与设计方法，应用Access数据库，Visual Basic发工具等开发出来的基于WINDOWS系列的学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理的查询和数十种记录报表的输出打印功能。减少了部门之间工作的中间环节，提高了跨部门管理的效率。 文章介绍了学生管理信息系统的系统分析部分，涉及可行性分析、业务流程分析等；系统设计部分重要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个重要模块的算法，本系统界面和谐，操作简朴，比较实用。【关键字】：学生管理系统，学生管理，数据库，信息系统分析，Visual Basic应用。目录摘 要. . . . . . . . . . . . . . . . .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软件模块结构设计12311系统方案拟定12312软件结构设计123.2数据库设计144.系统的功能. . . . . . . . . . . . . . .1641系统登陆界面：1642用户管理模块：1843学藉管理模块：245. 运营及调试. . . . . . . . . . . . . . .276.全文总结. . . . . . . . . . . . . . . .28致 谢. . . . . . . . . . . . . . . . .28参考文献. . . . . . . . . . . . . . . .291.系统概述本学生信息管理系统可以说是一个综合性的学校学生管理系统，它集成了班级管理、学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生奖惩管理，因而具有较强的实用性和先进性。1.1系统及需求分析 1.1.1 系统需求 通过调查,规定系统需要有以下功能: 界面和谐，易于操作； 针对不同的使用对象,规定有较好的权限管理； 能按学期、按班级完毕对学生成绩的录入、修改； 能查询学生成绩，及学生名单； 能对各班级信息进行录入修改； 能按班级输出学生的成绩；1.1.2 可行性分析经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的奔腾，为此重要表现有以下几个方面：第一，本系统的运营可以代替人工进行许多繁杂的劳动；第二，本系统的运营可以节省许多资源；第三，本系统的运营可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：为本系统的开发我特对我校管理系进行了进一步的调查研究。现我校管理系有33个班，其中05级有7个班，04级10个班，03级有10个班,02级6个班，共有学生人数为1500多人。并且对用户的规定也都可以满足。 本系统的开发我运用Access作为本系统的数据库，它是一个支持多用户的新型数据库，合用于中小规模的数据量需求。学校的硬件建设也为新系统提供了硬件的支持。使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户规定的系统，保证了代码的模块化规定，而代码模块化的提高，非常有助于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。运营上可行性：本系统为一个小型的学生管理系统，所花费的资源非常的小，学校的电脑无论是硬件还是软件都可以满足条件，因此，本系统在运营上是可行的。法律可行性：本系统纯为私人设计，在开发过程中没有涉及协议、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运营的规定。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。1.2系统设计的背景本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和合用范围，因此，在选择数据库时，应考虑数据库应用的特点及合用范围，本系统选用的数据库语言介绍如下：Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的多种应用程序。它简朴易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，并且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，运用事件驱动的编程机制、新奇易用的可视化设计工具，使用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业务流程分析班级管理业务流程图：学生班级班级输出教务处输入计算机班主任图21档案管理业务流程图：输出档案学生档案教务处输入计算机班主任图22课程管理业务流程图：输出教务处输入计算机教师学生课程课程图23成绩管理业务流程图：输出教务处输入计算机教师学生成绩教师图242.2数据流程分析：数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学生成绩管理系统0层数据流程图：查询记录分析学生成绩管理系统学生情况学籍管理部门学生成绩教师教务处学生教师图25学生成绩管理系统1层数据流程图：成绩1.0学生管理2.0课程管理3.0成绩管理4.0记录分析学生D1课程D2D3管理部门教务教师查询管理图262.3数据存储分析：实体联系图1、数据模型设计。一方面来做出学生成绩管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。一方面，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才干与学生建立联系，因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在两者的联系“学习”边。由于成绩既不是学生独有的，也不是课程独有的而是学生和课程两者共有的。这个E-R图可画成下图。学生管理系统中学生与课程的E-R图：mn学生课程成绩学习图27学生与班级的E-R图:mn学生班级学生人员组成图28 教师与课程的E-R图：n教师课程教学l图29 实体之间关系E-R图:nl班级组成组成人员nlmn课程成绩选修教学教师学生图210教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。下图为数据模型图。实体模型数据模型lmn学习学生课程教师学习学习m课程教师学生数据库图2112.4功能分析：功能层次图学生管理登录打印报表课程管理班级程设基本课程添加成绩管理学生费浏览学生缴费添加基本学费设立学生费查询信息查询学藉管理档案查询档案添加档案浏览档案删除奖惩管理奖惩设立奖项添加用户管理添加用户退出班级管理添加班级班级浏览班级修改助图212图213.系统设计3.1软件模块结构设计311系统方案拟定通过对系统的调研与分析，系统重要应完毕的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。312软件结构设计系统总体设计:cc班级课程(各班相关课程)；cf班级信息(各班的资料)；cuf课程信息(各门课程资料)；pf奖惩信息(奖惩信息)；ps奖惩情况(获奖人员情况)；sf成绩(学生成绩)；stf学生信息(学生的资料)；uf用户信息(用户名和密码)1. ufufpspssfsfcufcufstfstfufufufufcfcfSfpsSfps学生信息管理判断用户身份分派处 理用户管理班级管理学藉管理课程管理成绩管理奖惩管理打印报表输入数据辨认身份帮助输入数据更新用户输入数据更新信息输入数据输入数据输入数据输入数据输入数据更新信息更新课程更新成绩更新信息打印帮助信息图31 sf sf cf stf stf cuf cuf sf sf ps ps ps ps 代码设计：学号： xx xx xxx 班级编号： xx xx 年级 专业 编号 年级 编号输出设计：a.拟定输出内容：输出的内容重要是系统给出对用户进行的分析结果，其中涉及用户的基本信息，选课情况，成绩单，成绩趋势表等。 b.拟定输出设备及介质：我们拟定采用打印机为重要输出设备，打印出来的内容可以供以后用户随时随地查阅分析。c.拟定输出格式：采用类似报表的形式输出，分表头，表体和表尾。报表的输出，可以根据用户的需求采用不同形式。对于单个用户一次性使用的表格，由于没有保存价值，可以在显示终端上输出。对于个用户需要多次使用的表格，可打印输出。需要长期保存的输出的报表，可采用磁盘文献形式输出，以便保存。输入设计：输入设计的目的是保证向系统输入对的的数据。在此前提下，应做到输入方法简朴，迅速，经济，方便。所以，因该遵循最小量原则，也就是保证满足解决规定的前提下，使输入量最小，这样犯错几率小；简朴性原则，输入的准备，输入的过程应尽量容易，以减少错误发生。早检查原则，对数据的检查尽量接近原数据发生点，使错误能及时得到改正；少转换原则，输入数据尽量用其解决所需形式记录，以避免数据转换介质时发生错误。3.2数据库设计在关系数据库中的关系必须满足一定的规定。满足不同限度规定的为不同范式。目前重要有六种范式：第一范式、第二范式、第三范式、BC范式、第四范式和第五范式。在这六种范式中，一般只用前三种,对于常用系统就足够了。并且这五种范式是“向上兼容”的,即满足第五范式的数据结构自动满足一、二、三、四范式，满足第四范式的数据结构自动满足第一、二、三范式，依此类推。简朴的介绍前三种范式。第一范式(first normal form，简称1st NF)就是指在同一表中没有反复项出现，假如有则应将反复项去掉。这个去掉反复项的过程就称之为规范化解决。在本文所讨论的开发方法里，1st NF事实上是没有什么意义的。由于我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足1st NF。 第二范式(second normal form，简称 2nd NF)是指每个表必须有一个(并且仅一个)数据元素为主关键字(primary key)，其它数据元素与主关键字一一相应。即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标记。第三范式(third normal form，简称 3rd NF)就是指表中的所有数据元素不仅要可以唯一地被主关键字所标记，并且它们之间还必须互相独立，不存在其它的函数关系。也就是说对于一个满足了 2nd NF的数据结构来说，表中有也许存在某些数据元素依赖于其它非关键字数据元素的现象，必须加以消除。此外，在这过程中要注意好表的主键、外键、用户自定义约束的条件，在模式分解过程中要尽量的保持函数依赖和无损联接。遵循上述说明，就可以设计出一个良好的关系数据库模式。考虑到我们暂时制作的是一个简朴的桌面数据库系统，不需要网络的支持，因此我们采用的是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.系统的功能本部分重要内容为本系统的运营界面以及重要界面的源代码。41系统登陆界面：本界面的重要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USER表中，本系统根据不同的用户而设立了不同的权限，可以用111;111为用户名和密码来登陆本系统。Option ExplicitPrivate Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringDim miCount As IntegerPrivate Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) With txtUserName Do While Not mrc.EOF i = i + 1 .AddItem Trim(mrc!user_ID) mrc.MoveNext Loop .ListIndex = i - 1 End With mrc.Close OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = select * from user_Form 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 miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() txtPassword.Text = End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub42用户管理模块：本模块是本系统的安全性设立模块，根据学校不同部门以及不同使用人员对本系统的规定和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 用户名称不能为空!, vbOKOnly, 提醒 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用户密码不能为空!, vbOKOnly, 提醒 Text1(1).SetFocus Exit Sub Else If Text1(1) Text1(2) Then MsgBox 两次密码输入不同!, vbOKOnly, 提醒 Text1(1) = Text1(2) = Text1(1).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此用户名已经存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 0 To 2 Text1(i) = Next MsgBox 用户信息添加成功!, vbOKOnly, 提醒 ListappEnd SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提醒 List1.SetFocus Exit Sub End If If Text1(4) = Then MsgBox 修改密码要旧密码!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密码不能为空!, vbOKOnly, 提醒 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 两次密码输入不同!, vbOKOnly, 提醒 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If txtSQL = select * from user_Form where user_ID= & Trim(Text1(3) & and user_PWD= & Trim(Text1(4) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = delete from user_Form where user_ID= & Trim(Text1(3) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from user_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 3 To 6 Text1(i) = Next MsgBox 用户信息修改成功!, vbOKOnly, 提醒End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提醒 List1.SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不可以删除正在使用的用户!, vbOKOnly, 警告 Text1(7) =