VFP應(yīng)用程序設(shè)計(jì)實(shí)例 --學(xué)生學(xué)籍管理系統(tǒng) (1)電腦筆記 2007-10-2916:43 閱讀2402 評論4字號(hào)：大中 小圖

1MIS是英文

ManagementInformationSystem

的英文縮寫，意思是信息管理系統(tǒng)，該系統(tǒng)可用于中小型企事業(yè)單位業(yè)務(wù)處理和信息交流，從而大大提高了企業(yè)運(yùn)作的效率。微軟公司的 VisualFoxPro可視化面向?qū)ο蟮木幊誊浖且粋€(gè)設(shè)計(jì) MIS系統(tǒng)即簡單又快捷的好軟件。下面，就以 VFP6.0為開發(fā)環(huán)境，講述設(shè)計(jì)學(xué)生學(xué)籍管理系統(tǒng)的詳細(xì)設(shè)計(jì)過程，也為在看過了前面非表單設(shè)計(jì)的學(xué)生學(xué)籍管理系統(tǒng)的朋友們繼續(xù)了解并學(xué)習(xí)采用表單（

Form）的方式設(shè)計(jì)

MIS系統(tǒng)的方法。一、設(shè)計(jì)思路：學(xué)生學(xué)籍管理系統(tǒng)的運(yùn)行以封面表單開始，如圖入登錄密碼，

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é)生總平均成績、高數(shù)平均成績、英語平均成績和 VFP平均成績的統(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)框架圖四、數(shù)據(jù)庫結(jié)構(gòu)：(可定義表名為xj.dbf)字段名類型寬度小數(shù)位數(shù)學(xué)號(hào)字符型2姓名字符型6性別字符型2出生年月字符型10郵編字符型6高數(shù)數(shù)值型51英語數(shù)值型51VFP數(shù)值型51是否黨員字符型2電話字符型8通信地址字符型30備注備注型4五、具體設(shè)計(jì)： (給出源代碼，表單屬性可參照圖示在VFP屬性框中設(shè)置，所有程序文件和表單文件均通過 VFP工程管理器建立 )1、學(xué)生學(xué)籍管理系統(tǒng)主程序源代碼 (可定義程序名為 main.prg)_SCREEN.WINDOWSTATE=2&&設(shè)置窗口規(guī)格為第 2種系統(tǒng)窗口_SCREEN.CAPTION="學(xué)生學(xué)籍管理系統(tǒng) " &&設(shè)置窗口標(biāo)題為“學(xué)生學(xué)籍管理系統(tǒng)”_SCREEN.CLOSABLE=.T. &&去掉關(guān)閉按鈕_SCREEN.CONTROLBOX=.F.&&去掉控制按鈕_SCREEN.MAXBUTTON=.F.&&去掉最大化按鈕_SCREEN.MINBUTTON=.F. &&去掉最小化按鈕_SCREEN.BACKCOLOR=RGB(50,100,128)&&設(shè)置窗口的背景色CLOSEALLCLEARALLCLEARSETSYSMENUOFFSETSYSMENUTOSETTALKOFFSETSAFETYOFFSETSTATUSBAROFF &&關(guān)閉VisualFoxpro 的狀態(tài)欄封面.SCX &&調(diào)用系統(tǒng)登錄“封面”表單READEVENT &&響應(yīng)用戶輸入菜單.MPX &&運(yùn)行系統(tǒng)菜單READEVENTSETSYSMENUTODEFAULT&&恢復(fù)VisualFoxpro 的系統(tǒng)菜單的默認(rèn)值SETSYSMENUON&&顯示VisualFoxpro 的系統(tǒng)菜單SETSTATUSBARON &&顯示VisualFoxpro 的狀態(tài)欄CLOSEALL &&關(guān)閉所有文件CLEARALLRETURN&&返回2、封面表單源代碼 封面.sct)PROCEDUREClick &&確定按 鈕的單擊事件過程SETEXACTON &&設(shè)置精確比較命令I(lǐng)FTHISFORM.text1.VALUE="8888" &&如果文本框的值是 8888THISFORM.RELEASE&&那么釋放封面表單菜單.MPX &&運(yùn)行菜單程序ELSE &&否則THISFORM.NO=THISFORM.NO+1&&將自定義屬性 NO的值由0加1IFTHISFORM.NO>=3 &&如果自定義屬性 NO的值為3=MESSAGEBOX("密碼三次輸錯(cuò)，您不能使用本系統(tǒng)！ ",0+16+0," 學(xué)生學(xué)籍管理系統(tǒng)")&&那么彈出內(nèi)容為“密碼三次輸錯(cuò)，您不能使用本系統(tǒng)！”的對話框QUIT&&結(jié)束程序的運(yùn)行ELSE&&否則=MESSAGEBOX("密碼錯(cuò)誤！",48+0+0," 警告") &&彈出內(nèi)容為“密碼錯(cuò)誤！”的對話框THISFORM.text1.VALUE="" &&設(shè)置文本框的內(nèi)容為空THISFORM.text1.SETFOCUS &&并將光標(biāo)定位到文本框中THISFORM.REFRESH&&刷新封面表單ENDIFENDIFSETEXACTOFF &&設(shè)置關(guān)閉精確比較命令ENDPROCPROCEDUREClick &&取消按鈕的單擊事件過程THISFORM.RELEASE&&釋放封面表單CLOSEALL &&關(guān)閉所有文件CLEAREVENTquitENDPROC(未完)圖23、錄入數(shù)據(jù)表單源代碼 錄入.sct，如圖 2所示)PROCEDUREInit &&錄入數(shù)據(jù)表單的初始化事件過程SETTALKOFFTHISFORM.mand4.ENABLED=.f. &&設(shè)置第四個(gè)按鈕為不可用狀態(tài)THISFORM.mand5.ENABLED=.f. &&設(shè)置第五個(gè)按鈕為不可用狀態(tài)THISFORM.txt學(xué)號(hào).ENABLED=.f. &&設(shè)置學(xué)號(hào)文本框?yàn)椴豢捎脿顟B(tài)THISFORM.txt姓名.ENABLED=.f. &&設(shè)置姓名文本框?yàn)椴豢捎脿顟B(tài)THISFORM.combo1.ENABLED=.f. &&設(shè)置組合框 1為不可用狀態(tài)THISFORM.combo2.ENABLED=.f. &&設(shè)置組合框 2為不可用狀態(tài)THISFORM.combo3.ENABLED=.f. &&設(shè)置組合框 3為不可用狀態(tài)THISFORM.combo4.ENABLED=.f. &&設(shè)置組合框 4為不可用狀態(tài)THISFORM.txt郵編.ENABLED=.f. &&設(shè)置郵編文本框?yàn)椴豢捎脿顟B(tài)THISFORM.txt高數(shù).ENABLED=.f. &&設(shè)置高數(shù)文本框?yàn)椴豢捎脿顟B(tài)THISFORM.txt英語.ENABLED=.f. &&設(shè)置英語文本框?yàn)椴豢捎脿顟B(tài)THISFORM.txtVfp.ENABLED=.f. &&設(shè)置VFP文本框?yàn)椴豢捎脿顟B(tài)THISFORM.combo5.ENABLED=.f. &&設(shè)置組合框 5為不可用狀態(tài)THISFORM.txt電話.ENABLED=.f. &&設(shè)置電話文本框?yàn)椴豢捎脿顟B(tài)THISFORM.txt通信地址.ENABLED=.f. &&設(shè)置通信地址文本框?yàn)椴豢捎脿顟B(tài)THISFORM.edt備注.ENABLED=.f. &&設(shè)置備注編輯框?yàn)椴豢捎脿顟B(tài)ENDPROCPROCEDURELoad&&錄入數(shù)據(jù)表單的加載事件過程CLOSEDATA &&關(guān)閉所有數(shù)據(jù)庫USEA:\XJ 存&&打開A盤中的 XJ.DBF表文件SETMULTILOCKSON &&設(shè)置鎖定一組記錄=CURSORSETPROP('buffering',5,'XJ') &&打開開放式表緩沖ENDPROCPROCEDUREInteractiveChange &&錄入數(shù)據(jù)表單的交互改變事件過程REPL出生年月 WITHTHISFORM.combo2.displayvalue+"."+THISFORM.combo3.displayvalue+"."+THISFORM.combo4.displayvalue &&用組合框的值替換出生年月字段THISFORM.REFRESH&&刷新錄入數(shù)據(jù)表單ENDPROCPROCEDURECommand1.Click &&單擊命令按鈕 1的事件過程APPENDBLANK&&添加一空白記錄THISFORM.REFRESH&&刷新錄入數(shù)據(jù)表單THISFORM.mand1.ENABLED=.f. &&設(shè)置命令按鈕 1為不可用狀態(tài)THISFORM.mand2.ENABLED=.f. &&設(shè)置命令按鈕 2為不可用狀態(tài)THISFORM.mand3.ENABLED=.f. &&設(shè)置命令按鈕 3為不可用狀態(tài)THISFORM.mand4.ENABLED=.t. &&設(shè)置命令按鈕 4為可用狀態(tài)THISFORM.mand5.ENABLED=.t. &&設(shè)置命令按鈕 5為可用狀態(tài)THISFORM.mand6.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.combo4.ENABLED=.t.THISFORM.txt郵編.ENABLED=.t.THISFORM.txt高數(shù).ENABLED=.t.THISFORM.txt英語.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).SETFOCUSENDPROCPROCEDURECommand2.Click &&單擊命令按鈕 2的事件過程SETDELETEON &&設(shè)置打開刪除命令DELETE &&刪除當(dāng)前記錄YN=MESSAGEBOX('確實(shí)要?jiǎng)h除這條記錄？ ',4+32+256,' 刪除確認(rèn)') &&彈出內(nèi)容為“確實(shí)要?jiǎng)h除這條記錄？”的對話框DOCASE &&運(yùn)行條件判斷語句CASEYN=6 &&當(dāng)單擊“是”按鈕時(shí)=TABLEUPDATE(.T.) &&執(zhí)行更新表函數(shù)，刪除當(dāng)前記錄CASEYN=7 &&當(dāng)單擊“否”按鈕時(shí)RECALL &&恢復(fù)已作了刪除標(biāo)記的當(dāng)前記錄ENDCASETHISFORM.REFRESHENDPROCPROCEDURECommand3.Click &&單擊命令按鈕 3的事件過程THISFORM.mand1.ENABLED=.f.THISFORM.mand2.ENABLED=.f.THISFORM.mand3.ENABLED=.f.THISFORM.mand4.ENABLED=.t.THISFORM.mand5.ENABLED=.t.THISFORM.mand6.ENABLED=.f.ENDPROCPROCEDURECommand4.Click &&單擊命令按鈕 4的事件過程=TABLEUPDATE(.T.)THISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.f.THISFORM.mand5.ENABLED=.f.THISFORM.mand6.ENABLED=.t.ENDPROCPROCEDURECommand5.Click &&單擊命令按鈕 5的事件過程=TABLEREVERT(.T.)THISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.f.THISFORM.mand5.ENABLED=.f.THISFORM.mand6.ENABLED=.t.ENDPROCPROCEDURECommand6.Click &&單擊命令按鈕 6的事件過程SELE1 &&選擇1號(hào)工作區(qū)USEA:\XJEXCLUSIVE 打開A盤中的 XJ.DBF數(shù)據(jù)表PACK &&徹底刪除已作了刪除標(biāo)記的記錄THISFORM.RELEASE&&釋放錄入數(shù)據(jù)表單ENDPROCPROCEDUREInteractiveChangeREPL是否黨員 WITHTHISFORM.combo5.DISPLAYVALUE &&用組合框的值替換是否黨員字段THISFORM.REFRESHENDPROC4、修改數(shù)據(jù)表單源代碼 修改.sct)圖3PROCEDURECommand1.ClickIFNOTBOF() &&如果記錄指針沒有到記錄的開頭SKIP–1 &&向上跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISFORM.mand2.ENABLED=.t.ELSEWAITWINDOW已'經(jīng)是第一條記錄了！ ' &&系統(tǒng)給出內(nèi)容為“已經(jīng)是第一條記錄了！”提示窗口ENDIFENDPROCPROCEDURECommand2.ClickIFNOTEOF() &&如果記錄指針沒有到記錄的結(jié)尾SKIP &&向下跳轉(zhuǎn)一個(gè)記錄THISFORM.REFRESHTHISFORM.mand1.ENABLED=.t.ELSEWAITWINDOW'已經(jīng)是最后一條記錄了！ 'ENDIFENDPROCPROCEDURECommand3.ClickGOTOP &&將記錄指針移到記錄的開頭THISFORM.REFRESHTHISFORM.mand1.ENABLED=.f.THISFORM.mand2.ENABLED=.t.ENDPROCPROCEDURECommand4.ClickGOBOTTOM&&將記錄指針移到記錄的結(jié)尾THISFORM.REFRESHTHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.f.ENDPROCPROCEDURECommand5.Click=TABLEUPDATE(.T.)THISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.THISFORM.mand5.ENABLED=.f.THISFORM.mand6.ENABLED=.f.THISFORM.mand7.ENABLED=.t.ENDPROCPROCEDURECommand6.Click=TABLEREVERT(.T.) &&啟用表緩沖，放棄表中對所有記錄所做的修改函數(shù)THISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.t.THISFORM.mand3.ENABLED=.t.THISFORM.mand4.ENABLED=.t.THISFORM.mand5.ENABLED=.f.THISFORM.mand6.ENABLED=.f.THISFORM.mand7.ENABLED=.t.ENDPROCPROCEDURECommand7.ClickUSEA:\XJEXCLUSIVEPACKTHISFORM.RELEASEENDPROCPROCEDUREClickIFEMPTY(THISFORM.combo1.VALUE) &&如果組合框 1的值為空=MESSAGEBOX("請選擇學(xué)號(hào)！ ",48+0+0," 學(xué)生學(xué)籍管理系統(tǒng) ") &&系統(tǒng)給出內(nèi)容為“請選擇學(xué)號(hào)！”的對話框ENDIFAA=RECNO() &&用顯示記錄號(hào)的函數(shù)將記錄號(hào)賦給變量 AAGOAA &&將記錄指針移到當(dāng)前記錄號(hào)THISFORM.txt學(xué)號(hào).REFRESH &&刷新學(xué)號(hào)文本框的內(nèi)容THISFORM.txt姓名.REFRESH &&刷新姓名文本框的內(nèi)容THISFORM.txt性別.REFRESH &&刷新性別文本框的內(nèi)容THISFORM.txt出生年月.REFRESH &&刷新出生年月文本框的內(nèi)容THISFORM.txt郵編.REFRESH &&刷新郵編文本框的內(nèi)容THISFORM.txt高數(shù).REFRESH &&刷新高數(shù)文本框的內(nèi)容THISFORM.txt英語.REFRESH &&刷新英語文本框的內(nèi)容THISFORM.txtVfp.REFRESH &&刷新VFP文本框的內(nèi)容THISFORM.txt是否黨員.REFRESH &&刷新是否黨員文本框的內(nèi)容THISFORM.txt電話.REFRESH &&刷新電話文本框的內(nèi)容THISFORM.txt通信地址.REFRESH &&刷新通信地址文本框的內(nèi)容THISFORM.edt備注.REFRESH &&刷新備注編輯框的內(nèi)容THISFORM.mand5.ENABLED=.t.THISFORM.mand6.ENABLED=.t.ENDPROC(未完)VFP應(yīng)用程序設(shè)計(jì)實(shí)例 --學(xué)生學(xué)籍管理系統(tǒng)（ 3）電腦筆記 2007-10-2916:56 閱讀2137 評論2字號(hào)：大中 小5、查詢數(shù)據(jù)表單源代碼 查詢.sct)圖4PROCEDUREClickIFEMPTY(THISFORM.combo1.VALUE)=MESSAGEBOX("請選擇學(xué)號(hào)！ ",48+0+0," 學(xué)生學(xué)籍管理系統(tǒng) ")ENDIFAA=RECNO()GOAATHISFORM.txt學(xué)號(hào).REFRESHTHISFORM.txt姓名.REFRESHTHISFORM.txt性別.REFRESHTHISFORM.txt出生年月.REFRESHTHISFORM.txt郵編.REFRESHTHISFORM.txt高數(shù).REFRESHTHISFORM.txt英語.REFRESHTHISFORM.txtVfp.REFRESHTHISFORM.txt是否黨員.REFRESHTHISFORM.txt電話.REFRESHTHISFORM.txt通信地址.REFRESHTHISFORM.edt備注.REFRESHENDPROC6、統(tǒng)計(jì)數(shù)據(jù)表單源代碼 統(tǒng)計(jì).sct)圖5PROCEDUREClick &&單擊“統(tǒng)計(jì)記錄總數(shù)”按鈕時(shí)的事件過程COUNTTOAAFOR是否黨員="是" &&對黨員計(jì)數(shù)，并將計(jì)數(shù)結(jié)果賦給變量 AATHISFORM.text5.value=AA &&將變量AA的值賦給文本框 5THISFORM.text5.REFRESHENDPROCPROCEDUREClick &&單擊“統(tǒng)計(jì)英語平均成績”按鈕時(shí)的事件過程AVERAGE英語TOAA &&對所有記錄的英語成績求平均，并將平均值賦給變量 AATHISFORM.text3.value=AA &&將變量AA的值賦給文本框 3THISFORM.text3.REFRESHENDPROCPROCEDUREClick &&單擊“統(tǒng)計(jì) VFP平均成績”按鈕時(shí)的事件過程AVERAGEvfpTOAA &&對所有記錄的 VFP成績求平均，并將平均值賦給變量 AATHISFORM.text4.value=AA &&將變量AA的值賦給文本框 4THISFORM.text4.REFRESHENDPROCPROCEDUREClick &&單擊“統(tǒng)計(jì)總平均成績”按鈕時(shí)的事件過程AVERAGE高數(shù)TOAA &&對所有記錄的高數(shù)成績求平均，并將平均值賦給變量 AAAVERAGE英語TOBB &&對所有記錄的英語成績求平均，并將平均值賦給變量 BBAVERAGEvfpTOCC &&對所有記錄的 VFP成績求平均，并將平均值賦給變量 CCSTORE(AA+BB+CC)/3TODD &&將三門成績的平均成績和除 3的總平均成績賦給 DDTHISFORM.text6.value=DD &&將變量DD的值賦給文本框 6THISFORM.text6.REFRESHENDPROC7、顯示數(shù)據(jù)表單源代碼 顯示.sct)圖6PROCEDURECommand1.Click &&單擊“上條”按鈕的事件過程IFNOTBOF()SKIP-1THISFORM.REFRESHTHISFORM.mand2.ENABLED=.t.ELSEWAITWINDOW已'經(jīng)是第一條記錄了！ 'ENDIFENDPROCPROCEDURECommand2.Click &&單擊“下條”按鈕的事件過程IFNOTEOF()SKIPTHISFORM.REFRESHTHISFORM.mand1.ENABLED=.t.ELSEWAITWINDOW'已經(jīng)是最后一條記錄了！ 'ENDIFENDPROCPROCEDURECommand3.Click &&單擊“首條”按鈕的事件過程GOTOPTHISFORM.REFRESHTHISFORM.mand1.ENABLED=.f.THISFORM.mand2.ENABLED=.t.ENDPROCPROCEDURECommand4.Click &&單擊“末條”按鈕的事件過程GOBOTTOMTHISFORM.REFRESHTHISFORM.mand1.ENABLED=.t.THISFORM.mand2.ENABLED=.f.ENDPROCPROCEDURECommand5.Click &&單擊“返回”按鈕的事件過程THISFORM.RELEASEENDPROC8、刪除數(shù)據(jù)表單源代碼 刪除.sct)圖7PROCEDUREClick &&單擊“顯示”按鈕的事件過程IFEMPTY(THISFORM.combo1.VALUE)=MESSAGEBOX("請選擇學(xué)號(hào)！ ",48+0+0," 學(xué)生學(xué)籍管理系統(tǒng) ")THISFORM.command2.ENABLED=.f.ELSETHISFORM.command2.ENABLED=.t.ENDIFAA=RECNO()GOAATHISFORM.txt學(xué)號(hào).REFRESHTHISFORM.txt姓名.REFRESHTHISFORM.txt性別.REFRESHTHISFORM.txt出生年月.REFRESHTHISFORM.txt郵編.REFRESHTHISFORM.txt高數(shù).REFRESHTHISFORM.txt英語.REFRESHTHISFORM.txtVfp.REFRESHTHISFORM.txt是否黨員.REFRESHTHISFORM.txt電話.REFRESHTHISFORM.txt通信地址.REFRESHTHISFORM.edt備注.REFRESHENDPROCPROCEDUREClick &&單擊“刪除”按鈕的事件過程SETDELETEONDELETEYN=MESSAGEBOX('確實(shí)要?jiǎng)h除這條記錄？ ',4+32+256,' 刪除確認(rèn)')DOCASECASEYN=6=TABLEUPDATE(.T.)=MESSAGEBOX("記錄已成功刪除！ ",0+64+0,' 學(xué)生學(xué)籍管理系統(tǒng) ')THISFORM.command2.ENABLED=.f.THISFORM.combo1.DISPLAYVALUE="請選擇"GOTOPCASEYN=7RECALLENDCASETHISFORM.REFRESHENDPROCPROCEDUREInit &&刪除數(shù)據(jù)表單的初始化過程SETTALKOFFTHISFORM.command2.ENABLED=.f.ENDPROCPROCEDUREClickUSEA:\XJEXCLUSIVEPACKTHISFORM.RELEASEENDPROC(未完)VFP應(yīng)用程序設(shè)計(jì)實(shí)例 --學(xué)生學(xué)籍管理系統(tǒng)（ 4）電腦筆記 2007-10-2916:58 閱讀3624 評論4字號(hào)：大中 小9、導(dǎo)出數(shù)據(jù)表單源代碼 導(dǎo)出.sct)圖8PROCEDUREClick &&單擊“確定”按鈕的事件過程SETSAFETYOFF &&覆蓋文件時(shí)不提示確認(rèn)USEA:\XJGOTOPIFEMPTY(THISFORM.combo1.VALUE)=MESSAGEBOX("請選擇盤符！ ",48+0+0," 學(xué)生學(xué)籍管理系統(tǒng) ")ELSEIFEMPTY(THISFORM.text1.VALUE)=MESSAGEBOX("請輸入文件名！ ",48+0+0," 學(xué)生學(xué)籍管理系統(tǒng) ")ELSEIFRECC()>0 &&如果表記錄大于 0DRIVER=THISFORM.COMBO1.DISPLAYVALUE&&將組合框 1的值賦給變量 DRIVERFILENAME=ALLTRIM(THISFORM.TEXT1.TEXT)&&將去掉空格的文件名賦給變量FILENAMECOPYTO&DRIVER\&FILENA