VFP表单教学案例

1、一、如何建立一个完整的VFP应用程序建立一个完整的VFP应用程序的操作步骤为:1.建立一个工程文件，将用到的文件添加到工程文件中(或者在工程文件中建立所需的文件)，将其中一个文件设置为主文件。2.连编，形成exe文件，就可以在脱离VFP环境运行。3关闭VFP,双击exe文件运行。下面以求圆的面积为例，来讲生成VFP应用程序的步骤:1.建立一个工程文件，文件名为：圆面积pjx在其中新建一个程序文件，文件名为main.prg,作为主文件，主文件中的命令语句是运行一 个求圆而积的表单文件，表单文件名为：yuan.scxo将main.prg添加到工程文件中，当然也可以直接在工程文件中建立。将main.

2、prg设置为主 文件。在工程管理器窗口中目录树中选择“代码”中的程序”，如果main.prg是黑体显示 的，表明此文件已经是主文件，否则，选泄此文件，用“工程”菜单中的“设置主文件”将 其设宜成主文件。将表单文件yuan.scx也添加到工程文件中。同样也可在工程文件中直接建立。(1) Main.prg文件的内容为:Set default to f:xt&这里f:xt要根据自己的文件地址写Do form yuan.scxRead events(2)建立表单文件yuamscx,运行如下图:步骤如下:a.选择 文件 新建。表单，出现“表单设计器”窗口,b.添加控件 在表单控件工具栏，选择标签按钮，在

3、表单空白处按下鼠标拖动，表单上显示标签控 件label 1 同样方法，再做一个标签控件labe!2,两个文本框控件Textl和Tcxt2,两个命令按 钮Command!, Command2,如图分别设置他们的属性.c 设置对象的属性:分别选中lablek label2 Textl Text2 CommandK command2,按下表分别设置它们的属 性：对象属性名属性值label 11Caplion输入圆的半径：label?Caplion圆的面积为:TextlValue0Text2Value0Command 1Jcaption计算 一 丿Command?caption退出d编写事件代码为co

4、mmandl（“计算”按钮）编写click事件代码（即单击“计算“按钮时发生的事件）：但表单设计器冲双击F算按钮，弹岀代码窗口，如下图M Command1. Click MR(ciscifr=thisform. textl. valuethisform. text2. value=3.1415少r*rthisforwrefresh我们在该窗口的“过程“列表中选“click,然后在窗口的编辑区中输入如下代码:r=thisform. textl .valuethisform.text2.value=3.14159*r*rthisform.refresh同样方法，为command2退岀按钮)编写cl

5、ick事件代码：fiConnand2. Click班采0 QCesC二|r zJclear ev已nts二thisform release其中的clear events语句与询面主程序中的read events相对应在脱离VFP环境运行时,有 这句才可以正常退出。2.连编，形成exe文件，就可以在脱离VFP环境运行。方法是：在工程管理器窗口中，单击“连编”按钮，选择“连编可执行文件”，即可生成.CXC 文件。3关闭VFP,双击exe文件运行。通过这个例子可以看到，编写一个VFP应用程序并没有我们想像的难。二、设计一个表单，实现求一元二次方程的解。操作步骤：1建立一个表单文件，如下图添加控件，设

6、置控件属性。文本框的Value属性值为0.2编写“计算”和“取消”这两个命令代码的dick事件代码:(1)计算”命令代码的click事件代码如下：a=-thisforiri text 1 value b=thisfonri. tcxt2.value c=thisfcnru text3.value d二xl=-b+sqrt(d)/(2*a) x2=(-b-sqrt(d)/(2*a) thisfarni. text4. value=xl thisforn. text5. value=x2(2) “取消”命令代码的click事件代码:thisforni releasej3保存表单文件，运行结果如下图

7、:三、设计一个如下表单，单击按钮显示或隐藏图片按 钮。操作步骤如下：1建立一个表单文件，如图添加4个命令按钮控件，设置caption属性。设置上面按钮的picture属性值为某一张图片。2编写事件代码：(1)在forml的初始化init事件中输入:thisforro. coirniand4. visible=. f.thisforro. coirniand2. enabl ed=. f.I（2）在“显示”按钮的的click中输入:thisforni conarand4 visible二.t thisforic conarand2 enabl ed= t thisforir conorand 1

8、 cnabl cd= f.（3）在“隐藏”按钮的click中输入:th! sforju coraDand4 visible二.f thisforjri conimarjd2 enabl ed= f thisforiru coranond 1 cncbl cd= t（4）在“结束”的click中输入: thisform.releasethisorn） rcl case3保存表单文件，运行。四、设计一个登录表单，学生的学号和姓名是在一个表文件中存放。1建立一个表单文件，如图添加控件，设置caption属性。2编写事件代码：（1）表单的load和unload事件代码如下:use e:swdent檢文

9、件地址要根更具体的文件地址来写use（2）在“登录”按钮的click事件中输入：（绿色的一行，将用于执行一个文件）xh-thisform text1. valuexnFthisforiD text 2 .valuelocate for student.学号二 all trim (xb) if found) and student. =alltrin)(yn)woi 戈有这个考生windows tincovt 5 丼运行一个文件elsewait丄汝有这彳、考生” windows tineout 5 thisform releaseendif（3）在“退出”按钮的click事件中输入:thisfa

10、rm release3保存表单文件，运行。五、设计一个如下登录表单，用户名为:abedef,密码为:123456,用户最多允许输入三次。1建立一个表单文件，如图添加控件，设置caption属性。2编写事件代码：（1）表单的load和unload事件代码如下:dear neincry（2）在“确定”按钮的click事件中输入：（绿色的一行，将用于执行一个文件）n=n+li thisform.valued abcdef and thisforw toxt2 alue= 123456wait迎使用 windows tiiceout 5牛运行基一个文件dothisfonn. releaseelseif

11、 n=3wait 用户名和密码不对，请重新输入广windows timeout 5 thisform. twtl. yGue二 thisform. text2. value=/z?, thisform. textl. setfocuselseneEsagEbM非法用户，禁止逬入!)thisform releaseendifendif（3）在“取消”按钮的click事件中输入:thisfonr. release3保存表单文件，运行。六、建立一个实现查询student.dbf表文件的表单文件，运行如下图:步骤如下:1建立表单文件，添加控件，并设置控件属性。a. 选择文件新建。表单b. 添加控件C设置对象的属性：标签.文本框.命令按钮属性自己根据图示设置。表格的属性：recordsource属性设置为：student, recordsourcetype属性设置为：4-SQL说 明.（要将student.dbf和studentfpt复制相应的位置，如E:）2编写事件代码（1）为表单的load事件设置代码：use e:student注意：地址要根据自己文件的放置位置来 定：为表单的unload事件设It代码：use（2）为commandlC査询按钮）编写click事件代码，