VFP應(yīng)用程序設(shè)計(jì)實(shí)例

1、VFP應(yīng)用程序設(shè)計(jì)實(shí)例-學(xué)生學(xué)籍管理系統(tǒng)（1）電腦筆記 2007-10-29 16:43:36 閱讀2795評(píng)論5字號(hào)：大中小圖1MIS是英文Management Information System的英文縮寫，意思是信息管理系統(tǒng)，該系統(tǒng)可用于中小型企事業(yè)單位業(yè)務(wù)處理和信息交流，從而大大提高了企業(yè)運(yùn)作的效率。微軟公司的 VisualFoxPro可視化面向?qū)ο蟮木幊誊浖且粋€(gè)設(shè)計(jì)MIS系統(tǒng)即簡(jiǎn)單又快捷的好軟件。下面，就以VFP6.0為開(kāi)發(fā)環(huán)境，講述設(shè)計(jì)學(xué)生學(xué)籍管理系統(tǒng)的詳細(xì)設(shè)計(jì)過(guò)程，也為在看過(guò)了前面非表單設(shè)計(jì)的學(xué)生學(xué)籍管理系統(tǒng)的朋友們繼續(xù)了解并學(xué)習(xí)采用表單（Form）的方式設(shè)計(jì)MIS系統(tǒng)的方法。

2、一、設(shè)計(jì)思路：學(xué)生學(xué)籍管理系統(tǒng)的運(yùn)行以封面表單開(kāi)始，如圖 1所示，要求用戶輸入登錄密碼，并設(shè)置三次檢查功能，若三次輸入的密碼均有錯(cuò)，則自動(dòng)退出系統(tǒng)；否則出現(xiàn)系統(tǒng)菜單，接收用戶的操作，操作完畢后用戶可以從系統(tǒng)菜單中退出系統(tǒng)。二、系統(tǒng)功能：系統(tǒng)的功能主要分成十個(gè)功能模塊，它們是：錄入數(shù)據(jù)、修改數(shù)據(jù)、刪除數(shù)據(jù)、查詢數(shù)據(jù)、統(tǒng)計(jì)數(shù)據(jù)、顯示數(shù)據(jù)、打印數(shù)據(jù)、導(dǎo)出數(shù)據(jù)、導(dǎo)入數(shù)據(jù)和清空數(shù)據(jù)。錄入數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生信息的錄入；修改數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生信息的修改；刪除數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生數(shù)據(jù)的刪除；查詢數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生信息的查詢；統(tǒng)計(jì)數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生人數(shù) 、黨員人數(shù)、學(xué)生總平均成績(jī)、高數(shù)平均成績(jī)、英語(yǔ)平均成績(jī)和VFP平均成績(jī)

3、的統(tǒng)計(jì)；顯示數(shù)據(jù)可以實(shí)現(xiàn)以字段分布和二維表兩種方式顯示學(xué)生信打印數(shù)據(jù)可以實(shí)現(xiàn)用報(bào)表的形式打印學(xué)生的信息；導(dǎo)出數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生數(shù)據(jù)的備份，防止數(shù)據(jù)丟失；導(dǎo)入數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生數(shù)據(jù)的還原，保證數(shù)據(jù)的正確性；清空數(shù)據(jù)可以實(shí)現(xiàn)學(xué)生數(shù)據(jù)的清空操作。三、菜單結(jié)構(gòu)框架圖學(xué)生學(xué)籍管理系統(tǒng)主程序登錄窗口主菜單r1L1r1r1r 11r1rr錄修刪查顯導(dǎo)A改除詢示出教數(shù)數(shù)敬數(shù)據(jù)據(jù)據(jù)據(jù)據(jù)據(jù)四、數(shù)據(jù)庫(kù)結(jié)構(gòu)：（可定義表名為xj.dbf）字段名類型寬度小數(shù)位數(shù)學(xué)號(hào)字符型2姓名字符型6性別字符型2出生年月字符型10郵編字符型6高數(shù)數(shù)值型51英語(yǔ)數(shù)值型51VFP數(shù)值型51是否黨員字符型2電話字符型8通信地址字符型30備注備注型

