《基于VB的多媒体毕业纪念册的设计与实现.doc》由会员分享，可在线阅读，更多相关《基于VB的多媒体毕业纪念册的设计与实现.doc（29页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、目 录前言11开发工具简介11.1 Visual Basic6.0简介11.2 Access数据库简介12总体分析与设计22.1概要设计22.2功能分析32.2详细设计32.2.1详细设计任务32.2.2详细设计的方法43数据库设计43.1数据库的概念和基本操作43.2数据库需求分析53.3数据库概要设计63.4数据库逻辑设计64功能模块设计与实现74.1系统登录模块的设计与实现74.2主界面的设计与实现114.3班级资料管理模块的设计实现134.3.1班级信息管理模块134.3.2班级留言管理模块164.4教师资料管理模块的设计实现174.4.1教师资料维护模块174.4.2教师资料查询模块
2、194.5同学资料管理模块的实现214.5.1同学资料维护模块214.5.2同学资料查询模块224.6用户信息管理模块的设计与实现244.6.1用户信息维护模块244.6.2用户密码管理模块255结束语27参考文献27基于VB的多媒体毕业纪念册的设计与实现摘要：随着计算机和网络技术的迅速发展，毕业纪念册已告别了由照片、纸质文档构成的时代，多媒体毕业纪念册越来越受到人们的欢迎。本文所介绍的多媒体毕业纪念册是采用Visual Basic 和Access为工具开发的一个集图像、文字、音乐等于一体的毕业纪念册，具有班级资料管理、教师资料管理、同学资料管理和用户信息管理等功能。本文在简单介绍开发工具的基
3、础上，从总体分析与设计、数据库设计和功能模块实现等方面阐述了多媒体毕业纪念册的开发过程。关键词：多媒体；纪念册；Visual Basic；AccessThe Design and Implement of Multimedia Graduation Album Based on VBAbstract： With the rapid development of computer and network technology, graduation album has said good-bye to ages of being made of photos and paper document
4、. Multimedia graduation album is more and more welcomed by people. The multimedia graduation album introduced in this paper, which is developed by using Visual Basic and Access, intergates image, character and music into a whole, and provided with such functions as class data managment, teacher data
5、 managment, classmate data managment, userinforo management and so on. On the basis of simply introducing development tools, the process of developing this multimedia graduation albumgame from collectivity analysis and design, database design to to function modules implement etc is concretely descri
6、bed in this paper.Keywords：Multimedia; Album; Visual Basic; Access前言随着计算机和网络技术的普及和发展，毕业纪念册已逐渐告别了由照片、纸质文档构成的时代，多媒体毕业纪念册变得越来越流行。同学们在即将毕业分别的时候，不再需要同以前一样每个同学都要送上几张照片作为纪念，然后再在每个同学的毕业纪念本上写上几句祝福的话！不再需要为冲洗上数十、数百张照片而支出一大笔开销。使用多媒体毕业纪念册，能够集图像、文字、音乐等于一体，不但可以动态地记载母校风情、恩师嘱托、同学资料与留言、师生合影及校园生活等丰富的内容，同时能将照片做成电子相册，集漂
7、亮、动感、实惠、永久于一身。多媒体毕业纪念册可以长时间的留守同学们的青春校园，让流走的岁月永远的鲜活，生动；让曾经美好的校园生活随时重现。根据本人所在班级对多媒体毕业纪念册的实际需要，为了提高本人的软件开发能力，本人选择了多媒体毕业纪念册的设计与实现作为毕业设计题目。使用Visual Basic 和Access开发一个多媒体毕业纪念册。该纪念册具有班级资料管理、教师资料管理、同学资料管理和用户信息管理等功能。1开发工具简介本次毕业设计所开发多媒体毕业纪念册主要利用中文版Visual Basic6.0编程语言和Access数据库技术来实现。1.1 Visual Basic6.0简介Vis ual
8、 Basic（VB）是目前最为广泛的、易学易用的面向对象的开发工具。它是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，源自于BASIC编程语言。不论从任何标准来说，VB都是世界上使用人数最多的语言。它拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，用户可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。通过轻松地使用VB提供的组件就可以快速建立一个应用程序25。由于Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，采用
9、VB来实现本多媒体毕业纪念册的代码编程是一个相对较好的选择。1.2 Access数据库简介Access是一个面向对象的、采用事件驱动机制的小型关系数据库管理系统。在Access中，用户可以根据实际需要对数据进行分类，然后使用表对象分别存储每一种类型的数据，并建立起不同类型数据之间的关系，供报表使用。此时，每条信息仅在一处存放，减少了冗余数据的产生，节省了宝贵的存储空间，同时也加快了更新数据的速度。自从1992年Microsoft 公司发布Access1.0以来，随着Windows的普及，使用Access的人越来越多，它逐渐成为流行的数据库软件之一。Access2000是微软公司开发的基于Win
10、dows平台的小型数据库管理系统，是Office 2000件之一。它承袭了旧版本Access的各项优点，又新增和完善了数据访问页、个性化菜单、internet/intranet、编程、安全保密等功能12。Access2000简单易用的特点，逐渐成为办公领域流行的数据库软件。使用Access2000，用户不需要进行专业程序设计能力培养，就可在较短的时间内通过简单直观的可视化操作（操作向导）完成大部分的数据管理任务，设计出功能强大的数据库管理程序。即使要开发复杂或专业的数据库管理程序，也只需编写少量的程序代码。ACCESS具有以下主要特点：（1）在Access数据库中，任何有名字的事物都可以称之为
11、对象。Access使用了与Windows 一致的风格，采取面向对象的方式，完成数据库的各种功能。极大地简化了用户的开发工作。（2）针对用户在实际应用中的需求，Access数据库提供了表、查询、窗体、报表、页、宏和模块等七个对象，用于收集、存储和操作各种不同的信息。 （3）Access的每个对象都为用户提供了设计器和生成向导。用户可以在设计器中设计生成对象，或对生成的对象进行编辑；用户也可通过生成向导方便快速的生成一个完备的对象。2总体分析与设计2.1概要设计（1）概要设计的任务4系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，
12、系统的进度计划，供指导教师审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。 编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。（2）概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。（3）概要设计的过程 概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后
13、进行结构设计，确定软件结构。2.2功能分析根据分析，本次毕业设计开发的多媒体毕业纪念册需具备如下功能：（1）班级留言管理。（2）任课教师资料管理。（3）同学资料管理。（4）用户信息管理。 根据以上分析，得系统功能模块图如下：登录主界面班级留言管理任课教师管理同学管理退出辅助功能 图3-1功能模块图在系统的开发过程中，本人尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。2.2详细设计2.2.1详细设计任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：（1）为每个模块确定采
14、用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；（2）确定每一模块使用的数据结构；（3）确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节；（4）要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。2.2.2详细设计的方法详细设计的方法有：程序流程图、N-S图、PAD图、IPO图。本多媒体毕业纪念册在开发过程中所采用的详细设计方法为IPO图方法，涉及到的重要模块的IPO图如下所示：（1）
15、息管理模块IPO图IOP班级信息留言信息教师信息学生信息提供相应的界面供操作人员录入保存到表图3-2信息管理模块（2） 查询模块IPO图IOP设置相关的查询信息提供相应的界面供操作人员录入显示查询结果图3-3查询模块（3） 用户信息维护模块IPO图IOP增加修改删除提供相应的界面供操作人员操作保存到表图3-4用户信息维护模块3数据库设计3.1数据库的概念和基本操作（1）数据库概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中
16、包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等1。 （2）新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 标识需要的数据； 收集被标识的字段到表中； 标识主关键字字段； 绘制一个简单的数据图表； 规范数据； 标识指定字段的信息； 创建物理表。（3）修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。（4）实现数据库之间的联系数据库之间的关系指两个库之间共享一个共同的关键字值。一个连接是指一
17、种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。3.2数据库需求分析需求分析的任务不是确定系统怎么样完成它的工作,而仅仅是去确定系统必须完成哪些工作,也就是对目标系统提出完整、准确、清晰、具体的要求。需求分析的结果是系统开发的基础，关系到整个系统的成败和质量。该系统分
18、为游客和管理员两部分。该系统需要实现下列功能1。(1) 班级表：班级所有相关信息（班级名、班级专业、入学年份、毕业时间、班级人数、毕业照片）(2) 教师表：教师所包含的相关信息（教师姓名、性别、系别、班级、照片、留言）(3) 学生表：学生的相关信息（学生姓名、性别、班级、生日、爱好、特长、自我介绍、照片、个人主页、留言） (4) 留言表：存储例言（班级、留言、姓名）3.3数据库概要设计毕业纪念册数据库功能主要体现在对班级表、教师表、学生表、留言表信息的存储，通常建立一个概念性的数据模型（也称信息模型）。数据库中包含三种相关联的信息：数据对象、数据对象的属性以及数据对象彼此间相互连接的关系。根据
19、系统所需要的数据项和数据结构，就可以设计出满足可户需要的各种实体，以及之间的关系，本多媒体毕业纪念册的E-R图设计如下所示：系别性别教师名毕业时专业班级教师P-P班级班级名人数留言班级1 M管理包含N N学生班级名自我介绍爱好特长性别生日图4-1 E-R图3.4数据库逻辑设计系统数据库中各个表的设计结果如图所示，每个表格表示在数据库中的一个表，系统的基本数据如以下各表所示：表4-2 班级表字段名称数据类型说明班级名文本必填字段（否）允许空字符串（否）班级专业文本必填字段（否）允许空字符串（否）入学年份日期/时间必填字段（否）毕业时间日期/时间必填字段（否）班级人数数字必填字段（否）毕业照片OL
20、E对象必填字段（否）表4-3 教师表字段名称数据类型说明教师姓名文本必填字段（否）允许空字符串（否）性别文本必填字段（否）允许空字符串（否）系别文本必填字段（否）允许空字符串（否）班级名文本必填字段（否）允许空字符串（否）照片OLE对象必填字段（否）留言备注必填字段（否）允许空字符串（否）表4-4 学生表字段名称数据类型说明学生姓名文本必填字段（否）允许空字符串（否）性别文本必填字段（否）允许空字符串（否）班级表文本必填字段（否）允许空字符串（否）生日日期/时间必填字段（否）爱好文本必填字段（否）允许空字符串（否）特长文本必填字段（否）允许空字符串（否）自我介绍备注必填字段（否）允许空字符串（
21、否）照片OLE对象必填字段（否）个人主页超级链接必填字段（否）允许空字符串（否）留言备注必填字段（否）允许空字符串（否）表4-5 留言表字段名称数据类型说明班级文本必填字段（否）允许空字符串（否）留言备注必填字段（否）允许空字符串（否）姓名文本必填字段（否）允许空字符串（否）表4-6 用户表字段名称数据类型说明ID自动编号user文本必填字段（否）允许空字符串（否）pwd文本必填字段（否）允许空字符串（否）4功能模块设计与实现4.1系统登录模块的设计与实现 系统登录模块完成登陆方式选择功能，成功登录的用户将进入系统的主界面。YN开始选择登录模式/登录是否正确主界面（1）流程图 图5-1登录界面
22、流程图（2）界面运行效果图5-2选择登录模式 图5-3 管理员登录 图5-4 学生登录（3）设计与实现过程用户选择登录方式，根据不同的登录方式打开不同的菜单，以管理员登录为例，介绍实现过程如下：Step1：将所需的控件放到窗体的相应位置.在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。按钮的位置信息按钮类型按钮上的图片按钮标题Step2：选择窗体或控件进行属性设置.如图为“确定”按钮的属性设置界面：图5-5属性设置界面Step3：双击相应的控件，在控件的相应过程中编写代码.例如本窗体上“确定”与“退出”按钮的代码设计如下：
23、Private Sub Command1_Click() SQL = select * from 用户表 where user = & Trim(Text1.Text) & Data1.RecordSource = SQLData1.RefreshIf Data1.Recordset.EOF Then MsgBox 没有此用户！, , 提示 Data1.RecordSource = 用户表 Data1.RefreshElse If Trim(Text2.Text) = Trim(Text3.Text) Then Form4.Show Form1.HideElseMsgBox 密码错误！, ,
24、提示 End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & db.mdbEnd Sub上述代码中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行Form1.hide（隐藏当前的窗体）和Form4.show（调出系统主界面），如果用户名或密码输入错误，则提示错误信息，并要求用户重新输入用户名或密码。Step4：几个特殊控件的设计实现。此窗体上另外还有Data1、Text3二个控件在
25、程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。设计时首先将Data、Text控件拖放到窗体上，再次设置它们的属性如下：Data1控件的属性设置Data1.DatabaseName = App.Path & db.mdb此属性的作用是保证Data控件与数据库相连。运行时是否隐藏数据库的名称图5-6 Datal属性设置Visible属性是使此控件运行时在窗体上不显示。Text3控件的属性设置此数据控件绑定到何字段此数据控件绑定到何数据库图5-7Text3属性设置Visible属性的设置同Data1
26、控件。4.2主界面的设计与实现 主界面是系统的启动对象，可以在系统菜单中选择设置启动对象。主界面是用菜单形式表现的，运行效果如下图所示：图5-8 主界面图中菜单的制作过程如下：Step1：通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置.此过程中要注意各菜单的名称唯一，另外还要注意菜单的级别。系统主菜单运行效果如下：调节菜单的级别设置快捷键图5-9菜单编辑Step2：单击菜单设置各菜单代码。部分关键代码如下图：Private Sub bjly_Click()Form8.ShowEnd SubPrivate Sub exit_Click()实现图片上文字的位置自动调整EndE
27、nd SubPrivate Sub Form_Resize()Label1.Left = (Form4.Width - Label1.Width) / 2Label1.Top = Form4.Height / 2End SubPrivate Sub jsxxcx_Click()Form10.ShowEnd SubPrivate Sub jsxxwf_Click()Form2.ShowEnd SubPrivate Sub rkxxwf_Click()Form7.ShowEnd Sub4.3班级资料管理模块的设计实现4.3.1班级信息管理模块班级信息管理的功能是用户存放班级信息及增加删除功能。NY
28、开始增加删除等操作是否继续退出（1）流程图图5-10班级信息管理流程图（2）界面运行效果图5-11 班级信息维护（3）设计与实现过程运行时用户可以选择系统菜单。以所选的班级信息菜单为例，其设计与实现过程描述如下：Step1：构造界面，将所需的控件放到窗体的相应位置。在“工具箱”中选中所需要的控件图标然后在表单的恰当位置上单击鼠标并拖动鼠标，既可把由所选取的控件生成的对象添加到窗体上。Step2：选择窗体或控件进行属性设置。Step3：双击相应的控件，在控件的相应过程中编写代码。主要代码如下：Private Sub Command1_Click()Command1.Enabled = False
29、Command2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueData1.Recordset.AddNewDTPicker1.Value = DateDTPicker2.Value = DateFor i = 0 To 2 Text1(i).Enabled = TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd SubPrivate Sub Command2_Click()If MsgBox(确认删除当前记录吗？, vbY
30、esNo, 确认窗口) = vbYes Then Command4.Enabled = False Command5.Enabled = False Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfEnd SubPrivate Sub Command3_Click()Command5.Enabled = TrueData1.Recordset.EditFor i = 0 To 2 Text1(i).Enabled =
31、TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd SubPrivate Sub Command4_Click()If (Len(Trim(Text1(0) = 0) And (Len(Trim(Text1(1) = 0) Then MsgBox 班级信息有误！请检查！, , 系统提示 Text1(0).SetFocusElse Data1.Recordset.Update Data1.Recordset.MoveLast For i = 0 To 2 Text1(i).Enabled = False Next Image1.Enabled =
32、False Command1.Enabled = True MsgBox 班级信息添加成功！, , 系统提示End IfEnd SubPrivate Sub Command5_Click()Data1.Recordset.CancelUpdateCommand1.Enabled = TrueFor i = 0 To 2 Text1(i).Enabled = FalseNextImage1.Enabled = FalseEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()Data1.DatabaseN
33、ame = App.Path & db.mdbEnd SubPrivate Sub Image1_Click() Image1.Picture = Clipboard.GetDataEnd Sub4.3.2班级留言管理模块 班级留言管理主要完成存放和删除班级留言信息的功能。NY开始留言/查询留言是否继续退出（1）流程图图5-12 班级留言流程图（2）界面运行效果 图5-13 留言管理（3）设计与实现过程Step1：构造界面，将所需的控件放到窗体的相应位置。在“工具箱”中选中所需要的控件图标然后在表单的恰当位置上单击鼠标并拖动鼠标，既可把由所选取的控件生成的对象添加到窗体上。Step2：选择窗体
34、或控件进行属性设置。Step3：编写代码。查看留言的主要代码如下：Private Sub DataCombo1_Change(Index As Integer)If Index = 0 Then SQL = select * from 留言表 where 班级 = & Trim(DataCombo1(0).Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 没有此班级的学生留言！, , 提示 Data1.RecordSource = select * from 留言表 Data1.R
35、efresh End IfEnd IfEnd Sub上述代码的实现主要通过用户选择不同的班级然后通过SQL结构化查询语句实现信息的查询。添加留言页框的主要代码如下：Private Sub Command1_Click()If Command1.Caption = 留言 Then Command1.Caption = 保存 Text1.Visible = True Data1.Recordset.AddNew Text2.Text = DataCombo1(1).Text Text3.Text = yf Text1.SetFocusElse Command1.Caption = 留言 Data1
36、.Recordset.Update Text1.Visible = False End IfEnd Sub4.4教师资料管理模块的设计实现4.4.1教师资料维护模块教师资料维护模块的功能是为了维护用户存放教师资料，主要具有资料的增加和删除功能。（1）流程图NY开始增加删除等操作是否继续退出图5-14教师资料维护流程图（2）界面运行效果图5-15教师资料维护窗口（3）设计与实现过程Step1：构造界面。Step2：设置控件的属性。Step3：编写代码。主要代码如下：Private Sub Command4_Click()If Len(Trim(Text1(0) = 0 ThenMsgBox 教师
37、资料有误！请检查！, , 系统提示 Text1(0).SetFocusElse Data1.Recordset.Update Data1.Recordset.MoveLast For i = 0 To 4 Text1(i).Enabled = False Next Combo1.Visible = False Image1.Enabled = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False
38、 MsgBox 教师资料添加成功！, , 系统提示End IfEnd Sub4.4.2教师资料查询模块教师资料查询的功能是方便查询与教师相关的信息。（1）流程图NY开始设置查询条件查询是否继续退出 图5-16 教师资料流程图（2）界面运行效果图5-17教师资料查询（3）设计与实现过程Step1：构造界面。Step2：设置控件的属性。Step3：编写代码。主要代码如下：Private Sub Command1_Click()If Option1.Value ThenSQL = select * from 教师表 where 教师姓名= & Trim(Text1.Text) & Data1.Rec
39、ordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 没有此教师姓名的教师资料！, , 提示 Data1.RecordSource = select * from 教师表 Data1.Refresh End IfEnd IfEnd Sub上述代码主要通过option控件判断用户选择了何查询方法，再采用SQL结构化查询语句实现查询。4.5同学资料管理模块的实现4.5.1同学资料维护模块同学资料模块用于存储同学资料，具有增加、删除功能。NY开始增加删除等操作是否继续退出（1）流程图图5-18 同学资料维护流程图（2）界面运
40、行效果图5-19同学资料维护窗口（3）设计与实现过程Step1：构造界面。Step2：设置控件的属性。Step3：编写代码。主要代码如下：Private Sub Command2_Click()If MsgBox(确认删除当前记录吗？, vbYesNo, 确认窗口) = vbYes Then Command4.Enabled = False Command5.Enabled = False Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast En
41、d IfEnd IfEnd SubPrivate Sub Command3_Click()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled = TrueData1.Recordset.EditFor i = 0 To 6 Text1(i).Enabled = TrueNextImage1.Enabled = TrueText1(0).SetFocusEnd Sub4.5.2同学资料查询模块 同学资料查询模块的功能是方便用户
42、查询学生的更多相关信息。NY开始设置查询条件查询是否继续退出（1）流程图图5-20 同学资料查询流程图（2）界面运行效果图5-21同学资料查询（3）设计与实现过程Step1：构造界面。Step2：设置控件的属性。Step3：编写代码。主要代码如下：Private Sub Command1_Click()If Option1.Value Then SQL = select * from 学生表 where 学生姓名= & Trim(Text1.Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then Ms
43、gBox 没有学生的信息！, , 提示 Data1.RecordSource = select * from 学生表 Data1.Refresh End IfEnd IfIf Option2.Value Then SQL = select * from 学生表 where 班级名 = & Trim(Text1.Text) & Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox 没有此班级的同学资料！, , 提示 Data1.RecordSource = select * from 学生表 Data1.Refresh End IfEnd IfEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path + db.mdbEnd S