学生信息管理系统的论文 毕业设计用VB

《学生信息管理系统的论文 毕业设计用VB》由会员分享，可在线阅读，更多相关《学生信息管理系统的论文 毕业设计用VB（37页珍藏版）》请在装配图网上搜索。

1、大学毕业设计论文班主任学生信息管理系统学 校 塔里木大学姓 名 严开亮学 号 5011205020学 科 专 业 计算机科学与技术指 导 教 师 司春景日期: 2009 年 3 月学生信息管理系统说明书前 言学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件学生信息，这种管理方式存在着许多缺点,如:效率低、保密性差,随着时间的推移,将产生大量的文件和数据,这对于查找、更新和维护带来和很大的困难。随着信息技术在管理上越来越深入而广泛的应用，管理

2、信息系统的实施在技术上已逐步成熟。长时间以来，学校的学生信息管理基本上都是靠手工进行,随着大学扩招,学生管理各个方面的工作给老师和学校工作人员形成了一定的压力，有关有的学校不得不靠增加人力,物力来进行学生信息管理.但手工管理具有效率底,出错率高.所以学生信息管理系统的开发还是有一定的意义的。因此开发适合学校需要的学生管理信息系统，通过这样的系统，可以做到信息的规范管理、科学统计和快速查询，并减少管理方面的工作量。作为计算机应用的一部分,使用计算机对学生学生信息信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大

3、地提高学生学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发一个管理信息系统的过程。通过分析访客管理的不足，创建了一套行之有效的计算机管理学生的方案。文章介绍了访客管理信息系统的系统分析部分，包括可行性分析、业务流程分析等；系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法， 本系统面友好，操作简单，比较实用。本章我们将以一个学生信息管理系统为例子，来讲述如何建立一个学生信息管理系统。因为Visual Basic6.0具有强

4、大的数据库管理功能，我们选定Visual Basic6.0实现学生管理信息系统中的各项功能。摘 要学生信息管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对学生信息的管理，包括添加、修改、删除，查询，打印信息以用户管理等六个方面。系统可以完成对各类信息的浏览、查询、添加、删除、修改等功能。系统的核心是添加、修改和删除三者之间的联系，每一个表的修改都将联动的影响其它的表，当完成添加或删除操作时系统会自动地完成学生信息的

5、修改。查询功能也是系统的核心之一，在系统中主要根据学生姓名和学号进行查询，其目的都是为了方便用户使用。系统有完整的用户添加、删除和密码修改功能，并具备报表打印功能。系统采用Microsoft Office中的Access 2000来设计数据库，并使用当前优秀的开发工具VB 6.0 ，它有着最为灵活的数据库结构，对数据库应用有着良好的支持。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键字：控件、窗体、数据库，visual basic语言，学生信息1 系统分析1.1开发背景现在我国的学生信息管理水平还停留在纸介质的基础上，

6、这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我希望可以在这方面有所贡献。归纳起来，好处大约有以下几点：可以存储学生的基本信息以及历届的学生信息，安全、高效；只需一到二名信息录入员即可操作系统，节省大量人力；可以迅速查到所需信息。1.2需求分析21世纪以来，人类经济高速发展，人们发生了日新月异的变化，特别是计算机的应用及普及到经济和社会生活的各个领域。使原本的旧的管理方法越来越不适应现在社会的发展。许多人还停留在以前的手工操作。这大大地阻碍了人类经济的发展。为了适应现代社会人们高度强烈的时间观念，学校信息管理系统软

7、件为学校办公室带来了极大的方便。我所开发的这个系统所采用的是当前较为流行的编程软件VISUAL BASIC 6.0作为实现语言，以数据库Microsoft SQL Server2000作为系统的后台操作，其功能在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。伴随社会的高速发展，全国各高校的学生数量一直在增加，在这样的形式下，必须要求学校有一种高效有序的方法来管理学生的信息。通过调查,要求系统需要有以下功能：（1）由于操作人员的计算机知识普遍较差，要求有良好的人机界面；（2）由于该系统的使用对象多，要求有较好的权限管理；（3）原始数据修改简单方便，支持多条件修改；（4）方便的数据查询

