一、实验目的
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()
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