4、4五、具體設(shè)計(jì)：（給出源代碼，表單屬性可參照?qǐng)D示在VFP屬性框中設(shè)置，所有程序文件和表單文件均通過(guò)VFP項(xiàng)目管理器建立）1、學(xué)生學(xué)籍管理系統(tǒng)主程序源代碼（可定義程序名為 main.prg）_SCREEN.WINDOWSTATE=2&&設(shè)置窗口規(guī)格為第 2種系統(tǒng)窗口.SCREEN.CAPTION邛生學(xué)籍管理系統(tǒng)"&&設(shè)置窗口標(biāo)題為“學(xué)生學(xué)籍管理系統(tǒng)”_SCREEN.CLOSABLE=.T. && 去掉關(guān)閉按鈕_SCREEN.CONTROLBOX=.F. && 去掉控制按鈕_SCREEN.MAXBUTTON=.F. &

5、;&去掉最大化按鈕_SCREEN.MINBUTTON=.F. &&去掉最小化按鈕_SCREEN.BACKCOLOR=RGB（50,100,128） &&設(shè)置窗口 的背景色CLOSE ALLCLEAR ALLCLEARSET SYSMENU OFFSET SYSMENU TOSET TALK OFFSET SAFETY OFFSET STATUS BAR OFF && 關(guān)閉 Visual Foxpro 的狀態(tài)欄封面.SCX &&調(diào)用系統(tǒng)登錄“封面”表單READ EVENT &&響應(yīng)用戶輸入菜單.MPX &am

6、p;&運(yùn)行系統(tǒng)菜單READ EVENTSET SYSMENU TO DEFAULT &&恢復(fù) Visual Foxpro 的系統(tǒng)菜單的默認(rèn)值SET SYSMENU ON &&顯示 Visual Foxpro 的系統(tǒng)菜單SET STATUS BAR ON &&顯示 Visual Foxpro 的狀態(tài)欄CLOSE ALL &&關(guān)閉所有文件CLEAR ALLRETURN &&返回2、封面表單源代碼封面.sct）PROCEDURE Click &&確定按鈕的單擊事件過(guò)程SET EXACT ON &a

7、mp;&設(shè)置精確比較命令I(lǐng)F THISFORM.text1.VALUE="8888"&& 如果文本框的值是 8888THISFORM.RELEASE &&那么釋放封面表單菜單.MPX &&運(yùn)行菜單程序ELSE &&否則THISFORM.NO=THISFORM.NO+1 &&將自定義屬性 NO的值由 0 力口 1IF THISFORM.NO>=3 &&如果自定義屬性 NO的值為3=MESSAGEBOX（密碼三次輸錯(cuò)，您不能使用本系統(tǒng)！”,0+16+0,”學(xué)生學(xué)籍管理系

8、統(tǒng)"）&&那么彈出內(nèi)容為“密碼三次輸錯(cuò)，您不能使用本系統(tǒng)！ ”的對(duì)話框QUIT &&結(jié)束程序的運(yùn)行ELSE &&否則=MESSAGEBOX密碼錯(cuò)誤！ ",48+0+0,"警告"）&&彈出內(nèi)容為“密碼錯(cuò)誤！ ”的對(duì)話框THISFORM.text1.VALUE=""&&設(shè)置文本框的內(nèi)容為空THISFORM.textl.SETFOCUS &&并將光標(biāo)定位到文本框中THISFORM.REFRESH &&刷新封面表單ENDIFENDI

9、FSET EXACT OFF &&設(shè)置關(guān)閉精確比較命令ENDPROCPROCEDURE Click &&取消按鈕的單擊事件過(guò)程THISFORM.RELEASE &&釋放封面表單CLOSE ALL &&關(guān)閉所有文件CLEAR EVENTquitENDPROC （未完）VFP應(yīng)用程序設(shè)計(jì)實(shí)例-學(xué)生學(xué)籍管理系統(tǒng)（2）電腦筆記 2007-10-29 16:54:06 閱讀3360評(píng)論0字號(hào)：大中小THISFORM.txtVfp.ENABLED=.f.&&設(shè)置VFP文本框?yàn)椴豢捎脿顟B(tài)THISFORM.combo5.ENABL

10、ED=.f.THISFORM.txt 電話.ENABLED=.f.THISFORM.txt 通信地址.ENABLED=.f.THISFORM.edt 備注.ENABLED=.f.&&設(shè)置組合框5為不可用狀態(tài)&&設(shè)置電話文本框?yàn)椴豢捎脿顟B(tài)&&設(shè)置通信地址文本框?yàn)椴豢捎脿顟B(tài)&&設(shè)置備注編輯框?yàn)椴豢捎脿顟B(tài)ENDPROCPROCEDURE Load &&錄入數(shù)據(jù)表單的加載事件過(guò)程CLOSE DATA &&關(guān)閉所有數(shù)據(jù)庫(kù)USE A:XJ存&&打開(kāi) A盤中的XJ.DBF表文件SET MULTIL