8、，支持多条件查询；（5）在相应的权限下，删除数据方便简单，数据稳定性好；（6）数据计算自动完成，尽量减少人工干预。1.2.2需求信息的整理想要把收集到的信息（如文件、图表、票据、笔记等）转化为下一设计阶段可用形式的信息，必须对需求信息做分析整理工作。1业务流程分析业务流程分析的目的是获得业务流程及业务与数据联系的形式描述。一般采用数据流分析法，分析结果以数据流图（DFD）表示。是一个数据流图的示意图。图中有向线表示数据流，圆圈中写上处理的名称、圆圈代表一个处理、带有名字的双线段表示存储的信息。以本系统中的学生基本信息管理为例，基本信息管理的数据流图如图1-1所示。输入处理输出处理查找分析原始输

9、入筛选输出数据库图1-1数据流图示意图下面是学生信息管理数据库系统设计的业务流程分析，原始的数据是学生的信息，系统要求统计学生的信息，并根据信息统计的结果由奖学金评委评选出获得奖学金的学生，其数据流图如图1-2所示。输入处理产生报表输出处理信息清单统计处理报表清单获奖清单存储文件图1-2学生信息统计的数据流图1.3 E-R图设计2 开发工具的选择本系统的设计是在Windows XP操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，本系统选用的数据库语言介绍如下。2.1选择VB作为开发工具

10、Visual Basic具有以下特点：（1）可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性封装起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人

11、员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。（2）面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。2.2选择ACCESS2000开发数据库3 数据库设计3.1数据库的概念数据库处理在信息系统的研究中一直是非常重要的主题，然而，近年来，随着Wo

12、rld Wide Web(WWW)的猛增及Internet技术的迅速发展，使得数据库技术之时成为最热门技术之一。数据库技术能使Internet应用超越具有早期应用特点的简单的发布。同时，Internet技术提供了一种向用户发布数据库内容的标准化的访问方法。这些技术没有脱离经典数据库技术的要求。它们只是加重了数据库技术的重要性。数据库的目的是帮助人们跟踪事务。经典的数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的项，或其它数据量较大、需要密切关注的事务。最近，由于数据库的普及，数据库技术已经被应用到了新的领域，诸如用于Internet的数据库或用于公司内联网的数据库。数据库也被越来越多

13、地应用于生成和维护多媒体应用程序上。数据库在一个信息管理系统中占有非常重要的位置，数据库结构设计的好坏将直接对应用系统的效果产生影响。合理的数据库设计可以提高数据库存储效率，保证数据的完整和一致。同时合理的数据结构也将有利于程序的实现。设计数据库系统时，应该首先了解用户的各个方面的需求，包括现有的以及将来可能增加的。3.2 VB连接ACCESS2000数据库用vb编写一个管理系统，首先要解决vb连接数据库的问题。先看看VB是如何与ACCESS2000数据库相连接的。Sub ConnStr()连接数据库Set conn = CreateObject(ADODB.Connection) 建立数据库

14、连接对像DBpath = App.Path & & data.mdb 设置数据的路径conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & DBpath 打开数据库连接Set rs = CreateObject(ADODB.Recordset) 设置数据库对像End Sub上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下：Public connPublic

15、rs上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。3.3 数据库的实现数据库设计与应用等程序设计是分离的，数据库的设计非常重要。有了数据库模型，数据库的设计就简单多了。在学生管理信息系统中，首先要创建学生管理信息系统数据库，然后在数据库中创建需要的表和字段。下面分别讲述本系统中数据库的设计。本例采用Access2000数据库系统来进行数据库的设计。1、创建数据库下面给出在Access2000中创建数据库的过程。（1）运行Access2000应用程序，在“新建数据库”

16、选项组中选取“空Access数据库”单选，按钮，然后单击“确定”按钮，如图4-1所示。图4-1新建数据库（2）在“文件新建数据库”窗口指定数据库的存放位置与数据库文件名称（本例为Stu.mdb）然后单击“创建”按钮，如图4-2所示。图4-2指定数据库的存放位置与数据库文件名称2、创建表下面给出在Access 中创建表的过程。（1）创建数据库后，进入主界面，单击“Stu：数据库”子窗口中的“设计”按钮。此时将会出出“表1：表”窗口，如图4-3所示。图4-3设计表（2）在表的设计窗口“表1：表”中，按表6建立数据字段，并指定字段的数据类型与相关属性。表6学生基本信息表字 段 名 称数 据 类 型学

