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