數(shù)據(jù)庫表單的創(chuàng)建課件

第11章表單設(shè)計(jì)與應(yīng)用學(xué)習(xí)目標(biāo)掌握表單的創(chuàng)建與運(yùn)行掌握表單的操作掌握表單中常用控件標(biāo)簽、命令按鈕、文本框、編輯框、列表框、組合框、表格11.1表單的建立與運(yùn)行

創(chuàng)建表單的過程，就是定義控件的屬性，確定事件或方法、代碼的過程。

表單就是一個(gè)容器，它可以容納多個(gè)控件。11.1.2用表單設(shè)計(jì)器創(chuàng)建表單Createform

文件/新建/表單/新建文件11.1表單的建立與運(yùn)行

（2）表單控件工具欄要求會使用的控件：標(biāo)簽、文本框、編輯框、命令按鈕、組合框、列表框和表格（3）表單設(shè)計(jì)器工具欄（4）表單菜單表單中的對象設(shè)計(jì)過程：向表單添加控件-->設(shè)置屬性-->設(shè)計(jì)代碼11.1.3表單的運(yùn)行

有2種方法可以運(yùn)行表單：

(1)直接使用命令DOFORM〈表單名〉(2)在表單設(shè)計(jì)器窗口，選擇“表單”菜單中的“運(yùn)行”命令，或直接單擊工具欄中的紅色驚嘆號。保存表單時(shí)，表單將被保存為一個(gè)表單文件（擴(kuò)展名是.scx）和一個(gè)表單備注文件（擴(kuò)展名是.sct）（P196）11.2表單的操作

11.2.1表單的屬性

1.常用表單屬性表單屬性很多，但絕大多數(shù)很少用到。表11.3中列出了有關(guān)表單的一些重要屬性，這些屬性規(guī)定了表單的外觀和行為，經(jīng)常在表單設(shè)計(jì)時(shí)用到。請大家參考表11.3。3.鼠標(biāo)事件

Click事件:鼠標(biāo)左鍵單擊對象時(shí)發(fā)生的事件。4.鍵盤事件

InteractiveChange事件。7.常用方法 Release方法:從內(nèi)存中釋放表單 Refresh方法：刷新表單數(shù)據(jù)11.3常用表單控件

11.3.1添加表單控件 表單中添加什么樣的控件是根據(jù)需求決定的，一旦確定了控件的類型，就要定義控件的屬性、確定事件和方法代碼。11.3.2表單控件及其屬性1．標(biāo)簽控件（Label）“標(biāo)簽”控件是按一定格式顯示在表單上的文本信息，用來顯示表單中各種說明和提示信息。一旦“標(biāo)簽”控件的屬性、事件和方法被定義，輸出信息將根據(jù)這些定義，按指定的格式輸出。

“標(biāo)簽”控件的屬性主要包括：Caption，Name，F(xiàn)ontName，F(xiàn)ontSize11.3.2命令按鈕控件“命令按鈕”控件主要用來控制程序的執(zhí)行過程，以及對表中數(shù)據(jù)的操作等?！懊畎粹o”控件的屬性主要包括：caption，name “命令按鈕”控件的事件：click11.3.3文本框控件“文本框”控件主要用于表中非備注型和通用型字段值的輸入、輸出，以及內(nèi)存變量賦值和輸出等操作?！拔谋究颉笨丶c“標(biāo)簽”控件最主要的區(qū)別在于它們使用的數(shù)據(jù)源是不同的。

常用屬性：Value,ControlSource

