VF 表單設(shè)計

1、1、用表單設(shè)計一個登錄界面，如圖下所示，當(dāng)用戶輸入用戶名和口令后，按確認鍵檢驗輸入是否正確（假設(shè)用戶名為abcdef，口令為654321）。如果輸入正確，就顯示“歡迎使用”；如果輸入不正確，則顯示“用戶名或口令不對，請重輸”；如果三次輸入都不正確，就顯示“用戶名或口令不對，登錄失??！”并且關(guān)閉表單。操作步驟如下：（1）新建表單，然后在表單上添加兩個標(biāo)簽、兩個文本框和一個命令按鈕。（2）設(shè)置兩個標(biāo)簽和一個命令按鈕的caption屬性為“用戶名：”、“口令：”和“確認”。（3）將命令按鈕“確認”的default的屬性值設(shè)置為.t.。（4）設(shè)置文本框text2的inputmask屬性值，在設(shè)置框中直

2、接輸入999999或輸入“999999”。（5）設(shè)置文本框text2的passwordchar屬性為“*”。（6）選擇“表單”下的“新建屬性”命令，打開“新建屬性”對話框，為表單添加新屬性numc。在“屬性”窗口中將默認值設(shè)置為0。（7）用鼠標(biāo)雙擊“確認”按鈕，打開編輯事件代碼窗口，在click事件中輸入下面的代碼 ：if thisform.text1.value="abcdef" and thisform.text2.value="654321" wait "歡迎使用"window timeout 3 thisform.releas

3、eelse thisform.numc=thisform.numc+1 if thisform.numc=3 wait "用戶名或口令不對，登錄失敗！"window timeout 3 thisform.release else wait "用戶名或口令不對，請重輸"window timeout 3 endifendif2、用編輯框做一個趣味小實例摸獎機，程序運行界面如下：【分析】本題并無復(fù)雜的知識點，主要是在命令按鈕的click事件中對文本框輸入的值進行判斷，根據(jù)所輸入的選擇值將其對應(yīng)的獎品顯示到編輯框中?！静僮鳌浚?）新建表單，將其caption屬性

4、值設(shè)置為“摸獎機”，autocenter屬性值設(shè)置為.t.，width和height屬性值分別設(shè)置為360和220，并將其保存為“摸獎機.scx”。（2）添加控件并設(shè)置屬性：向表單上添加一個標(biāo)簽控件label1，并將其caption屬性值設(shè)置為“請輸入您的選擇（1-4）”。向表單上添加一個文本框控件text1，將其inputmask屬性值設(shè)置為9，value屬性值設(shè)置為0。向表單上添加一個命令按鈕command1，并將其caption屬性值設(shè)置為“您獲得的獎品是”。向表單上添加一個編輯框控件edit1。（3）按上圖所示的程序運行界面，適當(dāng)調(diào)整各控件的大小及在表單上的位置。（4）添加事件代碼：命

5、令按鈕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="您的獎品是學(xué)習(xí)機一部！" case thisform.text1.value=4 thisform.edit1.value=&q

6、uot;您的獎品是彩電一臺！" otherwise thisform.edit1.value="謝謝您的參與！"endcase3、用面向?qū)ο蟪绦蛟O(shè)計方法編寫程序，判斷某一年是否是閏年。操作（1）選擇“文件”菜單下的“新建”功能，在彈出的“新建”對話框中選擇“表單”選項，然后單擊“新建文件”按鈕。（2）使用“表單控件”工具欄，在表單中的合適位置添加2個標(biāo)簽label1、label2，1個文本框text1，1個命令按鈕command1。各控件位置如后面左圖所示。（3）在表單中選中添加的標(biāo)簽label1，在“屬性”窗口中將其caption屬性設(shè)置為“請輸入需要判斷的年份

7、”；在表單中選中添加的命令按鈕，在“屬性”窗口中將其caption屬性設(shè)置為“判斷”。設(shè)置屬性后程序界面如后面左圖所示。（4）在命令按鈕command1的click事件中輸入代碼：e)if y%4=0 and y%100<>0 or y%400=0 thisform.label2.caption=str(y)+"是閏年!"else thisform.label2.caption=str(y)+"不是閏年!"endif4、設(shè)計競賽用的評分程序：去掉一個最高分，去掉一個最低分，選手的最后得分為剩下分數(shù)的平均分?！舅悸贰吭O(shè)計一個可以輸入若干評委分數(shù)

8、的表單，可以通過兩個for循環(huán)分別找出分數(shù)的最大值和最小值，存入到兩個變量，把評委的分數(shù)存入到一個數(shù)組中，計算時去掉找出的最大值和最小值即可得出最后得分。具體操作步驟和代碼如下：新建表單，設(shè)置表單控件布局和屬性，設(shè)置界面如下：命令按鈕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(al

9、lt(thisform.text5.value)max1=b(1)min1=b(1)*找出評委的最高分for i=1 to 5 if b(i)>max1 max1=b(i) endifendfor*找出評委的最低分for j=1 to 5 if b(j)<min1 min1=b(j) endifendfor*計算最后得分thisform.text6.value=str(b(1)+b(2)+b(3)+b(4)+b(5)-max1-min1)/3,6,2)5、建立如下圖所示的表單，表單上有1個形狀、2個命令按鈕。單擊按鈕“畫圓”，則顯示紅色的圓，單擊按鈕“畫正方形”，則顯示白色的方框。

