【文章內容簡介】 amp。amp。建立事件循環(huán) On ShutDown amp。amp。釋放當前的 On ShutDown命令 *按菜單的“關閉”按鈕退出時，出現(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。結束當前 Visual FoxPro 工作期，并將控制權返回給操作系統(tǒng) ENDIF ENDFUNC (二 )、在運行主程序后，系統(tǒng)調用登陸界面表單 (圖 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) 此兩項功能分別為在打開表單時調用的音樂文件和關閉表單時調用的音樂文件。 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 同時在每個五角星的顏色也做了設置。 (三 )系統(tǒng)登陸表單設計界面 用戶在文本框輸入操作員及口令，若正確則調用系統(tǒng)主界面 (菜單 )。允許輸入三次，若三次均不正確剛自動退出系統(tǒng)。 若用戶輸入的操作員姓名 及口令正確，要完成下列工作： (5) 設置一個全局變量 operat,用于記錄登陸系統(tǒng)的操作員姓名，系統(tǒng)中有 3 個地方要用到操作員的姓名和代號：一是進入主界面后在標題欄顯示的操作員姓名；二是操作員在系統(tǒng)管理模塊的口令設置中更改自己的口令，系統(tǒng)要知道是哪個操作員；三是退出系統(tǒng)時系統(tǒng)日志中要記錄操作員的退出時間。 (6) 在系統(tǒng)日志表 ，并同時記錄此操作員的登錄系統(tǒng)的時間。 (7) 從權限表 ，并賦值給數(shù)組。 (8) 調用菜單文件，顯示系統(tǒng)主界面。 事件代碼： Form1 的 init 事件代碼： SET EXACT ON amp。amp。精確比較 PUBLIC ARRAY rr[18] amp。amp。數(shù)組用于實現(xià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 計專學生管理系統(tǒng)+SPACE(40)+DTOC(DATE())+SPACE(40)+操作員： +operat SELECT 權限 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)菜單設計 學生信息管理系統(tǒng)的菜單 在應用系統(tǒng)中，各個了模塊是通過菜單組織在一起的。通過對人事工資管理系統(tǒng)功能模塊的設 計，可以交系統(tǒng)劃分為 3 大模塊：學生信息管理、學生成績查詢、系統(tǒng)管理，具體的菜單設計見下表： 學生信息管理 學生成績管理 系統(tǒng)管理 學生信息維護 學生成績查詢 操作員管理 口令設置 學生信息查詢 權限管理 系統(tǒng)日志 數(shù)據(jù)備份 數(shù)據(jù)恢復 退出系統(tǒng) 在菜單設計器中實現(xiàn)權限設置 在菜單項設計器中，通過 [提示選項 ]對話框設置菜單項的跳過條件可以實現(xiàn)用戶權限。每個操作員對每個菜單項有兩種權限： 0 或 1?！?0”表示此操作員對該菜單項沒有操作權，系統(tǒng)運行后，該菜單項為灰色。不能打開對 應的表單，“ 1”代表該操作員對該菜單項具有操作權，系統(tǒng)運行后，該菜單項可用，鼠標單擊菜單項能打開對應的表單。 操作員對各菜單項的權限保存在表文件 中，在登錄系統(tǒng)時讀出該操作員對應各菜單項的權限，并賦值給一個數(shù)組 RR。本系統(tǒng)共 10 個菜單項，所以定義的數(shù)組也包含 10 個元素。 學生信息維護表單包換下列功能：數(shù)據(jù)錄入、修改、刪除、查詢、瀏覽、保存、打印等。本表單左邊是瀏覽窗口，便于用戶瀏覽數(shù)據(jù)；右邊是編輯窗口，主要用于輸入修改數(shù)據(jù)。 在表單數(shù)據(jù)環(huán)境中添加表： 、 cjb、 dbf。 學生人事表和成績表的結構請打開數(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(該記錄學號為： +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 學號 =alltrim() or 學生姓名=alltrim() locate for 學號 =alltrim() or 學 生 姓 名=alltrim() set filter to 運行界面： (如圖 5) (圖 5) 學生信息查詢菜單的設計 學生人事信息的查詢是基于 表，菜單提供學號，姓名，全體查詢。分別利用不同的命令代碼方式實現(xiàn)查詢打印功能。功能是便于指導員和老師，學生用戶的檢索查詢。 各事件的代碼如下： FORM1 的 INIT事件代碼： *輸入編號、姓名提示標簽及文本框 =.F. =.F. () *輸入起始日期、截止日期提示標簽及文本框不可見 =.F. =.F. =.F. =.F. =.F. *表格數(shù)據(jù)不可修改 =.T. Optiongroup1 的 CLICK 事件代碼： *選定查詢類別后，設置各控件是否可見 DO CASE CASE =1 amp。amp。按學號查詢 =.T. =.T. =.F. =.F. =.F. =.F. =.F. =請輸入要查詢的學號： = CASE =2 amp。amp。按姓名查詢 =.T. =.T. =.F. =.F. =.F. =.F. =.F. =請輸入學生姓名： = () 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表。一一對應該對應的數(shù)據(jù)項， COMMAND4(查詢 )的 CLICK 事件代碼： *按輸入的日期條件在表格中顯示查詢的記錄 SELECT rsb PUBLIC qs