第章窗体设计ppt课件

1、第第6 6章章 窗体设计窗体设计p 6.1 6.1 窗体对象概述窗体对象概述p 6.2 6.2 用导游生成窗体用导游生成窗体 p 6.3 6.3 在设计视图中完善、创建窗体在设计视图中完善、创建窗体 p 6.4 6.4 对象的属性、方法和事件概念对象的属性、方法和事件概念 p 6.5 6.5 窗体与常用控件的编程窗体与常用控件的编程 p 6.6 6.6 多窗体运用多窗体运用 6.1 6.1 窗体对象概述窗体对象概述 pAccessAccess窗体的本质是运转于窗体的本质是运转于WindowsWindows环境下的环境下的面向对象、事件驱动的运用程序。面向对象、事件驱动的运用程序。p运用程序以窗

2、口作为与用户交互的界面。在程序运用程序以窗口作为与用户交互的界面。在程序尚未执行的设计阶段，窗口尚未执行的设计阶段，窗口(window)(window)被称为窗被称为窗体体(form)(form)。p窗体窗体( (窗口窗口) )的根本功能是输入数据、编辑数据、的根本功能是输入数据、编辑数据、经过命令按钮控件改动运用程序的流向、输出相经过命令按钮控件改动运用程序的流向、输出相关表或查询对象的数据等。关表或查询对象的数据等。6.1 6.1 窗体对象概述窗体对象概述n窗体的组成窗体的组成n窗体页眉窗体页眉n页面页眉页面页眉n主体主体n页面页脚页面页脚n窗体页脚窗体页脚6.1 窗体对象概述 1. 1.

3、 窗体的组成窗体的组成 窗体页眉：出如今运转中的窗体顶部，或打印第一窗体页眉：出如今运转中的窗体顶部，或打印第一页的顶部，用于显示窗体标题等信息，其内容不页的顶部，用于显示窗体标题等信息，其内容不因记录内容的变化而改动。因记录内容的变化而改动。页面页眉：打印多页时出如今每个打印页的上方显页面页眉：打印多页时出如今每个打印页的上方显示标题等内容。页面页眉只出如今窗体打印页中，示标题等内容。页面页眉只出如今窗体打印页中，运转窗体时，屏幕上不显示页面页眉内容。运转窗体时，屏幕上不显示页面页眉内容。6.1 6.1 窗体对象概述窗体对象概述 1. 1. 窗体的组成窗体的组成 主体：最常用、最主要的部分，

4、用于显示一条或假主体：最常用、最主要的部分，用于显示一条或假设干条记录的内容。开发数据库运用程序主要针设干条记录的内容。开发数据库运用程序主要针对主体节设计用户界面。对主体节设计用户界面。页面页脚：只出如今窗体打印页的下方。普通用于页面页脚：只出如今窗体打印页的下方。普通用于输出打印页的页码、总页数、打印日期等。同样，输出打印页的页码、总页数、打印日期等。同样，运转窗体时，屏幕上不显示页面页脚内容。运转窗体时，屏幕上不显示页面页脚内容。6.1 6.1 窗体对象概述窗体对象概述 1. 1. 窗体的组成窗体的组成 窗体页脚：出如今运转中的窗体或窗体打印页的最窗体页脚：出如今运转中的窗体或窗体打印页

5、的最底部。用于输出一些提示性信息、命令按钮、记底部。用于输出一些提示性信息、命令按钮、记录导航等。录导航等。6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 1 1单窗体：一个窗体中显示一个记录单窗体：一个窗体中显示一个记录 导师导师6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 2 2多页窗体：当一个记录中字段较多，或者涉及的多页窗体：当一个记录中字段较多，或者涉及的表较多时，运用选项卡显示多项数据。表较多时，运用选项卡显示多项数据。6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 3 3延续窗体：一个窗口中显示

6、假设干个记录延续窗体：一个窗口中显示假设干个记录6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 4 4子窗体：窗体中镶嵌的另一个窗体子窗体：窗体中镶嵌的另一个窗体 6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 5 5弹出式窗体：可了解成对话框弹出式窗体：可了解成对话框, ,其作用是输入数据、参其作用是输入数据、参数或者显示特定信息，既可以由数或者显示特定信息，既可以由InputBox()InputBox()函数和函数和MsgBox()MsgBox()函数生成，也可以由用户预先生成一个窗体，函数生成，也可以由用户预先生成一个窗体，在需求时