11、OCKS ON &&設(shè)置鎖定一組記錄=CURSORSETPROP('buffering',5,'XJ')&&打開(kāi)開(kāi)放式表緩沖ENDPROCPROCEDURE InteractiveChange &&錄入數(shù)據(jù)表單的交互改變事件過(guò)程REPL出生年月 WITHTHISFORM.combo2.displayvalue+"."+THISFORM.combo3.displayvalue+"+THISFORM.combo4.displayvalue&&用組合框的值替換出生年月字段TH

12、ISFORM.REFRESH &&刷新錄入數(shù)據(jù)表單ENDPROCPROCEDURE Command1.Click &&單擊命令按鈕 1的事件過(guò)程APPEND BLANK &&添力口一空白記錄THISFORM.REFRESH &&刷新錄入數(shù)據(jù)表單THISFORMmand1.ENABLED=.f. && 設(shè)置命令按鈕 1 為不可用狀態(tài)THISFORMmand2.ENABLED=.f. &&設(shè)置命令按鈕 2 為不可用狀態(tài)THISFORMmand3.ENABLED=.f. &&設(shè)置命令按鈕

13、3 為不可用狀態(tài)THISFORMmand4.ENABLED=.t.&&設(shè)置命令按鈕 4 為可用狀態(tài)THISFORMmand5.ENABLED=.t.&&設(shè)置命令按鈕 5 為可用狀態(tài)THISFORMmand6.ENABLED=.f. &&設(shè)置命令按鈕 6 為不可用狀態(tài)THISFORM.txt 學(xué)號(hào).ENABLED=.t.THISFORM.txt 姓名.ENABLED=.t.THISFORM.combo1.ENABLED=.t.THISFORM.combo2.ENABLED=.t.THISFORM.combo3.ENABLED=.t.THISFORM

14、.combo4.ENABLED=.t.THISFORM.txt 郵編.ENABLED=.t.THISFORM.txt 高數(shù).ENABLED=.t.THISFORM.txt 英語(yǔ).ENABLED=.t.THISFORM.txtVfp.ENABLED=.t.THISFORM.combo5.ENABLED=.t.THISFORM.txt 電話.ENABLED=.t.THISFORM.txt 通信地址.ENABLED=.t.THISFORM.edt 備注.ENABLED=.t.THISFORM.txt 學(xué)號(hào).SETFOCUSENDPROCPROCEDURE Command2.Click &&a

15、mp;單擊命令按鈕 2的事件過(guò)程SET DELETE ON &&設(shè)置打開(kāi)刪除命令DELETE &&刪除當(dāng)前記錄YN=MESSAGEBOX|實(shí)要?jiǎng)h除這條記錄？,4+32+256,'刪除確認(rèn))&&彈出內(nèi)容為“確實(shí)要?jiǎng)h除這條記錄？ ”的對(duì)話框DO CASE &&運(yùn)行條件判斷語(yǔ)句CASE YN=6 &&當(dāng)單擊“是”按鈕時(shí)=TABLEUPDATE(.T.) &&執(zhí)行更新表函數(shù)，刪除當(dāng)前記錄CASE YN=7 &&當(dāng)單擊“否”按鈕時(shí)RECALL &&恢復(fù)已作了刪除標(biāo)記的當(dāng)

16、前記錄ENDCASETHISFORM.REFRESHENDPROCPROCEDURE Command3.Click &&單擊命令按鈕 3的事件過(guò)程THISFORMmand1.ENABLED=.f.THISFORMmand2.ENABLED=.f.THISFORMmand3.ENABLED=.f.THISFORMmand4.ENABLED=.t.THISFORMmand5.ENABLED=.t.THISFORMmand6.ENABLED=.f.ENDPROCPROCEDURE Command4.Click &&單擊命令按鈕 4的事件過(guò)程=TABLEUPDATE(.

17、T.)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand4.ENABLED=.f.THISFORMmand5.ENABLED=.f.ENDPROCPROCEDURE Command5.Click &&單擊命令按鈕 5的事件過(guò)程=TABLEREVERT(.T.)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand4.ENABLED=.f.

