毕业设计（论文）-VBACCESS学生信息管理系统-系统主界面设计系统登陆及系统调试　

毕业设计〔论文〕 题目:学生信息管理系统系统主界面设计、系统登陆及系统调试专业:班级:04423学号:24姓名:指导老师:成都电子机械高等专科学校二〇〇七年六月论文摘要学生信息管理系统是为本校开发的，经过我们仔细分析，系统所采用的语言是VisualBasic，用MicrosoftAccess2000数据库完成。该系统总体有三局部组成，包括系统登录、学生信息查询、数据库的录入。通过本系统，把本校内部查询学生信息、教务信息、各个环节进行有效地方案、组织和控制。统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。所以信息管理系统是一个教育单位不可缺少的局部,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段，通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。关键词：控件、窗体、域、ACCESS数据库、VisualBasicAbstractStudentinformation,itmaybetheworkloadoftheworkloadoftheotherinformationseveraltimes,theincreaseinclass,theclassofsearch,Classchanges;Studentfiles;Coursemanagement;performancemanagement;Paymentmanagement;Statisticsetc.,Eachofdataareconstantlychanging,ifartificialwaytooperate,thentheworkloadoftheday,enoughtomakepeoplethinkthatthemorecumbersome,hardtoswallow.InsuchacaseSostudentinformationmanagementsystemshouldbeabletoprovideuserswithsufficientinformationandefficientmeansofinquiriesStudentInformatiBytheUniversityofinternalinformation,inaccordancewithunifieddatainformationmanagement,anyinformationfromadatareflectchangesinatimelymannertootherrelevantinformation,sodata-sharingKeywords：ActiveXcontrol、Form、orderedfield、Access、VisualBasic目录论文摘要 IAbstract II目录 III第一章绪论 11.1学生管理系统的概述 11．1．1学生管理系统的开展及意义 11.1.2学生管理系统的应用及意义 21.2学生管理系统论文的实际意义 3第二章管理信息的根底知识 42.1管理信息系统的概念 42.1.1MIS的结构、特征及相关学科 52.2管理信息系统的开展及学生信息系统的简介 5第三章系统开发工具——VisualBasic6.0简介及应用 83.1系统功能简介：VisualBasic主要功能特点包括： 83.2开发工具及相关技术简介 9第四章数据库Access的根底及应用 134.1数据库的概念 13结束语 15致谢 16参考文献： 17总结 50第一章绪论1.1学生管理系统的概述1．1．1学生管理系统的开展及意义学生信息管理是每一所高校都必须面对的工作作为计算机应用的一局部，使用计算机对学生档案进行管理，有着手工管理所无法比较的优点，如：检索迅速、查找方便、可靠性高、存储量大、保密性好、受命长、本钱低等。这些优点能够极大地提高学生档案管理的效率，也是学校向科学化、正规化管理开展的必要条件，更是各个高等院校与世界接轨的重要条件。因此，开发一套能够为用户提供充足的信息和快捷的查询手段的学生信息管理系统，将是非常必要的，也是十分及时的。借此毕业之际利用自己已掌握的各种专业知识，结合实际应用，开发一个学生信息管理系统来帮助学校进行有效的信息，并将其作为自己的毕业设计课题主要完成一些信息的统计和查询等一些重要的功能。特别是近几年来，国家政策的调整，我国高等院校大规模的扩招，给高等院校的教学管理、学生管理、后勤管理等方面都带来不少的冲击。特别是对于学校的决策者和管理者来说学生信息管理工作是至关重要的，学生信息管理是每一所高校都必须面对的工作，但一直以来人们使用传统的人工方式管理文件档案，这种管理方式存在许多缺点，如:效率低、保密性差，学生数量的增加，这必然增加了学生档案管理者的工作量和劳动强度，同时将产生大量的文件和数据，这给学生信息的查找、更新和维护都带来了不少困难。据调查，目前我国各类高等院校中还有相当一局部学生档案管理还停留在纸介质的根底上，尤其是中、小学对学生档案的管理更是落后，这样的管理机制已经不能适应时代开展的要求，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，计算机科学与技术日渐成熟，计算机应用的普及已进入人类社会生活的各个领域，并发挥着越来越重要的作用。这种传统的手工管理模式必然被以计算机为物质根底的信息管理方法所取代。经过分析，我们使用MICROSOFT公司的VISUALBASIC开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改良，直到形成用户满意的可行系统。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量需要有学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到信息的标准管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。学生管理系统的应用及意义本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、标准化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统本系统主要用于学校学生信息管理，总体任务是实现学生信息关系的系统化、标准化和自动化，其主要任务是用计算机对学生各种信息进行日常管理，如查询、修改、增加、删除，另外还考虑到学生选课，针对这些要求设计了学生信息管理系统。本系统主要包括学生信息查询、教务信息维护和学生选课三局部。其功能主要有：⒈有关学籍等信息的输入，包括输入学生根本信息、所在班级、所学课程和成绩等。⒉学生信息的查询，包括查询学生根本信息、所在班级、已学课程和成绩等。⒊学生信息的修改。⒋班级管理信息的输入，包括输入班级设置、年级信息等。⒌班级管理信息的查询。⒍班级管理信息的修改。⒎学生课程的设置和修改。1.2学生管理系统论文的实际意义当今社会，计算机已经成为我们学习和工作的得力助手，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：

