VF 表单设计

1、用表单设计一个登录界面，如图下所示，当用户输入用户名和口令后，按确认键检验输入是否正确（假设用户名为abcdef，口令为654321）。如果输入正确，就显示“欢迎使用……”；如果输入不正确，则显示“用户名或口令不对，请重输……”；如果三次输入都不正确，就显示“用户名或口令不对，登录失败！”并且关闭表单。

操作步骤如下：

（1）新建表单，然后在表单上添加两个标签、两个文本框和一个命令按钮。

（2）设置两个标签和一个命令按钮的caption属性为“用户名：”、“口令：”和“确认”。

（3）将命令按钮“确认”的default的属性值设置为.t.。

（4）设置文本框text2的inputmask属性值，在设置框中直接输入999999或输入“999999”。

（5）设置文本框text2的passwordchar属性为“*”。

（6）选择“表单”下的“新建属性”命令，打开“新建属性”对话框，为表单添加新属性numc。在“属性”窗口中将默认值设置为0。

（7）用鼠标双击“确认”按钮，打开编辑事件代码窗口，在click事件中输入下面的代码：

if thisform.text1.value="abcdef" and thisform.text2.value="654321"

wait "欢迎使用……"window timeout 3

thisform.release

else

thisform.numc=thisform.numc+1

if thisform.numc=3

wait "用户名或口令不对，登录失败！"window timeout 3

thisform.release

else

wait "用户名或口令不对，请重输……"window timeout 3

endif

endif

2、用编辑框做一个趣味小实例——摸奖机，程序运行界面如下：

【分析】本题并无复杂的知识点，主要是在命令按钮的click事件中对文本框输入的值进行判断，根据所输入的选择值将其对应的奖品显示到编辑框中。

【操作】

（1）新建表单，将其caption属性值设置为“摸奖机”，autocenter属性值设置为.t.，width 和height属性值分别设置为360和220，并将其保存为“摸奖机.scx”。

（2）添加控件并设置属性：

①向表单上添加一个标签控件label1，并将其caption属性值设置为“请输入您的选择（1-4）”。

②向表单上添加一个文本框控件text1，将其inputmask属性值设置为9，value属性值设置为0。

③向表单上添加一个命令按钮command1，并将其caption属性值设置为“您获得的奖品是”。

④向表单上添加一个编辑框控件edit1。

（3）按上图所示的程序运行界面，适当调整各控件的大小及在表单上的位置。

（4）添加事件代码：

命令按钮command1的click事件代码：

do case

case thisform.text1.value=1

thisform.edit1.value="您的奖品是手机一部！"

case thisform.text1.value=2

thisform.edit1.value="您的奖品是10000元！"

case thisform.text1.value=3

thisform.edit1.value="您的奖品是学习机一部！"

case thisform.text1.value=4

thisform.edit1.value="您的奖品是彩电一台！"

otherwise

thisform.edit1.value="谢谢您的参与！"

endcase

3、用面向对象程序设计方法编写程序，判断某一年是否是闰年。

[操作]

（1）选择“文件”菜单下的“新建”功能，在弹出的“新建”对话框中选择“表单”选项，然后单击“新建文件”按钮。

（2）使用“表单控件”工具栏，在表单中的合适位置添加2个标签label1、label2，1个文本框text1，1个命令按钮command1。各控件位置如后面左图所示。

（3）在表单中选中添加的标签label1，在“属性”窗口中将其caption属性设置为“请输入需要判断的年份”；在表单中选中添加的命令按钮，在“属性”窗口中将其caption属性设置为“判断”。设置属性后程序界面如后面左图所示。

（4）在命令按钮command1的click事件中输入代码：

y=val(thisform.text1.value)

if y%4=0 and y%100<>0 or y%400=0

bel2.caption=str(y)+"是闰年!"

else

bel2.caption=str(y)+"不是闰年!"

endif

4、设计竞赛用的评分程序：去掉一个最高分，去掉一个最低分，选手的最后得分为剩下分数的平均分。

【思路】设计一个可以输入若干评委分数的表单，可以通过两个for循环分别找出分数的最大值和最小值，存入到两个变量，把评委的分数存入到一个数组中，计算时去掉找出的最大值和最小值即可得出最后得分。具体操作步骤和代码如下：

新建表单，设置表单控件布局和属性，设置界面如下：

命令按钮command1（计算）的click事件代码：

dime b(5)

b(1)=val(allt(thisform.text1.value))

b(2)=val(allt(thisform.text2.value))

b(3)=val(allt(thisform.text3.value))

b(4)=val(allt(thisform.text4.value))

b(5)=val(allt(thisform.text5.value))

max1=b(1)

min1=b(1)

*找出评委的最高分

for i=1 to 5

if b(i)>max1

max1=b(i)

endif

endfor

*找出评委的最低分