7、翻开。在需求时翻开。 分类：独占式分类：独占式 非独占式非独占式 6.1 6.1 窗体对象概述窗体对象概述 2. 2. 窗体的分类窗体的分类 6 6切换面板窗体：数据库运用程序的起始切换面板窗体：数据库运用程序的起始“封面，可封面，可以引导用户运用各个窗体、报表、表等。以引导用户运用各个窗体、报表、表等。6.2 6.2 用导游生成窗体用导游生成窗体 o需告知窗体上数据的来源需告知窗体上数据的来源( (数据源数据源) )。o数据源方式：表、基于表的查询数据源方式：表、基于表的查询o字段通常以文本框控件的方式出如今窗体上字段通常以文本框控件的方式出如今窗体上o6.2.1 6.2.1 基于单数据源的

8、窗体基于单数据源的窗体 o6.2.2 6.2.2 基于多数据源的窗体基于多数据源的窗体 6.2.1 6.2.1 基于单数据源的窗体基于单数据源的窗体 例例6-1 6-1 用导游生成基于用导游生成基于“导师表的窗体导师表的窗体 6.2.1 6.2.1 基于单数据源的窗体基于单数据源的窗体 阐明：阐明：窗体与窗体与“导师表相连，导师表相连，窗体上的文本框等控件窗体上的文本框等控件又与又与“导师表中相关导师表中相关 字段绑定，因此用户在字段绑定，因此用户在 窗体上对数据所作的任何窗体上对数据所作的任何更改都将引起更改都将引起“导师表导师表中相关字段数值的变化。中相关字段数值的变化。窗体对象的翻开、改

9、名、复制和删除操作同报表的相关操窗体对象的翻开、改名、复制和删除操作同报表的相关操作。作。6.2.1 6.2.1 基于单数据源的窗体基于单数据源的窗体 例例6-2 6-2 显示研讨生及其导师的有关信息显示研讨生及其导师的有关信息1 1建立一个查询对象建立一个查询对象“研讨生研讨生- -导师，其导师，其SQLSQL命令为：命令为： (2) (2) 用导游创建窗体，数据源选择查询对象用导游创建窗体，数据源选择查询对象“研讨生研讨生- -导师导师 SELECT 学号学号, 研讨生研讨生.姓名姓名, 研讨生研讨生.性别性别, 入学分数入学分数, 研讨方向研讨方向, 导导师师.导师编号导师编号, 导师导

10、师.姓名姓名, 导师导师.性别性别, 博导博导, 职称职称, 系编号系编号 FROM 研讨生研讨生, 导师导师 WHERE 研讨生研讨生.导师编号导师编号=导师导师.导师编号导师编号6.2.1 6.2.1 基于单数据源的窗体基于单数据源的窗体 在设计视图中修正导游生成的窗体规划和格式在设计视图中修正导游生成的窗体规划和格式 6.2.2 6.2.2 基于多数据源的窗体基于多数据源的窗体 假设两表之间呈现假设两表之间呈现“一对多关系，可用主窗体一对多关系，可用主窗体显示显示“一表信息，子窗体显示一表信息，子窗体显示“多表中对应多表中对应的记录。的记录。 例例 6-3 6-3显示每一位导师的信息及其

11、所带的研讨生显示每一位导师的信息及其所带的研讨生的情况。要求，研讨生的信息以子窗体的方式的情况。要求，研讨生的信息以子窗体的方式显示。显示。( (运用导游运用导游) ) 分析：本例实现的前提是事先建立分析：本例实现的前提是事先建立“导师表和导师表和“研讨生表之间的一对多的关系。研讨生表之间的一对多的关系。6.2.2 6.2.2 基于多数据源的窗体基于多数据源的窗体 例例6-36-3运转效果如图：运转效果如图： 先建立先建立“导师导师表和表和“研讨研讨生表之间的生表之间的“一对多关一对多关系。系。6.2.2 6.2.2 基于多数据源的窗体基于多数据源的窗体 例例6-46-4在曾经在曾经存在的导师

12、窗体存在的导师窗体上，经过子窗体上，经过子窗体控件添加研讨生控件添加研讨生子窗体子窗体 添加子窗体添加子窗体 6.3 6.3 在设计视图中完善、创建窗体在设计视图中完善、创建窗体 6.3.1 6.3.1 窗体设计视图中的工具栏窗体设计视图中的工具栏 6.3.2 6.3.2 用控件导游完善窗体用控件导游完善窗体6.3.3 6.3.3 在设计视图中创建窗体在设计视图中创建窗体 6.3.4 6.3.4 在窗体中添加图表在窗体中添加图表 6.3.1 6.3.1 窗体设计视图中的工具栏窗体设计视图中的工具栏 1. 1. 窗体设计工具栏窗体设计工具栏( (见表见表6.1) 6.1) 2. 2. 格式工具栏

