【正文】 \n% = MsgBox(祝賀你，數(shù)據(jù)庫已經(jīng)成功備份！, 48)End If Else n% = MsgBox(很遺憾！你是學生用戶，不是管理員，不能備份數(shù)據(jù)庫) Exit Sub End If End SubPrivate Sub 電費公布表_Click()End SubPrivate Sub 個人主頁_Click() Dim frmB As New frmBrowser = 關(guān)閉音樂_ClickEnd SubPrivate Sub 關(guān)閉音樂_Click() = stop = stop = stop = stop = stop = stop = stop = stop = Falseflag = 0End SubPrivate Sub 關(guān)于系統(tǒng)_Click()End SubPrivate Sub 管理員檔案_Click()End SubPrivate Sub 繳費通知_Click()End SubPrivate Sub 進入查詢系統(tǒng)_Click()End SubPrivate Sub 進入抄表系統(tǒng)_Click()End SubPrivate Sub 欠費統(tǒng)計表_Click()End SubPrivate Sub 權(quán)限管理_Click()End SubPrivate Sub 實際收費明細統(tǒng)計表_Click()End SubPrivate Sub 收費庫_Click()End SubPrivate Sub 收取電費_Click()End SubPrivate Sub 停電通知_Click()End SubPrivate Sub 修復數(shù)據(jù)庫_Click()If = 系統(tǒng)管理 Or = 抄表 Or = 收費 ThenIf MsgBox(你要修復數(shù)據(jù)庫嗎？修復完后需重新登陸系統(tǒng)的！, 49 + 256) = vbOK ThenUnload MeUnload DataEnvironment1FileCopy amp。 amp。 39。 amp。 39。 amp。 39。 關(guān)閉注冊表關(guān)鍵字End FunctionOption ExplicitPublic StartingAddress As StringDim mbDontNavigateNow As BooleanPrivate Sub Form_Load() On Error Resume Next Form_Resize 50, + + 15 If Len(StartingAddress) 0 Then = StartingAddress 39。h + KeyVal) 39。 搜索數(shù)據(jù)類型... Case REG_SZ 39。 處理錯誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 打開注冊表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 打開的注冊表關(guān)鍵字句柄 Dim hDepth As Long 39。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 32位數(shù)字Const gREGKEYSYSINFOLOC = SOFTWARE\Microsoft\Shared Tools LocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWARE\Microsoft\Shared Tools\MSINFOConst gREGVALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() = 關(guān)于 amp。H2Const KEY_CREATE_SUB_KEY = amp。6. 王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學出版社，1998年7月第1版 ，ISBN 730203009X/。在她的悉心指導下，我的畢業(yè)論文才得以順利進展。由于個人知識的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實現(xiàn)；這些缺陷都還需要進一步的優(yōu)化。學生宿舍如實交納電費后，要在用戶簽名欄內(nèi)簽名，等等?！皩W校用電收費管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計、計算等工作全部有電腦自動操作，管理員只需在短時間便可完成任務，優(yōu)勢十分明顯，而且錯誤率比較低。用戶管理包括了學校管理員和學生用戶，系統(tǒng)維護包括了權(quán)限設(shè)置、密碼修改、數(shù)據(jù)備份等。⑵.數(shù)據(jù)表之間關(guān)系如下圖所示：㈢ 系統(tǒng)界面設(shè)計系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑。寢室號碼也等同于本系統(tǒng)中的電表號碼，符合學校一個寢室一個電表的規(guī)則；寢室號碼是四位數(shù)字，第一位數(shù)是樓宇號，第二位是樓層號，后兩位是房間號；若有特殊情況，得需要另外補充說明。至于時間按時、分設(shè)置，是因為我暫時還沒想到用什么字段類型描述時間，故將時和分兩者分開，這樣在系統(tǒng)應用時也可對數(shù)據(jù)進行方便的輸入。㈡ 系統(tǒng)數(shù)據(jù)庫與數(shù)據(jù)表設(shè)計作為管理系統(tǒng)，得將它作為一個數(shù)據(jù)庫應用系統(tǒng)來進行開發(fā)制作，數(shù)據(jù)庫應用系統(tǒng)開發(fā)的前提是首先開發(fā)數(shù)據(jù)庫和數(shù)據(jù)庫中的數(shù)據(jù)表。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應用這一工具是必需的一個環(huán)節(jié)。10. 個人主頁 本模塊主要提供了作者的相關(guān)資料瀏覽功能。系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。如果實收日期大于應收日期，則提示“該用戶已經(jīng)逾期，需要繳納逾期費”，計算并輸入逾期天數(shù)、補交金額、總交金額；如果該用戶本月的超支電費不需要繳納的，那么提示“該寢室本月不用交費”，并把交費狀態(tài)修改為“不用交費”，逾期天數(shù)、補交金額、總交金額都輸入為0；如果該實收日期小于應收日期，則提示“該用戶沒有逾期繳費，不需交納逾期費！”用戶繳費后，必須得進行收費登記，并為用戶打印收費發(fā)票。⑷．報表系統(tǒng)功能模塊圖7. 交費系統(tǒng)本系統(tǒng)只對收費員和系統(tǒng)管理員開放，學生用戶和抄表員無權(quán)操作。⑸．查詢系統(tǒng)功能模塊圖6. 報表系統(tǒng) 本模塊對所有操作員開放，它主要包括了電費公布表、實際收費明細統(tǒng)計表、欠費統(tǒng)計表等三個模塊：⑴．電費公布表既平時所說的電費清單，是公布出來給學生用戶看的當月電費表。操作方法比方式一稍微麻煩些，但也比較簡單，先選擇一個查詢范圍，再輸入具體數(shù)據(jù)，接著按回車鍵或“開始查詢”功能按鈕便可。⑶．電量電費計算對各個學生寢室當月的實際用電量、剩余電量、超支電量、應繳費金額等進行電腦自動統(tǒng)計。當需要添加當月電表數(shù)據(jù)時，必須要設(shè)置系統(tǒng)參數(shù)；設(shè)置完畢后，便可對每個寢室的當月用電數(shù)據(jù)進行輸入。在輸入具體停電時間時，操作員（這里主要是系統(tǒng)管理員）只需要輸入起停時間和來電時間，總停時間電腦會自動計算，但需使用本模塊中的“自動計算并寫入總停時間”功能按鈕。本模塊中主要涉及到通知內(nèi)容、發(fā)通知單位和發(fā)通知時間等三個方面。他們是提供和維護本系統(tǒng)重要數(shù)據(jù)的基本工作人員。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。收費員或者系統(tǒng)管理員進入收費系統(tǒng)，對用戶進行收取用電用戶當月的電費、以往的欠款、當月及以往的滯納金，并將收費情況進行登記，同時為用戶打印收費發(fā)票等等。一 系統(tǒng)分析㈠ 業(yè)務流程分析學校用電收費管理系統(tǒng)主要用于記錄本學校學生公寓寢室的用電情況并在此基礎(chǔ)上進行超支電費收取，并對用電用戶、管理員檔案資料、用電相關(guān)信息等進行錄入與維護工作。用電在定額以內(nèi)的部分，由學校承擔，定額以外的部分，由學生自己承擔。本系統(tǒng)包括檔案管理、通知發(fā)布、抄表系統(tǒng)、查詢系統(tǒng)、報表系統(tǒng)、交費系統(tǒng)、維護系統(tǒng)和輔助功能共八個分系統(tǒng)。在計算機信息技術(shù)飛速發(fā)展與廣泛應用的今天，這種落后的管理方式與時代的步伐已顯得格格不入，對學生宿舍用電實行智能化、信息化管理，是信息時代對高校學生公寓管理工作提出的客觀要求。本系統(tǒng)具備的特點有：界面美觀，操作方便；大大提高工作效率；能及時、準確地反映學生宿舍用電情況；信息收集、處理、存儲、打印方便；收費程序更加規(guī)范；系統(tǒng)可維護性強、管理集中。系統(tǒng)管理員再根據(jù)本月的電表信息，對其進行校驗和維護。2. 檔案管理學生用戶檔案是學校用電收費系統(tǒng)的基礎(chǔ)。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。其主要包括繳費通知管理和停電通知管理兩大模塊，其該功能模塊圖如下所示：⑴．繳費通知管理本模塊主要實現(xiàn)對學校用電收費何時繳費的通知內(nèi)容進行錄入和維護工作，通知內(nèi)容隨電費清單向在校學生每月公布一次。本模塊具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。當設(shè)置完系統(tǒng)參數(shù)后，需要進行下一步時，只需按Enter回車鍵便可一步到位。⑵．數(shù)據(jù)錄入當設(shè)置完系統(tǒng)參數(shù)后，便可對每個寢室當月電表讀數(shù)進行輸入。性別查詢有男女可供選擇；年級查詢有大一、大二、大三、大四可供選擇；寢室長查詢有是否可供選擇。單一查詢，只需要在用電年、月、寢室號碼三個查詢范圍中選擇一個便可查詢；綜合查詢，需要三者全部輸入才能夠查詢出正確結(jié)果，是范圍比較小的特定查詢。⑶．匯總欠費統(tǒng)計表本模塊提供統(tǒng)計了各寢室未按時繳費情況進行匯總后的報表功能。需要繳費時，只需要點“開始繳費”功能按鈕，便跳出一個“請輸入寢室號碼”的對話框；輸入用戶所在的寢室號碼（四位數(shù)字）再按回車或者按“確定”按鈕。⑶．交費系統(tǒng)功能模塊圖8. 維護系統(tǒng) 維護系統(tǒng)主要包括權(quán)限管理、數(shù)據(jù)維護二大子模塊。⑶．維護系統(tǒng)功能模塊圖9. 輔助功能本模塊主要是為本系統(tǒng)軟件操作人員使用本系統(tǒng)提供的一些輔助工具，包括在線幫助信息、系統(tǒng)軟件信息和計算器、背景音樂的選擇與關(guān)閉等等。2. 數(shù)據(jù)庫開發(fā)環(huán)境數(shù)據(jù)庫是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應該開發(fā)一個數(shù)據(jù)庫，它用于存放系統(tǒng)中的數(shù)據(jù)表。因為本系統(tǒng)主要設(shè)計的是單機版的應用系統(tǒng)，所以只將數(shù)據(jù)庫作為本地數(shù)據(jù)庫加以處理，故關(guān)于數(shù)據(jù)庫其他屬性，暫時沒有考慮。因為學校已對每個寢室都安裝了一個電度表，每個月均有定額的電量給予。數(shù)據(jù)結(jié)構(gòu)中的編號規(guī)則從0到9999999999之間任意的數(shù)字。但其登陸系統(tǒng)時，需要進行權(quán)限驗證，這時候與登陸權(quán)限表中的操作權(quán)限屬性聯(lián)系在一起。 4. 為了能顯示最佳效果，請調(diào)整顯示器分辨率為：800*600像素。若有特殊情況，也可參考“在線幫助信息”。4． 信息收集、處理、存儲、打印方便抄電表需要信息輸入時，只需要設(shè)置一次系統(tǒng)參數(shù)，設(shè)置完后電腦會自動進行存儲，這樣添加下一條信息時便可直接讀入一些重復的基本信息；接著只需輸入電表號碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。本系統(tǒng)可以安裝在學校用電收費管理人員的電腦上，進行集中管理和控制。三年的大學生活是我人生中的一筆寶貴財富，在校期間，諸多良師益友在學習、工作上給予我?guī)椭c指導，在生活上對