首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加平安，等等。

在学校中用计算机管理学生档案的意义：现在我国的学校中档案的管理水平还停留在纸介质的根底上，这样的机制已经不能适应时代的开展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为根底的信息管理所取代。

作为一个非计算机应用专业的学生，希望可以在次方面可以好好的学习到一些实际的意义。改革的总设计师邓小平同志说过“科学技术是第一生产力〞，我希望能用我在学校所学的编制出一个实用的程序来帮助学校进行更有效的学生档案管理及实际应用信息。

1.2.1论文的目的及要求

第二章管理信息的根底知识随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一局部,使用计算机对单位的各项事务进行科学化的管理有着无法比较的优点。例如:查找方便、迅速、可靠性高、存储量大、保密性好、寿命长、本钱低等。这些优点能够极大地提高公司的工作效率,也是公司管理科学化、正规化并与世界接轨的重要条件。2.1管理信息系统的概念管理信息系统〔ManagementInformationSystems，简称MIS〕，是一个不断开展的新型学科，MIS的定义随着计算机技术和通信技术的进步也在不断更新，在现阶段普遍认为MIS是人为或计算机设备以及其他信息处理手段组成并用于管理信息的系统。包括以下几个根本概念：(1)MIS的对象就是信息。信息是经过加工的对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线、社会环境、市场以及行政管理等部门。信息具有时间性。(2)系统是由相互联系、相互作用的假设干要素按一定的规那么组成并具有一定功能的整体。系统由输入、处理、输出、反应、控制等五个根本要素组成。(3)管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用等五个方面组成。MIS包括计算机、网络通信设备等硬件成分，也包括操作系统、应用软件包等软件成分，并随着计算机技术和通信技术的迅速开展还会出现更多的内容。MIS的结构、特征及相关学科1．MIS的结构MIS由信源、信宿、信息处理、信息用户和信息管理者等五个局部组成。2．MIS的特征完善的MIS具有以下四个标准：确定的信息需求、信息的可采集性与可加工性、可以通过程序为管理人员提供信息、可以对信息进行管理。MIS具有以下特征：具有统一规划的数据库是MIS成熟的重要标志，它象征着MIS是软件工程的产物。通过MIS实现信息增值，用数学模型统计分析数据，实现辅助决策。MIS是开展变化的，MIS有生命周期。MIS的开发必须具有一定的科学管理工作根底。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的根底上，才能进行MIS的开发。因此，为适应MIS的开发需求，企业管理工作必须逐步完善以下工作：管理工作的程序化，各部门都有相应的作业流程。管理业务的标准化，各部门都有相应的作业标准。报表文件的统一化，固定的内容、周期、格式。数据资料的完善化和代码化。3．MIS的相关学科MIS是一个交叉性的综合性学科，组成局部有：计算机学科〔网络通信、数据库、计算机语言等〕、数学〔统计学、运筹学、线性规划等〕、管理学、仿真等多学科。随着科学技术的高速开展，MIS涉及的范围还要扩大。

2.2管理信息系统的开展及学生信息系统的简介

生产技术的进步，社会活动的复杂化，特别是电子信息技术的迅速开展与广泛应用，使得各种管理工作越来越依赖于对信息的管理。信息作为一种资源，使得人们的工作、生活以及思维方式发生了重大的变革，为企业的生产与经营提供了日益完善的手段。信息的采集、传输、加工和利用成为人们特别是信息工作者的主要活动。企业经理的百分之八十的时间用于信息的传输与处理，一些西方兴旺国家从事信息处理工作的人数多，在二十世纪八十年代就已经占职工总数的百分之五十以上，而美国1993年政府报告“国家信息根底结构：行动方案〞中指出“2/3的美国劳动者从事与信息有关的工作，其余1/3工作在高度依赖于信息的产业部门，〞这种职工可以成为“知识工作者〞，他们主要就是收集、传输和加工信息，包括编辑文件、写报告、分析信息、作方案等。所以现在各行各业对信息的管理要求越来越大。

信息工作的迅速增长，使计算机的应用范围越来越广泛，应用的功能由一般的数据处理走向支持决策。这就导致了管理信息系统的产生。管理信息系统从产生到现在已经经历了电子数据处理系统〔如统计系统、工资系统、数据更新系统等〕，信息报告系统〔如生产报告系统、效劳状态报告系统、研究状态报告系统等〕，支持决策系统，综合效劳系统〔如综合业务数字网络系统、国际互联网等〕等几个阶段。但在我国，由于各种原因，管理信息系统的开展处于初级的数据处理阶段，尽管如此，充分利用我们现有的资源和力量，开发一些适合于本企业或本行业的管理信息系统。也非常重要。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量，有必要开发学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的标准管理、科学统计和快速查询，从而减少管理方面的工作量。