13、格式工具栏( (见表见表6.2) 6.2) 3. 3. 工具箱工具箱( (见表见表6.3) 6.3) 6.3.2 6.3.2 用控件导游完善窗体用控件导游完善窗体 例例6-5 6-5 在在“导师窗体上添加研讨生子窗体，并导师窗体上添加研讨生子窗体，并创建一个标题是创建一个标题是“退出或者用图片的按退出或者用图片的按钮，其功能是单击后立刻封锁窗体。钮，其功能是单击后立刻封锁窗体。 例例6-6 6-6 在上述窗体的右侧添加在上述窗体的右侧添加4 4个用于阅读记录个用于阅读记录的按钮：第一条、上一条、下一条、最后一条，的按钮：第一条、上一条、下一条、最后一条，同时取消窗体上的导航按钮。同时取消窗体上

14、的导航按钮。6.3.2 用控件导游完善窗体用控件导游完善窗体 例例6-56-5在例在例6-46-4的窗体上添加的窗体上添加一个标题为一个标题为“退出的退出的按钮以封锁窗体按钮以封锁窗体 添加添加STOP按钮按钮 6.3.2 6.3.2 用控件导游完善窗体用控件导游完善窗体 例例6-6 6.3.2 6.3.2 用控件导游完善窗体用控件导游完善窗体 例例6-7 6-7 在例在例6-66-6的窗体上添加一个文本框，显示当前导师的工资。的窗体上添加一个文本框，显示当前导师的工资。添加绑定添加绑定“工资字段的文本框工资字段的文本框 6.3.3 在设计视图中创建窗体 从从“零开场自定义窗体规划和控件零开场

15、自定义窗体规划和控件 例例6-8 6-8 创建窗体显示系名和该系的研讨创建窗体显示系名和该系的研讨生名。生名。(1)(1)预备数据源：创建查询对象预备数据源：创建查询对象“系系- -研讨研讨生生(2)(2)建立一个空白窗体，并添加控件建立一个空白窗体，并添加控件 (3)(3)窗体记录源选择窗体记录源选择“系系- -研讨生研讨生 (4)(4)将文本框控件与相关字段绑定将文本框控件与相关字段绑定(5)(5)修正文本框附加的标签内容修正文本框附加的标签内容 6.3.3 6.3.3 在设计视图中创建窗体在设计视图中创建窗体 例例6-9 6-9 在窗体放置一个列表框、两个文本框。列表框中保管在窗体放置一

16、个列表框、两个文本框。列表框中保管有研讨生姓名；当在下拉列表框中选定一个研讨生时，第有研讨生姓名；当在下拉列表框中选定一个研讨生时，第一个文本框中显示其导师，第二个文本框中显示该导师所一个文本框中显示其导师，第二个文本框中显示该导师所在系的名字。在系的名字。 建立查询选择字段研讨生姓名、导师姓名和系名建立查询选择字段研讨生姓名、导师姓名和系名 更改查询中同名字段更改查询中同名字段窗体记录源选择窗体记录源选择“系系- -导师导师- -研讨生，添加文本框研讨生，添加文本框用列表框导游生成控件用列表框导游生成控件 ，修正标签内容，修正标签内容6.3.4 6.3.4 在窗体中添加图表在窗体中添加图表

17、方法：设计视图中执行方法：设计视图中执行“插入插入“图表图表 例例6-106-10显示导师除年龄和照片之外的一切信息，同时用三维柱图显示显示导师除年龄和照片之外的一切信息，同时用三维柱图显示他们的年龄。他们的年龄。(1) (1) 用导游生成窗体用导游生成窗体 (2) (2) 添加图表：添加图表：翻开设计视图，翻开设计视图，在窗体页脚中执在窗体页脚中执行行“插入插入“图表图表6.3.4 6.3.4 在窗体中添加图表在窗体中添加图表 例例6-116-11用单一窗体用单一窗体 显示导师表除照片外的全部信息，用三维圆柱形图显示导师表除照片外的全部信息，用三维圆柱形图显示当前导师所带研讨生的姓名和入学分

