學(xué)生管理系統(tǒng)中信息技術(shù)的運(yùn)用設(shè)計(jì)書(shū)-wenkub
2023-04-22 23:06:46 本頁(yè)面
【正文】 戶沒(méi)有點(diǎn)擊此按鈕，系統(tǒng)會(huì)自動(dòng)跳到密碼驗(yàn)證頁(yè)。當(dāng)用戶輸入合法的用戶名和密碼時(shí)，系統(tǒng)管理會(huì)自動(dòng)判斷此用戶是什么級(jí)別的用戶，具有什么權(quán)限，使用戶的操作具有合法性。主菜單共分為三個(gè)分菜單項(xiàng)：學(xué)生信息管理，學(xué)生成績(jī)管理，系統(tǒng)管理。程序的調(diào)用關(guān)系如下：，封面中調(diào)用“口令驗(yàn)證窗口”。清屏CLEAR ALL amp。關(guān)閉各種類型的文件SET ESCAPE OFF amp。指定在改寫(xiě)已有文件時(shí)不顯示對(duì)話框SET DELETE ON amp。在程序執(zhí)行期間廢止 Visual FoxPro 主菜單欄RELEASE WINDOW 常用 amp。年份以四位顯示SET DATE TO ymd amp。指定日期分隔字符SET HOURS TO 24 amp。系統(tǒng)窗口標(biāo)題=.\ amp。調(diào)用登錄界面表單On ShutDown do OnShutdown amp。建立事件循環(huán) On ShutDown amp。退出系統(tǒng)時(shí)記錄操作員退出時(shí)間 CLOSE ALL CLEAR EVENTS amp。結(jié)束當(dāng)前 Visual FoxPro 工作期，并將控制權(quán)返回給操作系統(tǒng)ENDIFENDFUNC(二)、在運(yùn)行主程序后，系統(tǒng)調(diào)用登陸界面表單(圖4) (圖4)主要事件代碼：FORM1的INIT事件代碼：SET BELL ONSET BELL TO 39。,2??CHR(7)此兩項(xiàng)功能分別為在打開(kāi)表單時(shí)調(diào)用的音樂(lè)文件和關(guān)閉表單時(shí)調(diào)用的音樂(lè)文件。若用戶輸入的操作員姓名及口令正確，要完成下列工作：(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í)間。事件代碼：Form1的init事件代碼：SET EXACT ON amp。數(shù)組用于實(shí)現(xiàn)菜單項(xiàng)權(quán)限PUBLIC i amp。operat用于保存操作員姓名 i=0“確定”按鈕(COMMAND1)CLICK事件代碼：*判斷密碼是否正確i=i+1SELECT operatorLOCATE FOR 操作員姓名=ALLTRIM()DO CASE CASE i=3 AND FOUND() AND = amp。輸入次數(shù)未超過(guò)3次且用戶名正確、口令不正確 MESSAGEBOX(密碼錯(cuò)誤,請(qǐng)重輸!,警告) = CASE i=3 AND NOT FOUND() amp。輸入次數(shù)超過(guò)3次 MESSAGEBOX(禁止進(jìn)入系統(tǒng)!,警告) ENDCASE 退出按鈕(COMMAND2)CLICK事件代碼：RELEASE THISFORMCLEAR EVENTS(四)系統(tǒng)菜單設(shè)計(jì) 學(xué)生信息管理系統(tǒng)的菜單在應(yīng)用系統(tǒng)中，各個(gè)了模塊是通過(guò)菜單組織在一起的。不能打開(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)的表單。本表單左邊是瀏覽窗口，便于用戶瀏覽數(shù)據(jù)；右邊是編輯窗口，主要用于輸入修改數(shù)據(jù)。“第一個(gè)“按鈕的CLICK事件代碼：select rsbgo top=.f.=.f.if not eof()=.t.=.t.endif“前一個(gè)“按鈕的CLICK事件代碼：select rsbskip 1if bof()go top
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1