VF 表單設(shè)計(jì)

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

2、接輸入999999或輸入“999999”。（5）設(shè)置文本框text2的passwordchar屬性為“*”。（6）選擇“表單”下的“新建屬性”命令，打開“新建屬性”對(duì)話框，為表單添加新屬性numc。在“屬性”窗口中將默認(rèn)值設(shè)置為0。（7）用鼠標(biāo)雙擊“確認(rèn)”按鈕，打開編輯事件代碼窗口，在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 "用戶名或口令不對(duì)，登錄失??！"window timeout 3 thisform.release else wait "用戶名或口令不對(duì)，請(qǐng)重輸"window timeout 3 endifendif2、用編輯框做一個(gè)趣味小實(shí)例摸獎(jiǎng)機(jī)，程序運(yùn)行界面如下：【分析】本題并無復(fù)雜的知識(shí)點(diǎn)，主要是在命令按鈕的click事件中對(duì)文本框輸入的值進(jìn)行判斷，根據(jù)所輸入的選擇值將其對(duì)應(yīng)的獎(jiǎng)品顯示到編輯框中?！静僮鳌浚?）新建表單，將其caption屬性

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

5、令按鈕command1的click事件代碼：do case case thisform.text1.value=1 thisform.edit1.value="您的獎(jiǎng)品是手機(jī)一部！" case thisform.text1.value=2 thisform.edit1.value="您的獎(jiǎng)品是10000元！" case thisform.text1.value=3 thisform.edit1.value="您的獎(jiǎng)品是學(xué)習(xí)機(jī)一部！" case thisform.text1.value=4 thisform.edit1.value=&q

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

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è)計(jì)競賽用的評(píng)分程序：去掉一個(gè)最高分，去掉一個(gè)最低分，選手的最后得分為剩下分?jǐn)?shù)的平均分?！舅悸贰吭O(shè)計(jì)一個(gè)可以輸入若干評(píng)委分?jǐn)?shù)

8、的表單，可以通過兩個(gè)for循環(huán)分別找出分?jǐn)?shù)的最大值和最小值，存入到兩個(gè)變量，把評(píng)委的分?jǐn)?shù)存入到一個(gè)數(shù)組中，計(jì)算時(shí)去掉找出的最大值和最小值即可得出最后得分。具體操作步驟和代碼如下：新建表單，設(shè)置表單控件布局和屬性，設(shè)置界面如下：命令按鈕command1（計(jì)算）的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)*找出評(píng)委的最高分for i=1 to 5 if b(i)>max1 max1=b(i) endifendfor*找出評(píng)委的最低分for j=1 to 5 if b(j)<min1 min1=b(j) endifendfor*計(jì)算最后得分thisform.text6.value=str(b(1)+b(2)+b(3)+b(4)+b(5)-max1-min1)/3,6,2)5、建立如下圖所示的表單，表單上有1個(gè)形狀、2個(gè)命令按鈕。單擊按鈕“畫圓”，則顯示紅色的圓，單擊按鈕“畫正方形”，則顯示白色的方框。

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、在表單上有一個(gè)命令按鈕和命令按鈕組，該命令按鈕組包括3個(gè)命令按鈕。當(dāng)單擊命令按鈕組中某個(gè)按鈕時(shí)，命令按鈕組的背景色變成相應(yīng)按鈕指定的顏色；單擊還原命令按鈕，命令按

11、鈕組背景色還原成默認(rèn)的顏色，其界面如圖所示。命令按鈕組的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、在表單上有一個(gè)文本框和三個(gè)復(fù)選框。當(dāng)單擊某個(gè)復(fù)選框時(shí)，文本框中的文字會(huì)隨之變化，如圖所示。操作步驟：（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è)置字體程序，點(diǎn)擊某字體按鈕，則文字“計(jì)算機(jī)”就變?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è)計(jì)一個(gè)“職工基本情況”表單。該表單的功能如下：單擊其底部的“第一個(gè)”按鈕將顯示職工數(shù)據(jù)庫表的第一條記錄；單擊“上一個(gè)”掃鈕將顯示上一條記錄；單擊“下一個(gè)”按鈕將顯示下一條記錄；單擊“最后一個(gè)”按鈕將顯示最后一條記錄。制作快速職工表單，其中數(shù)據(jù)表使用職工.dbf,然后插入命令按鈕組command1group，將各個(gè)按鈕的caption分別命名后，編寫command1group的click事件代碼如下：n=this.value &&am

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

17、文本框中計(jì)算式的末尾，若單擊“清除”按鈕，可將文本框清空：若單擊“=”鍵，則計(jì)算文本框中算式的值并將其結(jié)果顯示出來。若文本框中的式子無法計(jì)算則顯示“運(yùn)算式錯(cuò)誤”字樣。（1）新建一個(gè)名為計(jì)算器的表單，設(shè)置表單的Caption屬性值為：計(jì)算器。（2）在表單中添加一個(gè)文本框控件，15個(gè)命令按鈕控件，調(diào)整控件到合適的位置。設(shè)置命令按鈕的Caption屬性值為“=”號(hào)時(shí)，在Caption屬性設(shè)置處輸入：="="（3）設(shè)置文本框的Format屬性的值設(shè)置為T，定義一個(gè)名為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)有運(yùn)算符的命令按鈕的Click事件的代碼如下：IF This