18、数显示当前导师所带研讨生的姓名和入学分数(1) (1) 用导游生成以用导游生成以“导师表为数据源的窗体导师表为数据源的窗体 (2) (2) 在在“主体节插入数据源为主体节插入数据源为“研讨生研讨生 表的图表表的图表 6.4 6.4 对象的属性、方法和事件概念对象的属性、方法和事件概念 1. 1. 属性属性 属性是对象的外部表现和特征。属性是对象的外部表现和特征。2. 2. 方法方法 方法是对象可以执行的动作或完成的操作。如，方法是对象可以执行的动作或完成的操作。如，立刻窗口对象具有立刻窗口对象具有PrintPrint方法方法3. 3. 事件事件 事件是能被对象识别和呼应的动作，分为用户事事件是

19、能被对象识别和呼应的动作，分为用户事件和系统事件。件和系统事件。 区分事件与事件过程的概念区分事件与事件过程的概念6.5 6.5 窗体与常用控件的编程窗体与常用控件的编程p运用控件：翻开窗体设计视图，从工具箱运用控件：翻开窗体设计视图，从工具箱中选取适当的控件放置到窗体上中选取适当的控件放置到窗体上p控件有假设干个属性，多数属性可运用其控件有假设干个属性，多数属性可运用其默许值默许值 p修正控件属性：修正控件属性：6.5 6.5 窗体与常用控件的编程窗体与常用控件的编程n在窗体设计视图的控件属性对话框中进展在窗体设计视图的控件属性对话框中进展修正修正n在代码窗口的控件属性对话框中修正在代码窗口

20、的控件属性对话框中修正 6.5 6.5 窗体与常用控件的编程窗体与常用控件的编程 6.5.1 6.5.1 标签标签 6.5.2 6.5.2 文本框文本框6.5.3 6.5.3 命令按钮命令按钮 6.5.4 6.5.4 列表框列表框/ /组合框组合框6.5.5 6.5.5 选项组选项组6.5.6 6.5.6 选项按钮选项按钮 6.5.7 6.5.7 复选框复选框 6.5.8 6.5.8 选项卡选项卡 6.5.1 6.5.1 标签标签 o主要功能：显示阐明性文本，提示与解释。主要功能：显示阐明性文本，提示与解释。oAccessAccess自动为除命令按钮以外的每一个非标签控件自动为除命令按钮以外的

21、每一个非标签控件添加标签添加标签o常用属性常用属性NameName、 Caption Caption 、BackColorBackColor、ForeColorForeColor、VisibleVisible、EnabledEnabled等。等。o控件的名字只能在窗体设计视图中修正控件的名字只能在窗体设计视图中修正o 必需为标签输入一些文字作为标题，否那么标签会必需为标签输入一些文字作为标题，否那么标签会被自动取消被自动取消6.5.1 6.5.1 标签标签 o颜色值：颜色值：ovbRedvbRed、vbBluevbBlue、vbGreenvbGreen、vbWhitevbWhite、vbBla

22、ckvbBlack、vbYellowvbYellow、vbCyanvbCyan、vbMagenta vbMagenta oRGBRGBx,y,zx,y,z，x x、y y、z z的取值范围为的取值范围为0 0255 255 o6 6种特殊效果，默许值是种特殊效果，默许值是“平面平面 6.5.1 6.5.1 标签标签 例例6-12 6-12 窗体翻开时，标签显示窗体翻开时，标签显示“欢迎运用字样，格式为欢迎运用字样，格式为4848磅，楷体红色，倾斜，居中，蓝色边框，背风光随机。磅，楷体红色，倾斜，居中，蓝色边框，背风光随机。 操作步骤操作步骤(1) (1) 按要求在窗体设计视图中设置固定的属性值

23、按要求在窗体设计视图中设置固定的属性值(2) (2) 程序实现翻开窗体时背风光随机程序实现翻开窗体时背风光随机( (背景款式：常规背景款式：常规) )(3)(3)去除窗体上的滚动条、记录选择器、导航按钮去除窗体上的滚动条、记录选择器、导航按钮 和节间分隔线和节间分隔线 产生产生0255之间的数值作为三基色的分量之间的数值作为三基色的分量 6.5.2 6.5.2 文本框文本框 o文本框与标签的最大区别在于可以更新数据文本框与标签的最大区别在于可以更新数据o常用属性根本同表常用属性根本同表6.46.4标签常用属性一致，此外标签常用属性一致，此外还有一个重要属性还有一个重要属性Value(Value

24、(文本框的值文本框的值) )o常用方法：常用方法：SetFocus(SetFocus(得到插入点得到插入点) )o常用事件：常用事件：GotFocusGotFocus、ClickClick、LostFocusLostFocus等等 o同样具有同样具有6 6种特殊效果，默许值是种特殊效果，默许值是“凹陷凹陷 6.5.2 6.5.2 文本框文本框 例例6-136-13要求在两个文本框中输入除数、被除要求在两个文本框中输入除数、被除数后，在商文本框中输出两数相除的结果。数后，在商文本框中输出两数相除的结果。操作步骤如下：操作步骤如下：(1)(1)设计窗体设计窗体6.5.2 6.5.2 文本框文本框

