实验12 表单程序设计（1）
12.1 实验目的
1．学习使用表单设计器。
2．掌握表单的建立、修改和运行方法。
3．掌握常用的控件类对象：标签（Label）、文本框（TextBox）、命令按钮（CommandButton）、编辑框（EditBox）、复选框（CheckBox）、列表框（ListBox）、组合框（ComboBox）、微调（Spinner）和计时器(Timer)。
12.2 实验内容
1．设计一个表单，完成计算（累加、阶乘）功能，如图12-1所示。
在“输入计算的值”文本框中输入要计算的数，单击“累加”或“阶乘”按钮分别完成相应的计算，把计算结果显示在“计算结果”文本框中。
2．设计一个表单，完成兴趣爱好调查功能，如图12-2所示。
在复选框中选择自己的兴趣爱好，单击“调查”按钮，把所选的兴趣爱好显示在“您的兴趣爱好”编辑框中。
图12-1 “计算”表单图12-2 “兴趣爱好调查”表单3．设计一个学生信息表查询表单，如图12-3所示。
该表单的功能如下：在“请输入学生姓名”列表框中列出该学生表中所有的学生姓名，当在列表框中选中某个学生姓名时，在右边的文本框中显示该学生的详细信息。
4．设计一个字体大小设置表单，如图12-4所示，用微调控件来控制标签文字的大小。
图12-3 “学生表信息查询”表单图12-4 “字体大小设置”表单
5．设计一个表单，实现标签中文字的字体大小在6到30之间缩放，如图12-5所示。
图12-5 “缩放的文字”表单
12.3 实验步骤
1．操作步骤如下：
①在命令窗口执行“CREA TE FORM”命令，启动“表单设计器”。
②从“表单控件”工具栏中拖入两个标签Label1、Label2，两个文本框Text1、Text2，
三个命令按钮Command1、Command2、Command3，调整到合适的大小和位置。
③设置各对象属性，如表12-1所示。
表12-1属性的设置值
“累加”命令按钮（Command1）的Click事件代码如下：
N=V AL(THISFORM.TEXT1.V ALUE)
SUM=0
FOR I=1 TO N
SUM=SUM+I
ENDFOR
THISFORM.TEXT2.V ALUE=SUM
THISFORM.REFRESH
“阶乘”命令按钮（Command2）的Click事件代码如下：
N=V AL(THISFORM.TEXT1.V ALUE)
MULS=1
FOR I=1 TO N
MULS=MULS*I
ENDFOR
THISFORM.TEXT2.V ALUE=MULS
THISFORM.REFRESH
“退出”命令按钮（Command3）的Click事件代码如下：
THISFORM.RELEASE
⑤保存运行表单。
2．操作步骤如下：
①在命令窗口执行“CREA TE FORM”命令，启动“表单设计器”。
②从“表单控件”工具栏中拖入一个标签Label1，七个复选框Check1~Check7，一个编辑框Edit1，两个命令按钮Command1、Command2，调整到合适的大小和位置。
③设置各对象属性，如表12-2所示。
表12-2属性的设置值
④编写各控件的事件代码。
“调查”命令按钮（Command1）的Click事件代码如下：
S=""
IF THISFORM.CHECK1.V ALUE=1
S=S+"足球"+CHR(13)
ENDIF
IF THISFORM.CHECK2.V ALUE=1
S=S+"篮球"+CHR(13)
ENDIF
IF THISFORM.CHECK3.V ALUE=1
S=S+"排球"+CHR(13)
ENDIF
IF THISFORM.CHECK4.V ALUE=1
S=S+"网球"+CHR(13)
ENDIF
IF THISFORM.CHECK5.V ALUE=1
S=S+"乒乓球"+CHR(13)
ENDIF
IF THISFORM.CHECK6.V ALUE=1
S=S+"羽毛球"+CHR(13)
ENDIF
IF THISFORM.CHECK7.V ALUE=1
S=S+"其他球类"+CHR(13)
ENDIF
THISFORM.EDIT1.V ALUE=S
THISFORM.REFRESH
“结束”命令按钮（Command2）的Click事件代码如下：
THISFORM.RELEASE
⑤保存运行表单。
3．操作步骤如下：
①在命令窗口执行“CREA TE FORM”命令，启动“表单设计器”。
②从“表单控件”工具栏中拖入六个标签Label1~Label6，五个文本框Text1~Text5和一个列表框List1，调整到合适的大小和位置。
③设置各对象属性，把六个标签的Caption属性设置为相应的字段名，把五个文本框的ReadOnly属性设置为.T.。
其他的对象属性如表12-3所示。
表12-3属性的设置值
④编写各控件的事件代码。
Form1的Init事件代码：
USE 学生表
THISFORM.SETALL("VISIBLE",.F.,"TEXTBOX") &&将所有的标签设置为不可见THISFORM.SETALL("VISIBLE",.F.,"LABEL") &&将所有的文本框设置为不可见BEL1.VISIBLE=.T.
THISFORM.REFRESH
List1的InteractiveChange事件代码：
THISFORM.SETALL("VISIBLE",.T.) &&设置所有控件为可见
THISFORM.REFRESH
Form1的Destroy事件代码：
USE
⑤保存运行表单。
4．操作步骤如下：
①在命令窗口执行“CREA TE FORM”命令，启动“表单设计器”。
②从“表单控件”工具栏中拖入一个标签Label1，一个微调控件Spinner1，一个命令按钮Command1，调整到合适的大小和位置。
③设置各对象属性，如表12-4所示。
表12-4属性的设置值
微调控件（Spinner1）的InteractiveChange事件代码如下：
BEL1.FONTSIZE=THIS.V ALUE
“退出”命令按钮（Command1）的Click事件代码如下：
THISFORM.RELEASE
⑤保存运行表单。
5．操作步骤如下：
①在命令窗口执行“CREA TE FORM”命令，启动“表单设计器”。
②从“表单控件”工具栏中拖入一个标签Label1，一个计时器Timer1，一个命令按钮Command1，调整到合适的大小和位置，计时器在运行时不可见，所以计时器的位置可以放在表单的任意位置。
③设置各对象属性，如表12-5所示。
表12-5属性的设置值
④编写各控件的事件代码。
计时器（Timer1）的Timer事件代码如下：
IF BEL1.FONTSIZE<=30
BEL1.FONTSIZE=BEL1.FONTSIZE+1
BEL1.LEFT=BEL1.LEFT-3
BEL1.TOP=BEL1.TOP-1
ELSE
BEL1.FONTSIZE=6
BEL1.LEFT=84
BEL1.TOP=58
ENDIF
“关闭”命令按钮（Command1）的Click事件代码如下：
THISFORM.RELEASE
⑤保存运行表单。
