簡單應(yīng)用(參考)

1、簡單應(yīng)用（注意本題中所有代碼在原題中不提供）(一) 簡單應(yīng)用（15分）打開表單myform002，表單中已有一個標(biāo)簽（名稱為Label1），二個命令按鈕“計(jì)算”和“關(guān)閉”（名稱分別為Command1和Command2），三個文本框（名稱分別為Text1、Text2、Text3），要求完成以下功能：1. 在Text1、Text2中分別輸入一個自然數(shù)（要求用文本框事件代碼設(shè)定，設(shè)計(jì)時不使用屬性，當(dāng)不滿足要求時，光標(biāo)不能離開該文本框），且Text2中的自然數(shù)大于Text1中的自然數(shù)（不用代碼設(shè)定），當(dāng)單擊“計(jì)算”按鈕時，求出兩個自然數(shù)之間奇數(shù)的和，并將結(jié)果顯示在文本框Text3中。2. 在表單中增加

2、一個“重置”按鈕，其字體和字號同其他命令按鈕，當(dāng)單擊“重置”按鈕時，三個文本框均清空。3. 單擊“關(guān)閉”按鈕時結(jié)束表單的運(yùn)行。界面設(shè)計(jì)如下圖所示。需要完成的操作如下：1. 請將“計(jì)算”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。（練習(xí)題中該事件中無代碼）2. 按要求完成“重置”按鈕和“關(guān)閉”按鈕的事件代碼，兩個文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=""THISFORM.TEXT2.VALUE=""THISFORM.TEXT3

3、.VALUE=""在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)算按鈕的click事件代碼如下：A=VAL( THISFORM.TEXT1.VALUE )B=VAL(THISFORM.TEXT2.VALUE)P= AS=0DO WHILE P<= Bif int(p/2) <> P/2S=S+PENDIFP=P+1ENDDOTHISFORM.TEXT3.VALUE =STR(S)TEXT1的valid事件代碼如下：RETURN VAL(THISFORM.TEXT1.VALUE)>=0 AND VAL(THISFORM

4、.TEXT1.VALUE) =INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的valid事件代碼如下：RETURN VAL(THISFORM.TEXT2.VALUE)>=0 AND VAL(THISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(二) 簡單應(yīng)用（15分）打開表單myform002，表單中已有一個標(biāo)簽（名稱為Label1），三個文本框（名稱為Text1、Text2、Text3），二個命令按鈕（名稱分別為Command1、Command2），其標(biāo)題文字分別為“計(jì)算”和“關(guān)閉”。要求完成如下功能：1. 在文

5、本框Text1、Text2中分別輸入一個三位的自然數(shù)（用valid事件設(shè)定），且Text2中的數(shù)大于Text1中的數(shù)據(jù)（用valid事件設(shè)定），當(dāng)單擊“計(jì)算”按鈕時，計(jì)算在這兩個自然數(shù)之間滿足數(shù)字本身三個數(shù)字之和為10這樣條件的數(shù)之和，并將計(jì)算結(jié)果顯示在文本框Text3中；2. 在表單中增加一個“重置”按鈕，其字體字號同其他命令按鈕，單擊該命令按鈕時，三個文本框的內(nèi)容均清空。3. 單擊“關(guān)閉”按鈕結(jié)束表單的運(yùn)行。界面設(shè)計(jì)如下圖所示。按功能完成如下操作：(三) 請將“計(jì)算”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。(四) 按要求完成“重置”按鈕和“關(guān)閉”按鈕的程序代碼，

6、完成text1和text2事件代碼的設(shè)定。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=""THISFORM.TEXT2.VALUE=""THISFORM.TEXT3.VALUE=""在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)算按鈕的click事件代碼如下：A=VAL(THISFORM.TEXT1.VALUE)B=VAL(THISFORM.TEXT2.VALUE)P=AS=0DO WHILE P <= BC=I