17、号文本姓名文本性别文本出生年月日期/时间民族文本家庭地址文本联系电话文本备注文本建立数据库字段并指定字段的数据类型与相关属性后，字段设计界面如图6所示。（3）在StuId字段上单击鼠标右键，选择快捷菜单中的“主键”选项，让StuId字段成为主要索引字段，则StuId 字段前方将出邮一个钥匙图标，如图4-4所示。图4-4字段设计（4）字段设计完毕后，单击工具栏中的“保存”按钮，此时将会出现“另存为”对话框，在“表名称”文本框输入“StuInfo”，如图9所示，然后单击“确定”按钮将这个表保存。（5）回到“Stu：数据库”子窗口中，如果出现了StuInfo 这个表项目，就代表现在已经完成学生数据文

18、件的设计，如图24所示。图4-5保存表重复步骤（1）（5），建立剩余的表，并指定表中各字段的数据类型与相关属性，这样就完成了数据库的设计。下面简单介绍各个表中的数据类型与相关的属性。1.学生基本信息的查询、修改、删除。包括学生姓名、性别、学号、出生年月、所在宿舍、家庭住址、联系电话、担任职务等信息的查询。学生基本信息字段名称类型备注姓名文本学号数字主键性别文本出生年月日期/时间家庭住址文本宿舍文本电话数字职务文本备注文本2.成绩管理包括课程名称、课程类型（选修、必修）、是否挂科（如有挂科，用红色字体表明成绩）。成绩管理字段名称类型备注学号数字主键姓名文本课程名称文本分数数字3课程管理。课程界面

19、上按课表的形式显示。需要管理的内容包括课程名称、课程教师姓名、课时。课程管理字段名称类型备注课程编号数字主键课程名称文本教师名称文本课时数字3.学生平时受到奖励或处罚的“奖罚管理”。平时参加学校活动的可以加平时分。平时违纪违规的要减平时成绩。这里面需要显示奖罚的时间、姓名、受到奖罚的原因（对事情简单的描述）、应加减多少分。能对奖罚管理进行查询、删除、修改操作。奖罚管理字段名称类型备注编号数字主键时间日期/时间姓名文本奖罚原因备注加减分文本4.参加课外活动的课外活动管理。课外活动和比赛有区别。课外活动不涉及加分。需要管理的内容有活动举行的时间、地点、参与人的姓名、活动的简单介绍、活动的意义。能对

20、课外活动管理进行查询、删除、修改操作。课外活动管理字段名称类型备注编号数字主键时间日期/时间地点文本参与人文本意义备注5、比赛管理。主要指学生参加学校、学院等举行的比赛。比赛管理涉及到加平时成绩，与奖罚管理挂钩。主要管理的内容有：比赛的时间、地点、参与人的姓名、比赛的简单介绍（比如取得了什么名次等），应加多少分。能对比赛管理进行查询、删除、修改操作。比赛管理字段名称类型备注编号数字主键时间日期/时间地点文本参与人文本活动简介备注加分数字6.出勤记录。是对学生平时上课、出操等信息的统计。每星期统计一次。考勤管理字段名称类型备注编号数字主键时间日期/时间姓名文本缺勤原因备注7.校规班规等规章制度的

21、查询。把写好的规章制度显示在界面上。然后显示违反了此项规章制度后需要扣多少分。规章制度主要是与奖罚管理联系在一起。是作为对学生的惩罚情况的主要依据。8.用户管理表。用户对学生成绩的查询、添加、删除等操作的权限。用户主要分为3类：班主任、管理员、普通用户。其中班主任拥有最高管理权限，可以对系统里面的信息进行任意的查询、添加、删除、修改操作。管理员只能由班主任设置班中的学生为管理员。管理员可以对信息进行查询、添加、删除、修改等操作。管理员只能对普通用户进行操作。普通用户只能查询信息，不能对信息进行添加、删除、修改等操作。用户管理字段名称类型备注用户名文本主键密码文本类别文本9.数据的存储管理。当对

22、信息进行修改后，涉及到数据的保存问题。4 系统总体规划4.1系统功能学生用户通过输入学生基本信息、课程基本信息等,由系统自行生成相应的数据以供学生查询,另外人事处的管理用户还可以对这些基本信息进行更新和删除, 学校学生管理信息系统力求给用户方便快捷的途径去管理这些繁琐的数据。具体系统功能需求描述如下：(1) 学生基本信息管理每年的大量新生入学，老生毕业都需要处理大量的学生信息。每个班主任可以在新学期开始之前，通过这一模块，实现学生基本情况的添加、删除、更新。还能查询各个学生的情况，姓名、家庭电话、家庭住址、学号等信息。(2)课程信息管理通过本模块可以轻松的添加以及更新课程。可以根据课程名、课程