18、THISFORMmand5.ENABLED=.f.THISFORMmand6.ENABLED=.t.ENDPROCPROCEDURE Command6.Click &&單擊命令按鈕 6的事件過(guò)程SELE 1&&選擇1號(hào)工作區(qū)USE A:XJ EXCLUSIVE 打開(kāi) A盤中的XJ.DBF數(shù)據(jù)表PACK &&徹底刪除已作了刪除標(biāo)記的記錄THISFORM.RELEASE &&釋放錄入數(shù)據(jù)表單ENDPROCPROCEDURE InteractiveChangeREPL是否黨員 WITH THISFORM.combo5.DISPLAYVA

19、LUE &&用組合框的值替換是否黨員字段THISFORM.REFRESHENDPROC4、修改數(shù)據(jù)表單源代碼修改.sct)THISFORMmand6.ENABLED=.t.圖3PROCEDURE Commandl.ClickIF NOT BOF()&&如果記錄指針沒(méi)有到記錄的開(kāi)頭SKIP 1 &&向上跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISFORMmand2.ENABLED=.t.ELSEWAIT WINDOW已經(jīng)是第一條記錄了！'&&系統(tǒng)給出內(nèi)容為“已經(jīng)是第一條記錄了！”提示窗口ENDIFENDPROCPRO

20、CEDURE Command2.ClickIF NOT EOF()&&如果記錄指針沒(méi)有到記錄的結(jié)尾SKIP&&向下跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISFORMmand1.ENABLED=.t.ELSEWAIT WINDOW '已經(jīng)是最后一條記錄了！'ENDIFENDPROCPROCEDURE Command3.ClickGO TOP &&將記錄指針移到記錄的開(kāi)頭THISFORM.REFRESHTHISFORMmand1.ENABLED=.f.THISFORMmand2.ENABLED=.t.ENDPROCPROCE

21、DURE Command4.ClickGO BOTTOM &&將記錄指針移到記錄的結(jié)尾THISFORM.REFRESHTHISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.f.ENDPROCPROCEDURE Command5.Click=TABLEUPDATE(.T.)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand6.ENABLED=.t.THISFORMmand5.ENABLED=.f.THISFORMma

22、nd6.ENABLED=.f.THISFORMmand7.ENABLED=.t.ENDPROCPROCEDURE Command6.Click=TABLEREVERT(.T.) &&啟用表緩沖，放棄表中對(duì)所有記錄所做的修改函數(shù)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand4.ENABLED=.t.THISFORMmand5.ENABLED=.f.THISFORMmand6.ENABLED=.f.THISFORMmand7.ENABLED=.t.ENDP

23、ROCPROCEDURE Command7.ClickUSE A:XJ EXCLUSIVEPACKTHISFORM.RELEASEENDPROCPROCEDURE ClickIF EMPTY(THISFORM.combo1.VALUE) &&如果組合框 1 的值為空=MESSAGEBOX("選擇學(xué)號(hào)！ ”,48+0+0,"學(xué)生學(xué)籍管理系統(tǒng)")&&系統(tǒng)給出內(nèi)容為“請(qǐng)選擇學(xué)號(hào)！ ”的對(duì)話框ENDIFAAAA=RECNO() &&用顯示記錄號(hào)的函數(shù)將記錄號(hào)賦給變量GO AA &&將記錄指針移到當(dāng)前記錄號(hào)TH

24、ISFORM.txt學(xué)號(hào).REFRESH &&刷新學(xué)號(hào)文本框的內(nèi)容THISFORM.txt 姓名.REFRESH&&刷新姓名文本框的內(nèi)容THISFORM.txt 性別.REFRESH&&刷新性別文本框的內(nèi)容THISFORM.txt 出生年月.REFRESHTHISFORM.txt 郵編.REFRESHTHISFORM.txt 高數(shù).REFRESHTHISFORM.txt 英語(yǔ).REFRESHTHISFORM.txtVfp.REFRESHTHISFORM.txt 是否黨員.REFRESHTHISFORM.txt 電話.REFRESHTHISFORM

25、.txt 通信地址.REFRESH&&刷新出生年月文本框的內(nèi)容&&刷新郵編文本框的內(nèi)容&&刷新高數(shù)文本框的內(nèi)容&&刷新英語(yǔ)文本框的內(nèi)容&&刷新VFP文本框的內(nèi)容&&刷新是否黨員文本框的內(nèi)容&&刷新電話文本框的內(nèi)容&&刷新通信地址文本框的內(nèi)容THISFORM.edt 備注.REFRESH&&刷新備注編輯框的內(nèi)容THISFORMmand5.ENABLED=.t.THISFORMmand6.ENABLED=.t.ENDPROC（未完）VFP應(yīng)用程序設(shè)計(jì)實(shí)例-

26、學(xué)生學(xué)籍管理系統(tǒng)(2)電腦筆記 2007-10-29 16:54:06 閱讀3360評(píng)論0字號(hào)：大中小THISFORM.txtVfp.ENABLED=.f.&&設(shè)置VFP文本框?yàn)椴豢捎脿顟B(tài)THISFORM.combo5.ENABLED=.f.THISFORM.txt 電話.ENABLED=.f.THISFORM.txt 通信地址.ENABLED=.f.THISFORM.edt 備注.ENABLED=.f.&&設(shè)置組合框5為不可用狀態(tài)&&設(shè)置電話文本框?yàn)椴豢捎脿顟B(tài)&&設(shè)置通信地址文本框?yàn)椴豢捎脿顟B(tài)&&設(shè)置備注編輯框?yàn)?/p>