7、NT(P/100)D=INT(p/10)-INT(P/100)*10E=P-INT(P/10)*10if C+D+E=10S=S+PENDIFP=P+1ENDDOTHISFORM.TEXT3.VALUE=STR(S)TEXT1的valid事件代碼如下：return val(thisform.text1.value)>=100 and val(thisform.text1.value)<=999 AND VAL(THISFORM.TEXT1.VALUE) =INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的valid事件代碼如下：return val(thisfo

8、rm.text2.value)>=100 and val(thisform.text2.value)<=999 and val(thisform.text2.value)>val(thisform.text1.value) AND VAL(THISFORM.TEXT2.VALUE) =INT(VAL(THISFORM.TEXT2.VALUE)(三) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，其中已經(jīng)添加兩個名稱分別為Label1和Label2的標(biāo)簽和一個定時器Timer1，標(biāo)簽Label1的標(biāo)題為“銷售管理信息系統(tǒng)”。要求完成如

9、下功能：（1）將標(biāo)簽Label1的字體設(shè)置為“黑體”，字號為20，顏色為RGB（255,0,0），調(diào)整其大小，顯示所有內(nèi)容，其他控件的字體為隸書，字號為20。（2）將Timer1控件的事件代碼中“？”位置改成正確的代碼，并在屬性窗口設(shè)置Timer1的相應(yīng)屬性，保證每隔20毫秒，標(biāo)簽Label1能夠不停的自右向左移動（移動值設(shè)置為-2），標(biāo)簽右邊沿移至表單左邊沿后，則標(biāo)簽再次從表單右邊沿開始向左移動，循環(huán)往復(fù)。（3）添加名為Timer2的定時器控件，并編寫相應(yīng)的代碼，保證每隔1秒在標(biāo)簽Label2中顯示當(dāng)前系統(tǒng)時間。（4）添加一個“退出”按鈕，單擊此按鈕，則退出表單的運(yùn)行。界面設(shè)計(jì)如下圖所示：需

10、要完成的操作如下：3. 請將timer1控件的事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。4. 按要求完成 “退出”按鈕的事件代碼，添加timer2控件并完成相應(yīng)的代碼設(shè)置。5. 完成相關(guān)屬性的設(shè)置。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASETIMER1控件的事件代碼如下：IF THISFORM.LABEL1.LEFT>-THISFORM.LABEL1.WIDTHTHISFORM.LABEL1.LEFT=THISFORM.LABEL1.LEFT-2ELSETHISFORM.LABEL1.LEFT=TH

11、ISFORM.WIDTHENDIF TIMER2控件的事件代碼如下：THISFORM.LABEL2.CAPTION=TIME()(四) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單中有兩個命令按鈕“輸出”和“退出”（名稱分別為Command1和Command2）；二個文本框（名稱分別為Text1、Text2），五個標(biāo)簽（名稱分別為Label1、Label2、Label3、Label4、Label5）。要求完成以下功能：1. 在文本框Text1中輸入姓名（不能為空，用事件代碼限定），在Text2中修改學(xué)生成績，初始成績?yōu)?00，用屬性窗口設(shè)置，當(dāng)

12、單擊“輸出”按鈕時，在標(biāo)簽Label5中顯示等級，格式為“姓名”+“的等級為”+ 等級，其中等級的劃分為：不及格（大于等于0且小于60）、合格（大于等于60且小于90）、優(yōu)秀（大于等于90且小于等于100），2. Text2中修改的成績只能在0-100之間，否則在判斷等級時顯示“數(shù)據(jù)錯誤”（不用在單獨(dú)事件中設(shè)定，在給定的事件中已設(shè)定），如果其中的值不為100，則光標(biāo)進(jìn)不去（用事件設(shè)定），添加一個“重置”按鈕，字體字號同其他命令按鈕，單擊重置按鈕，則text1為空，text2為100。3. 單擊“退出”按鈕時結(jié)束表單的運(yùn)行。表單運(yùn)行示例如下：需要完成的操作如下：6. 請將“輸出”命令按鈕單擊事件

