第6章 表单设计与应用

三、编辑各事件的程序代码 四、保存、运行表单
第15页
“表单控件”工具 栏
“表单设计器”窗口
“属性”窗 口
第16页
常用控件
（1）标签(Label)控件：
（2）命令按钮(Command)控件：
（3）文本框(Text)控件： （4）选项组(OptionGroup)控件： （5）复选框(Check)控件：
第34页
Check1的Click事件 If This.Value = 1 Thisform.Edit1.FontBold = .T. Else Thisform.Edit1.FontBold =. F. EndIf Check2的Click事件 If This.Value = 1 Thisform.Edit1.FontItalic = .T. Else Thisform.Edit1.FontItalic = .F. EndIf Check3的Click事件 If This.Value = 1 Thisform.Edit1.FontUnderline =.T. Else Thisform.Edit1.FontUnderline =.F. EndIf
部门表
销售表
第10页
步骤1-从父表中选定字段
步骤2-从子表中选定字段
第11页
步骤3-建立表之间的关系步骤4-选 Nhomakorabea表单样式
第12页
步骤5-排序次序
步骤6-完成
第13页
一对多表单的运行窗口一
一对多表单的运行窗口二
第14页
使用表单设计器设计表单
一、在表单设计器中添加相应的控件
二、设置各控件的各种属性
3．将表单的标题设置为"表单操作"；将表单的名称设置为
myform。 4．设置"确定"按钮的Click事件代码，使得表单运行时，单击 该按钮可以将表单的高度设置成在文本框中指定的值。
第26页
1. 选中三个控件，设对齐方式为“顶边对齐” 2. 设“确定”按钮的Default=.T. 3. 设表单的标题属性Caption=“表单操作”
步骤2--选取表单样式
第7页
步骤3—排序次序
步骤4—完成
第8页
“另存为”对话框
表单的运行窗口
第9页
例：使用一对多表单向导生成一个名为SD_EDIT的表单。
要求从父表DEPT中选择所有字段，从子表S_T表中选择所
有字段，使用“部门号”建立两表之间的关系，样式为阴影式； 按钮类型为图片按钮；排序字段为部门号（升序）；表单标题为 “数据输入维护”。（63套）
“关闭”按钮代码：
Thisform.Release
第31页
编辑框、选项按钮组和复选框控件举例： 例：设计一个如下图所示的设置文本格式的应用
程序。
设计窗口
运行窗口
第32页
设置属性
对象 Form1 Label1 属性 Caption Caption 属性值 设置文本格式 请输入文本 说明
Label1
VFP主窗口内居中显示。 2. 在属性窗口中设置表单的有关属性，使表单内的Center、
East、South、West和North五个按钮的大小都设置为宽60、
高25。 3. 将West、Center和East三个按钮设置为顶边对齐，顶边 距离是100；将North、Center和South三个按钮设置为左边对 齐，左边距离是200。 4. 按Center、East、South、West、North的顺序设置各按 钮的Tab键次序。
第24页
1. 表单的AutoCenter=.T. 表单运行时自动居主窗口中间。 2. 全选五个按钮，设置Height=25 Width=60 (Shift+鼠标单击 选定多个控件，Ctrl+A 全选)
3. 选中同一排按钮设对齐方式为“顶边对齐” Top=100
选中同一列按钮设对齐方式为“左边对齐” Left=200 4. 按Center、East、South、West、North的顺序设置各按钮的
表单的名称属性Name=myform
4. 编辑“确定”按钮的Click事件代码。 thisform.height=val(thisform.text1.value)
第27页
选项按钮组控件举例：（71 套 综合应用题30分）
例：设计一个表单能完成一个计算器的功能。表单文 件名和表单控件名均为calculator，表单标题为"计算器"。 表单运行时，分别在操作数1（Label1）和操作数2（Label2） 下的文本框（分别为Text1和Text2）中输入五位数字（不接受其 他字符输入），通过选项组（Optiongroup1，4个按钮可任意排 列）选择计算方法（Option1为"+"，Option2为"-"，Option3为 "*"，Option4为"/"），然后单击命令按钮"计算" （Command1），就会在"计算结果"（Label3）下的文本框 Text3中显示计算结果，要求使用DO CASE语句判断选择的计算 分类，在CASE表达式中直接引用选项组的相关属性。 注意：所涉及的数字和字母均为半角字符。 表单另有一命令按钮（Command2），按钮标题为"关闭"， 表单运行时单击此按钮关闭并释放表单。
（8）DblClick事件：用鼠标双击对象时引发。
（9）RightClick事件：用鼠标右键单击对象时引发。 （10）InteractiveChange事件：当通过鼠标或键盘交互
式改变一个控件的值时引发。
第21页
常用方法：
（1）Release方法：将表单从内存中释放。
（2）Refresh方法：重新绘制表单或控件，并刷新它的所有值。 （3）Show方法：显示表单。 （4）Hide方法：隐藏表单。 （5）SetFocus方法：让控件获得焦点，使其成为活动对象。
第17页
（6）页框(PageFrame)控件：
（7）表格(Grid)控件： （8）列表框(List)控件：
（9）组合框(Combo)控件：
（10）计时器(Timer)控件： （11）编辑框(Edit)控件：
第18页
常用控件的公共属性
标题文本属性：Caption 控件名称属性：Name
字体的属性：FontName（字体名）、FontBold（加粗）、
对象方法访问的基本格式：<对象名>.<对象方法>
例如：ThisForm.Release && 将当前表单释放
第23页
表单基本操作题举例：（17 套 基本操作题30分）
在考生文件夹下有一表单文件myform.scx。打开该 表单文件，然后在表单设计器环境下完成如下操作
1. 在属性窗口中设置表单的有关属性，使表单在打开时在
Command1 Command2
Caption
Caption Caption
计算结果
计算 关闭
Optiongroup1
Option1 Option2 Option3 Option4 Text1-Text3 Text1、Text2
Buttoncount
Caption Caption Caption Caption Value InputMask
第22页
创建表单命令： CREAT FORM <表单文件名>
修改表单命令： MODIFY FORM <表单文件名>
运行表单命令： DO FORM <表单文件名>
对象属性访问的基本格式： <对象名>.<对象属性> 例如：bel1.Caption && 当前表单中的标签控件的标题属性
第35页
计时器控件举例：（10套 简单应用题20分）
例： 设计一个如下图所示的时钟应用程序，具体描述如下： 表单名和表单文件名均为timer，表单标题为“时钟”，表单 运行时自动显示系统的当前时间； 1) 显示时间的为标签控件label1（要求在表单中居中，标签 文本对齐方式为居中）； 2) 单击"暂停"命令按钮（Command1）时，时钟停止； 3) 单击"继续"命令按钮（Command2）时，时钟继续显示系 统的当前时间； 4) 单击"退出"命令按钮（Command3）时，关闭表单。 提示：使用计时器控件，将该控件的interval属性设置为500， 即每500毫秒触发一次计时器控件的timer事件（显示一次系统 时间）；将计时器控件的interval属性设置为0将停止触发timer 事件；在设计表单时将timer控件的interval属性设置为500。
本章主要内容及课时安排
（8学时）
使用表单向导设计表单 使用表单设计器设计表单
第2页
表 单 的 设 计
表单（Form）在系统中是用户进行信
息交流的界面，也可称为窗口。
在实际应用系统中，设计者为了获取用户信
息，方便用户操作；设计了多种窗口和对话框。 打开对话框向用户提问，用户通过设置的对话框 来回答问题。这种对话框就是这里所说的表单。 以表设计器对话框为例：
第28页
添加控件。添加 3个标签、3个文本框、1 个选项按钮组和2个命令按钮控件。
设计窗口
运行窗口
第29页
设置属性
对象 Form1 Form1 Label1 Label2
属性
Caption Name Caption Caption
属性值 计算器 Calculator 操作数1 操作数2
说明
Label3
FontSize（大小）、FontItalic（斜体） 前景色、背景色属性：ForeColor、BackColor 控件的尺寸属性：Height（高度）、Width（宽度） 距主窗口距离属性：Top（顶边距离）Left（左边距离）