表單程序匯總

1、【例】設(shè)計(jì)如圖表單，圓面積用標(biāo)簽輸出。例】設(shè)計(jì)如圖表單，圓面積用標(biāo)簽輸出。 【例【例】命令按鈕】命令按鈕“計(jì)算圓面積計(jì)算圓面積”的的“click”事件代碼如下：事件代碼如下： R=thisform.text1.valueS= pi() *r*rthisform.label3.caption= alltrim(str(s,8,1)只接收字符類型只接收字符類型【例【例】設(shè)計(jì)如圖所示表單，表單運(yùn)行后，在文本框中輸入圓半】設(shè)計(jì)如圖所示表單，表單運(yùn)行后，在文本框中輸入圓半徑徑,單擊單擊“圓面積圓面積”按鈕，可以彈出提示框顯示圓面積按鈕，可以彈出提示框顯示圓面積,如圖所如圖所示。編寫(xiě)示。編寫(xiě)“圓面積圓面積

2、”按鈕的事件代碼。按鈕的事件代碼。 “圓面積圓面積”按鈕的按鈕的click事件代碼：事件代碼：r=thisform.text1.values=pi()*r*rmessagebox(圓面積圓面積=+alltrim(str(s,8,1) 設(shè)計(jì)一表單，要求能輸入一個(gè)設(shè)計(jì)一表單，要求能輸入一個(gè)3位數(shù)，并逆序顯示位數(shù)，并逆序顯示（如輸入（如輸入756，則顯示，則顯示657）。表單設(shè)計(jì)界面如圖）。表單設(shè)計(jì)界面如圖2-22所示，運(yùn)行結(jié)果如圖所示，運(yùn)行結(jié)果如圖2-23所示。所示。 如果輸入的不是一個(gè)如果輸入的不是一個(gè)3位自然數(shù)，將彈出提示框，如圖位自然數(shù)，將彈出提示框，如圖2-34所示。所示。 命令按鈕命令按

3、鈕“逆序顯示逆序顯示”的的“click”事件代碼如下：事件代碼如下：x=thisform.text1.valueif x=100 and xc and a+cb and b+ca =(a+b+c)/2 area=sqrt( *( -a)*( -b)*( -c) thisform.text4.value=round(area,1) elsemessagebox(“不能構(gòu)成三角形，重新輸入！不能構(gòu)成三角形，重新輸入！)thisform.text1.value=0thisform.text2.value=0thisform.text3.value=0thisform.text4.value=0thi

4、sform.text1.setfocus endif llllll清空文本框清空文本框光標(biāo)定位在光標(biāo)定位在text1中中判斷某一年是否是閏年判斷某一年是否是閏年 假如年份用y表示，判斷y是否是閏年的方法是：若y能夠被400整除或y能夠被4整除并且不能夠被100整除 提示：判斷一個(gè)整數(shù)提示：判斷一個(gè)整數(shù)M M能否被另一個(gè)整數(shù)能否被另一個(gè)整數(shù)N N整除，一般整除，一般采用三種方法，采用三種方法，判斷判斷: :MOD(M,N)MOD(M,N)是否等于是否等于0 0INT(M/N) INT(M/N) 是否等于是否等于M/NM/NM%N=0M%N=0若等于，則表明若等于，則表明M M能被能被N N整除。

5、整除。 ( (教材教材P54)P54) 【例【例3-43-4】設(shè)計(jì)如圖】設(shè)計(jì)如圖3-133-13所示表單，其中文所示表單，其中文本框本框Text1Text1中可以接受日期型數(shù)據(jù)，運(yùn)行表單后在中可以接受日期型數(shù)據(jù)，運(yùn)行表單后在Text1Text1中輸入日期：中輸入日期：08/25/1108/25/11，單擊命令按鈕，單擊命令按鈕“Command1”Command1”，則標(biāo)簽，則標(biāo)簽Label2Label2顯示什么？其中顯示什么？其中command1command1控件的控件的clickclick事件代碼：事件代碼：d=thisform.text1.valued=thisform.text1.va

6、luey=year(dy=year(d) )IF IF y%400=0 or (y%4=0 and y%100#0)y%400=0 or (y%4=0 and y%100#0) y1= y1=是是 ELSEELSE y1= y1=不是不是 ENDIFENDIFthisform.label2.caption=y1 thisform.label2.caption=y1 EXM2EXM2：輸入兩個(gè)數(shù)，比較大小，并：輸入兩個(gè)數(shù)，比較大小，并輸出較大數(shù)。輸出較大數(shù)。EXM3EXM3：輸入兩個(gè)數(shù)，比較大小，并：輸入兩個(gè)數(shù)，比較大小，并按從大到小的順序輸出。按從大到小的順序輸出。思考：輸入思考：輸入3個(gè)數(shù)個(gè)

7、數(shù)a,b,c，比較，比較大小，并按從大到小的順序大小，并按從大到小的順序輸出。輸出。command1控件的控件的click事件代碼：事件代碼：輸入月份值，顯示對(duì)應(yīng)季節(jié)的中文名字（輸入月份值，顯示對(duì)應(yīng)季節(jié)的中文名字（3,4,53,4,5月為春月為春季，季，6,7,86,7,8月為夏季，月為夏季，9,10,119,10,11月為秋季；月為秋季；12,1,212,1,2月為月為冬季）。冬季）。“輸出輸出”命令按鈕的命令按鈕的click事件代碼：事件代碼：yf=thisform.text1.valuedo casecase yf=3 or yf=4 or yf=5jj=春季春季case yf=6 or

8、 yf=7 or yf=8jj=夏季夏季case yf=9 or yf=10 or yf=11jj=秋季秋季case yf=12 or yf=1 or yf=2jj=冬季冬季endcasethisform.label3.caption=jj 【修改修改例例3-83-8】計(jì)算】計(jì)算s=1+2+3+n s=1+2+3+n “計(jì)算計(jì)算”命令按鈕的命令按鈕的“click”事件代碼：事件代碼：n=thisform.text1.value s=0 x=1do while x=ns=s+x x=x+1enddothisform.text2.value=s 方法一：方法一：“計(jì)算計(jì)算”命令按鈕的命令按鈕的“c

9、lick”事件代碼：事件代碼：n=thisform.text1.value s=0For x=1 to ns=s+xendforthisform.text2.value=s 方法二：方法二：( (教材教材P60)P60) 【例【例3-93-9】設(shè)計(jì)如圖所示表單，在文本框】設(shè)計(jì)如圖所示表單，在文本框text1text1中輸入中輸入N N的值，求的值，求N!N!。 “計(jì)算計(jì)算”命令按鈕的命令按鈕的“Click”事件代碼：事件代碼：n= thisform.text1.valuep=1for i=1 to np=p*iendforthisform.text2.value=p 【例】求【例】求100以內(nèi)

10、的奇數(shù)和。以內(nèi)的奇數(shù)和。A=1+3+5+A=1+3+5+99+99請(qǐng)同學(xué)們自請(qǐng)同學(xué)們自己寫(xiě)出程序己寫(xiě)出程序“計(jì)算計(jì)算”命令按鈕的命令按鈕的“Click”事件代碼：事件代碼：s=0for i=1 to 99 step 2s=s+iendforthisform.text1.value=s 222.21nK【例】求【例】求“計(jì)算計(jì)算”命令按鈕的命令按鈕的“Click”事件代碼：事件代碼：n= thisform.text1.values=0for i=1 to n s=s+i2endforthisform.text2.value=s 思考：計(jì)算思考：計(jì)算e e的近似值。其公式為：的近似值。其公式為：e

11、 e1+1/1!1+1/1!1/2!1/2!1/3!1/3!1/N!1/N!，直到直到1/N!0.0000011/N!8 顯示：顯示：568。 【例【例】輸入一串輸入一串ASCIIASCII字符，顯示大寫(xiě)字母串。假設(shè)輸入：字符，顯示大寫(xiě)字母串。假設(shè)輸入：Av56:YijB8 Av56:YijB8 顯示：顯示： AYB AYB 。 例：輸入一串例：輸入一串ASCII字符，顯示小寫(xiě)字母串。字符，顯示小寫(xiě)字母串。假設(shè)輸入：假設(shè)輸入： Av56:YijB8 顯示：顯示：vij ?！纠窟\(yùn)行表單后單擊命令按鈕組中的不同【例】運(yùn)行表單后單擊命令按鈕組中的不同按鈕，標(biāo)簽按鈕，標(biāo)簽label1label1的文

12、本改為相應(yīng)的字體，的文本改為相應(yīng)的字體，單擊關(guān)閉按鈕可以關(guān)閉表單。單擊關(guān)閉按鈕可以關(guān)閉表單。 命令按鈕組命令按鈕組Commandgroup1的的click事件代碼如下：事件代碼如下：do case case this.value=1 thisform.label1.fontname=宋體宋體 case this.value=2 thisform.label1.fontname=黑體黑體 case this.value=3 thisform.label1.fontname=楷體楷體 case this.value=4 thisform.label1.fontname=隸書(shū)隸書(shū) case this

13、.value=5 thisform.releaseendcase表示什么？表示什么？Commandgroup1第幾個(gè)命令按鈕【例】如圖所示，編寫(xiě)一個(gè)簡(jiǎn)易計(jì)算器。要求【例】如圖所示，編寫(xiě)一個(gè)簡(jiǎn)易計(jì)算器。要求在文本框在文本框Text1Text1中輸入數(shù)字，然后在中輸入數(shù)字，然后在OptionGroup1OptionGroup1中選擇運(yùn)算符，然后在中選擇運(yùn)算符，然后在Text2Text2中中輸入另一個(gè)數(shù)字，按回車，則在文本框輸入另一個(gè)數(shù)字，按回車，則在文本框Text3Text3中中顯示計(jì)算結(jié)果。請(qǐng)編寫(xiě)顯示計(jì)算結(jié)果。請(qǐng)編寫(xiě)Text2Text2的的LostFocusLostFocus事件事件代碼。代碼。

14、 文本框文本框Text2的的LostFocus事件代碼：事件代碼： x=val(thisform.text1.text)x=val(thisform.text1.text)y=val(thisform.text2.text)y=val(thisform.text2.text)do casedo casecase thisform.optiongroup1.value=1case thisform.optiongroup1.value=1z=x+yz=x+ycase thisform.optiongroup1.value=2case thisform.optiongroup1.value=2z=

15、x-yz=x-ycase thisform.optiongroup1.value=3case thisform.optiongroup1.value=3z=xz=x* *y ycase thisform.optiongroup1.value=4case thisform.optiongroup1.value=4z=x/yz=x/yendcaseendcasethisform.text3.value=zthisform.text3.value=z對(duì)應(yīng)第對(duì)應(yīng)第幾個(gè)按幾個(gè)按鈕鈕【例【例】設(shè)計(jì)如圖所示表單，單擊設(shè)計(jì)如圖所示表單，單擊“輸出輸出”按鈕，按鈕，列表框中顯示一個(gè)由列表框中顯示一個(gè)由“* *”

16、構(gòu)成的直角三角形。構(gòu)成的直角三角形。（利用列表框的（利用列表框的AddItemAddItem方法）方法） 【例【例】運(yùn)行表單后單擊運(yùn)行表單后單擊“輸出輸出”按鈕，在列表按鈕，在列表框中輸出斐波拉切數(shù)列的前框中輸出斐波拉切數(shù)列的前2020項(xiàng)，每行顯示項(xiàng)，每行顯示5 5個(gè)個(gè)數(shù)。數(shù)。( (注：斐波拉切數(shù)列的前兩個(gè)數(shù)是注：斐波拉切數(shù)列的前兩個(gè)數(shù)是1 1、1 1，第，第三個(gè)數(shù)是前兩個(gè)數(shù)的和，以后的每個(gè)數(shù)都是前三個(gè)數(shù)是前兩個(gè)數(shù)的和，以后的每個(gè)數(shù)都是前兩個(gè)數(shù)之和。兩個(gè)數(shù)之和。) ) 在在1 1、1 1、2 2、3 3、5 5、8 8、1313、2121中，從第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)都等于前兩個(gè)數(shù)的和。中，從第三

17、個(gè)數(shù)開(kāi)始，每個(gè)數(shù)都等于前兩個(gè)數(shù)的和。這一奇特的數(shù)列是由意大利數(shù)學(xué)家斐波那契從兔子繁殖問(wèn)題中提出的，為了紀(jì)念他，人們這一奇特的數(shù)列是由意大利數(shù)學(xué)家斐波那契從兔子繁殖問(wèn)題中提出的，為了紀(jì)念他，人們就把這種數(shù)列稱為就把這種數(shù)列稱為斐波那契數(shù)列斐波那契數(shù)列，也稱，也稱兔子數(shù)列兔子數(shù)列。 斐波那契發(fā)現(xiàn)兔子繁殖非?？?，幾個(gè)月后，斐波那契發(fā)現(xiàn)兔子繁殖非常快，幾個(gè)月后，1 1對(duì)兔子就變成了幾十對(duì)。每對(duì)成年兔每個(gè)對(duì)兔子就變成了幾十對(duì)。每對(duì)成年兔每個(gè)月都能生出月都能生出1 1對(duì)兔寶寶，而兔寶寶一個(gè)月后便有生殖能力，兩個(gè)月后就能生下第一對(duì)小兔。對(duì)兔寶寶，而兔寶寶一個(gè)月后便有生殖能力，兩個(gè)月后就能生下第一對(duì)小兔。這樣

18、一月初有這樣一月初有1 1對(duì)兔寶寶，二月初小兔交配，三月初新生對(duì)兔寶寶，二月初小兔交配，三月初新生1 1對(duì)兔寶寶，有對(duì)兔寶寶，有2 2對(duì)兔子，四月再生對(duì)兔子，四月再生1 1對(duì)小兔，有對(duì)小兔，有3 3對(duì)兔子，五月比上月多生對(duì)兔子，五月比上月多生1 1對(duì)兔寶寶（三月出生的小兔生的），有對(duì)兔寶寶（三月出生的小兔生的），有2 2對(duì)兔寶寶，對(duì)兔寶寶，共有共有5 5對(duì)兔子，六月又比上月多生對(duì)兔子，六月又比上月多生1 1對(duì)兔寶寶（四月出生的小兔生的），共對(duì)兔寶寶（四月出生的小兔生的），共8 8對(duì)。這樣一到六對(duì)。這樣一到六月兔子的對(duì)數(shù)就是月兔子的對(duì)數(shù)就是1 1、1 1、2 2、3 3、5 5、8 8，從第三個(gè)

19、數(shù)開(kāi)始，每個(gè)數(shù)都是前兩個(gè)數(shù)的和，繼，從第三個(gè)數(shù)開(kāi)始，每個(gè)數(shù)都是前兩個(gè)數(shù)的和，繼續(xù)推理下去仍是如此。續(xù)推理下去仍是如此。 除此以外，人們從很多地方也發(fā)現(xiàn)了這類數(shù)列。如：茉莉花（除此以外，人們從很多地方也發(fā)現(xiàn)了這類數(shù)列。如：茉莉花（3 3個(gè)花瓣），毛莨（個(gè)花瓣），毛莨（5 5個(gè)個(gè)花瓣），翠雀（花瓣），翠雀（8 8個(gè)花瓣），萬(wàn)壽菊（個(gè)花瓣），萬(wàn)壽菊（1313個(gè)花瓣），紫宛（個(gè)花瓣），紫宛（2121個(gè)花瓣），雛菊（個(gè)花瓣），雛菊（3434、5555或或8989個(gè)花瓣）。這些花的花瓣數(shù)恰好構(gòu)成斐波那契數(shù)列中的一串?dāng)?shù)。個(gè)花瓣）。這些花的花瓣數(shù)恰好構(gòu)成斐波那契數(shù)列中的一串?dāng)?shù)。列表框的列表框的columnco