“標(biāo)簽”控件的數(shù)據(jù)源來自于其“Caption”屬性，“文本框”控件的數(shù)據(jù)源來自于其“ControlSource”屬性，可以是表中的非備注型、通用型字段和內(nèi)存變量?！拔谋究颉笨丶膶傩灾饕ǎ骸拔谋究颉钡拇笮?，“文本框”中輸入、輸出信息字體的大小、風(fēng)格和顏色等。k=0forx=100to1000ifx%37=0thisform.edit1.value=thisform.edit1.value+str(x,5)k=k+1ifk%5=0thisform.edit1.value=thisform.edit1.value+chr(13)endifendifendfor11.3.6列表框與組合框控件 列表框（listbox）控件提供一組選項(xiàng)，用戶可以從中選擇一個(gè)或者多個(gè)選項(xiàng)。 列表框顯示其中的若干選項(xiàng)，用戶可以通過滾動條瀏覽其他選項(xiàng)。要求掌握的屬性：ControlSource、RowSource、RowSourceType常用方法：AddItem：給RowSourceType屬性為0的列表添加一項(xiàng)。RemoveItem:從RowSourceType屬性為0的列表刪除一項(xiàng)。Requery:當(dāng)RowSource中的值改變時(shí)更新列表。11.3.6列表框與組合框控件 “組合框”控件由一個(gè)列表框和一個(gè)編輯框組成。兩種類型：1、下拉組合框 style屬性為0的組合框

可以通過滾動條查看也可以在框中直接輸入查看2、下拉列表框 style屬性為2的組合框

只能通過滾動條查看，任意時(shí)刻只能看見一項(xiàng)C2-類型1-(帶有通項(xiàng)公式的計(jì)算)設(shè)計(jì)表單form1,表單中有命令按鈕command1和編輯框edit1,單擊命令按鈕時(shí)將計(jì)算下面數(shù)列前n項(xiàng)(設(shè)n=50)中偶數(shù)項(xiàng)的和(結(jié)果取4位小數(shù)),并將結(jié)果顯示在edit1中。1/(1×2×3),1/(2×3×4),1/(3×4×5),……,1/(n×(n+1)×(n+2)),……結(jié)果：0.0568做題思路：1、如有前n項(xiàng)，使用for循環(huán)，無用dowhile循環(huán)；2、賦初值；3、循環(huán)：for或dowhile；4、循環(huán)體內(nèi)使用通項(xiàng)公式進(jìn)行計(jì)算；5、將最終的計(jì)算結(jié)果放在輸出的控件中。C2-類型2-（計(jì)算字母的ASCII碼值）設(shè)計(jì)表單form1,表單中有命令按鈕command1、一個(gè)編輯框edit1和一個(gè)文本框text1,在edit1中輸入下面內(nèi)容：“TheauthorswouldliketosincerelythankserieseditorDavidChappellforhisinvaluableassistanceinreviewingseveralearlydraftsofthemanuscriptandprovidingunwaveringclarityandvisionduringmajorrewritestoguidethebooktowarditscurrentform.WewouldalsoliketothankRichBonneauforhishelpduringtheinitialplanningstages.”,單擊命令按鈕統(tǒng)計(jì)滿足下面條件的字符的ASCII碼值的和：字符的ASCII碼值能被3整除;并將結(jié)果顯示在text1中。注意：內(nèi)容中不包含任意回車換行符。C2-類型2-（數(shù)字字符串的計(jì)算）設(shè)計(jì)表單form1,表單中有命令按鈕command1、兩個(gè)編輯框edit1和edit2,在edit1中輸內(nèi)容:"546363463424214398439583252341243452358654684568450934534836834688954343894394346832894387233849683496783486395435934364386834963463463487653242342342354594876345343453453243456346346334323867867846474",單擊按鈕分別統(tǒng)計(jì)出1、2和3在上面字符串中出現(xiàn)的次數(shù),并將統(tǒng)計(jì)結(jié)果分三行顯示在edit2中。結(jié)果：41560做題思路：1、字符串賦給一變量；2、取字符串變量的長度，即字符總個(gè)數(shù)；3、變量賦初值；4、for或dowhile循環(huán)5、在循環(huán)體內(nèi)，用substr（）函數(shù)取單個(gè)字符，并轉(zhuǎn)換成數(shù)值類型；6、循環(huán)體內(nèi)用轉(zhuǎn)換后的數(shù)值進(jìn)行累加或累乘計(jì)算；7、將最終的結(jié)果放在表單上指定的控件上輸出。有關(guān)日期的函數(shù)Ctod

