《最新VB+ADO+ACCESS学生信息管理系统.doc》由会员分享，可在线阅读，更多相关《最新VB+ADO+ACCESS学生信息管理系统.doc（109页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB+ADO+ACCESS学生信息管理系统摘要目录摘要2前言2第一章 可行性分析3第二章 需求分析6第三章 系统设计73.1 系统设计73.2 数据库设计83.3数据流图 (DFD)11第四章 系统设计144.1系统模块程序设计144.2 学籍管理模块的创建16第五章 系统测试与维护265.1系统测试265.2系统维护27第六章 结论与总结29致 谢29参考资料30摘
2、要随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量，有必要开发学生信息管理系统来提高学生管理工作的效率。 本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大模块。管理员可以拥有完全的权限管理系统，而学生用户只拥有查询学籍信息和查询成绩信息的权限。本系统采用微软的Access 2000作为后台数据库，Access 2000是一套大型数据库开发系统，能对大量数据进行处理和管理，性能优越；并使用Visual Basic 6.0开发前台软件，Visual Basic 6.0与Access 2000同是微软的产品，它们之间的对话通信是
3、十分好，效率也很高。关键词：学生信息、VB、ADO、 ACCESS数据库前言随着全球信息话时代的到来，信息技术对社会发展的作用愈来愈明显。充分利用信息技术和信息资源，为社会创造更多的财富，已成为社会进步的重要标志。学生信息管理做为学校工作的一项重点，在学校的教学和学生的学习中也占有重要的地位，应用学生信息管理软件不但可以提高学校的教学质量，同时也可以提高学校的管理质量，对学校可以更系统、更全面的进行管理。一方面，可以节省学校的管理人员；另一方面，可以更全面地了解学生各方面的情况，以便学生各方面情况的查询和更改，这样可以为管理人员节约更多的时间。在近几年，学生信息管理软件已在大多数学校施行，也得
4、到了大多数学校的喜爱，学生信息管理软件越来越多的得到了充分利用和认可，成为了学校管理不可缺少的助手。但现在也有一些中小学对学生的管理还依附在纸张上，这说明我国的信息管理还不到位，在未来的几年里，学校信息管理将覆盖所有的学校，让机械管理代替手工管理，让学校发展与信息发展同步，学生信息管理就是学校管理进步的必由之路。学生信息管理系统是电脑代替人工对全校学生管理的最好方式，它是学校提高对学生和教学管理的重要手段。本系统结合学校和学生的实际情况，采用功能强大的Visual Basic 6.0开发出学生信息管理系统。 文章介绍了学生管理信息系统的开发背景，系统分析部分，系统设计部分主要介绍了系统功能设计
5、和数据库设计及代码设计。本论文是针对学校而开发的一个学生信息管理系统，结合VB制作各种管理软件，完善对软件界面的美化和特效的实现，根据实际分析，功能分析，软件所要实现的功能。采用Microsoft Visual Basic 6.0 中文版作为开发工具，进行VB编码实现。第一章 可行性分析1.1市场调查根据我们的了解到在许多的中等以上学校，包括我们学校在内都在使用类似的学生信息管理系统，而在许多的中小学，尤其是许多的城镇中小学中，也有一部分是在使用类似学生信息管理系统，在我和他们交谈的过程我了解到使用这种学生信息管理系统确确实实提高了他们的工作效率，节省了人力，提高了各项统计的准确度，并且还有以
6、下几个优点：高效，快速，准确，节省劳动力，符合现代化学校管理系统。但是各学校的情况又不完全一样，所以他们的对学生的管理也不同，这样就要求我们在开发软件的时候一定要争对不同情况，根据各学校的实际情况来设计和开发系统。1.2手工管理缺点随着学校教育的飞速发展，人们的受教育权的不断完善，国家对教育的进一步重视，很多学校都在一步步重视教育的教学和管理，但管理又是教育得到认识贯彻的前提。比如：比如在校学生的为断增多，手工对学生信息管理就会加大工作量，工作量加在，工作人员就必须增加，而工作人员多出错的可能性就增加，而且手工管理，由于纸张较多，查询学生信息也费时费力。居于上面存在的人工操作中的诸多弊端，借助
7、先进的信息化技术手段进行管理，已经成为学校学生管理势在必行的大趋势了。故开发一个功能完备的学生信息管理系统是符合学校管理需求的，目的在于提高工作效率，加快学校发展，节省大量人力、物力和财力。1.3计算机管理优点今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加安全，等等。在计算机飞速发展的今天，将计算机这一信息处理应用于学校对学生管理已是势必所然，而且这也将为学校学生信息管理带
8、来前所未有的改变，它可以带来意想不到的效益，同时也会为学校的飞速发展提供无限潜力。采用计算机管理信息系统已成为学校学生信息管理科学化和现代化的重要标志，它给学校学生信息管理来了明显的经济效益和社会效益。主要体现在：极大提高了学校工作人员的工作效率，大大减少了以往手工添加，查询时间长的弊端。基于学校学生信息管理的全面自动化，可以减少手工管理中的漏洞，可以节约不少管理开支，节省大量工作人员。学生管理的操作自动化和信息的电子化，全面提高了学校管理的管理水平。随着我国改革开放的不断深入，教育飞速的发展，学校要想办好、发展，要想在激烈的市场竞争中把学生培养为祖国需要的“四有”新人，没有现代化的管理是万万
9、不行的，学生信息管理的全面自动化、信息化则是其中极其重要的部分。为了加快学生信息管理自动化的步伐，提高学校管理的管理业务处理效率，建立学生信息管理系统已变得十分重要。通过对学生信息管理日常工作的详细调查，搜集了大量的资料，从系统结构的组织，功能的实现，技术的要求以及可行性等多方面进行考虑，认为本课题是一个适应现今学校管理需求的计算机信息管理系统，具有一定的实际开发价值和使用价值。学生信息管理系统在管理系统中是一个比较实用而且通用的系统，设置多个人员使用，精确率高、速度快，它非常实用于中等学校及一般的中小学学生信息管理。它界面简洁并且十分容易操作，而且拥有类似学生管理系统中的绝大部分功能。学校可
10、以通过该系统提高工作效率，减少成本等。1.4 技术可行性计算机技术上的可行性：具有成熟、完善的计算机网络体系；具有先进的故障诊断和自适应功能，自动追加历史记录，保证数据的完整性；考虑学校系统未来联网和功能延伸需要，本系统的硬件及软件结构具有良好的扩展性和兼容性；系统的可靠性：计算机系统具有高可靠性，防止人为和自然损害的能力和处理系统故障的后备功能。系统以实用、可靠为目标，保证正确的学生信息添加和查询。这些都说明在技术上是可行的。随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量，有必要开发学生信息管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信
11、息的规范管理、科学统计和快速查询，从而减少管理方面的工作量。本学生信息管理系统包括学籍信息管理、班级信息管理、课程信息管理、成绩信息管理四大模块。管理员可以拥有完全的权限管理系统，而学生用户只拥有查询学籍信息和查询成绩信息的权限。本系统采用Visual Basic 6.0为开发工具，后台数据库采用Assecc 2000，操作系统为Windows98、Windows2000、WindowsXP。在学校，尤其是在各大高校，对于学生的管理是相当重要，而且也是相当麻烦的，它是学校管理中最基本的一项常规性工作。而长期以来，学校管理都是依赖人工来进行的，面对如此众多的学生信息，其工作量是相当相当巨大的。这
12、样不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可预知性，造成学生信息管理的一些不规范，使得信息管理陷入“事倍功半”的地步。开发本系统就是为了解决学校在管理中的一些不规范，使学生信息的管理向着规范化、简单化、有效化的方向发展。 根据学生信息管理系统的基本流程和高校学生信息管理的实际要求，本系统需要实现以下功能：(1) 学生基本信息的录入，基本信息包括学生的基本情况、所在班级、所学课程和成绩等；(2) 要求在系统中能够对学生信息精心灵活的浏览和查询；(3) 要求在系统中能够对班级信息进行输入、查询和修改等；(4)要求能够对学校基本课程信息录入、修改和设置等；(5) 要求能够对学生成绩
13、信息进行输入、修改和查询等；(6)基于权限的管理，本系统可以提供给管理员或者学生本人使用。对学生类用户，只能查看信息；而对于管理员类用户而言，可以管理所有的学生信息，包括查询、添加、修改等信息。管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。第二章 需求分析学生信息管理系统是将学生的学籍、成绩、课程、班级等有机结合，综合应用的一个
14、学生信息管理软件，它使学校对学生的信息管理由以往的手工作业向自动化、网络化、信息化迈进了一大步。从而使学校的学籍管理人员从繁重的学籍管中解放出来，大到提高了工作效率，减轻了管理人员的工作量。需求分析就是描述系统的需求，分析的根本目的是在开发者和提出需求的人员建立一种理解和沟通的机制。因此，学生信息管理系统的需求分析也应该是开发人员和用户或者客户一起完成的。需求分析的第一步是描述学生信息管理系统的功能，即定义用例，以确定系统的功能需求。学生信息管理系统用不着例分析主要涉及规格说明的阅读和分析，需要和学生信息管理系统的潜在用户进行讨论。一个学校的角色是教师、学生、各级管理者和系统管理员。学生和各级
15、管理者是系统的用户，而系统管理员是系统管理者，虽然系统管理员也是一个学生，但这并不影响系统的功能。学生信息管理系统的用例包括：& 系统信息管理 （包括用户管理、密码管理）& 学籍信息管理（包括查询学籍信息管理、修改学籍信息管理、添加学籍信息管理）& 班级信息管理（添加班级信息管理、修改班级信息管理）& 课程信息管理（包括添加课程信息管理、修改课程信息管理、设置课程信息管理）& 成绩信息管理（包括添加成绩信息管理、修改成绩信息管理、查询成绩信息管理）第三章 系统设计3.1 系统设计 3.1.1系统功能分析 系统开发的总体任务是实现学生信息管理的系统化、规范化和自动化。 系统功能分析是在系统开发的
16、总体任务的基础上完成的。学生信息管理系统需要完成的功能主要有：& 有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。& 学生信息的查询，包括学生基本信息、所在班级、已学课程和成绩等。& 学生信息的修改。& 班级管理信息的输入，包括输入班级设置、年级信息等。& 班级管理信息的查询。& 班级管理信息的修改。& 学校基本课程信息的输入。& 基本课程信息的修改。& 学生课程的设置和修改。& 学生成绩信息的修改。& 学生成绩信息的查询。& 学生成绩信息的统计。3.1.2系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到下图所示的系统功能模块图。学生信息管理
17、系统成绩信息管理课程信息管理班级信息管理学籍信息管理系统管理成绩信息查询成绩信息修改成绩信息添加年级课程设置课程信息修改课程信息添加班级信息修改班级信息添加学籍信息查询学籍信息修改学籍信息添加密码管理用户管理图1系统功能模块图3.2 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。 3.2.1 数据库需求分析要具体体现在各种信息
18、的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详细的数据字典，为后面的具体设计打下基础。 3.2.2 数据库逻辑结构设计现在需要将上面的数据库概念结构转化为Access 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表以及各个表之间的关系。学生信息管理系统数据库中各个表格的设计结果如下所示：学生基本信息表（student_Info）:列名数据类型说明Student_IDINT(4)学生学号（主键）Student_NameCHAR(10)学生姓名S
19、tudent_sexCHAR(2)学生性别Born_DateDATETIME(8)出生日期Class_noINT(4)班号Tele_NumberCHAR(10)联系电话Ru_DateCHAR(8)入校时间AddressVARCHAR(50)家庭住址CommentVARCHAR(200)注释 表1 学生基本信息表 班级信息表格：列名数据类型说明Class_NoINT(4)班号（主键）gradeCHAR(10)年级directorCHAR(10)班主任Classroom_NOCHAR(10)注释 表2班级基本信息表 课程基本信息表：列名数据类型说明Course_NoINT(4)课程编号（主键）Co
20、urse_NameCHAR(10)课程名称Course_TypeCHAR(10)课程类型Course_DesCHAR(10)课程描述 表3课程基本信息表 年级课程设置表：列名数据类型说明gradeCHAR(10)年级Course_NameCHAR(10)课程名称 表4年级设置表 学生成绩信息表：列名数据类型说明Exam_NoCHAR(10)考试编号Student_IDINT(4)学生学号Student_NameCHAR(10)学生姓名Class_NOINT(4)学生班号Course_NameCHAR(10)课程名称resultFLOAT(8)分数 表5 学生成绩信息表 系统用户表：列名数据类型
21、说明User_IDCHAR(10)用户名称（主键）User_PWDCHAR(10)用户密码User_DESCHAR(10)用户描述 表6系统用户3.3数据流图 (DFD) 3.3.1数据流程图学生注册基本信息输入班级设置学籍信息管理成绩信息输入班级管理班级课程设置课程基本信息班级课程管理图2 系统数据流程图数据项和数据结构：& 学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出生日期、班号、联系电话、入校日期、家庭住址、备注等。& 班级信息：包括的数据项有：班号、所在班级、班主任姓名、所在教室等。& 课程基本信息：包括的数据项有：课程号、课程名称、课程类别、课程描述等。& 课程设置信息
22、：包括的数据项有：年级信息、所学课程等。& 学生基本信息：包括的数据项有：考试编号、所在班级、学生学号、学生姓名、所学课程、考试分数等。 3.3.2 数据库E-R图 在得到数据项和数据结构以后，就可以设计出满足所需求的各种实体，以及他们之间的关系，为逻辑设计打下基础。实体有：学生实体、班级实体、年级实体、课程实体。学生实体E-R图：学生学生基本信息学生班级信息学生课程信息学生成绩信息 图3 学生实体E-R图班级实体E-R图：班级班号所在年级班主任所在教室 图4 班级实体E-R图课程实体E-R图：课程课程编号课程名称课程类别课程描述 图5 课程实体E-R图年级实体E-R图：年级年级名称包括班级设
23、置课程 图6 年级实体E-R图实体和实体之间的关系E-R图：学生学生学生班级设置年级设置考核过程课程设置学生 图7 实体之间的关系E-R图 第四章 系统设计4.1系统模块程序设计 4.1.1 创建工程项目(Student_MIS)为了用Visual Basic创建应用程序，应当使用工程。一个工程是用来建造应用程序的文件的集合，它包括：& 跟踪所有部件的工程文件（.vbp）& 每个窗体的文件（.frm）& 每个窗体的二进制数据文件（.frx）,它含有窗体上控件的属性数据。对含有二进制属性的任何.frm文件都是不可编辑的，这些文件都是自动产生的。& 每个类模块的一个文件(.cls)，该文件是可选项
24、。& 每个标准模块的一个文件（.bas）,该文件是可选项。& 一个或多个包含ActiveX控件的文件(.ocx), 该文件是可选项。& 单个资源文件(.res), 该文件是可选项。启动Visual Basic后，单击File/New Project菜单，在工程模板中选择Standard EXE, Visual Basic将自动产生一个Form窗体，属性都为缺省设置。删除窗体，单击File/Save Project菜单，将工程项目命名为Student_MIS。4.1.2创建学生信息管理系统的主窗体图8 学生信息管理系统主窗体Visual Basic创建的应用程序可以是SDI（单文档界面）和MDI
25、（多文档界面）。在SDI的程序中，每个窗体之间是独立的。而MDI的程序中，有一个窗体是主窗体，可以包含其他窗体，它的类型是MDI Form。本系统采用多文档界面，这样可以使程序更加美观、整齐有序。 4.1.3 创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的“Menu Editor”命令，创建菜单结构如下表：系统管理& 添加用户& 修改密码& 退出系统学籍管理& 添加学籍信息& 修改学籍信息& 查询学籍信息班级管理& 添加班级信息& 修改班级信息课程设置& 添加课程信息& 修改课程信息& 设置年级课程成绩管理& 添加成绩信息& 修改成绩信息& 查询成绩信息帮助& 使用说明 图9 学
26、生信息管理系统菜单结构图4.1.4 创建公用模块 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数、全局变量等。整个工程项目中的任何地方都可以调用公用模块中的函数、变量，这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module1.bas。下面就可以开始添加需要的代码了。 由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL。ExecuteSQL函数有两个参数：SQL和MsgString。其中SQL用来存放需要执行的SQL语句，MsgString用来返
27、回执行的提示信息。函数执行时，首先判断SQL语句中包含的内容：当执行查询操作时，ExecuteSQL函数将返回一个与函数同名的记录集对象（Recordset），所有满足条件的记录包含在对象中；当执行如删除、更新、添加等操作时，不返回记录集对象。 在ExecuteSQL函数中使用了Connect String函数，这个函数用来连接数据库。 由于在后面的程序中，需要频繁检查各种文本框的内容是否为空，这里定义了Txsttxt函数。 如果文本框内容为空时，函数将返回True,否则将返回False。 由于学生信息管理系统启动后，需要对用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行，
28、这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。 系统需要知道登录用户的信息，定义全局变量UserName: Public UserName As String 4.2 学籍管理模块的创建学籍信息管理模块主要实现以下功能： 添加学籍信息 修改学籍信息 查询学籍信息 4.2.1 添加学籍信息窗体的创建选择“学籍管理|添加学籍信息”菜单，将出现“添加学籍信息”窗体。 图10 添加学籍信息窗体 在窗体上放置了多个文本框和下拉式文本框，用来输入学籍信息；两个按钮用来确定是否添加学籍信息；多个标签用来提示文本框需要输入的内容。在载入窗体时，程序将自动在两个下拉式文本框中添加内容，这样可以规范
29、化输入内容。在班号选择的下拉式文本框中，将出现所有班级，用户不用输入内容。用户输入内容完毕后，单击cmdOK按钮将触发Click事件。程序首先对是否输入内容进行判断，然后进行格式判断，使用了下面两个函数：& 判断数据是否日期格式& IsDate(txtBorndate.text)& 判断数据是否日期格式& IsDate(txtRudate.text)& 判断是否有重复记录是很重要的，否则数据库中将发生错误。& 单击按钮cmdCanel取消添加学籍信息。添加学籍信息源代码：Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim tx
30、tSQL As String Dim MsgText As String If Not Testtxt(txtSID.Text) Then MsgBox 请输入学号！, vbOKOnly + vbExclamation, 警告 txtSID.SetFocus Exit Sub End If If Not Testtxt(txtName.Text) Then MsgBox 请输入姓名！, vbOKOnly + vbExclamation, 警告 txtName.SetFocus Exit Sub End If If Not Testtxt(comboSex.Text) Then MsgBox 请
31、选择性别！, vbOKOnly + vbExclamation, 警告 comboSex.SetFocus Exit Sub End If If Not Testtxt(txtBorndate.Text) Then MsgBox 请输入出生日期！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Exit Sub End If If Not Testtxt(comboClassNo.Text) Then MsgBox 请选择班号！, vbOKOnly + vbExclamation, 警告 comboClassNo.SetFocus Exit
32、 Sub End If If Not Testtxt(txtTel.Text) Then MsgBox 请输入联系电话！, vbOKOnly + vbExclamation, 警告 txtTel.SetFocus Exit Sub End If If Not Testtxt(txtRudate.Text) Then MsgBox 请输入入校日期！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Exit Sub End If If Not Testtxt(txtAddress.Text) Then MsgBox 请输入家庭住址！, vbOKOn
33、ly + vbExclamation, 警告 txtAddress.SetFocus Exit Sub End If If Not IsNumeric(Trim(txtSID.Text) Then MsgBox 请输入数字！, vbOKOnly + vbExclamation, 警告 Exit Sub txtSID.SetFocus End If txtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.Rec
34、ordCount 0 Then MsgBox 学号重复，请重新输入！, vbOKOnly + vbExclamation, 警告 mrc.Close txtSID.SetFocus Else mrc.Close If Not IsDate(txtBorndate.Text) Then MsgBox 出生时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtBorndate.SetFocus Else txtBorndate = Format(txtBorndate, yyyy-mm-dd) If Not IsDate(txtRudate
35、.Text) Then MsgBox 入校时间应输入日期格式（yyyy-mm-dd）！, vbOKOnly + vbExclamation, 警告 txtRudate.SetFocus Else txtRudate = Format(txtRudate, yyyy-mm-dd) txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtSID.Text) mrc.Fields(1) = Trim(txtName.Text) mrc.Fi
36、elds(2) = Trim(comboSex.Text) mrc.Fields(3) = Trim(txtBorndate.Text) mrc.Fields(4) = Trim(comboClassNo.Text) mrc.Fields(5) = Trim(txtTel.Text) mrc.Fields(6) = Trim(txtRudate.Text) mrc.Fields(7) = Trim(txtAddress.Text) mrc.Fields(8) = Trim(txtComment.Text) mrc.Update MsgBox 添加学籍信息成功！, vbOKOnly + vbEx
37、clamation, 警告 mrc.Close Me.Hide End If End If End IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim mrc As ADODB.Recordset Dim txtSQL As String Dim MsgText As String Dim i As Integer comboSex.AddItem 男 comboSex.AddItem 女 txtSQL = select * from class_Info Set mrc = Exe
38、cuteSQL(txtSQL, MsgText) For i = 1 To mrc.RecordCount comboClassNo.AddItem mrc.Fields(0) mrc.MoveNext Next i mrc.CloseEnd Sub4.2.2 修改学籍信息窗体的创建 选择“学籍管理|修改学籍信息”菜单，将出现“修改学籍信息”窗体。 图11 修改学籍信息窗体这个窗体在“添加学籍信息”窗体的基础上添加了两排按钮.第一排按钮用来方便的浏览数据库中各条记录，第二排按牛用来修改记录。由于记录集为整个窗体公用，需要将记录集对象定义为全局变量。程序在窗体载入时自动加入各条记录。由于程序中各
39、处需要显示数据，定义函数viewDate。单击“第一条记录”按钮，将显示第一条记录。单击“最后一条记录”按钮，将显示最后一条记录。单击“上一条记录”按钮，将显示上一条记录。单击“下一条记录”按钮，将显示下一条记录。单击“修改记录”按钮，将进入修改状态，各个文本框将都有效。此时，移动记录按钮将失效，可以避免误操作。修改完毕后，单击“更新记录”按钮，将触发Click事件。单击“取消修改记录”按钮时，将取消所作的修改。 单击“删除记录”按钮时，将删除当前记录。4.2.3查询学籍信息窗体的创建选择“学籍管理|查询学籍信息”菜单，将出现“查询学籍信息”菜单。图12 查询学籍信息窗体在这里可以按照各种方式
40、以及他们的组合进行查询。在窗体中添加了一个表格控件（MSHFlexgrid）,用来显示查询后得到的结果。首先选择查询方式，然后输入查询内容。单击“查询”按钮，触发Click事件进行查询。程序首先判断查询方式，如果没有设置查询方式将提示；然后对查询内容进行组合，组成SQL语句，进行查询。查询到数据集以后，需要正常显示在表格控件中。运用循环将每一条记录的每一个字段显示出来。单击“退出查询”按钮，将退出查询。查询学籍信息源代码：Private Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As ADODB.Recordset txtSQL = select * from student_Info where If Check1(0).Value Then If Trim(txtSID.Text) = Then