20、untcolumncount屬性初值為屬性初值為5 5，columnLinescolumnLines屬性初值為屬性初值為.F.F.，columnwidthscolumnwidths屬性屬性初值為初值為30,30,30,30,3030,30,30,30,30“輸出輸出”命令按鈕的命令按鈕的“click”click”事件代碼：事件代碼：f1=1f1=1f2=1f2=1thisform.list1.addlistitem( 1,1,1)thisform.list1.addlistitem( 1,1,1)thisform.list1.addlistitem( 1,1,2)thisform.list1.

21、addlistitem( 1,1,2)x=1x=1y=3y=3for i=3 to 20for i=3 to 20f3=f1+f2f3=f1+f2thisform.list1.addlistitem(str(f3,5),x,y)thisform.list1.addlistitem(str(f3,5),x,y)f1=f2f1=f2f2=f3f2=f3y=y+1y=y+1if y=6if y=6x=x+1x=x+1y=1y=1endifendifendforendfor【例【例】將將100100到到150150中中第一個(gè)第一個(gè)能被能被3 3整除的數(shù)整除的數(shù)找出來(lái)。找出來(lái)。 For n=100 to

22、 150For n=100 to 150 if n%3=0 if n%3=0 thisform.text1.value=n thisform.text1.value=n exitexit endif endifendforendfor結(jié)束當(dāng)前循環(huán)，跳出結(jié)束當(dāng)前循環(huán)，跳出exit所在的循環(huán)結(jié)構(gòu)所在的循環(huán)結(jié)構(gòu)【例】運(yùn)行表單后單擊【例】運(yùn)行表單后單擊“輸出輸出”按鈕，在編輯按鈕，在編輯框中顯示框中顯示100100以內(nèi)的奇數(shù)，每行顯示以內(nèi)的奇數(shù)，每行顯示8 8個(gè)數(shù)。個(gè)數(shù)?！拜敵鲚敵觥泵畎粹o的命令按鈕的“click”事件代碼：事件代碼：k=0for i=1 to 100 step 2k=k+1this

