2011下更新vfp表单例
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
参考
VFP表单实验参考讲义
一、标签和文本框
(一)
题目要求:
(1)该表单的名称为“Form1”,标题为“密码输入窗口”,高度为190,宽度为300; (2)定义一个名称为“Label1”、标题为“请输入密码”、字号为10磅的标签;(3)定义一个名称为“Text1”的文本框,用于输入密码,当输入密码时,屏幕显示“*”;(4)定义一个名称为“Label2”的标签,标题为空,自动调整控件大小;(5)定义一个名称为“Command1”,标题为“显示密码”的按钮,当单击该按钮时,标签“Label2”显示输入的密码,编写Click事件代码(6)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单。(不得退出VFP系统) 操作要点:
1)注意将text1的属性passwordchar设置为:*
2) “显示密码” 按钮Command1 的Click事件代码:
写法一:
Thisform.Label2.Caption=Thisform.Text1.Value
写法二:
X=Thisform.Text1.Value
Thisform.Label2.Caption=X
3)“关闭”的按钮Command2的Click事件代码:Thisform.Release
(二)
- 1 -
Command1 的CLICK事件代码:
if thisform.text1.value="abc"
thisform.label2.caption="欢迎使用"
else
thisform.label2.caption="密码错误" Endif
Command2 的CLICK事件代码:
thisform.release
(三)
代码编写:
1) “确定” 按钮Command1 的Click事件代码:
If Thisform.text1.value=”ABCD”
Messagebox(“欢迎光临”,65,“密码正确“)
Else
Messagebox(“禁止进入“,65,”密码错误“)
Endif
2)“关闭”的按钮 Command2的Click事件代码:Thisform.Release
(四)
- 2 -
代码编写:
1) “确定” 按钮Command1 的Click事件代码:
r=val(thisform.text1.value)
s=3.1415926*r*r
messagebox(str(s,5,2),65,”面积”)
2) “关闭”的按钮 Command2的Click事件代码:Thisform.Release
(五)
题目要求:
(1) 该表单的名称为“Form1”,标题为“温度转换”,高度为260,宽度为400;2) 定义一个名称为“Label1”标题为“摄氏温度”的标签;再定义一个名称为“Label2”标题为“华氏温度”的标签,两个标签的字号均为11磅;3) 定义一个名称为“Text1”的文本框,用于输入摄氏温度,再定义一个名称为“Text2”的文本框,具有只读属性,用于显示华氏温度; 4) 定义一个名称为“Command1”,标题为“转换”的按钮,当单击该按钮时,将输入的摄氏温度转换成华氏温度并显示在Text2文本框中,编写其Click事件代码;其中:华氏温度=9/5*摄氏温度+325) 定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)“转换” 按钮Command1的Click事件代码:
X=Val(Thisform.Text1.Value)
Thisform.Text2.Value=9/5*X+32
2)“关闭”的按钮 Command2的Click事件代码:Thisform.Release
(六)
题目要求:
(1)该表单的名称为“Form1”,标题为“计算”,高度为260,宽度为400;(2)定义三个文本框,从左到右名称分别为“Text1”、“Text2”和“Text3”,其中“Text1”、“Text2”用于输入两个数,“Text3”用于显示“Text1”和“Text2”中两数之和;(3)定义一个名称为“Label1”的标签,标题为“+”; (4)定义一个名称为“Label2”的标签,标题为“等于”;(5)定义一个名称为“Command1”,标题为“确定”的按钮,当单击该按钮时,文本框“Text3”中显示“Text1”和“Text2”中两数之和;(6)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统) 操作要点:
1)“确定” 按钮Command1 的Click事件代码:
X=Val(Thisform.Text1.Value)
Y=Val(Thisform.Text2.Value)
Thisform.Text3.Value=X+Y
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release
- 3 -
(七)
题目要求:
(1)该表单的名称为“Form1”,标题为“奇偶判断”,高度为260,宽度为400;(2)定义一个名称为“Label1”标题为“请输入一个数”的标签;(3)定义一个名称为“Label2”标题为“结果”的标签;(4)定义一个名称为“Text1”的文本框;(5)定义一个名称为“Text2”的文本框,具有只读属性(6)定义一个名称为“Command1”,标题为“判断”的按钮,当单击该按钮时,若Text1文本框输入的为偶数,则在Text2文本框中显示“这是一个偶数”,否则显示“这是一个奇数”,编写其Click事件代码;(7)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统) 操作要点:1)“判定” 按钮Command1 的Click事件代码:
X=Val(Thisform.Text1.Value)
IF MOD(X,2)=0
Thisform.Text2.Value=“这是一个偶数!”
ELSE
Thisform.Text2.Value=“这是一个奇数!”
ENDIF
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release (八)
代码编写:
1)“计算” 按钮Command1 的Click事件代码:
x=thisform.text1.value
thisform.text2.value=x^2
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release
- 4 -
(九)
代码编写:
1)“产生随机数” 按钮Command1 的Click事件代码:
x=int(1000*rand())
if x>=100
thisform.text1.value=x
Endif
2) “判别” 按钮Command2 的Click事件代码:
X=thisform.text1.value
If mod(x,2)=0
Thisform.label2.caption=“偶数“
Else
Thisform.label2.caption=“奇数“
endif
3)“关闭”的按钮 Command3的Click事件代码: Thisform.Release (十)
题目要求:
(1)该表单的名称为“Form1”,标题为“颜色设置”,高度为260,宽度为400;(2)定义一个名称为“Label1”标题为“红”的标签;(3)定义一个名称为“Label2”标题为“绿”的标签;(4)定义一个名称为“Label3”标题为“蓝”的标签;(5)定义三个名称分别为“Text1”、“Text2”、“Text3”的文本框; (6)定义一个名称为“Command1”,标题为“设置为表单背景色”的按
- 5 -
钮,当单击该按钮时,表单背景色设置为用3个文本框中数字组成的rgb颜色,编写Click事件代码;(7)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统) “设置为表单背景色” 按钮
操作要点:
1)Command1 的Click事件代码:
X=Val(Thisform.Text1.Value)
Y=Val(Thisform.Text2.Value)
Z=Val(Thisform.Text3.Value)
Thisform.Backcolor=RGB(X,Y,Z)
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release 二、列表框
(十一)
题目要求:
(1)该表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400;
(2)定义一个名称为“LABEL1”,标题为“你的选择是”的标签;
(2)定义一个名称为“TEXT1”的文本框,具有只读属性;
(3)定义一个名称为“List1”的列表框,数据来源类型为值,列表项的来源设置为“神州5号,神州6号,嫦娥1号”,当选中列表项后,选中的项显示在文本框中,编写其CLICK事件代码。
(4)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。 操作要点:
1)TEXT1的只读设置: READONLY属性设为.T.
2)LIST1的ROWSOURCETYPE属性选择”1--值”,ROWSOURCE属性里写上“神州5号,神州6号,嫦娥1号” 注意:分隔的逗号全部是英文逗号~~~
3)列表框LIST1的CLICK事件代码:
thisform.text1.value=this.value
或:thisform.text1.value=thisform.list1.value 4)“关闭”按钮 Command1的Click事件代码:
Thisform.Release
(十二)
- 6 -
题目要求:
(1)该表单的名称为“Form1”,标题为“风景区添加”,高度为260,宽度为400;(2)定义一个名称为“Text1”的文本框,字体为10磅字; (3)定义一个名称为“List1”的列表框,数据来源类型为1,列表项的来源设置为“泰山,黄山” (4)定义一个名称为“Command1”,标题为“添加”的按钮,当单击该按钮时,文本框中输入的内容添加到列表框最后,编写其Click事件代码;(5)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。
代码编写:
1)“添加” 按钮Command1 的Click事件代码:
X=Thisform.Text1.Value
Thisform.List1.AddItem(X)
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release
(十三)
题目要求:
(1)该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400;(2)定义一个名称为“List1”列表框,字号为11磅,用于显示偶数;(3)定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,将1到100之间的偶数显示在列表框“List1”中,编写其Click事件代码;(4)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
代码编写:
1)“开始” 按钮Command1 的Click事件代码:
FOR N=2 TO 100 STEP 2
Thisform.List1.AddItem(STR(N,3))
ENDFOR
注意:因为列表框的默认类型为字符型,所以加数字进去时要使用函数转换。
2)“关闭”的按钮 Command2的Click事件代码: Thisform.Release (十四)
- 7 -
题目要求:
1) 表单的名称为“Form1”,标题为“列表框应用”,高度为260,宽度为400;2) 定义一个名称为“Label1”标题为“你选中的项是”的标签;3) 定义一个名称为“Text1”的文本框,具有只读属性; 4) 定义一个名称为“List1”的列表框,数据来源类型为“值”,项的来源为“ A,B,C,D,E”,当选中列表项后,选中的项显示在文本框中,编写其Click事件代码;6) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。 代码编写:1)列表框List1 的Click事件代码:
X=Thisform.List1.Value
Thisform.Text1.Value=X
2)“关闭”的按钮 Command1的Click事件代码:Thisform.Release
(十五)
操作要点:
1)“添加到右边”按钮 Command1的Click事件代码:
thisform.list2.additem(thisform.list1.value) 2)“关闭”按钮 Command2的Click事件代码: Thisform.Release
三、组合框
(十六)
题目要求:
1) 该表单的名称为“Form1”,标题为“课程选择”,高度为260,宽度为400;2) 定义一个名称为“Combo1”的下拉组合框,数据来源类型为1,列表项的来源设置为“计算机基础,高等
数学
数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划
,大学
英语
关于好奇心的名言警句英语高中英语词汇下载高中英语词汇 下载英语衡水体下载小学英语关于形容词和副词的题
”,编写其Click事件代码,使得选中的列表项显示在文本框中;3)定义一个名称为“Text1”的文本框,字体为12磅字,用于显示列表框选中的列表项;4) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)。
- 8 -
操作要点:
1)下拉组合框Combo1 的Click事件代码:
Thisform.Text1.Value= Thisform.Combo1.Value 2)“关闭”的按钮 Command1的Click事件代码: Thisform.Release
(十七)
题目要求:
1) 该表单的名称为“Form1”,标题为“成绩表单”,高度为260,宽度为400;2) 将考生文件夹下的自由表cj.dbf添加
到表单的数据环境中;3) 定义一个名称为“Combo1”下拉列表框,数据来源类型为“字段”,数据项的来源为cj表中“姓名”
字段;4) 定义一个名称为“Text1”的文本框;5)编写下拉列表框的“Click”事件代码,将选中学生所对应的成绩显示在
文本框中;6) 定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。
操作要点:
1)下拉列表框Combo1 的Click事件代码: Thisform.Text1.Value=成绩
2)“关闭”的按钮 Command1的Click事件代码: Thisform.Release
四、复选框
(十八)
(法1)Check1 的Value属性值初始为数值型.
复选框Check1 的Click事件代码:
IF ThisForm.Check1.Value=1
ThisForm.Label1.Fontunderline=.T.
ELSE
ThisForm.Label1.Fontunderline=.F. ENDIF
- 9 -
(法2)Check1 的Value属性值初始为逻辑型.
复选框Check1 的Click事件代码:
IF ThisForm.Check1.Value=.T.
ThisForm.Label1.Fontunderline=.T.
ELSE
ThisForm.Label1.Fontunderline=.F.
ENDIF
(十九)
题目要求:
(1) 表单的名称为“Form1”,标题为“设置窗口”.
(2)定义一个名称为“Label1”、标题为“请输入内容”的标签,字体为加粗、楷体14磅字。(3)定义一个名称为“Text1”高度适中的文本框,Value值为“请观察效果”;(4)定义一个名称为“Check1”,标题为“文本框背景为红色”、Value值为.F.的复选框,当选中该复选框时,“Text1”背景为红色(RGB值为255,0,0),当未选中该复选框时,“Text1”背景为白色(RGB值为255,255,255);(5)定义一名称为“Check2”,标题 “文本框前景为蓝色”、Value值为.F.的复选框,当选中该复选框时,“Text1”前景为蓝色(RGB值为0,0,255), 未选中该复选框时,“Text1”前景为黑色(RGB值为0,0,0) (6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不退出VFP系统)。 操作要点:
1)复选框Check1 的Click事件代码:
IF ThisForm.Check1.Value=.T.
ThisForm.Text1.BackColor=RGB(255,0,0)
ELSE
ThisForm.Text1.BackColor=RGB(255,255,255)
ENDIF
2)复选框Check2 的Click事件代码:
IF ThisForm.Check2.Value=.T.
ThisForm.Text1.ForeColor=RGB(0,0,255)
ELSE
ThisForm.Text1.BackColor=RGB(0,0,0)
ENDIF
说明:因为题目要求将CHECK1和CHECK2的初值设为.F.,所以代码里要把复选框写成相应的逻辑型。
- 10 -
(二十)
“添加”按钮的click事件代码为:
Thisform.list1.clear
If thisform.check1.value=.t.
Thisform.list1.additem(thisform.check1.caption) Endif
If thisform.check2.value=.t.
Thisform.list1.additem(thisform.check2.caption) Endif
If thisform.check3.value=.t.
Thisform.list1.additem(thisform.check3.caption) Endif
“关闭”按钮的Click事件代码:Thisform.Release
五、选项按钮组
(二十一)
(1)该表单的名称为“Form1”,标题为“我的表单”,高度为260,宽度为400;
(2)定义一个名称为“LABEL1”,标题为“请输入文本内容”的标签,字号为楷体,加粗,14磅字。 (3)定义一个名称为“TEXT1”的文本框,字号为16磅字,用于输入文本;
(4)定义一个名称为“LABEL2”,标题为“请选择字体”的标签,字体为黑体,加粗,12磅字。 (5)定义一个名称为“OPTIONGROUP1”的选项按钮组,标题依次为“宋体”、“隶书”、“黑体”、“幼圆”,当选中某个按钮时,文本框中的字体发生相应的变化,用DO CASE结构编写CLICK事件代码。
(6)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时释放该表单 (不得退出VFP系统)。
- 11 -
操作要点:
1)选项按钮组OPTIONGROUP1的CLICK事件代码:
do case
case this.value=1
thisform.text1.fontname="宋体"
case this.value=2
thisform.text1.fontname="隶书"
case this.value=3
thisform.text1.fontname="黑体"
case this.value=4
thisform.text1.fontname="幼圆"
Endcase
2)关闭按钮COMMAND1的CLCK事件代码:
THISFORM.RELEASE
(二十二)
题目要求:
(1)该表单的名称为“Form1”,标题为“字符转换”,高度为260,宽度为400; (2)定义一个名称为“Label1”、标题为“请输入字符串”的标签,字体为加粗12磅字; (3)定义一个名称为“Text1”的文本框,字体为10磅字,用于输入字符串; (4)定义一个名称为“OptionGroup1”的选项按钮组,2个按钮的标题顺序为“转成大写”、“转成小写”,当选中某个按钮
时,文本框输入的字符串发生相应的变化,编写“OptionGroup1”的Click事件代码; (5)定义一个名称为“Command1”,标题为“关闭”的按钮,当单击该按钮时,释放该表单 (不得退出VFP系统)
操作要点:
1)选项按钮组OPTIONGROUP1的CLICK事件代码:
x=thisform.text1.value
do case
case this.value=1
thisform.text1.value=upper(x)
case this.value=2
thisform.text1.value=lower(x) Endcase
2)关闭按钮COMMAND1的CLICK事件代码:
Thisform.release
- 12 -
六、命令按钮组
(二十三)
题目要求:
(1)该表单的名称为“Form1”,标题为“学生成绩查询”,高度为260,宽度为400; (2)将xdcj.dbf添加到表单的数据环境中
(3)将xscj表各字段拖至表单上;
(4)定义一个名称为“CommandGroup1”的命令按钮组,4个按钮的标题顺序为“第一条”、“上一条”、“下一条”、“最后一
条”当选中某个按钮时,文本框中字符串发生相应的变化,编写“CommandGroup1”的Click事件代码.
操作要点:
右击命令按钮组,在弹出的快捷菜单上选生成器,弹出“命令组生成器”对话框 选“布局”选项卡,按钮布局:水平
按钮组各命令按钮的CLICK事件代码如下:
1) COMMAND1的CLICK事件代码:
go 1
thisform.refresh
2) COMMAND2的CLICK事件代码:
skip -1
thisform.refresh
3) COMMAND3的CLICK事件代码:
Skip 1
thisform.refresh
4) COMMAND4的CLICK事件代码:
go bottom
thisform.refresh
- 13 -
七、微调控件
(二十四)
操作要点:
1)把spinner1的increment属性设置为1.00,spinnerhighvalue设为40,spinnnerlowvalue
设为6
1) Spinner1的interactivechange事件代码:
thisform.text1.fontsize=thisform.spinner1.value
2)关闭按钮COMMAND1的CLICK事件代码: thisform.release (二十五)
代码编写:
1)“设置为表单背景色”按钮COMMAND1事件代码为:
x=thisform.spinner1.value
y=thisform.spinner2.value
z=thisform.spinner3.value
thisform.backcolor=rgb(x,y,z) 2)关闭按钮COMMAND1的CLICK事件代码: thisform.release
- 14 -
七、图像控件
(二十六)
操作要点:
1)在图像控件image1的picture属性中导入一个图片文件,将image1的stretch属性设为:2-变比填充 2)确定按钮COMMAND1的CLICK事件代码:
thisform.image1.height=thisform.text1.value thisform.image1.width=thisform.text2.value 3)“关闭”的按钮 Command2的Click事件代码:
Thisform.Release
八、计时器
(二十七)
题目要求:
(1)该表单的名称为“Form1”,标题为“欢迎光临”,高度为260,宽度为400;
(2)定义一个名称为“LABEL1”,标题为“2008北京奥运”的标签,字号为12的加粗蓝色字体(RGB值为0,0,255); (3)定义一个名称为“TIMER1”的计时器,Enabled为.F. ,Interval的值为500,编写Timer事件代码,使得每执行一次代码标签上移10;
(4)定义一个名称为“Command1”,标题为“开始”的按钮,当单击该按钮时,标签LABEL1中的内容逐渐向表单上方移动;
(5)定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP系统)。 操作要点:
1)TIMER1按钮的TIMER事件代码为:
thisform.label1.top=thisform.label1.top-10
- 15 -
Command1按钮的CLICK事件代码为:
thisform.timer1.enabled=.t. 2)“关闭”的按钮 Command2的Click事件代码:
Thisform.Release
注意:1)不要忘记设置TIMER1的INTERVAL
2)执行过程:开始按钮的CLICK事件代码为激活时钟TIMER1,由TIMER1的CLICK事件代码控制标签的
移动。
(二十八)
代码编写:
1)时钟TIMER1按钮的TIMER事件代码为:
thisform.label1.left=thisform.label1.left+5
2)“开始“按钮Command1的CLICK事件代码为: thisform.timer1.enabled=.t. 3)“关闭”按钮 Command2的Click事件代码:
Thisform.Release
(二十九)
- 16 -
操作要点:
1)自动居中,把label2的aligenment属性设为2-中央
2)把label2的caption属性设为空
3)把timer1的interval属性设为1000,并在timer1的timer事件代码里写:thisform.label2.caption=time()
4)“关闭”按钮 Command2的Click事件代码: Thisform.Release (三十)
操作要点:
Timer1的timer事件代码为:
thisform.shape1.left=thisform.shape1.left+5 “关闭”按钮 的Click事件代码: Thisform.Release
八、页框
(三十一)
题目要求:
(1)该表单的名称为“Form1”,标题为“页框演示”,高度为260,宽度为400; (2)定义一个名称为“Pageframe1”的页框,含有两个页面,分别为“系统编辑”和“退出系统”。 (3) 在第一个页面中定义一个名称为“Command1”,标题为“开始”的按钮;
(4)在第二个页面中定义一个名称为“Command2”,标题为“关闭”的按钮,当单击该按钮时,释放该表单(不得退出VFP
系统)。
- 17 -
九、数据环境
(三十二)
代码编写:
1) “查询” 按钮Command1 的Click事件代码:
Go thisform.text1.value
Thisform.refresh
3)“关闭”按钮Command2的Click事件代码:Thisform.Release (三十三)
代码编写:
1) 组合框combo1的click事件代码:thisform.refresh 2)“关闭”按钮Command2的Click事件代码:Thisform.Release
- 18 -
(三十四)
1)“commandgroup1”的click事件代码:
n=this.value
do case
case n=1
if recno( )>1
skip -1
endif
case n=2
if recno( )
=60
Thisform.text1.value=x1 Count to x2 for 成绩<60
Thisform.text2.value=x2 关闭”按钮Click事件代码:Thisform.Release (三十七)
“统计”按钮的click事件代码:
Count to x1 for 性别=“男”
Thisform.text1.value=x1 Count to x2 for 性别=“女”
Thisform.text2.value=x2 关闭”按钮Click事件代码:Thisform.Release
- 20 -