...wd......wd......wd...學(xué)生管理系統(tǒng)中信息技術(shù)的運(yùn)用一·系統(tǒng)規(guī)劃說明書隨著人類社會(huì)進(jìn)入信息時(shí)代，計(jì)算機(jī)越來越多地活潑在社會(huì)各個(gè)領(lǐng)域：管理，網(wǎng)絡(luò)，計(jì)算，控制，多媒體等。并且在某些方面成為不可缺少的工具，尤其在管理方面，管理軟件的出現(xiàn)使大量繁瑣復(fù)雜的問題變得簡單易行?，F(xiàn)今學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對(duì)龐大的信息量，學(xué)校對(duì)學(xué)生信息管理的自動(dòng)化與準(zhǔn)確化的要求日益強(qiáng)烈，需要有專門的學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的標(biāo)準(zhǔn)管理，科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。該系統(tǒng)組織構(gòu)造圖如下〔圖1〕：學(xué)生信息管理系統(tǒng)學(xué)生信息管理系統(tǒng)班級(jí)管理課程管理學(xué)習(xí)管理成績統(tǒng)計(jì)系統(tǒng)維護(hù)檔案管理班級(jí)信息查詢班級(jí)信息添加課程信息查詢班級(jí)信息更改學(xué)生資料更改學(xué)生資料添加學(xué)生資料查詢課程信息更改課程信息添加檔案查詢檔案匯總成績查詢成績統(tǒng)計(jì)數(shù)據(jù)備份用戶權(quán)限管理(圖1)系統(tǒng)說明書(一)、系統(tǒng)界面中有登陸系統(tǒng)按鈕，系統(tǒng)使用人員可以點(diǎn)擊進(jìn)入密碼驗(yàn)證頁，如果在一分鐘內(nèi)用戶沒有點(diǎn)擊此按鈕，系統(tǒng)會(huì)自動(dòng)跳到密碼驗(yàn)證頁。此程序的實(shí)現(xiàn)代碼會(huì)在詳細(xì)設(shè)計(jì)書中說明。(二)、密碼驗(yàn)證作為系統(tǒng)最根本的安全管理步驟。用戶如果不輸入合法的用戶名和密碼，系統(tǒng)是不能進(jìn)入的。當(dāng)用戶輸入合法的用戶名和密碼時(shí)，系統(tǒng)管理會(huì)自動(dòng)判斷此用戶是什么級(jí)別的用戶，具有什么權(quán)限，使用戶的操作具有合法性。密碼驗(yàn)證頁包括操作員姓名和密碼兩個(gè)局部。具體的代碼實(shí)現(xiàn)也將在詳細(xì)設(shè)計(jì)書說明。下面是密碼登陸頁的圖示(圖2)：〔圖2)當(dāng)操作員的名稱和密碼均正確的時(shí)候，系統(tǒng)便會(huì)進(jìn)入系統(tǒng)使用主菜單。主菜單共分為三個(gè)分菜單項(xiàng)：學(xué)生信息管理，學(xué)生成績管理，系統(tǒng)管理。如圖(3)在學(xué)生信息管理中分為學(xué)生信息維護(hù)和學(xué)生信息查詢兩個(gè)菜單項(xiàng)，在學(xué)生成績管理中含有學(xué)生成績查詢打印菜單項(xiàng)，在系統(tǒng)管理中分為：操作員管理、口令設(shè)置、權(quán)限管理、系統(tǒng)日志、數(shù)據(jù)備份、數(shù)據(jù)恢復(fù)、退出系統(tǒng)七項(xiàng)。下面為本系統(tǒng)的使用數(shù)據(jù)流程圖：詳細(xì)設(shè)計(jì)說明書根據(jù)系統(tǒng)規(guī)劃和需要分析，把系統(tǒng)劃分為學(xué)生信息管理，學(xué)生成績查詢，系統(tǒng)管理三個(gè)模塊。本系統(tǒng)用到的主要有以下文件：主控程序main.prg、啟動(dòng)界面(封面)face.scx、系統(tǒng)登錄界面(口令驗(yàn)證窗口)pass.scx、，主菜單main_menu.mpr。程序的調(diào)用關(guān)系如下：主控程序main.prg中調(diào)用界面表單face.scx，封面中調(diào)用“口令驗(yàn)證窗口〞表單pass.scx，口令正確則調(diào)用系統(tǒng)菜單main_menu.mpr。各菜單項(xiàng)調(diào)用相對(duì)應(yīng)的表單。(一)、主控程序main.prg的代碼實(shí)現(xiàn)為：CLEAR&&清屏CLEARALL&&從內(nèi)存中釋放所有的內(nèi)存變量CLOSEALL&&關(guān)閉各種類型的文件SETESCAPEOFF&&制止運(yùn)行的程序和命令在按Esc鍵后被中斷SETSAFETYOFF&&指定在改寫已有文件時(shí)不顯示對(duì)話框SETDELETEON&&使用范圍子句處理記錄的命令忽略標(biāo)有刪除標(biāo)記的記錄SETSYSMENUOFF&&在程序執(zhí)行期間廢止VisualFoxPro主菜單欄RELEASEWINDOW"常用"&&關(guān)閉常用工具欄SETCENTURYON&&年份以四位顯示SETDATETOymd&&日期格式為年、月、日SETMARKTO"-"&&指定日期分隔字符SETHOURSTO24&&指定為24-小時(shí)時(shí)間格式_SCREEN.Visible=.t._SCREEN.Caption="學(xué)生管理系統(tǒng)"&&系統(tǒng)窗口標(biāo)題_SCREEN.Icon=".\dod.ico"&&系統(tǒng)標(biāo)題欄圖標(biāo)*判斷顯示器當(dāng)前分辨率_SCREEN.Width=SYSMETRIC(1)_SCREEN.Height=SYSMETRIC(2)*根據(jù)分辨率不同，為系統(tǒng)設(shè)置不同的背景圖片IFSYSMETRIC(1)>=1024_SCREEN.Picture=".\img\bj.jpg"ELSE_SCREEN.Picture=".\img\bj.jpg"ENDIFDOFORM.\face.scx&&調(diào)用登錄界面表單OnShutDowndoOnShutdown&&退出系統(tǒng)時(shí)調(diào)用函數(shù)onshutdown()READEVENTS&&建設(shè)事件循環(huán)OnShutDown&&釋放當(dāng)前的OnShutDown命令*按菜單的“關(guān)閉〞按鈕退出時(shí)，出現(xiàn)的提示框FUNCTIONOnShutdown()sel=MESSAGEBOX("真的要退出嗎?",4+32+256,"提示")IFsel=6*SELECT0*USE.\dbsystem\LOG*GOBOTTOM*REPLACE離開時(shí)間WITHDATETIME()&&退出系統(tǒng)時(shí)記錄操作員退出時(shí)間CLOSEALLCLEAREVENTS&&退出事件循環(huán)QUIT&&完畢當(dāng)前VisualFoxPro工作期，并將控制權(quán)返回給操作系統(tǒng)ENDIFENDFUNC(二)、在運(yùn)行主程序后，系統(tǒng)調(diào)用登陸界面表單(圖4)(圖4)主要事件代碼：FORM1的INIT事件代碼：SETBELLONSETBELLTO'.\MUSIC\welcome.wav',2??CHR(7)FORM1的UNLOAD事件代碼：SETBELLTO'\MUSIC\SILENT.WAV',2??CHR(7)此兩項(xiàng)功能分別為在翻開表單時(shí)調(diào)用的音樂文件和關(guān)閉表單時(shí)調(diào)用的音樂文件。Command1的mouseup事件代碼：LPARAMETERSnButton,nShift,nXCoord,nYCoordreleasethisformDOFORM.\main\pass.scxTimer1的timer事件代碼：releasethisformDOFORM.\main\pass.scxTimer2的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IFTHISFORM.label5.visiblethisform.label5.visible=.f.elsethisform.label5.visible=.t.endifTimer3的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IFTHISFORM.label5.visiblethisform.label5.visible=.t.elsethisform.label5.visible=.t.endifTimer4的timer事件代碼：為了實(shí)現(xiàn)五角星的閃動(dòng)：IFTHISFORM.label5.visiblethisform.label5.visible=.telsethisform.label5.visible=.t.endif同時(shí)在每個(gè)五角星的顏色也做了設(shè)置。(三)系統(tǒng)登陸表單設(shè)計(jì)界面用戶在文本框輸入操作員及口令，假設(shè)正確則調(diào)用系統(tǒng)主界面(菜單)。允許輸入三次，假設(shè)三次均不正確剛自動(dòng)退出系統(tǒng)。假設(shè)用戶輸入的操作員姓名及口令正確，要完成以下工作：設(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í)間。在系統(tǒng)日志表log.dbf中增加一條記錄，并同時(shí)記錄此操作員的登錄系統(tǒng)的時(shí)間。從權(quán)限表menuright.dbf中讀出此操作員對(duì)應(yīng)各菜單項(xiàng)的權(quán)限，并賦值給數(shù)組。調(diào)用菜單文件，顯示系統(tǒng)主界面。事件代碼：Form1的init事件代碼：SETEXACTON&&準(zhǔn)確比擬PUBLICARRAYrr[18]&&數(shù)組用于實(shí)現(xiàn)菜單項(xiàng)權(quán)限PUBLICi&&i用于記錄用戶名及口令輸入次數(shù)PUBLICoperat&&operat用于保存操作員姓名i=0THISFORM.Text1.Setfocus“確定〞按鈕(COMMAND1)CLICK事件代碼：*判斷密碼是否正確i=i+1SELECToperatorLOCATEFOR操作員姓名=ALLTRIM(THISFORM.Text1.Value)DOCASECASEi<=3ANDFOUND()ANDTHISFORM.Text2.Value=operator.口令&&輸入次數(shù)未超過3次且用戶名正確、口令正確operat=THISFORM.Text1.ValueINSERTINTOlog(操作員代號(hào),操作員姓名,登錄時(shí)間)VALUES(operator.操作員代號(hào),operator.操作員姓名,DATETIME())_SCREEN.Caption=〞學(xué)生管理系統(tǒng)"+SPACE(40)+DTOC(DATE())+SPACE(40)+"操作員："+operatSELECT權(quán)限FROMmenurightINTOARRAYrrWHERE操作員代號(hào)=operator.操作員代號(hào)ORDERBY菜單項(xiàng)編號(hào)RELEASETHISFORMDO.\main\main_menu.mprCASEi<=3ANDFOUND()ANDTHISFORM.Text2.Value!=operator.口令&&輸入次數(shù)未超過3次且用戶名正確、口令不正確MESSAGEBOX("密碼錯(cuò)誤,請(qǐng)重輸!","警告")THISFORM.Text2.Value=""THISFORM.Text2.SetfocusCASEi<=3ANDNOTFOUND()&&輸入次數(shù)未超過3次且用戶名不正確MESSAGEBOX("操作員姓名錯(cuò)誤,請(qǐng)重輸!","警告")THISFORM.Text1.Value=""THISFORM.Text2.Value=""THISFORM.Text1.SetfocusCASEi>3&&輸入次數(shù)超過3次MESSAGEBOX("制止進(jìn)入系統(tǒng)!","警告")THISFORM.ReleaseENDCASE退出按鈕(COMMAND2)CLICK事件代碼：RELEASETHISFORMCLEAREVENTS(四)系統(tǒng)菜單設(shè)計(jì)學(xué)生信息管理系統(tǒng)的菜單在應(yīng)用系統(tǒng)中，各個(gè)了模塊是通過菜單組織在一起的。通過對(duì)人事工資管理系統(tǒng)功能模塊的設(shè)計(jì)，可以交系統(tǒng)劃分為3大模塊：學(xué)生信息管理、學(xué)生成績查詢、系統(tǒng)管理，具體的菜單設(shè)計(jì)見下表：學(xué)生信息管理學(xué)生成績管理系統(tǒng)管理學(xué)生信息維護(hù)學(xué)生成績查詢操作員管理口令設(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ì)器中，通過[提示選項(xiàng)]對(duì)話框設(shè)置菜單項(xiàng)的跳過條件可以實(shí)現(xiàn)用戶權(quán)限。每個(gè)操作員對(duì)每個(gè)菜單項(xiàng)有兩種權(quán)限：0或1。“0〞表示此操作員對(duì)該菜單項(xiàng)沒有操作權(quán)，系統(tǒng)運(yùn)行后，該菜單項(xiàng)為灰色。不能翻開對(duì)應(yīng)的表單，“1〞代表該操作員對(duì)該菜單項(xiàng)具有操作權(quán)，系統(tǒng)運(yùn)行后，該菜單項(xiàng)可用，鼠標(biāo)單擊菜單項(xiàng)能翻開對(duì)應(yīng)的表單。操作員對(duì)各菜單項(xiàng)的權(quán)限保存在表文件menuright.dbf中，在登錄系統(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)境中添加表：rsb.dbf、cjb、dbf。學(xué)生人事表和成績表的構(gòu)造請(qǐng)翻開數(shù)據(jù)庫表查看。在表單數(shù)據(jù)環(huán)境的BRFOREOPENTABLES事件中添加代碼：this.cursor1.exclusive=.t.事件代碼：FORM1的INIT事件代碼：THISFORMMANDGROUP1DTOP.ENABLED=.F.THISFORMMANDGROUP1DPREV.ENABLED=.F.THISFORMMANDGROUP1DNEXT.ENABLED=.T.THISFORMMANDGROUP1DBOTTOM.ENABLED=.TTHISFORMMANDGROUP1DADD.ENABLED=.T.THISFORMMANDGROUP1DEDIT.ENABLED=.T.THISFORMMANDGROUP1DDELETE.ENABLED=.T.THISFORMMANDGROUP1DFIND.ENABLED=.T.THISFORMMANDGROUP1DPRINT.ENABLED=.T.THISFORMMANDGROUP1DEXIT.ENABLED=.T.THISFORM.TEXT1.READONLY=.T.THISFORM.TEXT2.READONLY=.T.THISFORM.OPTIONGROUP1.ENABLED=.F.THISFORM.TEXT3.READONLY=.T.THISFORM.TEXT4.READONLY=.T.THISFORM.TEXT5.READONLY=.T.THISFORM.TEXT6.READONLY=.T.THISFORM.CHECK1.READONLY=.T.THISFORM.EDIT1.READONLY=.T.THISFORM.GRID1.READONLY=.T.THISFORMMAND1.visible=.T.THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F.FORM1的CLICK事件代碼：THISFORM.LABEL11.visible=.F.THISFORM.TEXT7.visible=.F.GRID1的afterrowclochange事件代碼：LPARAMETERSnColIndexthis.setall("dynamicbackcolor","IIF(This.activerow<>recno(),rgb(255,255,255),rgb(0,255,0))","column")selectrsbthisform.refresh此代碼實(shí)現(xiàn)不現(xiàn)顏色顯示選中的GRID對(duì)象的行及列?！暗谝粋€(gè)“按鈕的CLICK事件代碼：selectrsbgotopthisformmandgroup1dtop.enabled=.f.thisformmandgroup1dprev.enabled=.f.ifnoteof()thisformmandgroup1dnext.enabled=.t.thisformmandgroup1dbottom.enabled=.t.endifthisform.refresh“前一個(gè)“按鈕的CLICK事件代碼：selectrsbskip-1ifbof()gotopthisformmandgroup1dtop.enabled=.f.thisformmandgroup1dprev.enabled=.f.endififnoteof()thisformmandgroup1dnext.enabled=.t.thisformmandgroup1dbottom.enabled=.t.endifthisform.refresh“下一個(gè)“按鈕的CLICK事件代碼：selectrsbskipifeof()gobottomthisformmandgroup1dnext.enabled=.f.thisformmandgroup1dbottom.enabled=.f.endififnotbof()thisformmandgroup1dtop.enabled=.t.thisformmandgroup1dprev.enabled=.t.endifthisform.refresh“最后一個(gè)“按鈕的CLICK事件代碼：selectrsbgobottomthisformmandgroup1dnext.enabled=.f.thisformmandgroup1dbottom.enabled=.f.ifnotbof()thisformmandgroup1dtop.enabled=.t.thisformmandgroup1dprev.enabled=.t.endifthisform.refresh“增加“按鈕的CLICK事件代碼：ifthis.caption="增加"this.caption="保存"THISFORMMANDGROUP1DTOP.ENABLED=.F.THISFORMMANDGROUP1DPREV.ENABLED=.F.THISFORMMANDGROUP1DNEXT.ENABLED=.F.THISFORMMANDGROUP1DBOTTOM.ENABLED=.F.THISFORMMANDGROUP1DADD.ENABLED=.T.THISFORMMANDGROUP1DEDIT.ENABLED=.F.THISFORMMANDGROUP1DDELETE.ENABLED=.F.THISFORMMANDGROUP1DFIND.ENABLED=.F.THISFORMMANDGROUP1DPRINT.ENABLED=.F.THISFORMMANDGROUP1DEXIT.ENABLED=.F.THISFORM.TEXT1.READONLY=.F.THISFORM.TEXT2.READONLY=.F.THISFORM.OPTIONGROUP1.ENABLED=.T.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.TEXT5.READONLY=.F.THISFORM.TEXT6.READONLY=.F.THISFORM.CHECK1.READONLY=.F.THISFORM.EDIT1.READONLY=.F.THISFORMMAND1.VISIBLE=.F.SELECTRSBAPPENDBLANKGOBOTTOMTHISFORM.TEXT1.SETFOCUS()THISFORM.REFRESHELSETHIS.CAPTION="增加"THISFORMMANDGROUP1DTOP.ENABLED=.t.THISFORMMANDGROUP1DPREV.ENABLED=.t.THISFORMMANDGROUP1DNEXT.ENABLED=.t.THISFORMMANDGROUP1DBOTTOM.ENABLED=.t.THISFORMMANDGROUP1DADD.ENABLED=.t.THISFORMMANDGROUP1DEDIT.ENABLED=.t.THISFORMMANDGROUP1DDELETE.ENABLED=.t.THISFORMMANDGROUP1DFIND.ENABLED=.t.THISFORMMANDGROUP1DPRINT.ENABLED=.t.THISFORMMANDGROUP1DEXIT.ENABLED=.t.THISFORM.TEXT1.READONLY=.t.THISFORM.TEXT2.READONLY=.t.THISFORM.OPTIONGROUP1.ENABLED=.f.THISFORM.TEXT3.READONLY=.t.THISFORM.TEXT4.READONLY=.t.THISFORM.TEXT5.READONLY=.t.THISFORM.TEXT6.READONLY=.t.THISFORM.CHECK1.READONLY=.t.THISFORM.EDIT1.READONLY=.t.thisformmand1.visible=.t.endif“刪除“按鈕的CLICK事件代碼：SELECTRSBXH=RSB.學(xué)號(hào)sel=messagebox("該記錄學(xué)號(hào)為："+XH+chr(13)+"真的要?jiǎng)h除嗎?",4+32+256,"提示")ifsel=6deleteendif“查找“按鈕的CLICK事件代碼：thisform.label11.visible=.t.thisform.text7.visible=.t.thisform.text7.value=""thisform.text7.setfocus()“打印“按鈕的CLICK事件代碼：reportform.\menu1\rsb_bb1.frxpreviewforrsb.學(xué)號(hào)=alltrim(thisform.text1.value)“退出“按鈕的CLICK事件代碼：selectrsbpackthisform.release“TEXT7〞的valid事件代碼為：selectrsbsetfilterto學(xué)號(hào)=alltrim(thisform.text7.value)or學(xué)生姓名=alltrim(thisform.text7.value)locatefor學(xué)號(hào)=alltrim(thisform.text7.value)or學(xué)生姓名=alltrim(thisform.text7.value)thisform.refreshsetfilterto6、運(yùn)行界面：(如圖5)(圖5)7、學(xué)生信息查詢菜單的設(shè)計(jì)學(xué)生人事信息的查詢是基于RSB.dbf表，菜單提供學(xué)號(hào)，姓名，全體查詢。分別利用不同的命令代碼方式實(shí)現(xiàn)查詢打印功能。功能是便于指導(dǎo)員和教師，學(xué)生用戶的檢索查詢。各事件的代碼如下：FORM1的INIT事件代碼：*輸入編號(hào)、姓名提示標(biāo)簽及文本框THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Text1.Setfocus()*輸入起始日期、截止日期提示標(biāo)簽及文本框不可見THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F.THISFORM.Text2.Visible=.F.THISFORM.Text3.Visible=.F.THISFORMmand4.Visible=.F.*表格數(shù)據(jù)不可修改THISFORM.Grid1.Readonly=.T.Optiongroup1的CLICK事件代碼：*選定查詢類別后，設(shè)置各控件是否可見DOCASECASETHIS.Value=1&&按學(xué)號(hào)查詢THISFORM.Label2.Visible=.T.THISFORM.Text1.Visible=.T.THISFORM.Label4.Visible=.F.THISFORM.Label5.Visible=.F. THISFORM.Text2.Visible=.F. THISFORM.Text3.Visible=.F. THISFORMmand4.Visible=.F.THISFORM.Label2.Caption="請(qǐng)輸入要查詢的學(xué)號(hào)："THISFORM.Text1.Value=""THISFORM.Text1.SetfocusCASETHIS.Value=2&&按姓名查詢THISFORM.Label2.Visible=.T.THISFORM.Text1.Visible=.T.THISFORM.Label4.Visible=.F. THISFORM.Label5.Visible=.F. THISFORM.Text2.Visible=.F. THISFORM.Text3.Visible=.F. THISFORMmand4.Visible=.F.THISFORM.Label2.Caption="請(qǐng)輸入學(xué)生姓名："THISFORM.Text1.Value=""THISFORM.Text1.Setfocus()CASETHIS.Value=3&&按出生日期查詢THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Label4.Visible=.T.THISFORM.Label5.Visible=.T.THISFORM.Text2.Visible=.T.THISFORM.Text3.Visible=.T.THISFORMmand4.Visible=.T.THISFORM.Text2.SetfocusCASETHIS.Value=4&&顯示全體記錄THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Label4.Visible=.F. THISFORM.Label5.Visible=.F. THISFORM.Text2.Visible=.F. THISFORM.Text3.Visible=.F. THISFORMmand4.Visible=.F.SETFILTERTOGOTOPTHISFORM.Grid1.Re