23、号或者班级的选择，并对值的输入，可以看到数据集中显示符合条件的课程数据信息，而且可以根据修改要求进行数据的添加、删除、修改的操作。该项管理对课程的属性进行了具体化的分类，而且根据条件的选择大大得提高了对各学期课程数据的记录操作，很大得帮助了教工们工作效率的提高。(3)成绩信息管理本模块实现了信息的输入、删除、更新。还能查询到平均信息以及单科最高最低信息以及个人信息。把信息统计这个繁琐的工作简单化，为学生信息的管理方面提高工作效率。(4)其他信息管理系统实现了学生的课外活动管理、比赛管理、奖罚管理、考勤记录的管理,可添加、删除学生的奖惩记录，通过查询学号可方便地查看到学生的课外活动管理、比赛管理

24、、奖罚管理、考勤记录信息，可以大大提高工作效率。(5)信息查询通过输入学号便可以查询到这个学生的全部信息，包括姓名、性别、生日是、班号、入学日期、联系电话、奖惩日期、奖惩名称和成绩表都一目了然，很大的方便了教工们查询学生信息的过程。4.2系统模块图 学生信息管理系统基本信息课程管理成绩管理奖惩管理考勤管理比赛管理课外活动图5-1系统模块图4.3 数据流程图数据流图描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本逻辑功

25、能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。本系统主要是为了对教师业绩及其它相关信息等进行计算机管理。所以主要的数据源应是教师业绩有关方面的各种信息。它们在系统中流动和处理详细见下面的数据流程图。如图5-2,3。信息管理学生信息课程信息成绩信息课外活动比赛管理奖惩管理考勤管理 图5-2信息管理系统管理用户管理密码管理图5-3系统管理5 系统具体实现5.1登录模块实现登录界面是用户最先看到的系统界面，所以直观上给用户的感觉很重要，所以做一个好的界面，提高软件的亲和力。利用用户登录成功能实现对用户操作权限的限制。管理员和学生的权限不一样，管理员拥有系统的所有权限，学

26、生只有查询修改个人信息和打印成绩单的权限。用户必须输入正确的密码才能进入下一界面，如果用户的密码输入错误，应用程序会提示错误信息。用户如果连续3次输入错误，应用程序会强迫使用者退出并终止应用程序的运行，下图所示是用户登录界面窗体。本管理系统登录界面如图6-1。图6-1 登录界面根据登录模块的功能，管理员和普通用户界面统一在一起。系统自动判断用户的要权限。管理员有所有的权限，普通用户只有检索和改本人的密码权。如果三次登录都出错，系统自动退出。数据库的连接采用的是ADO对象。连接代码如下：If CN.State Then CN.CloseCN.ConnectionString = Provider

27、=jet4;Integrated Security=SSPI; Persist Security Info=False CN.Open引擎采用jet来连接access 2000数据库。详细代码实现请参考附录程序源代码。5.2 系统管理实现班主任学生管理信息系统主界面主要实现考勤管理、奖惩管理、成绩管理、学生信息管理和查询修改等功能。选择该界面中不同的身份按钮，就会进入实现不同权限的窗体。登录系统后进入主界面如图6-2。在系统功能设计中，系统维护功能主要有添加用户，删除用户和管理员密码修改，如图6-3所示。添加用户：在用户名称中输入要添加用户的名，原始密码为12345，可以修改，之后点添加。完毕

28、。如果系统已经添加的该用户，系统自动提示，重新添加。删除用户：选中要删除的用户，直接点删除、系统有提示是否真的删除，点是，就删除了此用户。图 6-2管理系统界面图6-3 用户管理用户密码修改是指普通和管理员用户的密码修改。如图6-4。图6-4 用户密码修改修改密码：输入原始登录密码，在“新密码“中输入新密码，在“新密码核实”中再输入一次新密码，单击“修改”，系统提示“操作成功！”。这样下一次再进入本系统时本用户的密码就改为新密码。代码实现请参考附录程序源代码。5.3 信息管理信息输入中主要是对所有数据信息的添加、修改、删除的功能。也是本次开发的重点。其中学生信息、课程参数信息、成绩、其他，也包