25、(2) (2) 编写相关代码编写相关代码 例例6-136-13尚待改良之处：尚待改良之处：文本框中不应该接受数字以外的其他字符文本框中不应该接受数字以外的其他字符除数文本框假设输入为除数文本框假设输入为0 0，那么系统应该提示出错，那么系统应该提示出错P131 Val(x):将字符串将字符串x转换成数值转换成数值改良方法：改良方法：o被除数、除数文本框不应该接受数字以外的其他字符被除数、除数文本框不应该接受数字以外的其他字符o 利用利用KeyPress事件提供的参数事件提供的参数KeyAscii，得到按，得到按键的键的ASCII码值，超出码值，超出09一概改为一概改为0。ASCII码为码为0的

26、的字符表示字符表示NULL。o除数文本框输入除数文本框输入0，那么系统应提示出错，那么系统应提示出错“除数为零除数为零o 先对除数进展判别，再执行除法先对除数进展判别，再执行除法6.5.2 6.5.2 文本框文本框 例例6-14 6-14 对例对例6-136-13的改良的改良 思索与练习思索与练习假设要输入带有假设要输入带有“- -号和小数点的实数，程序应该如何改良？号和小数点的实数，程序应该如何改良？6.5.3 6.5.3 命令按钮命令按钮 p命令按钮最常用的事件是鼠标单击。单击后由系命令按钮最常用的事件是鼠标单击。单击后由系统运转一个过程，完成一个特定的义务统运转一个过程，完成一个特定的义

27、务p常用属性根本同表常用属性根本同表6.46.4标签常用属性一致，此外标签常用属性一致，此外还有还有DefaultDefault、CancelCancel属性属性p Default Default 设定为设定为TrueTrue时时( (默以为默以为False)False)，按回车键，按回车键相当于单击该按钮相当于单击该按钮 p Cancel Cancel 设定为设定为TrueTrue时时( (默以为默以为False)False)，按，按EscEsc键键相当于单击该按钮相当于单击该按钮 p命令按钮没有特殊效果命令按钮没有特殊效果 6.5.3 6.5.3 命令按钮命令按钮 例例6-15 6-15

28、在例在例6-146-14中添加中添加“计算和计算和“去除去除 按钮按钮(1) (1) 在窗体上添加在窗体上添加“计算和计算和“去除两个按钮去除两个按钮 (2) (2) 添加添加“计算按钮的单击事件过程计算按钮的单击事件过程 (3) (3) 添加添加“去除按钮的单击事件过程去除按钮的单击事件过程Private Sub Command6_Click()Private Sub Command6_Click() If Val(Text2.Value) 0 Then If Val(Text2.Value) 0 Then Text4.Value = Val(Text0.Value) / Val(Text2

29、.Value) Text4.Value = Val(Text0.Value) / Val(Text2.Value) Else Else MsgBox MsgBox 除数为零除数为零! Exit Sub Exit Sub End If End IfEnd SubEnd Sub可添加：可添加：Text2.Value = Text2.SetFocus 思索与练习思索与练习假设要求按回车键得到除法计算结果，按假设要求按回车键得到除法计算结果，按ESCESC键清空文本框，该如何实现？键清空文本框，该如何实现？6.5.4 6.5.4 列表框列表框/ /组合框组合框 o列表框控件用一个数组保管多个数据，其中

30、的数列表框控件用一个数组保管多个数据，其中的数据可以选定、添加或删除，并具有一系列与其他据可以选定、添加或删除，并具有一系列与其他控件不同的属性与方法，见表控件不同的属性与方法，见表6.5。o ListCount:列表框中数据项的个数列表框中数据项的个数o ListIndex:列表框中选定项的下标列表框中选定项的下标,无选定时为无选定时为-1o Value:列表框中选定项的值列表框中选定项的值o RowSourceType:指定列表框的数据源类型指定列表框的数据源类型6.5.4 6.5.4 列表框列表框/ /组合框组合框o方法方法o AddItem Item ,n :向列表框中追加一项向列表框

