【正文】
業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用,而是學(xué)會了設(shè)計系統(tǒng)的思維方法。本系統(tǒng)中每個控件都是單獨生成,如果在程序開始的時候就設(shè)計出類,將會節(jié)省開發(fā)的時間,使操作變的簡單。使有時候加入的照片過大而影響美管。七、附錄程序運行主要源代碼:u :CLEAR amp。從內(nèi)存中釋放所有的內(nèi)存變量CLOSE ALL amp。禁止運行的程序和命令在按 Esc 鍵后被中斷SET SAFETY OFF amp。使用范圍子句處理記錄的命令忽略標(biāo)有刪除標(biāo)記的記錄SET SYSMENU OFF amp。關(guān)閉常用工具欄SET CENTURY ON amp。日期格式為年、月、日SET MARK TO amp。指定為 24小時時間格式=.t.=學(xué)生信息管理系統(tǒng) 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。退出系統(tǒng)時調(diào)用函數(shù)onshutdown() READ EVENTS 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。退出事件循環(huán) QUIT amp。輸入次數(shù)未超過3次且用戶名正確、口令正確 operat= INSERT INTO log(操作員代號,操作員姓名,登錄時間) VALUES(,DATETIME()) =學(xué)生信息管理系統(tǒng)+SPACE(25)+DTOC(DATE())+SPACE(25)+操作員:+operat SELECT 權(quán)限 FROM menuright INTO ARRAY rr WHERE 操作員代號= ORDER BY 菜單項編號 RELEASE THISFORM DO .\main\ CASE i=3 AND FOUND() AND != amp。輸入次數(shù)未超過3次且用戶名不正確 MESSAGEBOX(操作員姓名錯誤,請重輸!,警告) = = CASE i3 amp。判別以今天日期為名稱的目錄是否存在,如果不存在,建立一個 MD amp。判斷是否今天已經(jīng)備份過數(shù)據(jù) 您是否要重新備份一次?,4+32+256,備份提示)6 RETURN ENDIFENDIF SET SAFE OFFDELE FILE BACKUP\*.*CLOS TABLE ALL amp。顯示備份開始信息for i=1 to 296 for j=1 to 200 =i endforendfor DELE FILE DATA\*.BAK amp。刪除所有TBK文件M_ML1=M_ML+\*.*COPY FILE dbsystem\*.* TO amp。amp。a