將字符串轉(zhuǎn)換成日期Dtoc

將日期轉(zhuǎn)換為字符串setcenturyonSetdatetoymdSetstrito0Dow(日期表達(dá)式)：返回每周的第幾天，即星期幾Cdow（日期表達(dá)式）：返回英文星期幾將數(shù)值轉(zhuǎn)換成字符串函數(shù)：strSTR（數(shù)值型表達(dá)式1，數(shù)值型表達(dá)式2，數(shù)值型表達(dá)式3

）功能：將表達(dá)式1的值轉(zhuǎn)換成字符串，轉(zhuǎn)換成字符串的長度 由表達(dá)式2決定，保留的小數(shù)位數(shù)由表達(dá)式3決定。 省略表達(dá)式3時(shí)，轉(zhuǎn)換后無小數(shù)部分；省略表達(dá)式2和 表達(dá)式3時(shí)，字符串長度為10，無小數(shù)部分C2-類型3-日期設(shè)計(jì)表單form1,表單中有命令按鈕command1、一個(gè)文本框text1和一個(gè)組合框combo1,單擊命令按鈕將1910年到2254年間的國慶節(jié)添加到combo1中,然后計(jì)算出1910年到2254年間的每個(gè)國慶節(jié)是星期日的次數(shù),并將計(jì)算結(jié)果顯示在text1中。參考答案：49setcentonsetdatetoymdsetstrito0n=0fori=1910to2254d=str(i)+"/10/01"bo1.additem(alltrim(d))t=ctod(alltrim(d))xq=cdow(t)ifxq="Sunday"

||ifcdow(ctod(alltrim(d)))=“Sunday”n=n+1

endifEndforthisform.text1.value=n做題思路：1、三個(gè)set設(shè)置語句；2、賦初始值；3、for循環(huán)4、將數(shù)值型的年份用str()函數(shù)進(jìn)行轉(zhuǎn)換，再加上表示月和日的字符串；5、將字符串日期轉(zhuǎn)變成日期用ctod()函數(shù)；6、判斷日期為星期幾，用函數(shù)dow()或cdow()；7、將最終的結(jié)果在指定的控件上顯示輸出。

c2-類型3-日期 設(shè)計(jì)表單form1,表單中有命令按鈕command1、一個(gè)文本框text1和一個(gè)列表框list1,單擊命令按鈕將1800年到1900年間的元旦日添加到list1中,然后利用函數(shù)計(jì)算出1800年到1900年間的每個(gè)元旦日是星期幾,并將該函數(shù)值累加,將計(jì)算結(jié)果顯示在text1中。 參考答案：403setcenturyonsetdatetoymdSetstrito0(p37)n=0fori=1800to1900d=str(i)+"/01/01"thisform.list1.additem(alltrim(d))dd=ctod(d)n=n+dow(dd)

||n=n+dow(ctod(d))endforthisform.text1.value=nC4-例1（將用到的表及建立的數(shù)據(jù)庫、表單放在同一個(gè)文件夾下）現(xiàn)有兩個(gè)自由表{<student.dbf>}和{<score1.dbf>},將兩文件下載到你的考試文件夾,然后按下面要求完成程序設(shè)計(jì):1.建立一個(gè)數(shù)據(jù)庫studata,并將上面兩個(gè)自由表添加到數(shù)據(jù)庫中;以學(xué)號(xuehao)為主關(guān)鍵字建立student和score1兩表之間的關(guān)聯(lián),student為父表。2.設(shè)計(jì)一個(gè)表單，以studata中的兩個(gè)表作為表單的數(shù)據(jù)環(huán)境，在表單中添加一個(gè)命令按鈕command1和一個(gè)標(biāo)簽label1。command1的標(biāo)題為“最高平均分”。3.單擊command1按鈕求出所有學(xué)生中平均分最高的學(xué)號和平均分,并將它們分兩行顯示在label1中。成績字段名為chengji。平均分是指每個(gè)學(xué)生所有課程的平均分。selectxuehao,avg(chengji)aschefromscore1groupbyxuehaoorderbychedescintocursordcthisform.label1.caption=thisform.label1.caption+xuehao+chr(13)+str(che)~65656696現(xiàn)有兩個(gè)自由表{<score3.dbf>}和{<score4.dbf>},先將兩文件下載到你的考試文件夾,然后按下面要求完成程序設(shè)計(jì):1.建立一個(gè)數(shù)據(jù)庫scoredata,并將上面兩個(gè)自由表添加到數(shù)據(jù)庫中;以學(xué)號(xuehao)為主關(guān)鍵字建立兩表之間的關(guān)聯(lián),score3為父表。2.設(shè)計(jì)一個(gè)表單，以scoredata作為表單的數(shù)據(jù)環(huán)境，在表單中添加一個(gè)命令按鈕command1和一個(gè)編輯框edit1。command1的標(biāo)題為“至少一門及格人的最高助學(xué)金”。