31、中追加一项数据作为第数据作为第n项项,省略省略n时追加到最后一项时追加到最后一项o RemoveItem n :删除下标为删除下标为n的数据项的数据项6.5.4 6.5.4 列表框列表框/ /组合框组合框 o组合框通常以下拉列表框的方式出现，它的属性组合框通常以下拉列表框的方式出现，它的属性和方法与列表框根本一样。和方法与列表框根本一样。o列表框列表框/ /组合框也具备组合框也具备6 6种特殊效果，默许的效果种特殊效果，默许的效果是是“凹陷。凹陷。o列表框列表框/ /组合框的常用事件：组合框的常用事件：ClickClick、DblClick DblClick 6.5.4 6.5.4 列表框列表

32、框/ /组合框组合框 例例6-16 6-16 设计如下图的窗体：要求双击列表框中的某个数设计如下图的窗体：要求双击列表框中的某个数据时，该数据项可以在文本框中显示，单击各个命令按据时，该数据项可以在文本框中显示，单击各个命令按钮时，可以实现相应功能。钮时，可以实现相应功能。6.5.4 6.5.4 列表框列表框/ /组合框组合框 各个命令按钮上的功能如下表所示：各个命令按钮上的功能如下表所示：操作步骤如下：操作步骤如下：6.5.4 6.5.4 列表框列表框/ /组合框组合框 (1) (1) 在设计视图中建立窗体在设计视图中建立窗体6.5.4 6.5.4 列表框列表框/ /组合框组合框 (2) (

33、2) 编写程序代码编写程序代码6.5.4 6.5.4 列表框列表框/ /组合框组合框 例例6-166-16的程序代码的程序代码-2 -2 6.5.4 6.5.4 列表框列表框/ /组合框组合框 例例6-166-16的程序代码的程序代码-3 -3 6.5.5 6.5.5 选项组选项组 p选项组又称为框架选项组又称为框架(frame)(frame)，用于对某些在功能，用于对某些在功能上相关的控件进展分组。对于单项选择按钮，选上相关的控件进展分组。对于单项选择按钮，选项组是必不可少的。项组是必不可少的。p选项组的标签位于方框的左上角，可以输入阐明选项组的标签位于方框的左上角，可以输入阐明性文字，也可

34、以删除。性文字，也可以删除。p选项组同样具有选项组同样具有6 6种特殊效果，默许的效果是种特殊效果，默许的效果是“蚀蚀刻。刻。p常用事件：常用事件：ClickClick6.5.5 6.5.5 选项组选项组 例例6-176-17输入输入2 2个自然数，求它们相除后的商与余数。个自然数，求它们相除后的商与余数。(1) (1) 窗体设计窗体设计(2)(2)编写程序代码编写程序代码两个选项组两个选项组6.5.6 6.5.6 选项按钮选项按钮 p选项按钮最常用的属性是选项按钮最常用的属性是ValueValue，反映选项按钮，反映选项按钮的值，见的值，见P190P190表表6.76.7。p假设作为单项选择

35、按钮成组出现，必需放置在选假设作为单项选择按钮成组出现，必需放置在选项组控件中，否那么将失去项组控件中，否那么将失去“单项选择的意义。单项选择的意义。p单项选择按钮的添加方法：单项选择按钮的添加方法：p先在窗体上添加选项组，然后向选项组中添加选先在窗体上添加选项组，然后向选项组中添加选项按钮控件项按钮控件; ;p假设先添加了选项按钮假设先添加了选项按钮, ,那么添加了选项组之后那么添加了选项组之后, ,剪切窗体上的选项按钮，粘贴到选项组中。剪切窗体上的选项按钮，粘贴到选项组中。6.5.6 6.5.6 选项按钮选项按钮 p选项按钮放置到选项组后，将得到选项按钮放置到选项组后，将得到OptionV

36、alue属性属性pOptionValue是添加选项按钮控件时的顺序号，从是添加选项按钮控件时的顺序号，从1开场，原来的开场，原来的Value属性就不再运用，而是运用选项属性就不再运用，而是运用选项组的组的Value属性。属性。p假设选中选项组中第假设选中选项组中第3个选项按钮，那么选项组的个选项按钮，那么选项组的Value值为值为3；反之假设令选项组的；反之假设令选项组的Value值值=2，那么，那么第第2个选项按钮将被选中。个选项按钮将被选中。6.5.6 6.5.6 选项按钮选项按钮 例例6-186-18在文本框中输入一个数据，单击命令按钮后判别该在文本框中输入一个数据，单击命令按钮后判别该