27、不可用狀態(tài)ENDPROCPROCEDURE Load &&錄入數(shù)據(jù)表單的加載事件過(guò)程CLOSE DATA &&關(guān)閉所有數(shù)據(jù)庫(kù)USE A:XJ存&&打開(kāi) A盤中的XJ.DBF表文件SET MULTILOCKS ON &&設(shè)置鎖定一組記錄=CURSORSETPROP('buffering',5,'XJ')&&打開(kāi)開(kāi)放式表緩沖ENDPROCPROCEDURE InteractiveChange &&錄入數(shù)據(jù)表單的交互改變事件過(guò)程REPL出生年月 WITHTHISFORM.c

28、ombo2.displayvalue+"."+THISFORM.combo3.displayvalue+"+THISFORM.combo4.displayvalue&&用組合框的值替換出生年月字段THISFORM.REFRESH &&刷新錄入數(shù)據(jù)表單ENDPROCPROCEDURE Command1.Click &&單擊命令按鈕 1的事件過(guò)程APPEND BLANK &&添力口一空白記錄THISFORM.REFRESH &&刷新錄入數(shù)據(jù)表單THISFORMmand1.ENABLED=.

29、f. && 設(shè)置命令按鈕 1 為不可用狀態(tài)THISFORMmand2.ENABLED=.f. &&設(shè)置命令按鈕 2 為不可用狀態(tài)THISFORMmand3.ENABLED=.f. &&設(shè)置命令按鈕 3 為不可用狀態(tài)THISFORMmand4.ENABLED=.t.&&設(shè)置命令按鈕 4 為可用狀態(tài)THISFORMmand5.ENABLED=.t.&&設(shè)置命令按鈕 5 為可用狀態(tài)THISFORMmand6.ENABLED=.f. &&設(shè)置命令按鈕 6 為不可用狀態(tài)THISFORM.txt 學(xué)號(hào).ENAB

30、LED=.t.THISFORM.txt 姓名.ENABLED=.t.THISFORM.combo1.ENABLED=.t.THISFORM.combo2.ENABLED=.t.THISFORM.combo3.ENABLED=.t.THISFORM.combo4.ENABLED=.t.THISFORM.txt 郵編.ENABLED=.t.THISFORM.txt 高數(shù).ENABLED=.t.THISFORM.txt 英語(yǔ).ENABLED=.t.THISFORM.txtVfp.ENABLED=.t.THISFORM.combo5.ENABLED=.t.THISFORM.txt 電話.ENABLED

31、=.t.THISFORM.txt 通信地址.ENABLED=.t.THISFORM.edt 備注.ENABLED=.t.THISFORM.txt 學(xué)號(hào).SETFOCUSENDPROCPROCEDURE Command2.Click &&單擊命令按鈕 2的事件過(guò)程SET DELETE ON &&設(shè)置打開(kāi)刪除命令DELETE &&刪除當(dāng)前記錄YN=MESSAGEBOX|實(shí)要?jiǎng)h除這條記錄？,4+32+256,'刪除確認(rèn))&&彈出內(nèi)容為“確實(shí)要?jiǎng)h除這條記錄？ ”的對(duì)話框DO CASE &&運(yùn)行條件判斷語(yǔ)句CASE