C4-9(至少一門不少于某一分?jǐn)?shù)類)3.單擊command1按鈕將統(tǒng)計(jì)四門成績至少有一門不小于60的人的最高助學(xué)金(zhuxuejin)，并將它顯示在edit1中。四門課程成績字段名分別為cj1、cj2、cj3和cj4。selectmax(zhuxuejin)asmfromscore3,score4where(score3.cj1>=60orscore3.cj2>=60orscore4.cj3>=60orscore4.cj4>=60)andscore3.xuehao=score4.xuehaointocursorsthisform.edit1.value=str(s.m)~996現(xiàn)有兩個(gè)自由表{<score3.dbf>}和{<score4.dbf>},先將兩文件下載到你的考試文件夾,然后按下面要求完成程序設(shè)計(jì):1.建立一個(gè)數(shù)據(jù)庫scoredata,并將上面兩個(gè)自由表添加到數(shù)據(jù)庫中;以學(xué)號(xuehao)為主關(guān)鍵字建立兩表之間的關(guān)聯(lián),score3為父表。2.設(shè)計(jì)一個(gè)表單，以scoredata作為表單的數(shù)據(jù)環(huán)境，在表單中添加一個(gè)命令按鈕command1和一個(gè)組合框combo1。command1的標(biāo)題為“男生全及格人數(shù)”。C4-9(均不少于某一分?jǐn)?shù)類)3.單擊command1按鈕將統(tǒng)計(jì)每個(gè)年級(2002-2005)男生(xingbie為真)中四門成績均不小于60的人數(shù)，并將它們顯示在combo1中。四門課程成績字段名分別為cj1、cj2、cj3和cj4。年級字段名為nianji。selectcount(*)asafromscore3,score4wherescore3.xuehao=score4.xuehaoandscore3.cj1>=60andscore3.cj2>=60andscore4.cj3>=60andscore4.cj4>=60andxingbie=.t.andnianji="2002"intocursort1bo1.additem(str(t1.a))selectcount(*)asafromscore3,score4wherescore3.xuehao=score4.xuehaoandscore3.cj1>=60andscore3.cj2>=60andscore4.cj3>=60andscore4.cj4>=60andxingbie=.t.andnianji="2003"intocursort2bo1.additem(str(t2.a))selectcount(*)asafromscore3,score4wherescore3.xuehao=score4.xuehaoandscore3.cj1>=60andscore3.cj2>=60andscore4.cj3>=60andscore4.cj4>=60andxingbie=.t.andnianji="2004"intocursort3bo1.additem(str(t3.a))selectcount(*)asafromscore3,score4wherescore3.xuehao=score4.xuehaoandscore3.cj1>=60andscore3.cj2>=60andscore4.cj3>=60andscore4.cj4>=60andxingbie=.t.andnianji="2005"intocursort4bo1.additem(str(t4.a))~2002(8)2003(12)2004(11)2005(6)C4-4(學(xué)號中含有某些數(shù)字類)現(xiàn)有兩個(gè)自由表{<student.dbf>}和{<score1.dbf>},按下面要求完成程序設(shè)計(jì):1.建立一個(gè)數(shù)據(jù)庫studata,并將上面兩個(gè)自由表添加到數(shù)據(jù)庫中;以學(xué)號(xuehao)為主關(guān)鍵字建立student和score1兩表之間的關(guān)聯(lián),student為父表。2.設(shè)計(jì)一個(gè)表單，以studata中的兩個(gè)表作為表單的數(shù)據(jù)環(huán)境，在表單中添加一個(gè)命令按鈕command1和一個(gè)編輯框edit1,command1的標(biāo)題為“含4和5平均分”。

