【正文】 有的復雜性都已經(jīng)封裝在程序的內(nèi)部。性別查詢有男女可供選擇；年級查詢有大一、大二、大三、大四可供選擇；寢室長查詢有是否可供選擇。⑵．管理員檔案查詢本模塊提供了按照管理員的職務、編號、姓名等條件查詢管理員（系統(tǒng)管理員、抄表員、收費員）檔案信息的功能。單一查詢，只需要在用電年、月、寢室號碼三個查詢范圍中選擇一個便可查詢；綜合查詢，需要三者全部輸入才能夠查詢出正確結果，是范圍比較小的特定查詢。其基本屬性包括有寢室號碼、上月電表數(shù)碼、本月電表數(shù)碼、實際用電、核定電量、剩余電量、超支電量、電量單價、繳費金額等。⑶．匯總欠費統(tǒng)計表本模塊提供統(tǒng)計了各寢室未按時繳費情況進行匯總后的報表功能。交費系統(tǒng)主要用于收取用電用戶的電費及其欠款和滯納金；主要包括收費庫和收取電費兩個子模塊。需要繳費時，只需要點“開始繳費”功能按鈕，便跳出一個“請輸入寢室號碼”的對話框；輸入用戶所在的寢室號碼（四位數(shù)字）再按回車或者按“確定”按鈕。本模塊中提供的登記操作也比較簡單，在實收日期、繳費狀態(tài)兩個屬性里選擇輸入相關數(shù)據(jù)，便可點擊“計算實際繳費金額”功能按鈕進行電腦自動計算出逾期天數(shù)、補交金額、總交金額等。⑶．交費系統(tǒng)功能模塊圖8. 維護系統(tǒng) 維護系統(tǒng)主要包括權限管理、數(shù)據(jù)維護二大子模塊。本專區(qū)只有系統(tǒng)管理員才有操作權限，其他操作員不能操作。⑶．維護系統(tǒng)功能模塊圖9. 輔助功能本模塊主要是為本系統(tǒng)軟件操作人員使用本系統(tǒng)提供的一些輔助工具，包括在線幫助信息、系統(tǒng)軟件信息和計算器、背景音樂的選擇與關閉等等。需要連接因特網(wǎng)才能瀏覽作者的個人主頁，本模塊對所有操作員都開放。2. 數(shù)據(jù)庫開發(fā)環(huán)境數(shù)據(jù)庫是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應該開發(fā)一個數(shù)據(jù)庫，它用于存放系統(tǒng)中的數(shù)據(jù)表。VB默認的數(shù)據(jù)庫類型為Microsoft Access數(shù)據(jù)庫類型，它與Microsoft Office 2000的基本數(shù)據(jù)庫類型一致，而且在Microsoft Access數(shù)據(jù)庫類型中，Version MDB為最新版的數(shù)據(jù)庫類型。因為本系統(tǒng)主要設計的是單機版的應用系統(tǒng)，所以只將數(shù)據(jù)庫作為本地數(shù)據(jù)庫加以處理，故關于數(shù)據(jù)庫其他屬性，暫時沒有考慮。所以在開發(fā)“學校用電收費管理系統(tǒng)”之前，首先得需要創(chuàng)建一個名為“用電收費”數(shù)據(jù)庫，并在該數(shù)據(jù)庫中，創(chuàng)建數(shù)張相關的數(shù)據(jù)表。因為學校已對每個寢室都安裝了一個電度表，每個月均有定額的電量給予。4. 登陸權限表及其數(shù)據(jù)結構⑴.登陸權限表如下圖所示：⑵. 表的數(shù)據(jù)結構如下所示：序號字段名稱類型大小索引忽略空值字段說明1登陸密碼Text50否登陸系統(tǒng)時所需密碼2操作權限Text10主索引否登陸時所選擇的權限3操作員Text10唯一、主索引否登陸系統(tǒng)時所需要的操作員的用戶名⑶.每個操作權限中的操作員可以多個，但每個權限中的操作員只擁有他自己的登陸密碼，故得將操作權限和操作員一起設置為關鍵字。數(shù)據(jù)結構中的編號規(guī)則從0到9999999999之間任意的數(shù)字。7. 數(shù)據(jù)表之間的關系⑴.各數(shù)據(jù)表中存在以下聯(lián)系：登陸權限表中操作權限為系統(tǒng)管理，則是系統(tǒng)管理員，可以管理數(shù)據(jù)庫中所有數(shù)據(jù)表；登陸權限表中操作權限為抄表，則是抄表人員，能管理電費數(shù)據(jù)表的抄電日期、寢室號碼、抄表人員、用電年份、用電月份、電表起碼、電表止碼、實用電量、核定電量、剩余電量、應交電費、電費單價、應交金額、補交單價等屬性；登陸權限表中操作權限為收費，則是收費人員，能管理電費數(shù)據(jù)表中的繳費狀態(tài)、實收日期、逾期天數(shù)、補交金額、總交金額、用戶簽名、收費人員等；登陸權限表中操作權限為學生用戶，則是普通的操作員，只能修改登陸權限表中的各自登陸密碼屬性。但其登陸系統(tǒng)時，需要進行權限驗證，這時候與登陸權限表中的操作權限屬性聯(lián)系在一起。在本系統(tǒng)中界面設計堅持友好、簡便、實用、易于操作的原則，采用菜單方式、會話方式、操作提示方式、以及操作權限管理方式等多種方式進行界面設計。 4. 為了能顯示最佳效果，請調整顯示器分辨率為：800*600像素。通過本系統(tǒng)，可使學校用電收費擺脫每次手工書寫統(tǒng)計的問題，實現(xiàn)管理計算機化；使用者通過鼠標、鍵盤的簡單操作就能實現(xiàn)完整的功能；提高工作效率，節(jié)省人力資源。若有特殊情況，也可參考“在線幫助信息”。3． 能及時、準確地反映學生宿舍用電情況“學校用電收費管理系統(tǒng)”具有精確的計量、運算和查詢功能，能夠及時、準確反映學生宿舍各宿舍的用電量，對用電量過高，過低或無用電量的宿舍，可及時通知學生宿舍管理人員進行調查，及時堵塞漏洞。4． 信息收集、處理、存儲、打印方便抄電表需要信息輸入時，只需要設置一次系統(tǒng)參數(shù)，設置完后電腦會自動進行存儲，這樣添加下一條信息時便可直接讀入一些重復的基本信息；接著只需輸入電表號碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。這樣便可以規(guī)范了收費程序，應用本系統(tǒng)后，收取的電費，與手抄式的人工管理相比，呈現(xiàn)大幅度增長，可堵塞不少漏洞。本系統(tǒng)可以安裝在學校用電收費管理人員的電腦上，進行集中管理和控制。任何一個系統(tǒng)的開發(fā)成功，起關鍵作用的還是人的主觀能動性，很多具體工作是任何工具都無法替代的。三年的大學生活是我人生中的一筆寶貴財富，在校期間，諸多良師益友在學習、工作上給予我?guī)椭c指導，在生活上對我關心與照顧，在思想上對我進行鞭策與鼓勵，所有的這一切，都將使我終生難忘。在此表達對陳老師的深深的謝意！畢業(yè)論文完成后，我就要將走出大學這個人生的象牙塔，溶入到社會中，邁開堅實的腳步，開始我實現(xiàn)理想的征程，尋找能展示自己的一片天空。3. 伍俊良，《Visual Basic課程設計與系統(tǒng)開發(fā)案例》，清華大學出版社，2002年8月第一版，ISBN 7302056269。7. 陳佳，《信息管理開發(fā)方法教程》，清華大學出版，1998年5月第1版， 730202913X。 注冊表關鍵字安全選項...Const READ_CONTROL = amp。H4Const KEY_ENUMERATE_SUB_KEYS = amp。 注冊表關鍵字 ROOT 類型...Const HKEY_LOCAL_MACHINE = amp。 = 版本 amp。 . amp。 已知32位文件版本的有效位置 If (Dir(SysInfoPath amp。 錯誤 注冊表相應條目不能被找到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時系統(tǒng)信息不可用, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 Dim KeyValType As Long 39。 39。 處理錯誤... tmpVal = String$(1024, 0) 39。 檢索注冊表關鍵字的值... 39。 Win95 外接程序空終結字符串... tmpVal = Left(tmpVal, KeyValSize 1) 39。 39。 字符串注冊關鍵字數(shù)據(jù)類型 KeyVal = tmpVal 39。 生成值字符。 轉換四字節(jié)的字符為字符串 End Select GetKeyValue = True 39。 錯誤發(fā)生后將其清除... KeyVal = 39。試圖對啟動地址進行瀏覽 = True StartingAddress End IfEnd SubPrivate Sub brwWebBrowser_DownloadComplete() On Error Resume Next = End SubPrivate Sub brwWebBrowser_NavigateComplete(ByVal URL As String) Dim i As Integer Dim bFound As Boolean = For i = 0 To 1 If (i) = Then bFound = True Exit For End If Next i mbDontNavigateNow = True If bFound Then i End If , 0 = 0 mbDontNavigateNow = FalseEnd SubEnd SubPrivate Sub 重新登陸_Click()If MsgBox(你要重新登陸系統(tǒng)嗎！, 33 + 256) = vbOK ThenUnload MeUnload DataEnvironment1End IfEnd Sub