计算机应用于维护专业大学毕业设计.doc

黄淮学院2007级毕业设计论文黄 淮 学 院 毕业论文论文题目：学生信息管理系统学 院：黄淮学院专 业：计算机应用与维护班 级：计应0401班姓 名：王彦华学 号：0409020110指导教师：张莉华2007年05月10日学生信息管理系统【摘要】随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析某一学校学生管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法， 本系统界面友好，操作简单，比较实用。【关键字】管理信息系统、学生管理、Visual Basic应用。前 言信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动。为了适应现代社会人们高度强烈的时间观念，学生管理系统软件为教学办公室带来了极大的方便。该软件是以汉语编程语言为实现语言，其功能在系统内部有源代码直接完成。通过操作手册，使用者可以了解本软件的基本工作原理。操作人员只需输入一些简单的汉字、数字，即可达到自己的目的。 现今班级的繁索给具有强烈时间观念的行政人员带来了诸多不便，教学办公室缺少一种完善的班级软件，为了对学生档案的管理方便，因此进行本设计。 因此，管理系统软件目前已有比较完善的管理与使用功能，并且是计算机行业中用POWERBUILDER编程来完成的软件成员。研制，学生管理系统软件是为了满足教学办公室对学生管理的方便，以现代化的创新思维模式去工作。 目录第一章 绪论-51.1 课题背景 -5第二章.系统概述-62.1 系统及需求分析-6 2.1.1 系统需求-6 2.1.2可行性分析-62.2 系统的功能简介-7 2.2.1 项目规划-7 2.2.2系统管理模块-7 2.2.3班级管理模块-8 2.2.4学生档案管理模-8 2.2.5课程管理模块-8 2.2.6成绩管理模块-8 2.3 系统开发的目标-8第三章. 系统分析-9 3.1业务流程分析-93.2数据流程分析-103.3数据存储分析：实体联系图-103.4功能分析：功能层次图-11第四章.系统设计-124.1模块结构设计-12 4.1.1系统方案确定-12 4.1.2软件结构设计-124.2数据库设计-12第五章.系统的功能-155.1系统登陆界面-155.2进入界面-185.2.1系统管理-185.2.2档案管理-19第六章.全文总结-21 参考文献-22第一章 绪论1.1 课题背景二十世纪科技发展的卓越成就之一就是发明了电子计算机。它是一种自动、高速、精确地处理信息的现代化电子设备。由于它具有速度快、精度高、存储容量大、自动化程度高的特点，目前已广泛深入地适用社会生活的各个领域，对人类科学和生活发挥着不可估量的作用，从某种程度上讲，计算机理论水平及其应用的深度、广度已成为衡量一个国家现代化水平的重要标志之一。自1948年美国宾夕法尼亚大学研制成功世界第一台电子计算机ENIAC之后，使人类进入了计算机时代。同年6月，世界著名数学家冯.诺依曼在帮助改进ENIAC存储量小,线路联接复杂等缺点的过程中，提出了二进制存储程序的新思想，并于1949年研制成第一台存储程序的计算机EDVAC明确提出计算机由五部分组成：运算器、存储器、控制器和输入/输出设备、并确定以二进制存储数据和程序。这些原则一直沿用至今，故现在的计算机常称为冯.诺依曼型计算机。计算机从诞生到现在不过50余年时间，它的发展非常迅速，已经历了电子管、晶体管、中小规模集成电路、大规模集成电路四个时代。我国计算机事业始于1956年。计算机在社会各领域的广泛应用，为人类带来了巨大的社会效益和经济效益。计算机作为信息处理的先进技术，其优越性越来越明显。 作为计算机应用的一部分,使用计算机对学生档案进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生管理的效率,也是科学化、正规化学校管理的重要条件。 第二章 系统概述本学生信息管理系统可以说是一个综合性的学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生缴费管理系统等多种功能，因而具有较强的实用性和先进性。2.1 系统及需求分析 2.1.1 系统需求 通过调查,要求系统需要有以下功能:（1）由于操作人员的计算机知识普遍较差,要求有良好的人机界面;（2）由于该系统的使用对象多,要求有较好的权限管理; (3).原始数据修改简单方便,支持多条件修改(4).方便的数据查询，支持多条件查询;(5).在相应的权限下，删除数据方便简单，数据稳定性好；(6).数据计算自动完成，尽量减少人工干预;2.1.2可行性分析由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下：总的来说，Visual Basic具有以下特点：（1）可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。(2).面向对象的程序设计：(3).结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。(4).事件驱动编程机制(5).访问数据库(6).动态数据交换(DDE)(7).对象的链接与嵌入(OLE)(8).动态链接库(DLL)2.2系统的功能简介本系统主要可以实现以下的管理功能：班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等等。2.2.1 项目规划学生信息管理系统是一个典型的数据库应用程序,由班级管理、学生档案管理、学生交费管理、课程管理、成绩管理等模块组成,特规划如下:2.2.2系统管理模块(CTRL+O)该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)等等。2.2.3班级管理模块（CTRL+P）：该模块的功能是实现对全校班级的管理工作，包括：班级游览、班级添加、班级查询等，这三个功能模块各自独立，完成学校的全部班级的管理。2.2.4学生档案管理模块（CTRL+T）：该模块的主要功能是实现对学生的个人信息的管理工作，包括档案添加、档案浏览、档案查询等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。2.2.5课程管理模块（CTRL+R）：该模块对各个班级的课程进行设置，并可在其中设置各门课程的教材选用情况，方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设计和班级课程设置两个模块。2.2.6成绩管理模块（CTRL+F）：学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，共有期中考试和期未考试两种类型，还设置了成绩添加、成绩游览、成绩查询等功能模块。2.3系统开发的目标出于本系统是学校学生管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。第三章. 系统分析3.1业务流程分析教务处输入计算机班主任教务处学生班级班级输出班级管理业务流程图：教务处输入计算机班主任教务处学生档案档案输出档案管理业务流程图：课程管理业务流程图：教务处输入计算机教师教务处学生课程输出课程3.2数据流程分析：3.2.1数据流程图：由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制。学籍管理部门教师学生成绩管理系统教务处学生教师教师学生情况学生成绩查询统计分析学生成绩管理系统0层数据流程图3.3数据存储分析：实体联系图1、数据模型设计。首先来做出学生成绩管理系统的E-R图，从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体。2、再分析三个实体之间的联系。这个E-R图可画成:学生课程成绩学习mn教师与课程这两个实体之间，是一对多联系；一位教师可以都多门课程，而一门课程对于学生成绩来说只能有一位教师(英语、高等数学有多位教师教，但对某个固定的学生来说只能有一位教师)。其E-R图，如下所示。教师课程教学ln教师与课程的E-R图组合到一起，得到最后的E-R图，有了E-R图，就可以设计数据库。3.4功能分析：功能层次图学生信息管理系统登录打印报表成绩管理课程管理系统管理档案管理班级管理班级课程设置基本学费设置学生缴费浏览学生缴费添加学生缴费查询基本课程设置班级浏览复新登录修改密码添加用户添加班级档案添加档案浏览档案查询班级查询第四章.系统设计4.1模块结构设计411系统方案确定通过对系统的调研与分析，系统主要应完成的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。4.1.2软件结构设计本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。接受数据处理中心班级管理档案管理交费管理课程管理成绩管理 打印报表42数据库设计数据库采用了Microsoft推出的Access数据库，这个数据库能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。421 本系统中所涉及到的主要实体共有五个数据表：class表：年级，班级，教室，年制，专业，班主任，备注classkecheng表：年级，专业，年制，学期，课程名称jf表：学号，学期，交费，欠费，日期，操作员kaoshileixing表：类型xj表：学号，姓名，性别，班级，出生年月，家庭住址，邮政编码，联系电话，入学时间，备注suefei表：年级，专业，年制，学期，学费422 各表的物理结构如下：Class表：字段名称类型宽度小数位年级文本16班级文本20教室文本5年制文本8专业文本16班主任文本8备注备注Classkecheng表：字段名称类型宽度小数位年级文本16专业文本12年制文本8学期文本50课程名称文本20Jf表：字段名称类型宽度小数位学号文本5学期文本50交费货币自动欠费货币自动日期日期/时间操作员文本10Kaosileixing表：字段名称类型宽度小数位类型文本10xj表：字段名称类型宽度小数位学号文本9姓名文本8性别文本2班级文本10出生年月日期/时间家庭住址文本30邮政编码数字（长整型）联系电话数字（长整型）入学时间日期/时间备注备注第五章.系统的功能本部分主要内容为本系统的运行界面以及主要界面的源代码。5.1系统登陆界面：本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USE表中，本系统根据不同的用户而设置了不同的权限，可以用123;123为用户名和密码来登陆本系统。Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = select username from use where username= & Trim(Text1.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用户名错误！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd Ifusername = mrc.Fields(0)txtsql2 = select username from use where password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql2)If mrc.EOF = True Then MsgBox 密码错误！, vbExclamation + vbOKOnly, 警告 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Exit SubEnd Iftxtsql = select username from use where username= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True Then MsgBox 用户名称和密码不匹配！, vbExclamation + vbOKOnly, 警告 Exit SubEnd IfMDIForm1.Showfrmcpass.Text1.Text = Text1.TextUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1.SetFocusEnd IfEnd Sub5.2 进入界面 5.2.1 系统管理 当输入的用户名和密码正确时,系统就会自动进入学生信息管理系统的主界面:这时就可以进入实际的对学生的操作中了。 在系统管理中分为添加用户，修改密码，复新登陆三方面的内容。下图为添加用户界面：5.2.2档案管理 档案的管理主要是档案的添加，浏览和查询，以下主要介绍的是关于档案的查询方面。首先进入档案查询界面，其界面如下：Private Sub Command1_Click()Dim aa As Integer txtsql = If Trim(Text1(0).Text) Then aa = 1 If txtsql = Then txtsql = xj.学号= & Trim(Text1(0).Text) & Else txtsql = txtsql & and xj.学号= & Trim(Text1(0).Text) & End IfEnd IfIf Trim(Text1(1).Text) Thenaa = 1 If txtsql = Then txtsql = xj.姓名= & Trim(Text1(1).Text) & Else txtsql = txtsql & and xj.姓名= & Trim(Text1(1).Text) & End IfEnd IfIf Trim(Text1(2).Text) Then aa = 1 If txtsql = Then txtsql = xj.班级= & Trim(Text1(2).Text) & Else txtsql = txtsql & and xj.班级= & Trim(Text1(2).Text) & End IfEnd IfIf Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = xj.姓名 like % & Trim(Text1(3).Text) & %End IfIf aa = 0 Then ss = MsgBox(你至少要输入一个条件以上才能查询！, , 警告) Text1(0).SetFocus Exit SubEnd IfDim str As Stringstr = select * from xj where & txtsqlDim mrc As ADODB.RecordsetSet mrc = ExecuteSQL(str)If mrc.EOF = True Then zzz = MsgBox(对不起，没有此学生的档案记录！, vbOKOnly, 查询) Form4.ZOrder (0) Form4.Text1(0).SetFocus Exit SubEnd Iftxtsql = select xj.学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where & txtsql & order by class.年级 desc,class.班级 desc,xj.学号 descForm3.printstr = txtsqlfind = TrueForm3.Showselect xj.学号,xj.姓名,xj.性别,class.年级,xj.班级,class.专业,class.年制,xj.出生年月,xj.家庭住址,xj.邮政编码,xj.联系电话,xj.入学时间,xj.备注 from xj inner join class on xj.班级=class.班级 where xj.班级=01美术一 or 年级=01美术一 order by class.年级 desc,class.班级 desc,xj.学号 descForm3.Caption = 学生档案查询结果Form3.showtitleForm3.showdataEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Activate()find = TrueEnd SubPrivate Sub Form_LostFocus()Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)find = FalseForm3.Caption = 浏览学生档案End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)If KeyAscii = 39 Then KeyAscii = 0End If第六章 全文总结在本系统的