Visual FoxPro 60 应用基础与面向对象程序设计第十二章课件

1、1第十二章第十二章 表单设计及运行表单设计及运行 创建表单创建表单 修改表单修改表单 运行表单运行表单 表单控件简介表单控件简介 表单表单（Form）界面界面，又又称为窗口。称为窗口。 它是一个容器，它可以放置多个控件。它是一个容器，它可以放置多个控件。 在建立表单的过程中，要定义控件的属性、在建立表单的过程中，要定义控件的属性、确定事件或方法的代码。确定事件或方法的代码。 表单文件一旦被建立，就自动建立表单文件一旦被建立，就自动建立扩展名扩展名为为.SCX 的表单文件。的表单文件。3 12.1.1 12.1.1 用用 创建表单创建表单 使用系统提供的表单设计器创建新的表单，使用系统提供的表单

2、设计器创建新的表单，可以有多种方法可以有多种方法: :(1) (1) 、使用菜单、使用菜单( P220 )(2) (2) 、在项目管理器中创建、在项目管理器中创建 ( 补充补充 )(3) (3) 、使用命令、使用命令( P221 )4 ( P220 ) 1 1、打开、打开“文件文件”菜单，选择菜单，选择“新建新建”；在；在“新建新建”窗口，选择窗口，选择“表单表单”，再按，再按“新建文新建文件件”按钮，进入按钮，进入“表单设计器表单设计器”窗口；窗口； 2 2、右击打开快捷菜单或直接打开、右击打开快捷菜单或直接打开“显示显示”菜单，完成对表单属性、事件和方法的定义：菜单，完成对表单属性、事件和

3、方法的定义： 3 3、再选择、再选择“保存保存”，表单建立完成。，表单建立完成。5 ( 补充补充 )1 1、先打开项目管理器；、先打开项目管理器；2 2、选择、选择 “文档文档” 选项卡中的选项卡中的“表单表单” ；3 3、然后单击、然后单击 “新建新建” 按钮按钮 ；4 4、在打开的、在打开的 “新建表单新建表单” 对话框中选择对话框中选择“新建表单新建表单”，打开，打开“表单设计器表单设计器”。6使用命令方式创建表单使用命令方式创建表单 ( P221 ) CREATE FORM . SCX 操作步骤操作步骤 （ 见见 P 221 P 221 ） 注：注：生成的表单文件的扩展名是生成的表单文

4、件的扩展名是 . SCX7 1、显示数据表内容的表单；显示数据表内容的表单； 、利用、利用 “ 向导向导 ” 创建；创建； 、手工建立。、手工建立。 2、与数据表无关的表单与数据表无关的表单； 手工建立手工建立 ：生成的表单文件的扩展名是生成的表单文件的扩展名是 . SCX8 12.1.2 12.1.2 使用使用创建表单创建表单 1、用表单向导创建用表单向导创建单表单表表单表单 操作步骤操作步骤 （ 见见 P 221223 P 221223 ） 例例 12.2 12.2 用表单向导创建用表单向导创建 Rcda 的浏览表的浏览表单单, ,名字为名字为: : form2.scx9 12.1.2.

5、12.1.2. 使用使用创建表单创建表单 2 2、用表单向导创建一对多数据表单用表单向导创建一对多数据表单 操作步骤操作步骤 （ 见见 P 223227 P 223227 ） 例例 12.3 12.3 用表单向导创建用表单向导创建 Rcda和和Cjda 的浏览表单的浏览表单, ,名字为名字为: : form3.scx10一、菜单方式一、菜单方式文件文件 / 打开打开 /表单表单 进入表单设计器窗口进入表单设计器窗口在在属性对话框属性对话框中修改表单及各控件属性中修改表单及各控件属性 例例 12.4 12.4 （ 见见 P 227229 P 227229 ）二、命令方式二、命令方式 MODIFY

