【正文】
report form .\menu1\ preview for =alltrim()“退出“按鈕的CLICK事件代碼:select rsbpack“TEXT7”的valid事件代碼為:select rsbset filter to 學(xué)號(hào)=alltrim() or 學(xué)生姓名=alltrim()locate for 學(xué)號(hào)=alltrim() or 學(xué)生姓名=alltrim()set filter to運(yùn)行界面:(如圖5)(圖5)學(xué)生信息查詢菜單的設(shè)計(jì),菜單提供學(xué)號(hào),姓名,全體查詢。本表單左邊是瀏覽窗口,便于用戶瀏覽數(shù)據(jù);右邊是編輯窗口,主要用于輸入修改數(shù)據(jù)。不能打開對(duì)應(yīng)的表單,“1”代表該操作員對(duì)該菜單項(xiàng)具有操作權(quán),系統(tǒng)運(yùn)行后,該菜單項(xiàng)可用,鼠標(biāo)單擊菜單項(xiàng)能打開對(duì)應(yīng)的表單。輸入次數(shù)超過3次 MESSAGEBOX(禁止進(jìn)入系統(tǒng)!,警告) ENDCASE 退出按鈕(COMMAND2)CLICK事件代碼:RELEASE THISFORMCLEAR EVENTS(四)系統(tǒng)菜單設(shè)計(jì) 學(xué)生信息管理系統(tǒng)的菜單在應(yīng)用系統(tǒng)中,各個(gè)了模塊是通過菜單組織在一起的。輸入次數(shù)未超過3次且用戶名正確、口令不正確 MESSAGEBOX(密碼錯(cuò)誤,請(qǐng)重輸!,警告) = CASE i=3 AND NOT FOUND() amp。operat用于保存操作員姓名 i=0“確定”按鈕(COMMAND1)CLICK事件代碼:*判斷密碼是否正確i=i+1SELECT operatorLOCATE FOR 操作員姓名=ALLTRIM()DO CASE CASE i=3 AND FOUND() AND = amp。數(shù)組用于實(shí)現(xiàn)菜單項(xiàng)權(quán)限PUBLIC i amp。事件代碼:Form1的init事件代碼:SET EXACT ON amp。若用戶輸入的操作員姓名及口令正確,要完成下列工作:(1) 設(shè)置一個(gè)全局變量operat,用于記錄登陸系統(tǒng)的操作員姓名,系統(tǒng)中有3個(gè)地方要用到操作員的姓名和代號(hào):一是進(jìn)入主界面后在標(biāo)題欄顯示的操作員姓名;二是操作員在系統(tǒng)管理模塊的口令設(shè)置中更改自己的口令,系統(tǒng)要知道是哪個(gè)操作員;三是退出系統(tǒng)時(shí)系統(tǒng)日志中要記錄操作員的退出時(shí)間。,2??CHR(7)此兩項(xiàng)功能分別為在打開表單時(shí)調(diào)用的音樂文件和關(guān)閉表單時(shí)調(diào)用的音樂文件。結(jié)束當(dāng)前 Visual FoxPro 工作期,并將控制權(quán)返回給操作系統(tǒng)ENDIFENDFUNC(二)、在運(yùn)行主程序后,系統(tǒng)調(diào)用登陸界面表單(圖4)(由于隱私問題,現(xiàn)不能公布姓名)主要事件代碼:FORM1的INIT事件代碼:SET BELL ONSET BELL TO 39。退出系統(tǒng)時(shí)記錄操作員退出時(shí)間 CLOSE ALL CLEAR EVENTS amp。建立事件循環(huán) On ShutDown amp。調(diào)用登錄界面表單On ShutDown do OnShutdown amp。系統(tǒng)窗口標(biāo)題=.\ amp。指定日期分隔字符SET HOURS TO 24 amp。年份以四位顯示SET DATE TO ymd amp。在程序執(zhí)行期間廢止 Visual FoxPro 主菜單欄RELEASE WINDOW 常用 amp。指定在改寫已有文件時(shí)不顯示對(duì)話框SET DELETE ON amp。關(guān)閉各種類型的文件SET ESCAPE OFF amp。清屏CLEAR ALL amp。程序的調(diào)用關(guān)系如下:,封面中調(diào)用“口令驗(yàn)證窗口”。主菜單共分為三個(gè)分菜單項(xiàng):學(xué)生信息管理,學(xué)生成績(jī)管理,系統(tǒng)管理。當(dāng)用戶輸入合法的用戶名和密