23、form.edit1.value=thisform.edit1.value+str(i,5)if k%8=0thisform.edit1.value=thisform.edit1.value+ chr(13)endifendfor【例【例】設(shè)計(jì)如圖（左）所示表單，單擊設(shè)計(jì)如圖（左）所示表單，單擊“輸輸出出”命令按鈕時(shí)，編輯框命令按鈕時(shí)，編輯框edit1edit1中輸出大寫(xiě)字中輸出大寫(xiě)字母表。運(yùn)行界面如圖（右）所示。編寫(xiě)母表。運(yùn)行界面如圖（右）所示。編寫(xiě)“輸出輸出”按鈕的按鈕的clickclick事件代碼。事件代碼。 “輸出輸出”按鈕的按鈕的ClickClick事件代碼：事件代碼：n=0n=0f

24、or i=asc(A) to asc(Zfor i=asc(A) to asc(Z) thisform.edit1.value=thisform.edit1.valuethisform.edit1.value=thisform.edit1.value+ + chr(ichr(i) ) +space(2) +space(2) n=n+1 n=n+1 if if n%6=0n%6=0 thisform.edit1.value=thisform.edit1.valuethisform.edit1.value=thisform.edit1.value+ + chr(13)chr(13) endif e

25、ndifendforendfor方法1： “輸出輸出”按鈕的按鈕的ClickClick事件代碼：事件代碼：n=0n=0for i=1 to 26for i=1 to 26x=x=asc(A)-1asc(A)-1 thisform.edit1.value=thisform.edit1.valuethisform.edit1.value=thisform.edit1.value+ + chr(x+ichr(x+i) ) +space(2) +space(2) n=n+1 n=n+1 if if n%6=0n%6=0 thisform.edit1.value=thisform.edit1.value

26、thisform.edit1.value=thisform.edit1.value+ + chr(13)chr(13) endif endifendforendfor方法2： 表表1 學(xué)生表（學(xué)生表（文件名為：文件名為：stu.DBFstu.DBF）學(xué)號(hào)學(xué)號(hào)姓名姓名寢室寢室電話電話011001011001張三張三3-1-13-1-1190123852019012385203 3011002011002李四李四4-2-24-2-2195852963119585296311 1011003011003王五王五5-3-35-3-3185456789318545678930 0011004011004

27、周六周六3-1-33-1-3190123410219012341022 2011005011005朱琪朱琪5-1-25-1-2195852314819585231487 7表表2 成績(jī)表（成績(jī)表（文件名為：文件名為：score.DBF.DBF）學(xué)號(hào)學(xué)號(hào)課程名課程名成績(jī)成績(jī)011001011001語(yǔ)文語(yǔ)文85.085.0011001011001數(shù)學(xué)數(shù)學(xué)90.590.5011002011002體育體育90.090.0011003011003數(shù)學(xué)數(shù)學(xué)77.077.0011004011004語(yǔ)文語(yǔ)文68.068.0011002011002大學(xué)英語(yǔ)大學(xué)英語(yǔ)I I95.095.0011003011003大

28、學(xué)英語(yǔ)大學(xué)英語(yǔ)IIII92.592.5011005011005政治政治90.090.0011001011001政治政治90.590.5“上機(jī)上機(jī)7”例：設(shè)計(jì)如圖所示表單程序例：設(shè)計(jì)如圖所示表單程序，其中組合框其中組合框COMBO1COMBO1與與STU.DBFSTU.DBF的的電話字段綁定。表單運(yùn)行后，可以在組合框中選擇某個(gè)電話電話字段綁定。表單運(yùn)行后，可以在組合框中選擇某個(gè)電話號(hào)碼，在表格號(hào)碼，在表格grid1grid1中將顯示該電話號(hào)碼前三位相同的所有學(xué)中將顯示該電話號(hào)碼前三位相同的所有學(xué)生信息。生信息。將將stu.dbf的電話字段與組合框的電話字段與組合框combo1綁定綁定;組合框組合

29、框combo1的的Interactivechange的事件代碼：的事件代碼：dh=bo1.valuethisform.text1.value=left(dh,3)thisform.grid1.recordsourcetype=4thisform.grid1.recordsource=select 學(xué)號(hào)學(xué)號(hào),姓名姓名,; 寢室寢室,電話電話 from stu; where left(電話電話,3)=thisform.text1.value ; into cursor temp 例：例：設(shè)計(jì)如圖所示的表單程序設(shè)計(jì)如圖所示的表單程序，其中列表框，其中列表框LIST1LIST1與與STU.DBFSTU

30、.DBF的學(xué)號(hào)和姓名字段綁定的學(xué)號(hào)和姓名字段綁定。表單運(yùn)行后，在列表框表單運(yùn)行后，在列表框中選擇一個(gè)學(xué)生，在文本框中選擇一個(gè)學(xué)生，在文本框text1text1、text2text2中分別顯示該學(xué)中分別顯示該學(xué)生所選課程的總成績(jī)和所選科目數(shù)。生所選課程的總成績(jī)和所選科目數(shù)。 將將stu.dbf的學(xué)號(hào)和姓名字段與列表框的學(xué)號(hào)和姓名字段與列表框List1綁定；綁定；列表框列表框List1的的Interactivechange的事件代碼：的事件代碼：xh=thisform.list1.valueselect sum(成績(jī)成績(jī)),count(*) from score ; where 學(xué)號(hào)學(xué)號(hào)=xh i

31、nto array cjthisform.text1.value=cj(1)thisform.text2.value=cj(2) 學(xué)生數(shù)據(jù)表學(xué)生數(shù)據(jù)表(文件名為：文件名為：XS.dbf) 成績(jī)數(shù)據(jù)表成績(jī)數(shù)據(jù)表(文件名為：文件名為：CJ.dbf)學(xué)號(hào)學(xué)號(hào)姓名姓名專業(yè)專業(yè)06030101宋燕燕宋燕燕計(jì)算機(jī)計(jì)算機(jī)06030205黃建黃建計(jì)算機(jī)計(jì)算機(jī)09060315謝小娟謝小娟會(huì)計(jì)會(huì)計(jì)09060209周丹妮周丹妮會(huì)計(jì)會(huì)計(jì)06030305張鵬張鵬計(jì)算機(jī)計(jì)算機(jī)06030131劉紅劉紅計(jì)算機(jī)計(jì)算機(jī)06030226劉莉莉劉莉莉計(jì)算機(jī)計(jì)算機(jī)09060127李磊李磊會(huì)計(jì)會(huì)計(jì)學(xué)號(hào)學(xué)號(hào)成績(jī)成績(jī)060301016706

32、03020554090603157509060209920603030558060301318606030226900906012756“上機(jī)上機(jī)2”設(shè)計(jì)如圖所示表單，要求：設(shè)計(jì)如圖所示表單，要求：1 1、表單運(yùn)行后，在組合框中選擇專業(yè)、表單運(yùn)行后，在組合框中選擇專業(yè)“計(jì)算機(jī)計(jì)算機(jī)”或者或者“會(huì)計(jì)會(huì)計(jì)”后（組合框中的數(shù)據(jù)選項(xiàng)采用手工輸入）實(shí)現(xiàn)以下功能：后（組合框中的數(shù)據(jù)選項(xiàng)采用手工輸入）實(shí)現(xiàn)以下功能：（1 1）在左側(cè)編輯框中顯示所選專業(yè)學(xué)生的學(xué)號(hào)、姓名和成績(jī)。）在左側(cè)編輯框中顯示所選專業(yè)學(xué)生的學(xué)號(hào)、姓名和成績(jī)。（2）在右側(cè)）在右側(cè)2個(gè)文本框中分別顯示所選專業(yè)學(xué)生的平均分和不個(gè)文本框中分別顯示所

33、選專業(yè)學(xué)生的平均分和不及格人數(shù)。及格人數(shù)。2、單擊、單擊“退出退出”命令按鈕，關(guān)閉表單。命令按鈕，關(guān)閉表單。組合框組合框combo1的的Interactivechange的事件代碼的事件代碼 ：“退出退出”按鈕的按鈕的Click事件代碼：事件代碼：thisform.release商品信息表（文件名為：商品信息表（文件名為：products.dbf）商品編號(hào)商品名稱庫(kù)存量單價(jià)07654壓力鍋50 39004566電吹風(fēng)20012002233熱水器100110005886電磁爐148680訂購(gòu)單位商品編號(hào) 銷售量幸福社區(qū)0765420永安社區(qū)0765415永安社區(qū)0223360和諧居委會(huì)04566

34、90愛(ài)民小區(qū)05886110幸福社區(qū)0456640銷售信息表（文件名為：銷售信息表（文件名為：sale.dbf）“上機(jī)上機(jī)4”設(shè)計(jì)如圖設(shè)計(jì)如圖1 1所示表單，表單運(yùn)行后，單擊所示表單，表單運(yùn)行后，單擊“計(jì)算并顯示計(jì)算并顯示”按鈕，顯示按鈕，顯示所有訂購(gòu)商品的訂購(gòu)單位所有訂購(gòu)商品的訂購(gòu)單位, ,商品名稱商品名稱, ,銷售量，銷售金額，如圖銷售量，銷售金額，如圖1 1所示所示；雙擊表單空白處關(guān)閉表單。；雙擊表單空白處關(guān)閉表單。 圖1 年份消費(fèi)項(xiàng)目金額結(jié)賬客戶編號(hào)09X00134.7T2309809X01959.4F2309809F12027.8T2308810F11097.2T2312910X19

35、9119.7F2309809A10267.9F23088表表1 客戶數(shù)據(jù)表客戶數(shù)據(jù)表(文件名為：文件名為：KH.DBF) 表表2 消費(fèi)記賬表消費(fèi)記賬表(文件名為：文件名為：XF.DBF)客戶編號(hào)姓名23088周 平23098王成松23129劉濤凌“上機(jī)上機(jī)5”設(shè)計(jì)如圖設(shè)計(jì)如圖所示的表單，將所示的表單，將組合框與組合框與KH.DBF的的客戶編號(hào)客戶編號(hào)字段綁字段綁定定，表單運(yùn)行后，在組合框中選擇一表單運(yùn)行后，在組合框中選擇一客戶編號(hào)客戶編號(hào)，在標(biāo)簽，在標(biāo)簽label2label2中中顯示該客戶消費(fèi)的總金額，如圖所示。顯示該客戶消費(fèi)的總金額，如圖所示。 設(shè)計(jì)如圖設(shè)計(jì)如圖所示表單，在組合框中手工輸入

36、數(shù)據(jù)（所示表單，在組合框中手工輸入數(shù)據(jù)（“ “09”、“ “10” ），表單運(yùn)行后，在組合框中選擇一表單運(yùn)行后，在組合框中選擇一年份值年份值，查詢?cè)撛撃攴莸目停樵冊(cè)撛撃攴莸目蛻粝M(fèi)戶消費(fèi)清單并在表格清單并在表格grid1中顯示出來(lái)，同時(shí)統(tǒng)計(jì)該年份未結(jié)賬的中顯示出來(lái)，同時(shí)統(tǒng)計(jì)該年份未結(jié)賬的總金額，如圖所示。雙擊表單空白處關(guān)閉表單。總金額，如圖所示。雙擊表單空白處關(guān)閉表單。 顧客信息表（顧客信息表（GK.DBF） 顧客消費(fèi)積分表（顧客消費(fèi)積分表（JF.DBF）顧客編號(hào)姓名085422王小鳳074561孫麗081319吳遠(yuǎn)平072450程志龍085212李娟娟購(gòu)買商品消費(fèi)金額消費(fèi)積分顧客編號(hào)化妝品