37、数是数是1 1、质数还是合数，并用一组、质数还是合数，并用一组3 3个选择按钮表示；假设个选择按钮表示；假设都不是，选项按钮全部都为灰色。都不是，选项按钮全部都为灰色。6.5.6 6.5.6 选项按钮选项按钮 (1) 设计窗体：设计窗体： 选项组的选项组的“(称号称号)属性为属性为Frame0 “类型判别命令按钮的类型判别命令按钮的“(称号称号)属性为属性为Command0 6.5.6 6.5.6 选项按钮选项按钮 (2) (2) 编写代码编写代码 6.5.6 6.5.6 选项按钮选项按钮 编写单击编写单击“类型判别命令按钮的程序代码类型判别命令按钮的程序代码 6.5.6 6.5.6 选项按钮

38、选项按钮 例例6-196-19单击文本框可将选项按钮的标签连成一个句子单击文本框可将选项按钮的标签连成一个句子 (1) (1) 设计窗体如右上图所示设计窗体如右上图所示6.5.6 6.5.6 选项按钮选项按钮 (2)(2)代码代码6.5.7 6.5.7 复选框复选框 p 复选框选定时呈一个勾，未选定时为空心方块，复选框选定时呈一个勾，未选定时为空心方块，不表态时为灰色方块，值依次为不表态时为灰色方块，值依次为-1-1、0 0和和NullNull。p 假设将一组复选框放置在选项组中，那么同一时假设将一组复选框放置在选项组中，那么同一时辰只能有一个被选中相当于单项选择按钮。辰只能有一个被选中相当于

39、单项选择按钮。p 复选框的常用事件：复选框的常用事件：Click Click 6.5.7 6.5.7 复选框复选框 例例6-206-20为文本框选择字体和格式，可以随之显示为文本框选择字体和格式，可以随之显示 (1) (1) 设计窗体设计窗体留意：先在窗体上留意：先在窗体上放置三个复选框，放置三个复选框，再套上一个选项组，再套上一个选项组，否那么会把复选框否那么会把复选框当作单项选择钮当作单项选择钮(2)(2)编写程序代码编写程序代码Private Sub Form_Load() Frame1.Value = Null Check1.Value = Null Check2.Value = Nu

40、ll Check3.Value = NullEnd SubPrivate Sub Frame1_Click() If Frame1.Value = 1 Then Text0.FontName = 楷体楷体_GB2312 End If If Frame1.Value = 2 Then Text0.FontName = 黑体黑体 End IfEnd Sub(2)(2)编写程序代码编写程序代码Private Sub Check1_Click()If Check1.Value = -1 Then Text0.FontBold = TrueElse Text0.FontBold = FalseEnd I

41、fEnd SubPrivate Sub Check2_Click() End SubPrivate Sub Check3_Click() End Sub6.5.8 6.5.8 选项卡选项卡 p 选项卡的作用是生成一个多页的窗体。选项卡的作用是生成一个多页的窗体。p 选项卡和每个页都有各自的选项卡和每个页都有各自的ClickClick事件。事件。p 选中工具箱中的选项卡控件在窗体上拖动，生成的选项卡选中工具箱中的选项卡控件在窗体上拖动，生成的选项卡默许有两页；选项卡上的页数、页顺序可经过翻开选项卡默许有两页；选项卡上的页数、页顺序可经过翻开选项卡快捷菜单设定。快捷菜单设定。 6.5.8 6.5.

42、8 选项卡选项卡 例例6-21 6-21 在窗体上添加在窗体上添加2 2个选项卡，在第个选项卡，在第1 1页页上输入上输入2 2个数，在第个数，在第2 2页上输出商和余数。页上输出商和余数。编写代码编写代码Private Sub 输入项输入项_Click()Text3.SetFocusText3.Value = Text1.Value Text2.ValueText4.Value = Text1.Value Mod Text2.ValueEnd SubPrivate Sub 输出项输出项_Click()Text1.Value = NullText2.Value = NullText3.Valu

43、e = NullText4.Value = NullText1.SetFocusEnd SubText3获得焦点，自获得焦点，自动切换到动切换到“输出项输出项6.6 6.6 多窗体运用多窗体运用 o在在AccessAccess中，一个较大的工程能够需求几个窗体中，一个较大的工程能够需求几个窗体协同任务，共同完成。协同任务，共同完成。o 多窗体环境涉及窗体的翻开、封锁，控件值的传多窗体环境涉及窗体的翻开、封锁，控件值的传送和变量传送等操作。送和变量传送等操作。o 援用另一个窗体上的控件时需在该控件之前加上援用另一个窗体上的控件时需在该控件之前加上所在窗体的名字。所在窗体的名字。o 援用另一个窗体