6、 FORM . SCX11 方法一：方法一：在表单设计器中运行表单在表单设计器中运行表单 1、单击工具栏的单击工具栏的 “ ！” 运行按钮运行按钮 2、 右键弹出菜单右键弹出菜单/ / 选择选择 “ “执行表单执行表单” 方法二：方法二：命令方式命令方式 DO FORM . SCX 例：例： Do formDo form 方程求根方程求根 . .SCXSCX12 1、显示数据表内容的表单；显示数据表内容的表单； 、利用、利用 “ 向导向导 ” 创建；创建； 、手工建立。、手工建立。 2、与数据表无关的表单与数据表无关的表单； 手工建立手工建立 ：生成的表单文件的扩展名是生成的表单文件的扩展名是

7、 . SCX13 操作步骤：操作步骤： 单击控件工具栏单击控件工具栏“控件图标控件图标”，然后，然后在表单上拖放到合适位置和大小。在表单上拖放到合适位置和大小。 （ P 230231 P 230231 ）14 “ “标签标签”是按一定格式显示在表单上的文是按一定格式显示在表单上的文本。本。 它用来显示各种说明和提示。它用来显示各种说明和提示。15序号属性属性功能1 标签显示文本的内容2Top标签上边界与容器上边界的距离3Left标签左边界与容器右边界的距离4Height标签自身高度5Width标签自身宽度6Back Style标签背景是否透明7标签背景颜色8Auto Size标签根据内容是否自

8、动改变大小9 Name标签显示文本的字体名10Size标签显示文本的字体大小11 Color标签显示文本的字体颜色 表表12-1 12-1 标签标签 属性属性：（ P P 231） 16 主要用于一般数据的输入、输出。主要用于一般数据的输入、输出。 它与标签在外观和数据源都不同。它与标签在外观和数据源都不同。17 表表12-212-2 文本框文本框 属性：属性：序号属性属性功能1Top文本框上边界与容器上边界的距离2Left文本框左边界与容器右边界的距离3Height文本框自身高度4Width文本框自身宽度5文本框的当前值6文本框的数据来源7Password Char文本框内数据显示的隐含字符

9、8 Name标签显示文本的字体名9Size标签显示文本的字体大小10 Color标签显示文本的字体颜色 、取出文本框、取出文本框Text1的值：的值： X = ThisForm .Text1 .Value 、把把X X的值放入文本框的值放入文本框Text2显示显示： ThisForm .Text2 .Value = X 19表表12-312-3 计时器计时器 属性：属性：序号属性属性功能1Enabled控制计时器的打开与关闭2用于定义两次计算器事件的时间间隔（毫秒级） 20 主要用于控制程序的执行。主要用于控制程序的执行。 “ “命令按钮命令按钮”的动作响应，主的动作响应，主要由要由 CLIC

10、KCLICK事件代码决定。事件代码决定。21 命令按钮命令按钮 属性属性：序号属性属性功能1命令按钮显示文本的内容2Top命令按钮上边界与容器上边界的距离3Left命令按钮左边界与容器右边界的距离4Height命令按钮自身高度5Width命令按钮自身宽度6命令按钮根据显示文本内容是否自动改变大小7 Name命令按钮显示文本的字体名8Size命令按钮显示文本的字体大小9 Color命令按钮显示文本的字体颜色22序号属性属性功能1Top命令按钮组上边界与容器上边界的距离2Left命令按钮组左边界与容器右边界的距离3Height命令按钮组自身高度4Width命令按钮组自身宽度5设置命令按钮的个数6

11、按钮排列的序号23 组合框组合框 属性属性：序号属性属性功能1Top组合框上边界与容器上边界的距离2Left组合框左边界与容器右边界的距离3Height组合框自身高度4Width组合框自身宽度5Row Source组合框的数据来源6Row Source Type组合框数据源的存储类型7组合框的当前值24序号属性属性功能1单选按钮控件组个数序号属性属性功能1Control Source单选按钮数据来源2单选按钮当前值表表12-6 12-6 单选按钮组属性单选按钮组属性表表12-7 12-7 单选按钮属性单选按钮属性25表表12-812-8 微调控件微调控件属性：属性：序号属性属性功能1Top上边