3.單擊command1按鈕求出學(xué)號中同時(shí)含有4和5的所有學(xué)生中的平均分最低的姓名和平均分，并將它們顯示在edit1中。成績字段名為chengji。平均分是指每個(gè)學(xué)生所選各門課程的平均分。selectavg(score1.chengji)asch,student.xingmingfromstudent,score1wherestudent.xuehaolike"%4%"andstudent.xuehaolike"%5%"andstudent.xuehao=score1.xuehaogroupbyscore1.xuehaoorderbychintocursort2thisform.edit1.value=xingming+chr(13)+str(ch,10,2)~569084楊中國68在做題之前，應(yīng)對題中所用到表有所熟悉：自由表t3.dbf包含如下字段：bianhao 字符型，寬度8xingming 字符型，寬度8mima 字符型，寬度6chusny 日期型，寬度8gongzsj 日期型，寬度8hunfo 邏輯型，寬度1jiangjin 數(shù)值型，寬度7，小數(shù)位數(shù)2gongzi 數(shù)值型，寬度7，小數(shù)位數(shù)2注：做題之前要設(shè)置默認(rèn)目錄（將所做好的表單文件及表文件都放在該文件夾下） 請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“最大年齡人數(shù)和編號查詢”,名稱為tjform,表單中有三個(gè)命令按鈕和三個(gè)編輯框edit1、edit2和edit3,三個(gè)按鈕的標(biāo)題分別為“編號查詢”,“最大年齡人數(shù)”和“退出”。2.在edit1中輸入編號(bianhao)，單擊“編號查詢”按鈕將在文本框edit2中顯示該編號的姓名(xingming)。如果沒有找到該編號，將在edit2中顯示"NOFOUND"。3.單擊“最大年齡人數(shù)”按鈕統(tǒng)計(jì)出年齡等于所有記錄最大年齡的記錄個(gè)數(shù),并將它顯示在文本框edit3中。(注：年齡=2005－出生年份+1,出生年月字段為chusny)。4.單擊“退出”按鈕將關(guān)閉表單。C3-例題1(查找姓名或編號類)編號查詢按鈕代碼：a=alltrim(thisform.edit1.value)uset3locateforbianhao=aiffound()thisform.edit2.value=xingmingelsethisform.edit2.value="NoFound!"endifuse最大年齡按鈕代碼：selectcount(*)asa1fromt3where2005-year(chusny)+1=(selectmax(2005-year(chusny)+1)fromt3)intocursort1thisform.edit3.value=str(t1.a1)closeall退出按鈕代碼：

Thisform.release現(xiàn)有自由表{<t3.DBF>},按下面要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“密碼處理”,名稱為tjform,表單中有三個(gè)命令按鈕和兩個(gè)標(biāo)簽,三個(gè)按鈕的標(biāo)題分別為“處理密碼”,“最高位統(tǒng)計(jì)”和“退出”。2.單擊“處理密碼”按鈕將每個(gè)記錄的密碼(mima)最左邊的位加1(如果加1后大于9,則取9),其它位不變,并將處理后密碼寫入表中。

updatet3setmima=;

str(val(substr(mima,1,1))+1，1)+substr(mima,2,5); wheresubstr(mima,1,1)!="9“

