【文章內(nèi)容簡介】 amp。amp。建立事件循環(huán) On ShutDown amp。amp。釋放當(dāng)前的 On ShutDown命令 *按菜單的“關(guān)閉”按鈕退出時，出現(xiàn)的提示框 FUNCTION OnShutdown() sel=MESSAGEBOX(真的要退出嗎 ?,4+32+256,提示 ) IF sel=6 *SELECT 0 *USE .\dbsystem\LOG *GO BOTTOM *REPLACE 離開時間 WITH DATETIME() amp。amp。退出系統(tǒng)時記錄操作員退出時間 CLOSE ALL CLEAR EVENTS amp。amp。退出事件循環(huán) QUIT amp。amp。結(jié)束當(dāng)前 Visual FoxPro 工作期，并將控制權(quán)返回給操作系統(tǒng) ENDIF ENDFUNC (二 )、在運行主程序后，系統(tǒng)調(diào)用登陸界面表單 (圖 4) 主要事件代碼： FORM1 的 INIT事件代碼： SET BELL ON SET BELL TO 39。.\MUSIC\39。,2 ??CHR(7) FORM1 的 UNLOAD 事件代碼： SET BELL TO 39。\MUSIC\39。,2 ??CHR(7) 此兩項功能分別為在打開表單時調(diào)用的音樂文件和關(guān)閉表單時調(diào)用的音樂文件。 Command1 的 mouseup 事件代碼： LPARAMETERS nButton, nShift, nXCoord, nYCoord release thisform DO FORM .\main\ Timer1 的 timer 事件代碼： release thisform DO FORM .\main\ Timer2 的 timer 事件代碼： 為了實現(xiàn)五角星的閃動： IF =.f. else =.t. endif Timer3 的 timer 事件代碼： 為了實現(xiàn)五角星的閃動： IF =.t. else =.t. endif Timer4 的 timer 事件代碼： 為了實現(xiàn)五角星的閃動： IF =.t else =.t. endif 同時在每個五角星的顏色也做了設(shè)置。 (三 )系統(tǒng)登陸表單設(shè)計界面 用戶在文本框輸入操作員及口令，若正確則調(diào)用系統(tǒng)主界面 (菜單 )。允許輸入三次，若三次均不正確剛自動退出系統(tǒng)。 若用戶輸入的操作員姓名 及口令正確，要完成下列工作： (5) 設(shè)置一個全局變量 operat,用于記錄登陸系統(tǒng)的操作員姓名，系統(tǒng)中有 3 個地方要用到操作員的姓名和代號：一是進入主界面后在標(biāo)題欄顯示的操作員姓名；二是操作員在系統(tǒng)管理模塊的口令設(shè)置中更改自己的口令，系統(tǒng)要知道是哪個操作員；三是退出系統(tǒng)時系統(tǒng)日志中要記錄操作員的退出時間。 (6) 在系統(tǒng)日志表 ，并同時記錄此操作員的登錄系統(tǒng)的時間。 (7) 從權(quán)限表 ，并賦值給數(shù)組。 (8) 調(diào)用菜單文件，顯示系統(tǒng)主界面。 事件代碼： Form1 的 init 事件代碼： SET EXACT ON amp。amp。精確比較 PUBLIC ARRAY rr[18] amp。amp。數(shù)組用于實現(xiàn)菜單項權(quán)限 PUBLIC i amp。amp。i用于記錄用戶名及口令輸入次數(shù) PUBLIC operat amp。amp。operat 用于保存操作員姓名 i=0 “確定”按鈕 (COMMAND1)CLICK 事件代碼： *判斷密碼是否正確 i=i+1 SELECT operator LOCATE FOR 操作員姓名 =ALLTRIM() DO CASE CASE i=3 AND FOUND() AND = amp。amp。輸入次數(shù)未超過 3 次且用戶名正確、口令正確 operat= INSERT INTO log(操作員代號 ,操作員姓名 ,登錄時間 ) VALUES(作員代號 , ,DATETIME()) =05 計專學(xué)生管理系統(tǒng)+SPACE(40)+DTOC(DATE())+SPACE(40)+操作員： +operat SELECT 權(quán)限 FROM menuright INTO ARRAY rr WHERE 操作員代號= ORDER BY 菜單項編號 RELEASE THISFORM DO .\main\ CASE i=3 AND FOUND() AND != amp。amp。輸入次數(shù)未超過 3 次且用戶名正確、口令不正確 MESSAGEBOX(密碼錯誤 ,請重輸 !,警告 ) = CASE i=3 AND NOT FOUND() amp。amp。輸入次數(shù)未超過 3 次且用戶名不正確 MESSAGEBOX(操作員姓名錯誤 ,請重輸 !,警告 ) = = CASE i3 amp。amp。輸入次數(shù)超過 3 次 MESSAGEBOX(禁止進入系統(tǒng) !,警告 ) ENDCASE 退出按鈕 (COMMAND2)CLICK 事件代碼： RELEASE THISFORM CLEAR EVENTS (四 )系統(tǒng)菜單設(shè)計 學(xué)生信息管理系統(tǒng)的菜單 在應(yīng)用系統(tǒng)中，各個了模塊是通過菜單組織在一起的。通過對人事工資管理系統(tǒng)功能模塊的設(shè) 計，可以交系統(tǒng)劃分為 3 大模塊：學(xué)生信息管理、學(xué)生成績查詢、系統(tǒng)管理，具體的菜單設(shè)計見下表： 學(xué)生信息管理 學(xué)生成績管理 系統(tǒng)管理 學(xué)生信息維護 學(xué)生成績查詢 操作員管理 口令設(shè)置 學(xué)生信息查詢 權(quán)限管理 系統(tǒng)日志 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 退出系統(tǒng) 在菜單設(shè)計器中實現(xiàn)權(quán)限設(shè)置 在菜單項設(shè)計器中，通過 [提示選項 ]對話框設(shè)置菜單項的跳過條件可以實現(xiàn)用戶權(quán)限。每個操作員對每個菜單項有兩種權(quán)限： 0 或 1?！?0”表示此操作員對該菜單項沒有操作權(quán)，系統(tǒng)運行后，該菜單項為灰色。不能打開對 應(yīng)的表單，“ 1”代表該操作員對該菜單項具有操作權(quán)，系統(tǒng)運行后，該菜單項可用，鼠標(biāo)單擊菜單項能打開對應(yīng)的表單。 操作員對各菜單項的權(quán)限保存在表文件 中，在登錄系統(tǒng)時讀出該操作員對應(yīng)各菜單項的權(quán)限，并賦值給一個數(shù)組 RR。本系統(tǒng)共 10 個菜單項，所以定義的數(shù)組也包含 10 個元素。 學(xué)生信息維護表單包換下列功能：數(shù)據(jù)錄入、修改、刪除、查詢、瀏覽、保存、打印等。本表單左邊是瀏覽窗口，便于用戶瀏覽數(shù)據(jù)；右邊是編輯窗口，主要用于輸入修改數(shù)據(jù)。 在表單數(shù)據(jù)環(huán)境中添加表： 、 cjb、 dbf。 學(xué)生人事表和成績表的結(jié)構(gòu)請打開數(shù)據(jù)庫表查看。 在表單數(shù)據(jù)環(huán)境的 BRFOREOPENTABLES 事件中添加代碼： =.t. 事件代碼： FORM1 的 INIT事件代碼： =.F. =.F. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.F. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.T. =.F. =.F. FORM1 的 CLICK 事件代碼： =.F. =.F. GRID1 的 afterrowclochange 事件代碼： LPARAMETERS nColIndex (dynamicbackcolor,IIF(reo(),rgb(255,255,255),rgb(0,255,0)),column) select rsb 此代碼實現(xiàn)不現(xiàn)顏色顯示選中的 GRID 對象的行及列。 “第一個“按鈕的 CLICK 事件代碼： select rsb go top =.f. =.f. if not eof() =.t. =.t. endif “前一個“按鈕的 CLICK 事件代碼： select rsb skip 1 if bof() go top =.f. =.f. endif if not eof() =.t. =.t. endif “下一個“按鈕的 CLICK 事件代碼： select rsb skip if eof() go bottom =.f. =.f. endif if not bof() =.t. =.t. endif “最后一個“按鈕的 CLICK 事件代碼： select rsb go bottom =.f. =.f. if not bof() =.t. =.t. endif “增加“按鈕的 CLICK 事件代碼： if =增加 =保存 =.F. =.F. =.F. =.F. =.T. =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.T. =.F. =.F. =.F. =.F. =.F. =.F. =.F. SELECT RSB APPEND BLANK GO BOTTOM () ELSE =增加 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.f. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif “刪除“按鈕的 CLICK 事件代碼： SELECT RSB XH= sel=messagebox(該記錄學(xué)號為： +XH+chr(13)+真的要刪除嗎 ?,4+32+256,提示) if sel=6 delete endif “查找“按鈕的 CLICK 事件代碼： =.t. =.t. = () “打印“按鈕的 CLICK 事件代碼： report form .\menu1\ preview for =alltrim() “退出“按鈕的 CLICK 事件代碼： select rsb pack “ TEXT7”的 valid 事件代碼為： select rsb set filter to 學(xué)號 =alltrim() or 學(xué)生姓名=alltrim() locate for 學(xué)號 =alltrim() or 學(xué) 生 姓 名=alltrim() set filter to 運行界面： (如圖 5) (圖 5) 學(xué)生信息查詢菜單的設(shè)計 學(xué)生人事信息的查詢是基于 表，菜單提供學(xué)號，姓名，全體查詢。分別利用不同的命令代碼方式實現(xiàn)查詢打印功能。功能是便于指導(dǎo)員和老師，學(xué)生用戶的檢索查詢。 各事件的代碼如下： FORM1 的 INIT事件代碼： *輸入編號、姓名提示標(biāo)簽及文本框 =.F. =.F. () *輸入起始日期、截止日期提示標(biāo)簽及文本框不可見 =.F. =.F. =.F. =.F. =.F. *表格數(shù)據(jù)不可修改 =.T. Optiongroup1 的 CLICK 事件代碼： *選定查詢類別后，設(shè)置各控件是否可見 DO CASE CASE =1 amp。amp。按學(xué)號查詢 =.T. =.T. =.F. =.F. =.F. =.F. =.F. =請輸入要查詢的學(xué)號： = CASE =2 amp。amp。按姓名查詢 =.T. =.T. =.F. =.F. =.F. =.F. =.F. =請輸入學(xué)生姓名： = () CASE =3 amp。amp。按出生日期查詢 =.F. =.F. =.T. =.T. =.T. =.T. =.T. CASE =4 amp。amp。顯示全體記錄 =.F. =.F. =.F. =.F. =.F. =.F. =.F. SET FILTER TO GO TOP ENDCASE GRID1 的數(shù)據(jù)連接連接 RSB表。一一對應(yīng)該對應(yīng)的數(shù)據(jù)項， COMMAND4(查詢 )的 CLICK 事件代碼： *按輸入的日期條件在表格中顯示查詢的記錄 SELECT rsb PUBLIC qs