12、界与容器上边界的距离2Left左边界与容器右边界的距离3Height自身高度4Width自身宽度1微调框输入数据的最大值2微调框输入数据的最小值3每次单击按钮的增减值4微调框中数据的当前值26序号属性属性功能1Control Source复选框的数据来源2复选框上显示文本的内容3复选框的当前值表表12-9 12-9 复选框复选框属性：属性：27表表12-10 12-10 图像控件图像控件属性：属性：序号属性属性功能1Stretch图像大小的调节与控制2图像的当前值28表表12-1112-11 表格控件表格控件属性：属性：序号属性属性功能1表格的列数2Link Master表格中数据链接的主表3

13、表格数据的来源29表表12-1412-14 页框控件页框控件属性属性：序号属性属性功能1Active Page页框活动的页号2Page Count页框包含的页数 示例：示例： 求任一圆的面积求任一圆的面积 （1 1）、创建表单并设置表单本身属性；）、创建表单并设置表单本身属性； （2 2）、在表单中添加所需的控件对象；）、在表单中添加所需的控件对象； （3 3）、设计控件对象的操作；）、设计控件对象的操作； （4 4）、编写对象响应的程序代码。）、编写对象响应的程序代码。表单本身一个容器类。表单本身一个容器类。主要设置的属性主要设置的属性: : Caption 标题标题 Name 表单名表单名

14、( 其他常用属性如其他常用属性如 表表7.1 )32 ( 主要工具图标介绍主要工具图标介绍 ) （1） 设置设置 Ta b 键的次序；键的次序； （2） 数据环境；数据环境； （3） 属性窗口；属性窗口； （4） 代码窗口；代码窗口； （5） 表单控件工具栏；表单控件工具栏； 33 属性窗口组成：属性窗口组成： （1 1） 对象选择列表框对象选择列表框； （2 2） 属性分类页；属性分类页； （3 3） 属性设置框属性设置框； （4 4） 属性列表框属性列表框； （5 5） 属性说明框属性说明框。 、Release、Refresh 、Release 将表单从内存中释放掉，即将表单从内存中释放掉

15、，即。 这是退出表单的基本方法。这是退出表单的基本方法。 格式：格式： 、Refresh 重新获取表单有关参数，即重新获取表单有关参数，即。 格式：格式： 使用表单的目的是想通过表单来操作数据使用表单的目的是想通过表单来操作数据库，通过数据环境的定义可以库，通过数据环境的定义可以 1、游标、游标 工作区上打开的表工作区上打开的表 372、数据环境设计器操作：、数据环境设计器操作： 3、数据环境与、数据环境与 Control Source 属性联系。属性联系。 38方法一：选择方法一：选择 “文件文件” 菜单中的菜单中的 “保存保存” ；方法二：单击工具栏上的方法二：单击工具栏上的 “保存保存”

16、 按钮；按钮；39 方法一：方法一：在表单设计器中运行表单在表单设计器中运行表单 1、单击工具栏的单击工具栏的 “ ！” 运行按钮运行按钮 2、 右键弹出菜单右键弹出菜单/ / 选择选择 “ “执行表单执行表单” 方法二：方法二：命令方式命令方式 DO FORM . SCX 例：例： Do formDo form 方程求根方程求根 . .SCXSCX补充：补充： 控件应用初步控件应用初步 在在“表单设计器表单设计器”窗口中设计应用表单时，随窗口中设计应用表单时，随时可以时可以，它包含，它包含3种控件：标准控件、种控件：标准控件、ActiveX控件和自定义控件。控件和自定义控件。( 前面介绍前面

17、介绍 ) 2 ActiveX控件控件 （ 略略 ） 3自定义控件自定义控件 （ 略略 ） 设计表单上有一个标题。设计表单上有一个标题。 标题为标题为“”。 、 Caption Caption 、 FontSize FontSize 、 FontColorFontColor 、 BackColorBackColor 图图7.15 与与 控件是在表单上控件是在表单上画简单图形的控件。画简单图形的控件。 上例中给标题下面画一条线，单击上例中给标题下面画一条线，单击“控件控件工具栏工具栏”中的中的“线条线条”控件，然后在表单标控件，然后在表单标题下面单击拖动鼠标就可以画一条直线。题下面单击拖动鼠标就可