32、YN=6 &&當(dāng)單擊“是”按鈕時(shí)=TABLEUPDATE(.T.) &&執(zhí)行更新表函數(shù)，刪除當(dāng)前記錄CASE YN=7 &&當(dāng)單擊“否”按鈕時(shí)RECALL &&恢復(fù)已作了刪除標(biāo)記的當(dāng)前記錄ENDCASETHISFORM.REFRESHENDPROCPROCEDURE Command3.Click &&單擊命令按鈕 3的事件過(guò)程THISFORMmand1.ENABLED=.f.THISFORMmand2.ENABLED=.f.THISFORMmand3.ENABLED=.f.THISFORMmand4.ENABLED

33、=.t.THISFORMmand5.ENABLED=.t.THISFORMmand6.ENABLED=.f.ENDPROCPROCEDURE Command4.Click &&單擊命令按鈕 4的事件過(guò)程=TABLEUPDATE(.T.)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand4.ENABLED=.f.THISFORMmand5.ENABLED=.f.ENDPROCPROCEDURE Command5.Click &&單擊命令按鈕

34、5的事件過(guò)程=TABLEREVERT(.T.)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand4.ENABLED=.f.THISFORMmand5.ENABLED=.f.THISFORMmand6.ENABLED=.t.ENDPROCPROCEDURE Command6.Click &&單擊命令按鈕 6的事件過(guò)程SELE 1&&選擇1號(hào)工作區(qū)USE A:XJ EXCLUSIVE 打開(kāi) A盤中的XJ.DBF數(shù)據(jù)表PACK &&

35、;徹底刪除已作了刪除標(biāo)記的記錄THISFORM.RELEASE &&釋放錄入數(shù)據(jù)表單ENDPROCPROCEDURE InteractiveChangeREPL是否黨員 WITH THISFORM.combo5.DISPLAYVALUE &&用組合框的值替換是否黨員字段THISFORM.REFRESHENDPROC4、修改數(shù)據(jù)表單源代碼修改.sct)圖3PROCEDURE Commandl.ClickIF NOT BOF()&&如果記錄指針沒(méi)有到記錄的開(kāi)頭SKIP 1 &&向上跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISF

36、ORMmand2.ENABLED=.t.ELSEWAIT WINDOW已經(jīng)是第一條記錄了！'&&系統(tǒng)給出內(nèi)容為“已經(jīng)是第一條記錄了！”提示窗口ENDIFENDPROCPROCEDURE Command2.ClickIF NOT EOF()&&如果記錄指針沒(méi)有到記錄的結(jié)尾SKIP&&向下跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISFORMmand1.ENABLED=.t.ELSEWAIT WINDOW '已經(jīng)是最后一條記錄了！'ENDIFENDPROCPROCEDURE Command3.ClickGO TOP &a

37、mp;&將記錄指針移到記錄的開(kāi)頭THISFORM.REFRESHTHISFORMmand1.ENABLED=.f.THISFORMmand2.ENABLED=.t.ENDPROCPROCEDURE Command4.ClickGO BOTTOM &&將記錄指針移到記錄的結(jié)尾THISFORM.REFRESHTHISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.f.ENDPROCPROCEDURE Command5.Click=TABLEUPDATE(.T.)THISFORMmand1.ENABLED=.t.THISFORMmand

38、2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFORMmand6.ENABLED=.t.THISFORMmand5.ENABLED=.f.THISFORMmand6.ENABLED=.f.THISFORMmand7.ENABLED=.t.ENDPROCPROCEDURE Command6.Click=TABLEREVERT(.T.) &&啟用表緩沖，放棄表中對(duì)所有記錄所做的修改函數(shù)THISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.t.THISFORMmand3.ENABLED=.t.THISFO