29、括全部字典信息可以在下拉列表可以选择。界面如图6-5。图6-5 学生信息各按钮的功能：移动到第一条记录。：移动到下一条记录。：移动最后一条记录。添加：是添加一新的记录。浏览：是查看全的记录。删除：是删除当前的记录。保存：是在添加和修改记录后，保存记录。修改：移动到要修改的记录，点修改，修改完后，点保存后就修改完毕。所有的信息表中的序号及各种编号一定要统一、规范。这样有利于信息检索。代码实现请参考附录程序源代码。5.4 查询管理实现查询打印模块包括成绩信息、评定结果信查询打印，查询以成绩信息为例。在菜单中可以选择信息查询，在检索名称中输入要检索的字段。在后面下拉框中选择条件。再输入关键字，点检索

30、按钮。在查询完后，可以输出Excel报表。在选择条件包括=，,=,like，其中like是用于模糊检索。检索完之后，点Excel报表输出，系统自动输出成报表。编辑格式以后就可以打印。代码实现请参考附录程序源代码。其他功能请参考源程序。图6-6规章查看图6-7 查询管理5.5系统关于与帮助系统关于如下图6-8图6-8 关于6 软件测试7 总结回顾该系统从选题，到调研、需求分析、设计、编码实现、测试，论文的撰写，这系列连贯的过程，感想颇多，收获也很多。1设计开发一个软件，首先要了解所涉及到行业的现状，一定要想办法进行行业调研，从不同途径获取该行业的专业知识。合理安排系统设计开发时间，进行实际开发会

31、发现需求分析与系统设计占主要的时间，如果前面的工作做好了，编码实现占用的时间很短。所以我们要借助软件工程的思想-对软件开发过程进行控制。2. 在开发一个系统时，前期的分析准备工作非常的重要。对于系统的需求要明确，这样才能做到有的放矢。特别是对于系统中数据的存储和重要算法的设计，设计的不好会出现大量的冗余，不仅浪费存储空间，还影响查询效率。例如：系统中图的存储设计和求最短路径算法设计。3.在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样可以进行比较，从而获得更佳的设计方案，设计开发过程中一定要吸取经验教训，避免返工。尤其是一些重要算法或功能。在对具体实现功能模块进行编程时，要养

32、成良好的加注释的习惯，这样的话不仅能理清思路，而且可以为以后的调试程序带来很大的方便。4. 独立思考的同时，要虚心向别人请教，可以达到事半功倍的效果。在具体编程实现系统功能的过程中，我遇到了不少的问题，我曾通过不同渠道向老师、同学、上相关网站、到论坛寻求答案，收到了很好的效果。通过独立完成学生信息管理系统的分析设计开发后，发现自己在进行软件开发方面提高不少，同时积极利用所学到的新技术用于自己的设计开发过程。由于本人是初次开发系统，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。如：用户界面不够美观，出错处理不够等多方面问题。在本次开

33、发过程由于多方面的限制，系统还有不足之处。尽管本系统存在着很多不足，但其实现了最重要的功能就是可以对学生信息进行管理。这个对于一个学生信息系统是十分重要的。该系统是根据班级管理的特点制作的信息系统，可以给班主任管理班级提供方便。通过开发这个系统，我掌握了开发系统的基本过程，了解了VB语言的基本知识，巩固了我对Visual Basic的学习，但在这次毕业设计中的最大收获并不是这些，而是学会了设计系统的思维方法，以及与同学们之间相互帮助的精神。致 谢在论文即将完成之际，本人在此向所有关心、帮助我的老师和同学们致以最真诚的感谢。在本次毕业设计中，我从指导老师司春景老师身上学到了很多东西。她认真负责的

34、工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢她耐心的辅导。在撰写论文阶段，司春景老师审阅我的论文，提出了许多宝贵意见，没有她的指导，我们就不能较好的完成课题设计的任务。另外，我还要感谢在这几年来对我有所教导的老师，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了学习的方法，更教会了我做人处事的道理，在此表示感谢。同时，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。参考文献1 袭沛曾，杨志强. Visual Basic 程序设计教程（6.0版）.高等教育出版