13、代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。7. 按要求完成“退出”按鈕和兩個文本框的事件代碼。8. 添加“重置”按鈕，完成事件代碼設(shè)定。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=""THISFORM.TEXT2.VALUE=100在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改輸出按鈕的click事件代碼如下：cj=thisform.text2.valuedo casecase cj>=0 AND CJ<60thisform.label5

14、.caption= THISFORM.TEXT1.VALUE+"的等級為不及格"case cj>=60 and cj<90thisform.label5.caption=THISFORM.TEXT1.VALUE+"的等級為合格"case cj>=90 and cj<=100thisform.label5.caption=THISFORM.TEXT1.VALUE+"的等級為優(yōu)秀"otherwisethisform.label5.caption="數(shù)據(jù)錯誤"endcaseTEXT1的valid事

15、件代碼如下：return LEN(ALLTRIM(thisform.TEXT1.VALUE)<>0TEXT2的when事件代碼如下：return thisform.TEXT2.VALUE=100(五) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單中有兩個命令按鈕（名稱分別為Command1和Command2），其標(biāo)題文本分別為“輸出”和“退出”。五個文本框（名稱分別為Text1、Text2、Text3、Text4、Text5），兩個標(biāo)簽（名稱分別為Label1、Label2）。1. 要求在五個文本框中分別輸入數(shù)據(jù)長度不超過4位的五個

16、數(shù)（用事件代碼加以限定），當(dāng)單擊“輸出”按鈕時，在標(biāo)簽Label2中顯示由大到小排序的結(jié)果，其字體顯示為紅色（RGB（255,0,0）。2. 單擊“退出”按鈕時結(jié)束表單的運(yùn)行。表單運(yùn)行效果示例如下：（需要完成的操作如下：9. 請將“輸出”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。10. 按要求完成 “退出”按鈕的事件代碼，五個文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改輸出按鈕的click事件代碼如下：dimension x(5)THISFORM.LABEL2.CAPTIO

17、N=""for i=1 to 5p="thisform.text"+STR(I,1) +".value"x(i)=val(&p)endforfor i=1 to 4for j=i+1 to 5if x(i)<x(j)t=x(i)X(I)=X(J)X(J)=TendifendforENDFORfor i= 1 to 5thisform.label2.caption= THISFORM.LABEL2.CAPTION+str(x(i),7,2)endforTEXT1的valid事件代碼如下：RETURN LEN(ALLTRIM

18、(thisform.TEXT1.VALUE)<=4TEXT2的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT2.VALUE)<=4TEXT3的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT3.VALUE)<=4TEXT4的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT4.VALUE)<=4TEXT5的valid事件代碼如下：RETURN LEN(ALLTRIM(thisform.TEXT5.VALUE)<=4(六) 簡單應(yīng)用（15分）在指定

19、的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單上有兩個標(biāo)簽（名稱為Label1、Label2），三個文本框（名稱為Text1、Text2、Text3），其中文本框Text3的字體為楷體，20號字，顏色為RGB（0，255,0），兩個命令按鈕（名稱為Command1、Command2），其標(biāo)題文字分別為“計(jì)算”和“退出”。要求完成以下功能：1. 在Text1和Text2中分別輸入一個自然數(shù)時，（Text2中輸入的數(shù)要大于Text1中的數(shù)，且為自然數(shù)，即大于等于0的整數(shù)，要求用valid事件代碼限定）,當(dāng)單擊“計(jì)算”按鈕時，計(jì)算出這兩個自然數(shù)之間所有素?cái)?shù)的和，并將結(jié)果顯示在

20、Text3中。2. 添加一個“重置”按鈕，字體字號同“計(jì)算”按鈕，單擊“重置”按鈕，則三個文本框均置空。3. 當(dāng)單擊“退出”按鈕時，則結(jié)束表單的運(yùn)行。表單運(yùn)行示例如下：需要完成的操作如下：11. 請將“計(jì)算”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。12. 按要求完成 “退出”按鈕的事件代碼，兩個文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=""THISFORM.TEXT2.VALUE=""THISFORM.TEXT3.VALUE

