大連理工大 一、背景介 二、系統描 1、使用范 2、方 3、系統原 4、系統特 5、系統功 三、數據庫設 1、宿舍用電情況 2、寢室信息 3、用電條目 4、電費 5、用電匯總 四、系統結構 五、系統使用說 六、系統程序設 （一）系統歡迎界 （二）驗證界 管理員登 學生登 （三）菜單結 （四）編 （五）查 （六）統 （七）......................................................................................................................（八）系 七、小 （一）疑難與解決方 （二）個 宿舍用點管理系一、背景介隨著信息時代的到來，社會信息化程度越來越高，信息量越來越大。如何去匯總、整理使用管理這些信息是要解決的主要問題各高校在信息化的過程中任提高效率，便捷管理，更好的為廣大同學服務。1200元/年的住宿采用數字化，用電信息系統對各個宿舍的用電情況進行實時匯總更新二、系統描1、系統使用范圍：生活區1~29舍全部納入電能管理系統2、方式3、系統原理上自助查詢服務系統（VisualFoxPro作為開發工具）。管理員通過登錄進行系統。各位同學可以通過上網登陸校園進行查詢。當剩余電量為20度時，寢室長在校登記機號會自動收到提示，當剩余電量為10度時，會再次提示續交電費。當電量顯示為0度時，將超過0.5度/天的耗能時，也會有溫馨提示該寢室用電過多，注意節電。4、系統特點比以前的機械表和表計量更準確，精確度也更高具有預功能，即實行先后用電5、系統功系統管理：實 修改功能，系統關于，用戶退出與切換據庫設5dbf1、宿舍用電情況2、寢室信息3、用電條目4、電5、用電匯總UseIndexon用電代號tagyddhtotalto用電匯總on用電代號四、五、系統使用說（一）首先，進入歡迎界面，選擇管理員或學生，按“確定”按鈕進入登錄界管理員登錄界面：每個管理員分別有對應的賬號，在相應處填寫賬號和，按“確定”按鈕，如果匹配正確系統。學生登錄界面：使用公共驗證的方法，公共為123456，按“確定”按鈕進入系統，如果輸錯三次則進入系統。（二）六、系統程序設（一）系統歡迎界IFthisform.label3.Left=thisform.Width2、“登錄ifthisform.opgoutput.value=1doformdoform3、“退出CLOSEall（二）驗證界管理員登1、“確定PRIVATELOCATEFly==ALLTRIM(管理員信息.管理員用號)IFNOTEOF()ANDALLTRIM(管理員信息.)==mmthisform.Visible=.F. WAITWINDOWtsTIMEOUT2、“取消doform封面學生登1、表PUBLICmpass,text1mpass=1SETDATEANSISETCENTURY2、“確定settalkmpass=mpass+1IFmpass<=3IFTHISFORM.Text1.Value=do1.mprTHISFORM.Text1.Value=""MESSAGEBOX("錯誤，進入本系統！")SETPROCEDURESETSYSTODEFAULTSETTALKONSETSAFETYONCLOSEDATABASESCLEAREVENTSMODIFYWINDOWSCREEN2、“退出SETPROCEDURETOSETSYSTODEFAULTSETESC SETTALKONSETSAFETYONCLOSEDATABASESCLEAREVENTSMODIFYWINDOWSCREEN（三）菜單結管理員菜宿舍用電管理系統學生菜編輯應用寢室信息.dbf應用用電條目.dbf3、電費編應用電費.dbf查詢對象PUBLICcxydUSE寢室信息GOTOP運用，寢室信息 DOFORMCLOSEDATABASES2對象LOCATEFORcxqs=ALLTRIM(CLOSEDATABASESdoformform11對象PUBLICcxydUSE寢室信息GOTOP運用，寢室信息事件do查詢用電

CLOSEDATABASES21、輸入寢室號表2（六）“統計寢室總對象usecountalltoe本月用電總對象usesumall用電量tox4按用電條目統計用電總對象usesumfor用電代號="01"用電量tosumfor="02"tobsumfor="03"tocsumfor="04"tod每個寢室用電平均對象useaveragealltox1用電最對象usecalculateallmax(用電量),min(tox2,x3（七）“建立源文件“寢室信息.prg”，在菜單命令上寫“do寢室信息”。以下四個功能的設計基本相同。pushkeyonkeylabelf1doaaonkeylabelf2dobbonkeylabelf2domm="browsetitle'寢室基本信息'+'f1:添加f2:刪除/恢復f3：清除'"use寢室信息procedureaaappendblankprocedureifdelete()procedurecc寢室基本信息用電條目用電情用電費（八）“系統關直接子菜單命令為“do修改 USEifallt(thisform.text1.value)==""locateforallt(管理員用號)llt(thisform.text1.value)ifeof()if!allt()==allt(thisform.text2.value)ifallt(thisform.text3.value)==""messagebox("請輸入新！",64,"提示")if!allt(thisform.text3.value)==allt(thisform.text4.value)messagebox("兩次輸入不一致，請重新輸入！",64,"提示")replwithallt(thisform.text4.value)切換用直接“doform退建立源文件“退出.prg”，在菜單命令上寫“dotuichu=MESSAGEBOX("你確定退出本系統嗎？",4+32+0,"IFtuichu=7closeallCLEAREVENTSCLOSEALL七、小（一）疑難與解決辦1settalkoffselect0useorderselectuseordersetr