37、588.0074561西服1280.0085422靴子566.0085212食品217.2072450食品78.0081319帽子128.0074561皮鞋358.0085422“上機(jī)上機(jī)6”設(shè)計(jì)如圖設(shè)計(jì)如圖所示表單，表單運(yùn)行后，單擊所示表單，表單運(yùn)行后，單擊“計(jì)算并顯計(jì)算并顯示示”按鈕，可以計(jì)算消費(fèi)積分（其中顧客編號(hào)的末尾按鈕，可以計(jì)算消費(fèi)積分（其中顧客編號(hào)的末尾為為2 2，則消費(fèi)積分為消費(fèi)金額的整數(shù)部分，否則消費(fèi)，則消費(fèi)積分為消費(fèi)金額的整數(shù)部分，否則消費(fèi)積分為消費(fèi)金額一半的整數(shù)部分），并填入積分為消費(fèi)金額一半的整數(shù)部分），并填入JF.DBFJF.DBF表中表中，并在表格中顯示顧客消費(fèi)積分表

38、（，并在表格中顯示顧客消費(fèi)積分表（JFJF.dbf）的）的信息信息。設(shè)計(jì)如圖設(shè)計(jì)如圖所示表單，表單運(yùn)行后，單擊所示表單，表單運(yùn)行后，單擊“匯總匯總”按鈕按鈕，匯總每位顧客的消費(fèi)積分，并按總積分從小到大的順，匯總每位顧客的消費(fèi)積分，并按總積分從小到大的順序在編輯框序在編輯框edit1edit1中顯示每位顧客的姓名和消費(fèi)總積分中顯示每位顧客的姓名和消費(fèi)總積分，如圖所示。雙擊表單空白處關(guān)閉表單。，如圖所示。雙擊表單空白處關(guān)閉表單。設(shè)有兩個(gè)數(shù)據(jù)表：導(dǎo)師表設(shè)有兩個(gè)數(shù)據(jù)表：導(dǎo)師表( (文件名為：文件名為：dsb.dbfdsb.dbf)()(導(dǎo)師編號(hào)導(dǎo)師編號(hào)/c/c，姓，姓名名/c/c，性別，性別/c/c，

39、研究方向，研究方向/c)/c)；學(xué)生表；學(xué)生表( (文件名為：文件名為：xsb.dbfxsb.dbf) )（學(xué)（學(xué)號(hào)號(hào)/c/c，姓名，姓名/c/c，性別，性別/c/c，所在院系，所在院系/c/c，導(dǎo)師編號(hào)，導(dǎo)師編號(hào)/c/c）。）。 設(shè)計(jì)如圖所示表單，組合框設(shè)計(jì)如圖所示表單，組合框Combo1Combo1與導(dǎo)師表中的導(dǎo)師編號(hào)字與導(dǎo)師表中的導(dǎo)師編號(hào)字段綁定。表單運(yùn)行后，在組合框段綁定。表單運(yùn)行后，在組合框Combo1Combo1中選擇任一位導(dǎo)師的編號(hào)中選擇任一位導(dǎo)師的編號(hào)，則，則在標(biāo)簽在標(biāo)簽Label3Label3處顯示該導(dǎo)師的姓名；處顯示該導(dǎo)師的姓名；在標(biāo)簽在標(biāo)簽Label5Label5處顯示該

