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