35、社.2000年2 肖建，薛凤武，吴静.Visual Basic 6.0 基础教程.中国电力出版社.2002年3 张大年，廖智勇，刘检锋.Visual Basic数据库应用开发与实例.清华大学出版社. 2002年4 杨宗志.Visual Basic数据库程序设计.清华大学出版社.2001年5 陈豫龙， 何旭洪. Visual Basic 6.0数据库开发实例导航.人民邮电出版社.2002年6 Visual Basic 6.0 时尚编程百例.机械工业出版社.2001年7 飞思科技产品研发中心.Access 2000数据处理技术.电子工业出版社.2001年8 谭浩强，王晓敏，李海波，杨红兵.Visu

36、al Basic 程序设计.中国铁道出版社.9 张勇 Visual Basic 课程设计案例精编.中国水利水电出版社.10 张海藩，牟永敏.面向对象程序设计实用教程.清华大学出版社.2002.101111 Ronaad J.Norman,Obiect-Oriented Systems and Design.1996.202112 邓良松，刘海岩，陆丽娜.软件工程.西安电子科技大学出版社.2004.717813 董士海.计算机软件工程环境与软件工程.北京：北京科学出版社.1990.4548附录:程序源代码源代码：Public miCount As IntegerPrivate Sub cmdCa

37、ncel_Click() 退出程序EndEnd SubPrivate Sub cmdOK_Click() 进入.确定On Error GoTo Err Dim txtSql As String UserName = If Trim(txtUserName.Text) = Then 判断用户名是否为空 MsgBox 请输入帐号！, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = Then 判断密码是否为空 MsgBox 请输入密码！, vbOKOnly +

38、vbExclamation, 警告 txtPassword.SetFocus Exit Sub End If 判断是否有这个用户 txtSql = select * from 用户信息表 where 用户名称= & txtUserName.Text & If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then 如果没有这个用户 MsgBox 没有这个帐号，请重新输入帐号!, vbOKOnly + vbExclamation, 警告 txtUserName.