40、導(dǎo)師的研究方向；處顯示該導(dǎo)師的研究方向；在表格在表格Grid1Grid1控件中顯示該導(dǎo)師所指導(dǎo)的學(xué)生信息（包括學(xué)號(hào)控件中顯示該導(dǎo)師所指導(dǎo)的學(xué)生信息（包括學(xué)號(hào)、學(xué)生姓名、性別，所在院系）。、學(xué)生姓名、性別，所在院系）。組合框組合框combo1的的Interactivechange的事件代碼的事件代碼 ：ex7.兩個(gè)數(shù)據(jù)表：商品信息數(shù)據(jù)表（文件名為：兩個(gè)數(shù)據(jù)表：商品信息數(shù)據(jù)表（文件名為：products.DBFproducts.DBF）和商品銷售數(shù)據(jù)表）和商品銷售數(shù)據(jù)表( (文件名為：文件名為：sale.DBFsale.DBF),),其數(shù)據(jù)如表其數(shù)據(jù)如表1 1、表、表2 2所示。所示。商品編商品編

41、號(hào)號(hào)熱銷商品名稱熱銷商品名稱規(guī)格規(guī)格單價(jià)單價(jià)02011010201101格蘭仕豆?jié){機(jī)格蘭仕豆?jié){機(jī)DS12006DS12006398398020033020033TCL48TCL48寸寸LEDLED電視電視L48E5010EL48E5010E47994799020202020202美的微波爐美的微波爐EG923KF6-EG923KF6-NR3NR31098109801300420130042HomaHoma對(duì)開(kāi)門(mén)電冰對(duì)開(kāi)門(mén)電冰箱箱BCD-388DVBCD-388DV36603660商品編號(hào)商品編號(hào)客戶代表客戶代表銷售數(shù)量銷售數(shù)量銷售季銷售季度度02011010201101王小川王小川161601

42、01020202020202李松李松5050020201300420130042王艷王艷10100101020202020202張濤張濤3434010101300420130042左丘明左丘明25250202020033020033杜雙杜雙124124010102011010201101吳平吳平78780202表表1 1表表2 2設(shè)計(jì)如圖所示表單，文件名：設(shè)計(jì)如圖所示表單，文件名：myform21.scx,myform21.scx,表單標(biāo)題為表單標(biāo)題為考生自己的考號(hào)和姓名考生自己的考號(hào)和姓名，在組合框，在組合框combo1combo1中通過(guò)手工輸入中通過(guò)手工輸入方式輸入銷售季度方式輸入銷售季度

43、“0101”和和“0202”（注：與（注：與sale.dbfsale.dbf的銷售的銷售季度字段綁定不得分），表單運(yùn)行后，選擇一個(gè)銷售季度季度字段綁定不得分），表單運(yùn)行后，選擇一個(gè)銷售季度，在編輯框，在編輯框Edit1Edit1中顯示該季度的客戶代表。中顯示該季度的客戶代表。thisform.edit1.value=use sale cbs=alltrim(bo1.value)locate for alltrim(出版社出版社)=cbsDo while not eof() thisform.edit1.value=thisform.edit1.value+客戶代表客戶代表+chr(13) co

44、ntinueenddothisform.refreshuse在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù)在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù);組合框組合框combo1的的Interactivechange事件代碼：事件代碼： 方法方法1：在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù)在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù);組合框組合框combo1的的Interactivechange的事件代碼：的事件代碼：thisform.edit1.value=scan for 銷售季度銷售季度=bo1.value thisform.edit1.value=thisform.edit1.value+客戶代表客戶代表+chr(13) endscan thisform.refresh 方法方法2：在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù)在組合框中通過(guò)手工輸入的方式綁定數(shù)據(jù);組合框組合框combo1的的Interactivechange的事件代碼：的事件代碼：thisform.edit1.value=Select 客戶代表客戶代表 from sale ； where 銷售季度銷售季度=bo1.value； into cursor temp scan thisform.edit1.va