本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大模块。管理员可以拥有完全的权限管理系统，而学生用户只拥有查询学籍信息和查询成绩信息的权限。学籍管理系统是一个教育单位不可缺少的局部，它的内容对于学校的决策者和管理者来说都至关重要，所以学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。

而学籍信息是学校的一项重要的数据资源，学籍管理也是学校的一项常规性的重要工作。而长期以来，学籍管理都是以来人工进行的，面对如此众多的学籍信息，起工作量可想而知。不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可控因素，造成了学籍管理的某些不标准，使得学籍管理陷入“事倍功半〞的地步。学生学籍管理系统是一个教育单位不可缺少的局部,它的内容对于学校的决策者和管理者来说都至关重要,所以学生档案管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据第三章系统开发工具——VisualBasic6.0简介及应用3.1系统功能简介：VisualBasic主要功能特点包括：

提供了面向对象〔OOP〕的可视化编程工具

把程序和数据封装在一起而视为一个对象。设计程序时只需从现有工具箱中拖出所需的对象，如按钮、滚动条等，在屏幕上设计出用户所要求的布局，VB自动产生界面设计代码，程序设计人员只需编写实现程序功能所需的代码即可，因而程序设计的效率大大提高。

事件驱动的编程机制

VB中通过事件来执行对对象的操作，一个对象可以有许多事件过程，不同的事件过程对应不同过程代码。VB开发的应用程序，没有明显的开始和结束标志。

结构化的程序设计语言

具有丰富的数据类型，众多的内部函数，是一种模块化、结构化的程序设计语言，结构清晰、简单易学。

交互式开发

传统的应用开发过程由编码、编译和调试代码3个步骤组成。而VisualBasic使用交互式方法开发应用程序，3个步骤之间没有明显的界限。

Windows资源共享

VB提供的动态数据交换DDE编程技术，可以在应用程序中实现与Windows应用程序建立动态数据交换、在不同的应用程序之间通行功能。

开放的数据库功能与网络支持

VB具有很强的数据库管理功能。利用数据控件和数据库管理窗口，可以直接建立和编辑MSAccess格式的数据库，并提供了强大的数据存储和检索功能，同时还能直接编辑和访问其他外部数据库，如Dbase、FoxPro、Paradox等。

得心应手的应用程序向导

VB中使用了许多应用程序向导，可为用户自动创立多种类型和不同功能的应用程序的初始轮廓，另外还有安装向导、数据窗体向导、IIS应用程序DHTML等，使用起来得心应手，省去了一些烦琐的工作。

完善的联机帮助功能

强大的联机帮助功能和示范代码，设计任何时候，只需按下F1键，就会显示必要的提示，运行时，也会对出现的错误给出一定的提示。

在系统中，充分利用了Access数据库和VisualBasic6.0的强大功能，通过实践，也使自己对这些方面有了较深入的了解。在设计过程中力求完善系统功能，使界面友好，具有一定的容错能力，在使用过程中不会出现难以纠正的错误和毛病。

该系统主要提供了六局部，功能分别为导入学生数据，增加删除学生，住宿分配，住宿调整，退房管理，走读管理，学生情况查询，房源使用情况，空床统计情况，分类统计情况，卫生成绩录入，卫生查询与统计，公寓违纪录入，公寓违纪查询，添加用户，修改密码，退出系统，这些功能根本上覆盖了学生公寓管理的主要局部。3.2开发工具及相关技术简介

VisualBasic6.0开发语言及环境简介

VisualBasic6.0是在原有的Basic语言的根底上的进一步开展，他包含了数百条语句。函数及关键词，其中很多与WindowsGUI有直接的关系。VisualBasic语言简单易学，只要稍有语言根底就可以很快的掌握并进而精通。可视化的用户界面设计功能，把程序设计人员从繁琐复杂的截面设计中解脱出来；可视化编程环境的“所见即所得〔WYSIWYG〕〞功能，是界面设计如积木游戏一般，编程变成了一种享受；强大的多媒体功能可轻而易举地开发出集声音，动画，影像和图片于一体的多媒体应用程序；新增的网络功能提供了编写Internet程序的能力。VisualBasic6.0还支持用户自己开发ActiveX控件和制作ActiveX文档。

作为高质量的开发软件，VisualBasic6.0有如下特点：

1.语句生成器和快速提示帮助使用户不必记忆成千上万的属性和方法，在较短的时间内就能开发出功能强大的应用程序。

2.在VisualBasic6.0中，Internet应用程序的开发功能更加强大和容易。在应用程序内可以通过Internet或Intranet访问其他计算机中的文档和应用程序；可以创立Internet效劳器应用程序，包括IIS应用程序；支持HTML技术〔DHTML〕的应用程序；具有Web应用程序发布功能等。

3.种类繁多、功能强大的多媒体控件，能帮助用户在较短时间内用较少的语句编写出图文声像并茂的多媒体程序。