(注意：在調(diào)試之前必須將t3.DBF文件備份，因?yàn)槊看握{(diào)試可能要改變原始表中的數(shù)據(jù))。結(jié)果：6679C3-例2(密碼類型題)3.單擊“最高位統(tǒng)計(jì)”按鈕將統(tǒng)計(jì)所有記錄的密碼中最左邊數(shù)字的和以及它們中的最大值,并將結(jié)果分別顯示在兩個(gè)標(biāo)簽中。

selectsum(val(substr(mima,1,1)))ashe,max(val(substr(mima,1,1)))aszuidafromt3intocursort31 thisform.label1.caption=str(he,10) thisform.label2.caption=str(zuida,1)4.單擊“退出”按鈕將關(guān)閉表單。 thisform.release

請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“顯示姓名和統(tǒng)計(jì)”,名稱為tjform,表單中有三個(gè)命令按鈕、兩個(gè)列表框list1和list2,一個(gè)文本框text1,三個(gè)按鈕的標(biāo)題分別為“顯示姓名”,“統(tǒng)計(jì)”和“退出”。2.單擊“顯示姓名”按鈕將所有記錄的姓名(xingming)添加到list1中。

uset3 dowhile.not.eof() thisform.list1.additem(xingming) skip enddo useC3-例3(添加姓名與日期統(tǒng)計(jì)類型題)3. 單擊“統(tǒng)計(jì)”按鈕統(tǒng)計(jì)出參加工作時(shí)間（gongzsj與出生日期(chusny)均為星期一的人數(shù),將人數(shù)顯示在text1中，并將他們的記錄號分別顯示在list2中。n=0uset3dowhile.not.eof()ifcdow(gongzsj)="Monday"andcdow(chusny)="Monday"n=n+1thisform.list2.additem(str(recno()))endifskipenddothisform.text1.value=str(n)closeallC3-14(“下一個(gè)”按鈕類型題)

請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“等于平均人數(shù)和瀏覽”,名稱為tjform,表單中有三個(gè)按鈕、一個(gè)組合框和一個(gè)文本框,三個(gè)按鈕的標(biāo)題分別為“下一個(gè)”,“等于平均”和“退出”。2.單擊“下一個(gè)”按鈕將在組合框中添加下一個(gè)記錄的姓名(xingming)。如果到表尾，將添加第一個(gè)記錄中的姓名。設(shè)置表單的load事件：uset3skipthisform.list1.additem(xingming)ifeof()gotopthisform.list1.additem(xingming)endifthisform.refresh

3.單擊“大于平均年齡”按鈕統(tǒng)計(jì)出年齡等于所有記錄平均年齡的記錄個(gè)數(shù),并將它顯示在文本框中。(注：年齡=2005－出生年份+1,出生年月字段為chusny)。selectavg(2005-year(chusny)+1)asafromt3intocursort4selectcount(*)asmfromt3where2005-year(chusny)+1>t4.aintocursort5thisform.text1.value=str(t5.m)4.單擊“退出”按鈕將關(guān)閉表單。thisform.releaseC3-17(表格類型題)請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“統(tǒng)計(jì)年齡和查詢”,名稱為tjform,表單中有三個(gè)命令按鈕、一個(gè)文本框和一個(gè)窗格(grid)，三個(gè)按鈕的標(biāo)題分別為“查詢”,“統(tǒng)計(jì)年齡”和“退出”。2.單擊“查詢”按鈕將在窗格中顯示所有工資(gongzi)不大于1330的記錄,窗格中顯示編號(bianhao)、姓名(xingming)、出生年月(chusny)和工資(gongzi)。設(shè)置grid的屬性：ColumnCount=4 RecordSourceType=4-SQL說明1