39、RMmand4.ENABLED=.t.THISFORMmand5.ENABLED=.f.THISFORMmand6.ENABLED=.f.THISFORMmand7.ENABLED=.t.ENDPROCPROCEDURE Command7.ClickUSE A:XJ EXCLUSIVEPACKTHISFORM.RELEASEENDPROCPROCEDURE ClickIF EMPTY(THISFORM.combo1.VALUE) &&如果組合框 1 的值為空=MESSAGEBOX("選擇學(xué)號(hào)！ ”,48+0+0,"學(xué)生學(xué)籍管理系統(tǒng)")&&a

40、mp;系統(tǒng)給出內(nèi)容為“請(qǐng)選擇學(xué)號(hào)！ ”的對(duì)話框ENDIFAA=RECNO() &&用顯示記錄號(hào)的函數(shù)將記錄號(hào)賦給變量AAGO AA &&將記錄指針移到當(dāng)前記錄號(hào)THISFORM.txt學(xué)號(hào).REFRESH &&刷新學(xué)號(hào)文本框的內(nèi)容THISFORM.txt 高數(shù).REFRESHTHISFORM.txt 姓名.REFRESH&&刷新姓名文本框的內(nèi)容THISFORM.txt 性別.REFRESH&&刷新性別文本框的內(nèi)容&&刷新出生年月文本框的內(nèi)容&&刷新郵編文本框的內(nèi)容&&

41、刷新高數(shù)文本框的內(nèi)容&&刷新英語(yǔ)文本框的內(nèi)容&&刷新VFP文本框的內(nèi)容&&刷新是否黨員文本框的內(nèi)容&&刷新電話文本框的內(nèi)容&&刷新通信地址文本框的內(nèi)容THISFORM.txt 出生年月.REFRESHTHISFORM.txt 郵編.REFRESHTHISFORM.txt 高數(shù).REFRESHTHISFORM.txt 英語(yǔ).REFRESHTHISFORM.txtVfp.REFRESHTHISFORM.txt 是否黨員.REFRESHTHISFORM.txt 電話.REFRESHTHISFORM.txt 通信地址.RE

42、FRESHTHISFORM.edt 備注.REFRESH&&刷新備注編輯框的內(nèi)容THISFORMmand5.ENABLED=.t.THISFORMmand6.ENABLED=.t.ENDPROC（未完）、查詢數(shù)據(jù)表單源代碼查詢.sct）圖4PROCEDURE ClickIF EMPTY(THISFORM.combol.VALUE)=MESSAGEBOX潸選擇學(xué)號(hào)！ ",48+0+0,"學(xué)生學(xué)籍管理系統(tǒng)")ENDIFAA=RECNO()GO AATHISFORM.txt 學(xué)號(hào).REFRESHTHISFORM.txt 姓名.REFRESHTHISFOR

43、M.txt 性別.REFRESHTHISFORM.txt 出生年月.REFRESHTHISFORM.txt 郵編.REFRESHTHISFORM.txt 英語(yǔ).REFRESHTHISFORM.txtVfp.REFRESHTHISFORM.txt 是否黨員.REFRESHTHISFORM.txt 電話.REFRESHTHISFORM.txt 通信地址.REFRESHTHISFORM.edt 備注.REFRESHENDPROC6、統(tǒng)計(jì)數(shù)據(jù)表單源代碼統(tǒng)計(jì).sct)圖5PROCEDURE Click &&單擊“統(tǒng)計(jì)記錄總數(shù)”按鈕時(shí)的事件過(guò)程COUNT TO AA FOR是否黨員=&qu

44、ot;是"&&對(duì)黨員計(jì)數(shù)，并將計(jì)數(shù)結(jié)果賦給變量AATHISFORM.text5.value=AA&&將變量AA的值賦給文本框 5THISFORM.text5.REFRESHENDPROCPROCEDURE Click &&單擊“統(tǒng)計(jì)英語(yǔ)平均成績(jī)”按鈕時(shí)的事件過(guò)程AVERAGES吾TO AA &&對(duì)所有記錄的英語(yǔ)成績(jī)求平均，并將平均值賦給變量AATHISFORM.text3.value=AA &&將變量AA的值賦給文本框 3THISFORM.text3.REFRESHENDPROCPROCEDURE Cli

45、ck &&單擊“統(tǒng)計(jì) VFP平均成績(jī)”按鈕時(shí)的事件過(guò)程AVERAGE vfp TO AA &&對(duì)所有記錄的 VFP成績(jī)求平均，并將平均值賦給變量AATHISFORM.text4.value=AA &&將變量AA的值賦給文本框 4THISFORM.text4.REFRESHENDPROCPROCEDURE Click &&單擊“統(tǒng)計(jì)總平均成績(jī)”按鈕時(shí)的事件過(guò)程AVERAG蒲數(shù)TO AA &&對(duì)所有記錄的高數(shù)成績(jī)求平均，并將平均值賦給變量AAAVERAGES吾TO BB &&對(duì)所有記錄的英語(yǔ)成績(jī)求平均，