4.VisualBasic6.0在数据库处理功能上有较大增强，能对多种数据库进行读写操作。另外他所提供的[可视化数据管理器]能帮助用户构造多种类型的数据库，同时提供了能自动生成SQL语句的功能和新的ActiveX数据对象ADO。

5.新的语言特征包括：用户自定义类型可以作为参数或作为公共属性和方法的返回值；函数可以返回数组变量；动态数组可以赋值；文件系统对象；按名调用〔CallByName〕；增强的创立对象函数〔CreateObjectFunctionEnhancements〕；增强的StrConv函数。

6.[应用程序安装向导]能帮助用户自动生成具有一定功能的应用程序，大大加快了程序的开发速度。增强的向导有：安装程序向导、数据窗体向导、应用程序向导和类生成工具。新的向导有：数据对象生成向导和工具条向导。

3.3VisualBasic语言的特点

VisualBasic语言用其设计应用程序时具有两个根本特点：可视化设计和事件驱动编程。

〔1〕可视化设计：表现在VB在设计应用于程序界面时有“所见即所得〞的处理功能。

〔2〕事件驱动编程：在设计应用程序时，把对象添加到窗体中，在用户与程序进行交互时，用户根本上是通过鼠标、键盘与应用程序进行交互的，那些对象就必须对鼠标和键盘操作所引发的事件做出响应，来执行一段应用程序。

3.4VisualBasic系统几个在程序应用中的常用名词

VisualBasic系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其根本含义如下：

(1)视窗〔Form〕

视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows系统的标准视窗。

(2)对象(Object)