thisform.grid1.recordsource="selectbianhao,xingming,chusnyfromt3wheregongzi<=1330intocursort4"2closeall3.單擊“統(tǒng)計(jì)年齡”按鈕統(tǒng)計(jì)1976年1月1日(包括1976年1月1日）以后出生(chusny)的已婚(hunfo為真)的年齡總和,并將年齡總和顯示在文本框中。(注：年齡=2005－出生年份+1)。1selectsum(2005-year(chusny)+1)assfromt3wherechusny>={^1976/01/01}andhunfointocursort42thisform.text1.value=str(t4.s)4.單擊“退出”按鈕將關(guān)閉表單。Thisform.release~3095C3-19(添加記錄類型)請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“統(tǒng)計(jì)工資小數(shù)和”,名稱為gzform,表單中有三個(gè)命令按鈕和一個(gè)文本框,三個(gè)按鈕的標(biāo)題分別為“增加”,“統(tǒng)計(jì)工資小數(shù)”和“退出”。2.單擊“增加”按鈕將向表第一個(gè)記錄前增加一條空記錄,編號(bianhao)和姓名(xingming)字段的值分別為“00000001”和“李正軍”,工資(gongzi)字段的值為1000.32,其它字段內(nèi)容任意。1uset32gotop3insertblankbefore4dimensiony(8)5y(1)="00000001"6y(2)="李正軍"7y(8)=1000.328gotop9gatherfromy10closeall

3.單擊“統(tǒng)計(jì)工資小數(shù)”按鈕將計(jì)算所有記錄工資(gongzi)中小數(shù)點(diǎn)后的數(shù)字之和，并將計(jì)算結(jié)果顯示在文本框中。如:工資為199.62，僅計(jì)算0.62。顯示的結(jié)果是指單擊一次“增加”按鈕后的值。selectsum(gongzi-int(gongzi))assfromt3intocursort6thisform.text1.value=t6.s4.單擊“退出”按鈕將關(guān)閉表單。Thisform.release~53.33請將自由表{<t3.DBF>}下載到你的考試文件夾中，并按下面的要求完成程序設(shè)計(jì)：(注意：在調(diào)試之前必須將t3.DBF文件備份，因?yàn)槊看握{(diào)試可能要改變原始表中的數(shù)據(jù))。1.設(shè)計(jì)一個(gè)表單,表單的標(biāo)題為“統(tǒng)計(jì)和減少工資”,名稱為tjform,表單中有三個(gè)命令按鈕和一個(gè)列表框,三個(gè)按鈕的標(biāo)題分別為“減少工資”,“千元統(tǒng)計(jì)”和“退出”。2.單擊“減少工資”按鈕將每個(gè)記錄的工資(gongzi)減少原工資的10.67%。updatet3setgongzi=gongzi-gongzi*0.1067closeall

C3-4(修改字段內(nèi)容類型)3.單擊“千元統(tǒng)計(jì)”按鈕將統(tǒng)計(jì)所有記錄減少后的工資(gongzi)中的千位數(shù)字的和及千位數(shù)字中的最大值,并將統(tǒng)計(jì)的兩個(gè)數(shù)值分兩行顯示在列表框中。只計(jì)算千位中值,沒有千位按0計(jì)算。selectsum(int(gongzi/1000))ass,max(int(gongzi/1000))asmafromt3intocursort2thisform.list1.additem(str(t2.s))thisform.list1.additem(str(t2.ma))4.單擊“退出”按鈕將關(guān)閉表單。Thisform.release~1282C4-new 現(xiàn)有兩個(gè)自由表{<score3.dbf>}和{<score4.dbf>},先將兩文件下載到你的考試文件夾,然后按下面要求完成程序設(shè)計(jì):1.建立一個(gè)數(shù)據(jù)庫scoredata,并將上面兩個(gè)自由表添加到數(shù)據(jù)庫中;以學(xué)號(xuehao)為主關(guān)鍵字建立兩表之間的關(guān)聯(lián),score3為父表。2.設(shè)計(jì)一個(gè)表單，以scoredata作為表單的數(shù)據(jù)環(huán)境，在表單中添加一個(gè)命令按鈕command1和一個(gè)組合框combo1。command1的標(biāo)題為“兩門優(yōu)秀最低助學(xué)金”