文本框在VFP表单中的应用

董大伟

(吉林工商学院 吉林长春 130062)

1 引言

VFP6.0是一个功能强大的数据库管理系统(DBMS),VFP6.0的优点比较明显:简单、快速、有效、灵活。它能迅速而又简单地建立用户的数据库,从而方便地使用和管理数据。因此VFP6.0具有广泛的使用基础,高校非计算机专业基本都开设这门数据库编程语言,并且也是在校学生报考计算机等级考试的优选科目。VFP表单是一个友好的交互界面,VFP表单主要靠控件进行设计和支撑,在众多的控件当中,文本框(Text)是很重要的一个控件。生活当中的很多应用都离不开用户输入或编辑数据,而能接收和编辑数据的控件就是文本框。在文本框中可以编辑任何类型数据,例如字符型、数值型、逻辑型、日期型。因此,掌握文本框控件的应用是解决问题的关键,下面我们来看一下文本框控件的几个例子。

2 实例与实现

(1)设计如图所示表单,利用文本框输入圆的半径,单击“计算”命令按钮,给出圆的周长。

操作如下:

①创建表单,添加两个标签控件,两个文本框控件,两个命令按钮控件,并设置相应属性。其中为了防止得出的周长被修改,我们可以设置第二个文本框text2的readonly属性为.T.。

图1

图2

②“计算”命令按钮的click事件代码如下:

r=val(thisform.text1.value)

thisform.text2.value=2*3.14*r

(2)设计如图所示的“登录”表单,当用户输入用户名或密码并单击“确认”按钮后,系统要检验输入的用户名和密码是否正确。如果正确,则显示“欢迎使用本系统”并释放表单;若不正确,则显示“用户名或密码不正确,请重新输入”,如果连续三次输入不正确,则显示“已超过输入次数,登录失败”并关闭表单。

操作如下:

①创建表单,添加两个标签控件,两个文本框控件,两个命令按钮控件。并设置相应属性。由于系统要统计输入的次数,所以要为表单新建属性num,在“属性窗口”中设置属性num的初始值为0。

②“确定”命令按钮的click事件代码如下:

假定用户名是yingyong,密码是yy123456。

aa=alltrim(thisform.text1.value)

bb=alltrim(thisform.text2.value)

if aa="yingyong".and.bb=" yy123456"

messagebox("欢迎使用本系统!")

do form 主界面.scx

thisform.release

else

thisform.num=thisform.num+1

if thisform.num=3

messagebox("已超过输入次数,登录失败")

thisform.release

else

messagebox("用户名或密码不正确,请重新输入")

thisform.text1.value=""

thisform.text2.value=""

thisform.text1.setfocus

endif

endif

3 结语

VFP表单当中最重要的控件就是文本框,因此我们要掌握文本框的相关知识点。

[1]王志强.基于VFP的一个动态登录界面 [J].甘肃科技纵横期刊,2010,39(2):31-33.

[2]教育部考试中心.Visual Foxpro数据库程序设计[M].北京:高等教育出版社,2006.219.