44、上的变量时变量需定义成模块级援用另一个窗体上的变量时变量需定义成模块级变量，并在该变量之前加上所在窗体的名字。变量，并在该变量之前加上所在窗体的名字。6.6 6.6 多窗体运用多窗体运用 oAccessAccess提供提供DoCmdDoCmd方法翻开或封锁窗体，命方法翻开或封锁窗体，命令格式：令格式：o 翻开窗体：翻开窗体：DoCmd.OpenForm DoCmd.OpenForm o 封锁当前窗体：封锁当前窗体：DoCmd.CloseDoCmd.Closeo翻开另一窗体时，窗体名字放在一对双引号内；翻开另一窗体时，窗体名字放在一对双引号内；援用其他窗体中的变量或控件值时，在窗体名前援用其他窗

45、体中的变量或控件值时，在窗体名前添加前缀添加前缀“Form_Form_此时不需求双引号此时不需求双引号 6.6 6.6 多窗体运用多窗体运用 例6-25 6.6 6.6 多窗体运用多窗体运用 Form1程序代码：程序代码：Form2程序代码：程序代码：Public data2 As Integer本章总结本章总结p6.1 6.1 窗体对象概述窗体对象概述 p窗体的组成和分类窗体的组成和分类p 6.2 6.2 用导游生成窗体用导游生成窗体p 6.3 6.3 在设计视图中完善、创建窗体在设计视图中完善、创建窗体 p 6.4 6.4 对象的属性、方法和事件概念对象的属性、方法和事件概念 p 6.5

46、6.5 窗体与常用控件的编程窗体与常用控件的编程 p标签、文本框、命令按钮、列表框、选项组、选标签、文本框、命令按钮、列表框、选项组、选项按钮、复选框、选项卡项按钮、复选框、选项卡p 6.6 6.6 多窗体运用多窗体运用 pDoCmdDoCmd方法方法7908.408.4在窗体上有一个名为在窗体上有一个名为Command12的命令按钮，的命令按钮，Click事件的代码如下。该事件所完成的功能是：接受从键盘事件的代码如下。该事件所完成的功能是：接受从键盘输入的输入的10个大于个大于0的整数，找出其中的最大值和对应的的整数，找出其中的最大值和对应的输入位置。请根据上述功能要求将程序补充完好。输入位

47、置。请根据上述功能要求将程序补充完好。Private Sub Command12_Click( )Private Sub Command12_Click( )max=0max=0max_n=0max_n=0For i=1 to 10For i=1 to 10 num=Val(InputBox(i) num=Val(InputBox(i) If (nummax) Then If (nummax) Then max=_ max=_ max_n=_ max_n=_ End if End ifNext iNext iMsgBox(MsgBox(“最大值为第最大值为第&max_n&max

48、_n&“个输入是个输入是&max)&max)End SubEnd Subnumi8008.408.4在窗体上有一个名为在窗体上有一个名为Command1的命令按钮。的命令按钮。Click事件的代码如下：事件的代码如下：Private Sub Command1_Click( )Private Sub Command1_Click( ) f=0 f=0 For n=1 to 10 Step 2 For n=1 to 10 Step 2 f=f+n f=f+n Next n Next n Lable0.Caption=f Lable0.Caption=fEnd SubEnd

49、Sub单击命令按钮后，标签显示的结果是单击命令按钮后，标签显示的结果是_。258108.408.4在窗体上有一命令按钮在窗体上有一命令按钮run35，对应的事件代，对应的事件代码如下：码如下： Private Sub run35_Enter( )Private Sub run35_Enter( ) Dim num As Interger Dim num As Interger Dim a As Interger Dim a As Interger Dim b As Interger Dim b As Interger Dim i As Interger Dim i As Interger Fo

50、r i=1 to 10 For i=1 to 10 Num=InputBox( Num=InputBox(“请输入数据：请输入数据：, , “输入输入,1),1) If Int(num/2)=num/2 Then If Int(num/2)=num/2 Then a=a+1 a=a+1 Else Else b=b+1 b=b+1 End If End If Next i Next i MsgBox( MsgBox(“运转结果运转结果: a=: a= & str(a) & & str(a) & “,b,b & str(b) & str(b)End SubEnd Sub运转以上事件所完成的功能是运转以上事件所完成的功能是? ?对输入的10个数据分别统计有几个是偶数，有几个是奇数82在窗体中添加一个命令按钮称号在窗体中添加一个命令按钮称号Command1，然后编