10、 “commandgroup1”控件click事件代碼：Do case case this.value=1 thisform.shape1.curvature=99 thisform.shape1.backcolor=rgb(255,0,0) case this.value=2 thisform.shape1.curvature=0 thisform.shape1.backcolor=rgb(255,255,255)endcase6、在表單上有一個命令按鈕和命令按鈕組，該命令按鈕組包括3個命令按鈕。當(dāng)單擊命令按鈕組中某個按鈕時，命令按鈕組的背景色變成相應(yīng)按鈕指定的顏色；單擊還原命令按鈕，命令按

11、鈕組背景色還原成默認的顏色，其界面如圖所示。命令按鈕組的click事件代碼：do case case this.value=1 this.backcolor=rgb(255,0,0) case this.value=2 this.backcolor=rgb(255,255,0) case this.value=3 this.backcolor=rgb(0,0,255) case this.value=4 this.backcolor=rgb(255,255,255)endcasethisform.refresh還原命令按鈕的click事件代碼：mandgroup1.backcolor=rgb(

12、192,192,192)thisform.refresh7、在表單上有一個文本框和三個復(fù)選框。當(dāng)單擊某個復(fù)選框時，文本框中的文字會隨之變化，如圖所示。操作步驟：（1）選擇控件。本例中使用文本框控件和復(fù)選框控件。（2）屬性設(shè)置。文本框的value屬性設(shè)為“歡迎使用vfp！”，復(fù)選框1的caption屬性設(shè)為“粗體”，復(fù)選框2的caption屬性設(shè)為“斜體”，復(fù)選框3的caption屬性設(shè)為“下劃線”。（3）編寫代碼。雙擊復(fù)選框1，打開代碼窗口，在click事件中輸入如下代碼：if this.value=1 thisform.text1.fontbold=.t.else thisform.text

13、1.fontbold=.f.endif雙擊復(fù)選框2，打開代碼窗口，在click事件中輸入如下代碼：if this.value=1 thisform.text1.fontitalic=.t.else thisform.text1.fontitalic=.f.endif雙擊復(fù)選框3，打開代碼窗口，在click事件中輸入如下代碼：if this.value=1 thisform.text1.fontunderline=.t.else thisform.text1.fontunderline=.f.endif8、設(shè)置字體程序，點擊某字體按鈕，則文字“計算機”就變?yōu)樵撟煮w。 “加粗”check1的cli

14、ck事件代碼：if this.value=1 thisform.label1.fontbold=.t.else thisform.label1.fontbold=.f.endif “commandgroup1”控件click事件代碼：do case case mandgroup1.value=1 thisform.label1.fontname="隸書" case this.value=2 thisform.label1.fontname="華文行楷" case this.value=3 thisform.label1.fontname="華文

15、彩云" case this.value=4 thisform.label1.fontname="華文新魏"endcase9、設(shè)計一個“職工基本情況”表單。該表單的功能如下：單擊其底部的“第一個”按鈕將顯示職工數(shù)據(jù)庫表的第一條記錄；單擊“上一個”掃鈕將顯示上一條記錄；單擊“下一個”按鈕將顯示下一條記錄；單擊“最后一個”按鈕將顯示最后一條記錄。制作快速職工表單，其中數(shù)據(jù)表使用職工.dbf,然后插入命令按鈕組command1group，將各個按鈕的caption分別命名后，編寫command1group的click事件代碼如下：n=this.value &&am

16、p; 按鈕組選擇值do case case n=1 && 第一個 go top case n=2 && 上一個 if bof() or recno()=1 go bottom else skip -1 endif case n=3 && 下一個 if eof() or recno()=reccount() go top else skip endif case n=4 && 最后一個 go bottomendcasethisform.refresh10、設(shè)計一個簡單的計算器。要求：單擊數(shù)字鍵、小數(shù)點或運算符號鍵，能將相應(yīng)字符添加到

17、文本框中計算式的末尾，若單擊“清除”按鈕，可將文本框清空：若單擊“=”鍵，則計算文本框中算式的值并將其結(jié)果顯示出來。若文本框中的式子無法計算則顯示“運算式錯誤”字樣。（1）新建一個名為計算器的表單，設(shè)置表單的Caption屬性值為：計算器。（2）在表單中添加一個文本框控件，15個命令按鈕控件，調(diào)整控件到合適的位置。設(shè)置命令按鈕的Caption屬性值為“=”號時，在Caption屬性設(shè)置處輸入：="="（3）設(shè)置文本框的Format屬性的值設(shè)置為T，定義一個名為x的表單屬性。（4）設(shè)置所有標(biāo)有09以及“.”的命令按鈕的Click事件的代碼如下：IF Thisform.x &&如果剛按過"="按鈕 This.Parent.Text1.Value="" &&清除式子 Thisform.x=.F. &&表示已按其它按鈕ENDIFThis.Parent.Text1.Value=This.Parent.Text1.Value+This.Caption 設(shè)置所有標(biāo)有運算符的命令按鈕的Click事件的代碼如下：IF This