对象是VB系统内部提供应设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，网格(DataGrid)，ADO控件(Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性〞和“方法〞，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。

(3)属性(Properties)

属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比方，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。

(4)事件(Events)

事件是指用户或操作者对计算机进行的某一操作〔如击键、单击或移动鼠标等〕的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress〔按键〕事件，KeyDown事件和KeyUp事件；鼠标事件有Click〔单击鼠标〕事件，DbDlicd〔双击鼠标〕。

(5)方法(Method)

方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show〔显示〕方法，Hide〔隐藏〕方法，Refresh〔刷新〕方法。

(6)过程(Procedure)

过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。

(7)模块(Module)

模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。

3.5面对对象的编程

面向对象的设计方法(OOP,ObjectedProgramming)从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。VisualBasic作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由VisualBasic自动生成对象的程序代码并封装起来。VisualBasic应用程序根本的构建块是用户所创立的对象，每一个对象都具有一些特性和行为〔属性、事件和方法〕。开发人员可以最有效利用所创立的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。

VisualBasic应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含假设干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。

实现菜单项选择项

菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，VisualBasic也提供了强大的创立菜单功能是程序更加标准。

本系统使用VisualBasic的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用VisualBasic的ApplicationWizard来操作。

实现工具栏

CoolBar控件与Office2000中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和义用性。

选择“工程〞下拉菜单中的“部件〞选项，显示“部件〞对话框。在“控件〞选项卡列表中选择“MicrosoftWindowsCommonControls6.0”后工具相中增加改控件。

本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。第四章数据库Access的根底及应用4.1数据库的概念

数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库〔flat-file〕和关系数据库〔relational〕。关系数据库中包含了多个数据表的信息，数据库含有各个不同局部的术语，象记录、域等。

新建一个数据库,创立任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创立一个数据库结构的过程被认为是数据模型设计。

1．标识需要的数据；

2．收集被标识的字段到表中；

3．标识主关键字字段；

4．绘制一个简单的数据图表；

5．标准数据；

6．标识指定字段的信息；

7．创立物理表。

修改已建的数据库

数据库的修改分为：添加、编辑和删除记录。这三种操作均可由VisualBasic创立的程序来完成，下面的章节将详细描述实现的具体方法。

实现数据库之间的联系

数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。结束语作为一个非计算机应用专业的学生，希望可以在次方面可以好好的学习到一些实际的意义。改革的总设计师邓小平同志说过“科学技术是第一生产力〞，我希望能用我在学校所学的编制出一个实用的程序来帮助学校进行更有效的学生档案管理及实际应用信息。信息工作的迅速增长，使计算机的应用范围越来越广泛，应用的功能由一般的数据处理走向支持决策。这就导致了管理信息系统的产生。管理信息系统从产生到现在已经经历了电子数据处理系统〔如统计系统、工资系统、数据更新系统等〕，信息报告系统〔如生产报告系统、效劳状态报告系统、研究状态报告系统等〕，支持决策系统，综合效劳系统〔如综合业务数字网络系统、国际互联网等〕等几个阶段。但在我国，由于各种原因，管理信息系统的开展处于初级的数据处理阶段，尽管如此，充分利用我们现有的资源和力量，开发一些适合于本企业或本行业的管理信息系统。也非常重要。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量，有必要开发学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的标准管理、科学统计和快速查询，从而减少管理方面的工作量。

致谢在系统的开发过程中，我碰到了很多的难题，多亏有老师和同学的帮助，在这里，特别要向我的指导老师杜涛老师的指导和常旭存等同学的帮助表示衷心的感谢！但是由于是第一次面向对象开发数据库管理系统，肯定会有经验上的缺乏，失误之处在所难免，敬请各位老师，领导批评的指正。何爱赟2007-6-11参考文献：[1].王彬华,李建华编著?VisualBasic实例教程?电子科技大学出版社2004.4[2].郭晓烹编著?VisualBasic高级编程及其工程应用开发?中国水利水电出版社[3].刘新民,蔡琼,白康生编著?VisualBasic6.0程序设计?清华大学出版社2004

[4].曹青郭志强编著的?VisualBasic程序设计教程?机械工业出版社[5].郭胜,夏邦贵编著?VisualBasic数据库开发入门与范例解析?机械工业出版社2004.1附录登陆界面PrivatebackFileAsStringPrivateqsAsStringPrivatebuffAsStringDimpnumAsIntegerPrivateSubCommand1_Click()CallImage1_ClickEndSubPrivateSubCommand2_Click()CallImage1_ClickEndSubPrivateSubForm_Load()Text1.BackColor=RGB(98,162,207)Text2.BackColor=RGB(98,162,207)addtransApp.Path'连接数据库EndSubPrivateSubImage1_Click()OnErrorGoTofinishSetqy1=cnn.Execute("select*from登陆where用户名='"&Text1.Text&"'and密码='"&Text2.Text&"'")Ifqy1.EOF=TrueThenIfpnum<2Thenpnum=pnum+1MsgBox"用户名或密码错误!",vbInformation,"错误次数："&pnumText1.Text=""Text2.Text=""Text1.SetFocusExitSubElseMsgBox"用户名或密码错误超过三次,系统会自动退出",vbInformation,"提示"EndEndIfElseIfqy1.Fields(2)="超级管理员"Thenadmin=TrueElseadmin=FalseEndIfUnloadMeform1.ShowEndIfExitSubfinish:MsgBoxErr.DescriptionEndSubPrivateSubImage2_Click()EndEndSubPrivateSubLabel3_Click()EndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallImage1_ClickEndIfEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallImage1_ClickEndIfEndSubPublicSubaddtrans(tkFileNameAsString)buff=String(255,0)backFile=Date+5DimbackfilaAsStringbackfila=DateEndSub主界面图及相应的程序代码：Dimi,j,nAsIntegerDimsqlAsStringPrivateDeclareFunctionGetKeyStateLib"user32"_(ByValnVirtKeyAsLong)AsIntegerPublicjeAsInteger'记忆菜单上次数值，实现数据传送PrivateSubacg_Click()CallasPopup7_Click(False)EndSubPrivateSubaddcg_Click()CallasPopup6_Click(False)EndSubPrivateSubaddstudent_Click()CallasPopup2_Click(False)EndSubPrivateSubasPopup1_Click(CancelAsBoolean)Grid1.Visible=TrueGrid2.Visible=Falsetkbase="学生信息"fnumber=13sql="select*from"&tkbase&"orderby学号desc"grid1pz'执行grid1的分配空间任务datagrid'按要求读取数据空间EndSubPrivateSubgrid1pz()'处理grid1的操作Grid1.Cols=fnumber+1Grid1.Column(1).Width=120Grid1.Column(2).Width=100Grid1.Column(3).Width=80Grid1.Column(4).Width=40Grid1.Column(5).Width=80Grid1.Column(6).Width=30Grid1.Column(7).Width=50Grid1.Column(8).Width=80Grid1.Column(9).Width=60Grid1.Column(10).Width=80Grid1.Column(11).Width=100Grid1.Column(12).Width=100Grid1.Column(13).Width=100Grid1.Column(4).CellType=cellComboBoxGrid1.ComboBox(4).ClearGrid1.ComboBox(4).AddItem"男"Grid1.ComboBox(4).AddItem"女"Grid1.Column(5).CellType=cellCalendarGrid1.Column(2).CellType=cellComboBoxGrid1.ComboBox(2).ClearSetqy2=cnn.Execute("select班级名称from班级")DoWhileNotqy2.EOFGrid1.ComboBox(2).AddItemqy2.Fields(0)qy2.MoveNextLoopGrid1.Column(9).CellType=cellComboBoxGrid1.ComboBox(9).ClearGrid1.ComboBox(9).AddItem"团员"Grid1.ComboBox(9).AddItem"党员"Grid1.ComboBox(9).AddItem"无"Grid1.Column(1).Locked=TrueEndSubPrivateSubasPopup10_Click(CancelAsBoolean)Dimfo2AsCTranslucentFormSetfo2=NewCTranslucentFormfo2.hWnd=Form6.hWndfo2.Alpha=90/100*255Me.WindowState=vbMinimizedLoadForm6Form6.Show1EndSubPrivateSubasPopup2_Click(CancelAsBoolean)Grid1.Visible=TrueGrid2.Visible=Falsetkbase="学生信息"fnumber=13Setqy1=cnn.Execute("select*from"&tkbase)grid1pzFori=1TofnumberGrid1.Cell(0,i).Text=qy1.Fields(i-1).NameNextGrid1.Column(1).Locked=FalseGrid1.Rows=1Grid1.Rows=21gridsave=True'允许保存griddelete=False'拒绝删除gridedit=FalseEndSubPrivateSubasPopup3_Click(CancelAsBoolean)Dimfo2AsCTranslucentFormSetfo2=NewCTranslucentFormfo2.hWnd=Form2.hWndfo2.Alpha=90/100*255Me.WindowState=vbMinimizedLoadForm2Form2.Show1EndSubPrivateSubasPopup4_Click(CancelAsBoolean)Dimfo2AsCTranslucentFormSetfo2=NewCTranslucentFormfo2.hWnd=Form4.hWndfo2.Alpha=90/100*255Me.WindowState=vbMinimizedLoadForm4Form4.Show1EndSubPrivateSubasPopup5_Click(CancelAsBoolean)Frame2.Visible=TrueEndSubPrivateSubasPopup6_Click(CancelAsBoolean)Grid1.Visible=FalseGrid2.Visible=Truetkbase="学生与课程"fnumber=6gridpz2Setqy1=cnn.Execute("select*from"&tkbase)Fori=1TofnumberGrid2.Cell(0,i).Text=qy1.Fields(i-1).NameNextGrid2.Rows=1Grid2.Rows=21gridsave=Truegridedit=Falsegriddel=FalseGrid2.Column(1).Locked=FalseGrid2.Column(2).Locked=TrueGrid2.Column(3).Locked=FalseGrid2.Column(4).Locked=TrueEndSubPrivateSubasPopup7_Click(CancelAsBoolean)Grid1.Visible=FalseGrid2.Visible=Truetkbase="学生与课程"fnumber=6sql="select*from"&tkbase&"orderby学号asc"gridpz2datagridgridsave=Falsegridedit=Truegriddel=TrueGrid2.Column(1).Locked=TrueGrid2.Column(2).Locked=TrueGrid2.Column(3).Locked=TrueGrid2.Column(4).Locked=TrueEndSubPrivateSubgridpz2()Grid2.Cols=8Grid2.Column(1).Width=120Grid2.Column(3).Width=120Grid2.Column(1).CellType=cellComboBoxSetqy1=cnn.Execute("select*from课程")Grid2.ComboBox(1).ClearDoWhileNotqy1.EOFGrid2.ComboBox(1).AddItemqy1.Fields(0)&"-"&qy1.Fields(1)qy1.MoveNextLoopGrid2.Column(3).CellType=cellComboBoxSetqy1=cnn.Execute("select学号,名字from学生信息")Grid2.ComboBox(3).ClearDoWhileNotqy1.EOFGrid2.ComboBox(3).AddItemqy1.Fields(0)&"-"&qy1.Fields(1)qy1.MoveNextLoopEndSubPrivateSubasPopup8_Click(CancelAsBoolean)Dimfo2AsCTranslucentFormSetfo2=NewCTranslucentFormfo2.hWnd=Form7.hWndfo2.Alpha=85/100*255LoadForm7Form7.Show1EndSubPrivateSubasPopup9_Click(CancelAsBoolean)EndEndSubPrivateSubc1_Click(IndexAsInteger)'提交内容到函数执行，4为当前菜单〔0-4〕，index是按钮数组名称cmove4,IndexEndSubPrivateSubcmove(sAsInteger,iAsInteger)'菜单智能移动函数代码S代表菜单的总数,i代表当前移动的是数组名称DimjAsIntegerDimx,y,z,x1,y1AsIntegerx=s'将x,y,z,x1赋于菜单总数,x存放frame1的固定值y=s'y存放的是移动后的按钮的固定值z=s'Z没用上x1=s'X1没用上j=0'j计算按钮的宽度DoWhiles>0'这里是通过重复计算来计算按钮所需移动的总高度Ifje>iThenDoWhilex>iDoWhiley>=xj=j+360'360是每个按钮的高度y=y-1Loopc1(x).Top=Fre1.Height-jx=x-1LoopElse'向上代码Forx=0ToiFory=0Toxj=j+360Nextc1(x).Top=j-360j=0NextEndIfs=s-1Fory1=0Tox1Ify1=iThenFre2(y1).Visible=TrueFre2(y1).Top=c1(y1).Top+c1(y1).HeightIfy1<>zThenFre2(y1).Height=c1(y1+1).Top-Fre2(y1).TopElseFre2(y1).Height=Fre1.Height-c1(y1).Top-c1(y1).HeightEndIfElseFre2(y1).Visible=FalseEndIfNextLoopje=i'这里是记忆上次移动的按钮数组编号EndSubPrivateSubcgdel_Click()CallXPButton6_ClickEndSubPrivateSubcgedit_Click()CallXPButton4_ClickEndSubPrivateSubdelstudent_Click()CallXPButton6_ClickEndSubPrivateSubeditstudent_Click()CallXPButton4_ClickEndSubPrivateSubfindcg_Click()Ifhang=0ThenExitSubEndIfGrid1.Visible=FalseGrid2.Visible=Truetkbase="学生与课程"fnumber=5sql="select*from学生与课程where学号='"&Grid1.Cell(hang,1).Text&"'"gridpz2datagridgridsave=Falsegridedit=Truegriddel=TrueGrid2.Column(1).Locked=TrueGrid2.Column(2).Locked=TrueGrid2.Column(3).Locked=TrueEndSubPrivateSubGrid1_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfButton=2ThenIfgridsave=TrueThensavestudent.Enabled=TrueElsesavestudent.Enabled=FalseEndIfIfgridedit=TrueTheneditstudent.Enabled=TrueElseeditstudent.Enabled=FalseEndIfIfgriddel=TrueThendelstudent.Enabled=TrueElsedelstudent.Enabled=FalseEndIfIfadmin=FalseThenaddstudent.Enabled=Falsesavestudent.Enabled=Falseeditstudent.Enabled=Falsedelstudent.Enabled=FalseEndIfPopupMenustudentEndIfEndSubPrivateSubGrid1_RowColChange(ByValRowAsLong,ByValhang=RowIfgridsave=TrueAndCol=5Then'确认默认年龄在20岁左右IfRow<>0ThenGrid1.Cell(Row,5).Text=Date-7300EndIfEndIfEndSubPrivateSubGrid1_Validate(CancelAsBoolean)'设定TAB键切换DimnActiveRowAsLong,nActiveColAsLongConstVK_TAB=9IfGetKeyState(VK_TAB)<0ThenIfnActiveCol<Grid1.Cols-1ThenGrid1.Range(nActiveRow,nActiveCol+1,_nActiveRow,nActiveCol+1).SelectedEndIfCancel=TrueEndIfEndSubPrivateSubForm_Load()OnErrorGoTofinishGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'进行注册Grid2.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'进行注册Label2.Caption="今天是"&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日,欢送您进入04423班!"Frame2.Visible=Falseform1.BackColor=RGB(167,111,177)'管理员验证Ifadmin=FalseThenc1(3).Enabled=FalseasPopup2.Enabled=False'增加学生asPopup4.Enabled=False'课程管理asPopup6.Enabled=True'输入成绩XPButton4.Enabled=FalseXPButton5.Enabled=FalseXPButton6.Enabled=TrueEndIfWithGrid1.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.DefaultFont.Name="Tahoma".DefaultFont.SIZE=8.BackColorFixed=RGB(84,201,134).BackColorFixedSel=RGB(167,111,177).BackColorBkg=RGB(198,229,211).BackColorScrollBar=RGB(167,111,177).BackColor1=RGB(231,235,247).BackColor2=RGB(198,229,211).GridColor=RGB(148,190,231).Column(0).Width=0EndWithWithGrid2.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.DefaultFont.Name="Tahoma".DefaultFont.SIZE=8.BackColorFixed=RGB(84,201,134).BackColorFixedSel=RGB(167,111,177).BackColorBkg=RGB(198,229,211).BackColorScrollBar=RGB(167,111,177).BackColor1=RGB(231,235,247).BackColor2=RGB(198,229,211).GridColor=RGB(148,190,231).Column(0).Width=0EndWithje=4DimfrAsIntegerFre1.BackColor=RGB(168,217,189)Forfr=0To4Fre2(fr).Visible=FalseFre2(fr).BackColor=RGB(106,137,188)NextGrid2.Visible=FalseCallc1_Click(0)ExitSubfinish:MsgBoxErr.DescriptionEndSubPrivateSubGrid2_CellChange(ByValRowAsLong,ByValColAsLong)'使用智能输入IfGrid2.Cell(Row,1).Text<>""AndRow<>0ThenDimlength1,length2AsIntegerlength1=Len(Grid2.Cell(Row,1).Text)DoWhilelength2<length1length2=length2+1IfRight(Left(Grid2.Cell(Row,1).Text,length2),1)="-"ThenGrid2.Cell(Row,2).Text=Mid(Grid2.Cell(Row,1).Text,length2+1,length1)Grid2.Cell(Row,1).Text=Mid(Grid2.Cell(Row,1).Text,1,length2-1)ExitDoEndIfLoopEndIfIfGrid2.Cell(Row,3).Text<>""AndRow<>0ThenDimlength3,length4AsIntegerlength3=Len(Grid2.Cell(Row,3).Text)DoWhilelength4<length3length4=length4+1IfRight(Left(Grid2.Cell(Row,3).Text,length4),1)="-"ThenGrid2.Cell(Row,4).Text=Mid(Grid2.Cell(Row,3).Text,length4+1,length4)Grid2.Cell(Row,3).Text=Mid(Grid2.Cell(Row,3).Text,1,length4-1)ExitDoEndIfLoopEndIfEndSubPrivateSubGrid2_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)IfButton=2ThenIfadmin=FalseThencgedit.Enabled=Falsecgdel.Enabled=Falseaddcg.Enabled=FalseEndIfPopupMenucgEndIfEndSubPrivateSubGrid2_RowColChange(ByValRowAsLong,ByValhang=RowEndSubPrivateSubdatagrid()griddelete=True'允许删除gridedit=TrueIftkbase="学生信息"ThenIfqy1.State=adStateOpenThen'表状态qy1.CloseEndIfqy1.Opensql,cnn,adOpenStatic,adLockReadOnly,adCmdTextFori=1TofnumberGrid1.Cell(0,i).Text=qy1.Fields(i-1).NameNextqy1.PageSize=20nnum=qy1.PageCountIfqy1.PageCount=0Thennnum=1EndIfnumpage=1Label1.Caption="共"&nnum&"页第"&numpage&"页"Grid1.Rows=1Grid1.Rows=21Ifqy1.RecordCount=0ThenExitSubEndIfqy1.AbsolutePage=numpageFori=1Toqy1.PageSize'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.EOF=TrueThenExitSubEndIfIfNotqy1.Fields(j-1)IsNothingThen'空值的处理Grid1.Cell(i,j).Text=qy1.Fields(j-1)ElseGrid1.Cell(i,j).Text=""EndIfNextIfqy1.EOF=FalseThenqy1.MoveNext'读取下一记录ElseExitSubEndIfNextElseIftkbase="学生与课程"ThenIfqy1.State=adStateOpenThen'表状态qy1.CloseEndIfqy1.Opensql,cnn,adOpenStatic,adLockReadOnly,adCmdTextFori=1TofnumberGrid2.Cell(0,i).Text=qy1.Fields(i-1).NameNextqy1.PageSize=20nnum=qy1.PageCountIfqy1.PageCount=0Thennnum=1EndIfnumpage=1Label1.Caption="共"&nnum&"页第"&numpage&"页"Grid2.Rows=1Grid2.Rows=21Ifqy1.RecordCount=0ThenExitSubEndIfqy1.AbsolutePage=numpageFori=1Toqy1.PageSize'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.EOF=TrueThenExitSubEndIfIfNotqy1.Fields(j-1)IsNothingThen'空值的处理Grid2.Cell(i,j).Text=qy1.Fields(j-1)ElseGrid2.Cell(i,j).Text=""EndIfNextIfqy1.EOF=FalseThenqy1.MoveNext'读取下一记录ElseExitSubEndIfNextEndIfEndSubPrivateSubGrid2_Validate(CancelAsBoolean)DimnActiveRowAsLong,nActiveColAsLongConstVK_TAB=9IfGetKeyState(VK_TAB)<0ThenIfnActiveCol<Grid1.Cols-1ThenGrid1.Range(nActiveRow,nActiveCol+1,_nActiveRow,nActiveCol+1).SelectedEndIfCancel=TrueEndIfEndSubPrivateSubLabel7_Click()Iftkbase="学生信息"ThenIfnumpage>1Thennumpage=num1qy1.AbsolutePage=numpageGrid1.Rows=1Grid1.Rows=21Fori=1To20'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.Fields(j-1)=NullThen'空值的处理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=qy1.Fields(j-1)EndIfNextqy1.MoveNext'读取上一记录NextEndIfLabel1.Caption="共"&nnum&"页第"&numpage&"页"ElseIftkbase="学生与课程"ThenIfnumpage>1Thennumpage=num1qy1.AbsolutePage=numpageGrid2.Rows=1Grid2.Rows=21Fori=1To20'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.Fields(j-1)=NullThen'空值的处理Grid2.Cell(i,j).Text=""ElseGrid2.Cell(i,j).Text=qy1.Fields(j-1)EndIfNextqy1.MoveNext'读取上一记录NextEndIfLabel1.Caption="共"&nnum&"页第"&numpage&"页"EndIfEndSubPrivateSubLabel8_Click()Iftkbase="学生信息"ThenIfnumpage<nnumThennumpage=numpage+1qy1.AbsolutePage=numpageGrid1.Rows=1Grid1.Rows=21Fori=1To20'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.EOF=TrueThenLabel1.Caption="共"&nnum&"页第"&numpage&"页"ExitSubEndIfIfqy1.Fields(j-1)=NullThen'空值的处理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=qy1.Fields(j-1)EndIfNextIfqy1.EOF=FalseThenqy1.MoveNext'读取下一记录ElseLabel1.Caption="共"&nnum&"页第"&numpage&"页"ExitSubEndIfNextEndIfLabel1.Caption="共"&nnum&"页第"&numpage&"页"ElseIftkbase="学生与课程"ThenIfnumpage<nnumThennumpage=numpage+1qy1.AbsolutePage=numpageGrid2.Rows=1Grid2.Rows=21Fori=1To20'设定读取行Forj=1Tofnumber'设定读取列Ifqy1.EOF=TrueThenLabel1.Caption="共"&nnum&"页第"&numpage&"页"ExitSubEndIfIfqy1.Fields(j-1)=NullThen'空值的处理Grid2.Cell(i,j).Text=""ElseGrid2.Cell(i,j).Text=qy1.Fields(j-1)EndIfNextIfqy1.EOF=Fa