39、Text = txtPassword.Text = txtUserName.SetFocus Else 如果有用户 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then 判断权限 UserPrivs = If Trim(rs.Fields(2) = 管理员 Then 管理员权限 IsUserMode = 1 ElseIf Trim(rs.Fields(2) = 操作员 Then 普通用户权限 IsUserMode = 2 Else 无权 IsUserMode = 0 MsgBox 你没有权限!, vbExclamation, 警告 End End

40、 If UserPrivs = Trim(rs.Fields(2) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub Else MsgBox 输入密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If rs.Close miCount = miCount + 1 If miCount = 3 Then 三次错误,自动退出程序 End End IfExit SubErr: Msg

41、Box Err.Description & 登录出错,请找管理员!, vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()txtUserName.SetFocusEnd SubPrivate Sub Form_Load()On Error GoTo Err连数据库代码If CN.State Then CN.CloseCN.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & database.mdb;Persist Sec

42、urity Info=FalseCN.OpenmiCount = 0Ok = FalsetxtUserName.Text = GetSetting(App.Title, Settings, user_name, )Label2.MouseIcon = cmdOK.MouseIconExit SubErr:MsgBox Err.Description, , 数据库连接错误EndEnd SubPrivate Sub Label1_Click()Form5.Show 1End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword

43、_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThentxtPassword.SetFocusEnd IfEnd Sub主界面图及代码：Private Sub DatabaseHf_Click()frmHF.Show 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindStuden

44、t_Click()Form2.Show 1End SubPrivate Sub Findxg_Click()Form8.Show 1End SubPrivate Sub Form_Load()PrivsSeting 加载权限设置End SubPrivate Sub Form_Resize()On Error GoTo Err 改变控件位置代码Picture1.Top = 0Picture1.Left = 0Picture1.Height = Me.ScaleHeight - StatusBar1.HeightPicture1.Width = Me.ScaleWidthStatusBar1.Pa

45、nels(1).Text = 操作员: & UserNameLabel9.Left = (Picture1.ScaleWidth - Label9.Width) / 2Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2Label1.Top = Label9.Top + 50Label1.Left = Label9.Left + 50加载背景代码 Image1.Picture = LoadPicture(App.Path & 1.jpg) Picture1.Refresh Picture1.PaintPicture Image1.P

46、icture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.HeightErr:End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub HelpFiles_Click() 帮助文件On Error GoTo ErrMainfrm.StatusBar1.Panels(2).Text = 帮助文件 Dim strPath As String

47、strPath = App.Path + 系统说明.doc ShellExecute hWnd, open, mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(strPath), 5Exit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Infocj_Click()strTableName = 成绩信息Form6.Show 1End SubPrivate Sub InfoCqjl_Click()strTableName = 考勤信息Form7.Show 1End

48、SubPrivate Sub InfoJf_Click()strTableName = 奖罚信息Form7.Show 1End SubPrivate Sub InfoKc_Click()strTableName = 课程信息Form1.Show 1End SubPrivate Sub InfoKwhd_Click()strTableName = 课外活动信息Form7.Show 1End SubPrivate Sub infoStudent_Click()strTableName = 学生基本信息Form1.Show 1End SubPrivate Sub InofBs_Click()strT

49、ableName = 比赛信息Form7.Show 1End SubPrivate Sub Sjbf_Click()frmDatabase.Show 1End SubPrivate Sub SysAbout_Click() 关于frmAbout.Show 1End SubPrivate Sub sysManager_Click()Form3.Show 1End SubPrivate Sub Userpasword_Click() 用户密码Form4.Show 1End SubPublic Sub PrivsSeting() 权限设置If IsUserMode = 1 Then 管理员 Else

50、If IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = FalseEnd IfEnd Sub 用户管理代码Private Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command2_Click() 添加用户On Error GoTo ErrIf Trim(Text8.Text) And Trim(Text9.Text) And Trim(Combo1.Text) Then Dim rs1 As New ADODB.Recordset If rs1.State

51、 Then rs1.Close rs1.Open select count(*) from user_Form where user_Id= & Trim(Text8.Text) & , Cn, adOpenStatic, adLockOptimistic If rs1.Fields(0) 0 Then MsgBox 用户已经存在! 请改user_Id!, , 系统提示 Text8.Text = Exit Sub End If If rs1.State Then rs1.Close rs1.Open select * from user_Form, Cn, adOpenStatic, adLo

52、ckOptimistic rs1.AddNew rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Date rs1.Fields(3).Value = Trim(Combo1.Text) rs1.Update Combo5.AddItem Trim(Text8.Text) MsgBox 用户添加成功!,初始密码为 & Text9.Text, , 系统提示 Text8.Text = End IfExit SubErr:MsgBox Err.Desc

53、riptionEnd SubPrivate Sub Command3_Click() 删除用户代码 If Trim(Combo5.Text) = UserName Then MsgBox 不能删除正在操作的用户! Exit Sub End If Cn.Execute delete from user_Form where user_Id= & Trim(Combo5.Text) & Combo5.RemoveItem (Combo5.ListIndex) MsgBox 操作已成功!, , 提示End SubPrivate Sub Form_Load() 初始化代码On Error GoTo E

54、rrText8.Text = Dim rs1 As New ADODB.Recordsetrs1.Open select * from user_Form, Cn, adOpenStatic, adLockOptimisticCombo5.ClearWhile Not rs1.EOF If Not IsNull(rs1.Fields(0) Then Combo5.AddItem Trim(rs1.Fields(0)rs1.MoveNextWendErr:End Sub查询界面及源代码Dim rs2 As New ADODB.Recordset 记录集,检索用的Private Sub cmdEx

55、cel_Click() excel输出On Error GoTo ErrIf MSHFlexGrid1.TextMatrix(0, 0) = Then Exit SubDim i As IntegerDim j As IntegerDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.Add 打开已经存在的EXCEL工件簿文件Set

56、 xlSheet = xlBook.Worksheets(1) 设置活动工作表 For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 xlSheet.Cells(i + 1, j + 1) = Trim(MSHFlexGrid1.TextMatrix(i, j) Next j Next ixlApp.Visible = TrueExit SubErr:MsgBox Err.Description, , 错误xlBook.Close (True) 关闭工作簿xlApp.Quit 结束EXCEL对象Set xlA

57、pp = Nothing 释放xlApp对象End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdLook_Click() 查询代码If Trim(Combo2.Text) And Trim(Combo3.Text) And Trim(Combo4.Text) And Trim(Text1.Text) Then Dim strsql As String strsql = select * from & Trim(Combo2.Text) & where & Trim(Combo3.Text) & & Trim(Combo4.Text) & If Combo4.Text = like Then strsql = strsql & % & Trim(Text1.Text) & % Else strsql = strsql & Trim(Text1.Text) & End If If rs2.State Then rs2.Close rs2.Open strsql, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rs2Else M