18、以画一条直线。 “线条线条”属性：属性： Border Width线宽。线宽。设置线条的宽度设置线条的宽度 1、单击控件，这时控件四周有、单击控件，这时控件四周有 。在某一控点上拖动鼠标，即可改变控件的在某一控点上拖动鼠标，即可改变控件的； 2、在控点外的任意地方拖动鼠标，即可移动、在控点外的任意地方拖动鼠标，即可移动控件的控件的。 1、 形状可以是矩形、正方形、圆、椭圆及圆形状可以是矩形、正方形、圆、椭圆及圆角矩形等。角矩形等。 2、 形状的样式要通过形状的样式要通过控制：控制： 文本框文本框文本框的常用属性文本框的常用属性 Value Value 文本框的值文本框的值 Control So

19、urce Control Source 数据源数据源例例 7.87.8 在在 学生登记卡学生登记卡.SCX 表单中，创建表单中，创建 显示学号、姓名、出生日期字段文本框。显示学号、姓名、出生日期字段文本框。 、取出文本框、取出文本框Text1的值：的值： X = ThisForm .Text1 .Value 、把把X X的值放入文本框的值放入文本框Text2显示显示： ThisForm .Text2 .Value = X 一、一、 命令按钮命令按钮和和命令按钮组命令按钮组 使用命令按钮和命令按钮组，可以执行相应使用命令按钮和命令按钮组，可以执行相应程序代码来实现某一功能。程序代码来实现某一功能

20、。 1 命令按钮命令按钮 给上例表单设计如下图示五个给上例表单设计如下图示五个“命令按钮命令按钮” 。图图7.22 、给、给 “第一条第一条” 命令按钮命令按钮的的 Click事件事件 加入代码如下：加入代码如下： GO TOP ThisForm . Command2 . Enabled = .F. ThisForm . Command3 . Enabled = .T. ThisForm . Refresh 、 给给 “上一条上一条” ” 命令按钮命令按钮 的的 Click Click事件事件 加入代码如下加入代码如下 ： IF .not. Bof ( ) SKIP 1 ELSE GO Top

21、 ENDIF ThisForm . Command3 . Enabled = .T. ThisForm . Refresh、给、给 “下一条下一条” 命令按钮命令按钮 的的 Click事件事件 编写代码。编写代码。 IF .not. Eof ( ) SKIP 1 ELSE GO Bottom End IF ThisForm . Command2 . Enabled = .T. ThisForm . Refresh 、给给 “最后一条最后一条” 命令按钮命令按钮 的的 Click事件事件 编写代编写代码。码。 GO Bottom ThisForm . Command3 . Enabled = .

22、F. ThisForm . Command2 . Enabled = .T. ThisForm . Refresh 、给给 “退出退出” 命令按钮命令按钮 的的 Click事件事件 编写代码。编写代码。 Thisform . Release clear events 通常将移动记录指针的操作称之为通常将移动记录指针的操作称之为 “数据导航数据导航” 。实现数据导航也可以使用命令按钮组和移动记录实现数据导航也可以使用命令按钮组和移动记录指针命令来实现。指针命令来实现。 【例【例7】在】在“学生登记卡学生登记卡”表单中，利用表单中，利用设计数据导航。设计数据导航。 、在、在“表单控件表单控件”中单

23、击中单击“命令按钮命令按钮组组”图标，然后在表单上单击拖动，就将命令图标，然后在表单上单击拖动，就将命令按钮组放置在表单上。（按钮组放置在表单上。（ 命令按钮组总是以一命令按钮组总是以一组命令按钮的方式给出，初始的命令按钮组给组命令按钮的方式给出，初始的命令按钮组给出二个按钮：出二个按钮：Command1和和Command2。）。） 、然后按右键，在弹出菜单中选命令、然后按右键，在弹出菜单中选命令组组修改。（如下图）修改。（如下图）图图 1图图 2 命令按钮组的单击命令按钮组的单击(Click)事件代码的设计事件代码的设计: Commmand . ClickDO CASE & 选选第一条第一条 & 选选上一条上一条 & 选选下一条下一条 & 最后一条最后一条 ENDCASE注意：以上设计的数据导航，可通