一、实验目的
1．熟练掌握标签、文本框、编辑框、组合框、列表框、命令按钮、命令按钮组、选项按钮组、复选框、计时器等常用控件的使用方法。
2．理解微调、表格、Active等控件的使用方法。
3．掌握Visual FoxPro控件和表单设计。
二、实验内容及上机步骤
【上机题一】
设计职工数据维护表单，用户可以浏览、增加、修改、删除职工表记录。
【上机步骤】
本题的知识点是常用控件（如标签、文本框、选项按钮组、复选框、微调控件、组合框等）的使用方法。
1. 新建表单，打开表单设计器。
2. 设置数据环境
将部门表和职工表添加到数据环境设计器中，右击职工表，选择快捷菜单中的“属性”命令，将职工表的Exclusive属性设置为.T.，指定以独占方式打开职工表，这样可以物理删除记录。然后从数据环境设计器窗口中，将职工表的职工编号、姓名、婚否、职称、工作日期、联系电话、简历等字段依次拖到表单上。
1. 在表单上添加4个标签（Label1~Label4）、一个选项按钮组（OptionGroup1)、一个组合框（Combo1）、一个命令组（Commandgroup1），一个命令按钮（Command1）、一个线条控件（Line1）。
2. 按下表设置各控件的属性。
职工数据维护表单中各控件属性设置
对 象 | 属性名 | 属性值 | 说明 |
Label1 | Caption | 职工基本情况 | 标题文本 |
Fontsize | 16 | 字号 | |
Fontname | 隶书 | 字体 | |
Label2 | Caption | 性别 | 标题文本 |
Label3 | Caption | 部门编号 | 标题文本 |
Label4 | Caption | 工资级别 | 标题文本 |
OptionGroup1 | Value | 男 | 默认选男 |
Controlsource | 职工表.性别 | 绑定数据 | |
Option1 | Caption | 男 | 标题文本 |
Option2 | Caption | 女 | 标题文本 |
Combo1 | RowSourceType | 6-字段 | 设置选项数据源的类型 |
RowSource | 部门表.部门编号 | 设置选项数据源 | |
ControlSource | 职工表.部门编号 | 绑定数据 | |
Commandgroup1 | ButtonCouunt | 7 | 按钮数目 |
Command1 | Caption | 首记录 | 标题文本 |
Command2 | Caption | 末记录 | 标题文本 |
Command3 | Caption | 上一条 | 标题文本 |
Command4 | Caption | 下一条 | 标题文本 |
Command5 | Caption | 增加 | 标题文本 |
Command6 | Caption | 删除 | 标题文本 |
Command7 | Caption | 退出 | 标题文本 |
1. 双击命令组控件，编写命令按钮组（CommandGroup1）的Click事件代码，代码如下：
DO CASE
CASE Thisform.CommandGroup1.Value=1 && 移到第一条记录
GO TOP
CASEThisform.CommandGroup1.Value=2 && 移到最后一条记录
GO BOTTOM
CASE Thisform.CommandGroup1.Value =3 && 移到上一条记录
IF RECNO()>1
SKIP -1
ELSE
GO TOP
ENDIF
CASE Thisform.CommandGroup1.Value=4 && 移到下一条记录
IF RECNO()<RECCOUNT()
SKIP
ELSE
GO BOTTOM
ENDIF
CASEThisform.CommandGroup1.Value=5 && 增加一条记录
APPEND BLANK
CASEThisform.CommandGroup1.Value=6 && 删除一条记录
DELETE
PACK
CASEThisform.CommandGroup1.Value=7 && 释放表单
Thisform.Release
ENDCASE
Thisform.Refresh &&刷新表单
1. 保存和运行表单。
【上机题二】
设计一个记事本表单，实现对选定文字的复制、移动等操作。
【上机步骤】
本题考查的知识点是编辑框、文本框及命令按钮等表单控件的使用方法。：
1. 新建表单，打开表单设计器。
2. 在表单上添加1个编辑框（Edit1）、三个命令按钮（Command1，Command2,Command3）和一个文本框（Text1）控件，文本框用于显示选定的文字。
3. 设置三个命令按钮的Caption属性，如下表所示。
三个命令按钮的属性设置
| 属性名 | 属性值 | 说明 |
Command1 | Caption | 复制 | 标题文本 |
Command2 | Caption | 剪切 | 标题文本 |
Command3 | Caption | 粘贴 | 标题文本 |
1. 双击“复制”命令按钮(Command1)，为该按钮编写Click事件代码，代码如下：
IF Thisform.Edit1.Sellength<>0
x=Thisform.Edit1.Seltext
Thisform.Text1.Value=x
ELSE
Messagebox("未选定文本")
ENDIF
1. 双击“剪切”命令按钮(Command2)，为该按钮编写Click事件代码，代码如下：
IF Thisform.Edit1.Sellength<>0
x=Thisform.Edit1.Seltext
Thisform.Text1.Value=x
Thisform.Edit1.Seltext=“”
ELSE
Messagebox("未选定文本")
ENDIF
1. 双击“粘贴”命令按钮(Command3)，为该按钮编写Click事件代码，代码如下：
Thisform.Edit1.Seltext=x