課程設(shè)計內(nèi)容和課程設(shè)計要求系統(tǒng)管理設(shè)計書-在線瀏覽
2025-05-27 06:51本頁面
【正文】 在改寫已有文件時不顯示對話框SET DELETE ON amp。使用范圍子句處理記錄的命令忽略標(biāo)有刪除標(biāo)記的記錄SET SYSMENU OFF amp。在程序執(zhí)行期間廢止 Visual FoxPro 主菜單欄RELEASE WINDOW 常用 amp。關(guān)閉常用工具欄SET CENTURY ON amp。年份以四位顯示SET DATE TO ymd amp。日期格式為年、月、日SET MARK TO amp。指定日期分隔字符SET HOURS TO 24 amp。指定為 24小時時間格式=.t.=05計專學(xué)生管理系統(tǒng) amp。系統(tǒng)窗口標(biāo)題=.\ amp。系統(tǒng)標(biāo)題欄圖標(biāo)*判斷顯示器當(dāng)前分辨率=SYSMETRIC(1) =SYSMETRIC(2)*根據(jù)分辨率不同，為系統(tǒng)設(shè)置不同的背景圖片IF SYSMETRIC(1)=1024 =.\img\ELSE =.\img\ENDIFDO FORM .\ amp。調(diào)用登錄界面表單On ShutDown do OnShutdown amp。退出系統(tǒng)時調(diào)用函數(shù)onshutdown() READ EVENTS amp。建立事件循環(huán) On ShutDown 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。退出系統(tǒng)時記錄操作員退出時間 CLOSE ALL CLEAR EVENTS amp。退出事件循環(huán) QUIT amp。結(jié)束當(dāng)前 Visual FoxPro 工作期，并將控制權(quán)返回給操作系統(tǒng)ENDIFENDFUNC運(yùn)行主程序后，系統(tǒng)調(diào)用登陸界面表單()(圖3)圖3 系統(tǒng)調(diào)用界面1） 將用戶表添加到系統(tǒng)調(diào)用表單的數(shù)據(jù)環(huán)境中。表4 系統(tǒng)調(diào)用界面表單控件屬性對象名稱屬性名稱屬性值Form1caption05計專學(xué)生管理系統(tǒng)AutoCenter.T.Timer1Interival1000Timer2Interival1000Timer3Interival1000Command1caption登陸系統(tǒng)3）主要事件代碼：FORM1的INIT事件代碼：SET BELL ONSET BELL TO 39。,2??CHR(7)FORM1的UNLOAD事件代碼：SET BELL TO 39。,2??CHR(7)此兩項(xiàng)功能分別為在打開表單時調(diào)用的音樂文件和關(guān)閉表單時調(diào)用的音樂文件。()界面設(shè)計密碼驗(yàn)證作為系統(tǒng)最基本的安全管理步驟。當(dāng)用戶輸入合法的用戶名和密碼時，系統(tǒng)管理會自動判斷此用戶，使用戶的操作具有合法性。具體的代碼實(shí)現(xiàn)也將在詳細(xì)設(shè)計書說明。允許輸入三次，若三次均不正確剛自動退出系統(tǒng)。(2) ，并同時記錄此操作員的登錄系統(tǒng)的時間。調(diào)用菜單文件，顯示系統(tǒng)主界面。表5 登陸表單控件屬性對象名稱屬性名稱屬性值Form1caption口令輸入窗口AutoCenter.T.Command1caption確定Command2caption退出3）事件代碼：Form1的init事件代碼：SET EXACT ON amp。精確比較PUBLIC ARRAY rr[18] amp。數(shù)組用于實(shí)現(xiàn)菜單項(xiàng)權(quán)限PUBLIC i amp。i用于記錄用戶名及口令輸入次數(shù)PUBLIC operat amp。operat用于保存操作員姓名 i=0“確定”按鈕(COMMAND1)CLICK事件代碼：*判斷密碼是否正確i=i+1SELECT operatorLOCATE FOR 操作員姓名=ALLTRIM()DO CASECASE i=3 AND FOUND() AND = *輸入次數(shù)未超過3次且用戶名正確、口令正確 operat=
公司管理相關(guān)推薦
鄂ICP備17016276號-1