46、并將平均值賦給變量BBAVERAGE vfp TO CC &&對(duì)所有記錄的 VFP成績(jī)求平均，并將平均值賦給變量CCSTORE (AA+BB+CC)/3 TO DD &&將三門成績(jī)的平均成績(jī)和除3的總平均成績(jī)賦給 DDTHISFORM.text6.value=DD &&將變量DD的值賦給文本框 6THISFORM.text6.REFRESHENDPROC7、顯示數(shù)據(jù)表單源代碼顯示.sct)顯示數(shù)據(jù)l勻時(shí)mm工表療標(biāo)MW也名斗型年E疑Yf E9學(xué)解月瞰；打£C(XM.n于期身19W、H».C913_21誨畢另1圓:3raMi以&

47、#163;利口3)三旃另1 內(nèi)3.HsewsW.Cx依口爭(zhēng)番另陽(yáng)：3 口ccowoD,(也3一12生另scooxBitFl8m可忒另19W.13CC(XE3IT廊底a R1等、7?ri.MTB rAl 1,1) 丁13部亍J5*£.另期WO活,£QIan千年ign 1 it?rrwi%r幻1m，1 1 1圖6PROCEDURE Commandl.Click &&單擊“上條”按鈕的事件過(guò)程IF NOT BOF()SKIP -1THISFORM.REFRESHTHISFORMmand2.ENABLED=.t.ELSEWAIT WINDOW已經(jīng)是第一條記錄了！&#

48、39;ENDIFENDPROCPROCEDURE Command2.Click &&單擊“下條”按鈕的事件過(guò)程IF NOT EOF()SKIPTHISFORM.REFRESHTHISFORMmand1.ENABLED=.t.ELSEWAIT WINDOW '已經(jīng)是最后一條記錄了！'ENDIFENDPROCPROCEDURE Command3.Click &&單擊“首條”按鈕的事件過(guò)程GO TOPTHISFORM.REFRESHTHISFORMmand1.ENABLED=.f.THISFORMmand2.ENABLED=.t.ENDPROCPROC

49、EDURE Command4.Click &&單擊“末條”按鈕的事件過(guò)程GO BOTTOMTHISFORM.REFRESHTHISFORMmand1.ENABLED=.t.THISFORMmand2.ENABLED=.f.ENDPROCPROCEDURE Command5.Click &&單擊“返回”按鈕的事件過(guò)程THISFORM.RELEASEENDPROC8、刪除數(shù)據(jù)表單源代碼刪除.sct)圖7PROCEDURE Click &&單擊“顯示”按鈕的事件過(guò)程IF EMPTY(THISFORM.combol.VALUE)=MESSAGEBOX潸選

50、擇學(xué)號(hào)！ ",48+0+0,"學(xué)生學(xué)籍管理系統(tǒng)")THISFORM.command2.ENABLED=.f.ELSETHISFORM.command2.ENABLED=.t.ENDIFAA=RECNO()GO AATHISFORM.txt 學(xué)號(hào).REFRESHTHISFORM.txt 姓名.REFRESHTHISFORM.txt 性別.REFRESHTHISFORM.txt 出生年月.REFRESHTHISFORM.txt 郵編.REFRESHTHISFORM.txt 高數(shù).REFRESHTHISFORM.txt 英語(yǔ).REFRESHTHISFORM.txtVfp

51、.REFRESHTHISFORM.txt 是否黨員.REFRESHTHISFORM.txt 電話.REFRESHTHISFORM.txt 通信地址.REFRESHTHISFORM.edt 備注.REFRESHENDPROCPROCEDURE Click &&單擊“刪除”按鈕的事件過(guò)程SET DELETE ONDELETEYN=MESSAGEBOXg實(shí)要?jiǎng)h除這條記錄？,4+32+256,' 刪除確認(rèn))DO CASECASE YN=6=TABLEUPDATE(.T.)=MESSAGEBOX("錄已成功刪除！",0+64+0,'學(xué)生學(xué)籍管理系統(tǒng)&#

52、39;)THISFORM.command2.ENABLED=.f.THISFORM.combo1.DISPLAYVALUE= 青選擇"GO TOPCASE YN=7RECALLENDCASEENDPROCTHISFORM.REFRESHPROCEDURE Init &&刪除數(shù)據(jù)表單的初始化過(guò)程SET TALK OFFTHISFORM.command2.ENABLED=.f.ENDPROCPROCEDURE ClickUSE A:XJ EXCLUSIVEPACKTHISFORM.RELEASEENDPROC (未完)VFP應(yīng)用程序設(shè)計(jì)實(shí)例-學(xué)生學(xué)籍管理系統(tǒng)(4)電腦筆記 2007-10-29 16:58:43 閱讀3843