21、=""在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)算按鈕的click事件代碼如下：a=val(thisform.text1.value)b=val(thisform.text2.value)s=0for i=a to bfor j= 2 to i-1if int(i/j)=i/jexitendifendforif i=js=s+iendifendforthisform.text3.value=int(s)TEXT1的valid事件代碼如下：RETURN VAL(THISFORM.TEXT1.VALUE)>0 AND VAL(THIS

22、FORM.TEXT1.VALUE)=INT(VAL(THISFORM.TEXT1.VALUE)TEXT2的valid事件代碼如下：RETURN VAL(THISFORM.TEXT2.VALUE)>0 AND VAL(THISFORM.TEXT2.VALUE)=INT(VAL(THISFORM.TEXT2.VALUE) AND VAL(THISFORM.TEXT2.VALUE)>VAL(THISFORM.TEXT1.VALUE)(七) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，在表單中有四個標(biāo)簽（名稱為Label1、Label2、Lab

23、el3、Label4），一個下拉式組合框，三個文本框（名稱為Text1、Text2、Text3），TEXT1、TEXT2、TEXT3的字體顏色分別為RGB(255，0，0)、RGB(0，255，0)、RGB（0，0，255）兩個命令按鈕（名稱為Command1、Command2），其標(biāo)題文字分別為“統(tǒng)計(jì)”和“退出”。要求完成以下功能：1. 在文本框combo1中選擇一組已有的字符或者輸入長度大于6的字符串內(nèi)容（若長度不大于6，焦點(diǎn)不能離開combo1，用事件代碼限定）。當(dāng)單擊“統(tǒng)計(jì)”按鈕時，分別統(tǒng)計(jì)“字符”、“數(shù)字”和“其他”的個數(shù)，并將結(jié)果分別顯示在文本框Text2、Text3、Text4中

24、。2. 添加一個“重置”按鈕，其字體字形同“統(tǒng)計(jì)”按鈕，單擊“重置”按鈕，則將組合框，三個文本框中的內(nèi)容清空。3. 單擊“退出”按鈕則退出運(yùn)行狀態(tài)。表單運(yùn)行示例圖如下：需要完成的操作如下：13. 請將“統(tǒng)計(jì)”命令按鈕單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。14. 按要求添加“重置”按鈕及它的屬性設(shè)置和它的事件代碼的設(shè)置15. 按要求編寫“退出”按鈕的事件代碼，組合框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.COMBO1.VALUE=""THISFORM.TEXT1.VALUE=&q

25、uot;"THISFORM.TEXT2.VALUE=""THISFORM.TEXT3.VALUE=""在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改統(tǒng)計(jì)按鈕的click事件代碼如下：C=0D=0E=0a=ALLTRIM(bo1.DISPLAYvalue)b=LEN(A)for i=1 to bch=SUBSTR(A,I,1)DO CASECASE ch>="a" and ch<="z" OR ch>="A" and ch<=&qu

26、ot;Z"C=C+1CASE ch>="0" and ch<="9" D=D+1otherwisee=e+1ENDCASEENDFORthisform.text1.value=str(C,3)thisform.text2.value=str(D,3)thisform.text3.value=str(E,3) combo1的valid事件代碼如下：RETURN LEN(ALLTRIM(THISFORM.COMBO1.DISPLAYVALUE)>6(八) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myf

27、orm002，表單中有三個標(biāo)簽（Label1、Label2、Label3），一個文本框（Text1），一個選項(xiàng)按鈕組（Optiongroup1），一個列表框（List1），兩個命令按鈕（Command1、Command2），其標(biāo)題文字分別為“重置”和“退出”。要求完成以下功能：1. 在文本框Text1輸入行數(shù)（行數(shù)不能超過6行，必須為一個自然數(shù)，且如果不輸入也不允許退出Text1焦點(diǎn)）后，在Optiongroup1中，單擊相應(yīng)按鈕，則在列表框中顯示對應(yīng)的圖形。2. 單擊“重置”按鈕，則文本框和列表框內(nèi)容清空，選項(xiàng)按鈕組全部未選中，TEXT1獲得焦點(diǎn)。3. 單擊“退出”按鈕則結(jié)束表單運(yùn)行。表單運(yùn)

28、行示例圖如下：需要完成的操作如下：16. 請將選項(xiàng)按鈕組、第一個按鈕、第二個按鈕、第三個按鈕的單擊事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。17. 按要求完成“重置”按鈕和“退出”按鈕的事件代碼，文本框的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(在重置按鈕的click事件代碼窗口中輸入：THISFORM.TEXT1.VALUE=""THISFORM.OPTIONGROUP1.VALUE=0thisform.LIST1.ROWSOURCE=""THISFORM.TEXT1.SETFOCUS()在退出按鈕的click事件代碼窗口中輸

29、入：THISFORM.RELEASE選項(xiàng)按鈕組的click事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=""endforfor i=P to 1 step -1x(P-I+1)=space(6-P)for j=1 to Ix(P-I+1)=x(P-I+1)+"*"endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource="X"thisform.refresh

30、選項(xiàng)按鈕組的第一個選項(xiàng)按鈕的click事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=""endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to 2*I-1x(I)=x(I)+"*"endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource="X"thisform.refresh選項(xiàng)按鈕組的第二個選項(xiàng)按鈕的click

31、事件代碼如下：public p,xp=val(thisform.text1.value)dimension x(p)for i=1 to px(I)=""endforfor i=1 to P step 1x(I)=space(6-I)for j=1 to Ix(I)=x(I)+"*"endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource="X"thisform.refresh選項(xiàng)按鈕組的第三個選項(xiàng)按鈕的click事件代碼如下：public p,xp=val(

32、thisform.text1.value)dimension x(p)for i=1 to px(I)=""endforfor i=P to 1 step -1x(P-I+1)=space(6-I)for j=1 to 2*I-1x(P-I+1)=x(P-I+1)+"*"endforendforthisform.list1.rowsourcetype=5thisform.list1.rowsource="X"thisform.refreshTEXT1的valid事件代碼如下：RETURN VAL(THISFORM.TEXT1.VALU

33、E)>0 AND VAL(THISFORM.TEXT1.VALUE)=int(VAL(THISFORM.TEXT1.VALUE) and val(THISFORM.TEXT1.VALUE)<=6(九) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單中已有七個標(biāo)簽（名稱為Label1label7），一個命令按鈕組，一個命令按鈕，四個文本框（名稱分別為Text1text4），兩個選項(xiàng)按鈕組，一個復(fù)選按鈕，一個編輯框，要求完成以下功能：1. 顯示或編輯RSDA.DBF數(shù)據(jù)表中的各個記錄的相關(guān)字段值，當(dāng)為首記錄時，“首記錄”，“上一條”按鈕不

34、可用，當(dāng)為末記錄時，“下一條”和“末記錄”按鈕不可用，單擊“添加記錄時，“下一條”和“末記錄”按鈕不可用，可以在數(shù)據(jù)表最后增加記錄，單擊“刪除記錄”，“首記錄”和“上一條”不可用，可以刪除一條記錄。2. 記錄號即TEXT1中的值，通過程序代碼顯示。3. 單擊“退出”按鈕時結(jié)束表單的運(yùn)行。表單運(yùn)行事例如下圖所示。需要完成的操作如下：1. 請將命令按鈕組中各個命令按鈕的單擊事件代碼和表單INIT事件代碼中的？去掉，改成正確的代碼，不能增加行或刪除行。(十) 按要求完成 “退出”按鈕的事件代碼。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(表單的INIT代碼為：THISFORM.TEXT1.VALUE

35、=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.命令按鈕組中的首記錄的click事件代碼：GO TOPTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFOR

36、M.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的上一條的click事件代碼：SKIP -1IF RECNO()=1THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令

37、按鈕組中的下一條的click事件代碼：A=RECNO()GO BOTTOMB=RECNO()GO ASKIPIF RECNO()=BTHISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.ENDIFTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的末記錄的cl

38、ick事件代碼：GO BOTTOMTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.F.THISFORM.TEXT1.VALUE=RECNO()THISFORM.REFRESH命令按鈕組中的添加記錄的click事件代碼：SELECT RSDAGO BOTTOMTHISFORM.REFRESHTHISFORM.

39、TEXT2.READONLY=.F.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.EDIT1.READONLY=.F.APPEND BLANKTHISFORM.TEXT1.VALUE=RECNO()THISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND4.

40、ENABLED=.F.THISFORM.REFRESHTHISFORM.TEXT1.SETFOCUS()命令按鈕組中的刪除記錄的click事件代碼：DELETEPACKTHISFORM.REFRESHTHISFORM.COMMANDGROUP1.COMMAND1.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND2.ENABLED=.F.THISFORM.COMMANDGROUP1.COMMAND3.ENABLED=.T.THISFORM.COMMANDGROUP1.COMMAND4.ENABLED=.T.THISFORM.TEXT1.VALUE=RECNO()

41、THISFORM.REFRESH在關(guān)閉按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE(十) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單上有一個標(biāo)簽（Label1），一個圖像控件（Image1），一個計(jì)時器控件（Timer1），一個命令按鈕（Command1），其標(biāo)題為“退出”。要求完成以下功能：1. 要求使用屬性窗口為圖像控件Image1添加要顯示的圖片內(nèi)容（所需圖片在對應(yīng)的考生文件夾中），采用等比填充，然后圖片每隔20毫秒在表單的水平方向上移動，到達(dá)表單的左或右邊框時向相反方向移動。2. 當(dāng)單擊“退出”按鈕時，結(jié)束表單

42、的運(yùn)行。表單設(shè)計(jì)完成后如下圖所示：需要完成的操作如下：1. 修改程序，將計(jì)時器的timer事件代碼中的“？”改成正確的內(nèi)容，不能添加或刪除代碼行；2. 編寫“退出”按鈕的程序代碼；3. 在表單的Init事件中設(shè)置ff為公共變量，初始值為.T.。通過屬性將圖片添加上去，采用等比填充。注意：完成表單設(shè)計(jì)后要運(yùn)行表單的所有功能。(表單的init事件代碼如下：public ffff=.T.在退出按鈕的click事件代碼窗口中輸入：THISFORM.RELEASE修改計(jì)時器的timer事件代碼如下：if ffthisform.image1.left= thisform.image1.left+2else

43、thisform.image1.left=thisform.image1.left-2endifif thisform.image1.left<0 or thisform.image1.left>thisform.width -thisform.image1.widthff=not ffendif(十一) 簡單應(yīng)用（15分）在指定的考生文件夾下，完成下列簡單應(yīng)用操作。打開表單myform002，表單中已有四個個標(biāo)簽（名稱為Label1label4），二個命令按鈕“登錄”和“退出”（名稱分別為Command1和Command2），兩個個文本框（名稱分別為Text1、Text2），一個組合框控件要求完成以下功能：1. 設(shè)置表單的背景圖片，背景圖片在給定文件夾下。2. 在“操作員姓名”下拉列表中選擇姓名，如果未選擇則提示“尚未選擇操作員姓名”，在“操作員工號”后面的文本框中輸入工號，在“操作員密碼”后面的文本框中輸入密碼，密碼顯示為*號，如果均正確，則給出“登錄成功，歡迎您進(jìn)入系統(tǒng)”，結(jié)束表單運(yùn)行；如果不正確，且未達(dá)到三次，則給出“輸入錯誤，請重新輸入”，如果三次輸入錯誤，則給出“登錄失敗，您無權(quán)使用系統(tǒng)”，結(jié)束表單運(yùn)行。3. 單擊“退出”按鈕時結(jié)束表單的運(yùn)行。（工