【正文】 39。 Next KeyVal = Format$(amp。 返回失敗 rc = RegCloseKey(hKey) 39。 錯(cuò)誤發(fā)生后將其清除... KeyVal = 39。 生成值字符。 39。 檢索注冊(cè)表關(guān)鍵字的值... 39。 39。 錯(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。 . amp。 注冊(cè)表關(guān)鍵字 ROOT 類型...Const HKEY_LOCAL_MACHINE = amp。 注冊(cè)表關(guān)鍵字安全選項(xiàng)...Const READ_CONTROL = amp。3. 伍俊良，《Visual Basic課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2002年8月第一版，ISBN 7302056269。三年的大學(xué)生活是我人生中的一筆寶貴財(cái)富，在校期間，諸多良師益友在學(xué)習(xí)、工作上給予我?guī)椭c指導(dǎo)，在生活上對(duì)我關(guān)心與照顧，在思想上對(duì)我進(jìn)行鞭策與鼓勵(lì)，所有的這一切，都將使我終生難忘。本系統(tǒng)可以安裝在學(xué)校用電收費(fèi)管理人員的電腦上，進(jìn)行集中管理和控制。4． 信息收集、處理、存儲(chǔ)、打印方便抄電表需要信息輸入時(shí)，只需要設(shè)置一次系統(tǒng)參數(shù)，設(shè)置完后電腦會(huì)自動(dòng)進(jìn)行存儲(chǔ)，這樣添加下一條信息時(shí)便可直接讀入一些重復(fù)的基本信息；接著只需輸入電表號(hào)碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。若有特殊情況，也可參考“在線幫助信息”。 4. 為了能顯示最佳效果，請(qǐng)調(diào)整顯示器分辨率為：800*600像素。但其登陸系統(tǒng)時(shí)，需要進(jìn)行權(quán)限驗(yàn)證，這時(shí)候與登陸權(quán)限表中的操作權(quán)限屬性聯(lián)系在一起。數(shù)據(jù)結(jié)構(gòu)中的編號(hào)規(guī)則從0到9999999999之間任意的數(shù)字。因?yàn)閷W(xué)校已對(duì)每個(gè)寢室都安裝了一個(gè)電度表，每個(gè)月均有定額的電量給予。因?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í)沒有考慮。2. 數(shù)據(jù)庫(kù)開發(fā)環(huán)境數(shù)據(jù)庫(kù)是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應(yīng)該開發(fā)一個(gè)數(shù)據(jù)庫(kù)，它用于存放系統(tǒng)中的數(shù)據(jù)表。⑶．維護(hù)系統(tǒng)功能模塊圖9. 輔助功能本模塊主要是為本系統(tǒng)軟件操作人員使用本系統(tǒng)提供的一些輔助工具，包括在線幫助信息、系統(tǒng)軟件信息和計(jì)算器、背景音樂的選擇與關(guān)閉等等。⑶．交費(fèi)系統(tǒng)功能模塊圖8. 維護(hù)系統(tǒng) 維護(hù)系統(tǒng)主要包括權(quán)限管理、數(shù)據(jù)維護(hù)二大子模塊。需要繳費(fèi)時(shí)，只需要點(diǎn)“開始繳費(fèi)”功能按鈕，便跳出一個(gè)“請(qǐng)輸入寢室號(hào)碼”的對(duì)話框；輸入用戶所在的寢室號(hào)碼（四位數(shù)字）再按回車或者按“確定”按鈕。⑶．匯總欠費(fèi)統(tǒng)計(jì)表本模塊提供統(tǒng)計(jì)了各寢室未按時(shí)繳費(fèi)情況進(jìn)行匯總后的報(bào)表功能。單一查詢，只需要在用電年、月、寢室號(hào)碼三個(gè)查詢范圍中選擇一個(gè)便可查詢；綜合查詢，需要三者全部輸入才能夠查詢出正確結(jié)果，是范圍比較小的特定查詢。性別查詢有男女可供選擇；年級(jí)查詢有大一、大二、大三、大四可供選擇；寢室長(zhǎng)查詢有是否可供選擇。⑵．?dāng)?shù)據(jù)錄入當(dāng)設(shè)置完系統(tǒng)參數(shù)后，便可對(duì)每個(gè)寢室當(dāng)月電表讀數(shù)進(jìn)行輸入。當(dāng)設(shè)置完系統(tǒng)參數(shù)后，需要進(jìn)行下一步時(shí)，只需按Enter回車鍵便可一步到位。本模塊具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進(jìn)入該系統(tǒng)模塊時(shí)，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點(diǎn)一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會(huì)出現(xiàn)“不能越權(quán)”的提示。其主要包括繳費(fèi)通知管理和停電通知管理兩大模塊，其該功能模塊圖如下所示：⑴．繳費(fèi)通知管理本模塊主要實(shí)現(xiàn)對(duì)學(xué)校用電收費(fèi)何時(shí)繳費(fèi)的通知內(nèi)容進(jìn)行錄入和維護(hù)工作，通知內(nèi)容隨電費(fèi)清單向在校學(xué)生每月公布一次。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進(jìn)入該系統(tǒng)模塊時(shí)，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點(diǎn)一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會(huì)出現(xiàn)“不能越權(quán)”的提示。2. 檔案管理學(xué)生用戶檔案是學(xué)校用電收費(fèi)系統(tǒng)的基礎(chǔ)。系統(tǒng)管理員再根據(jù)本月的電表信息，對(duì)其進(jìn)行校驗(yàn)和維護(hù)。本系統(tǒng)具備的特點(diǎn)有：界面美觀，操作方便；大大提高工作效率；能及時(shí)、準(zhǔn)確地反映學(xué)生宿舍用電情況；信息收集、處理、存儲(chǔ)、打印方便；收費(fèi)程序更加規(guī)范；系統(tǒng)可維護(hù)性強(qiáng)、管理集中。在計(jì)算機(jī)信息技術(shù)飛速發(fā)展與廣泛應(yīng)用的今天，這種落后的管理方式與時(shí)代的步伐已顯得格格不入，對(duì)學(xué)生宿舍用電實(shí)行智能化、信息化管理，是信息時(shí)代對(duì)高校學(xué)生公寓管理工作提出的客觀要求。本系統(tǒng)包括檔案管理、通知發(fā)布、抄表系統(tǒng)、查詢系統(tǒng)、報(bào)表系統(tǒng)、交費(fèi)系統(tǒng)、維護(hù)系統(tǒng)和輔助功能共八個(gè)分系統(tǒng)。用電在定額以內(nèi)的部分，由學(xué)校承擔(dān)，定額以外的部分，由學(xué)生自己承擔(dān)。一 系統(tǒng)分析㈠ 業(yè)務(wù)流程分析學(xué)校用電收費(fèi)管理系統(tǒng)主要用于記錄本學(xué)校學(xué)生公寓寢室的用電情況并在此基礎(chǔ)上進(jìn)行超支電費(fèi)收取，并對(duì)用電用戶、管理員檔案資料、用電相關(guān)信息等進(jìn)行錄入與維護(hù)工作。收費(fèi)員或者系統(tǒng)管理員進(jìn)入收費(fèi)系統(tǒng)，對(duì)用戶進(jìn)行收取用電用戶當(dāng)月的電費(fèi)、以往的欠款、當(dāng)月及以往的滯納金，并將收費(fèi)情況進(jìn)行登記，同時(shí)為用戶打印收費(fèi)發(fā)票等等。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進(jìn)入該系統(tǒng)模塊時(shí)，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點(diǎn)一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會(huì)出現(xiàn)“不能越權(quán)”的提示。他們是提供和維護(hù)本系統(tǒng)重要數(shù)據(jù)的基本工作人員。本模塊中主要涉及到通知內(nèi)容、發(fā)通知單位和發(fā)通知時(shí)間等三個(gè)方面。在輸入具體停電時(shí)間時(shí)，操作員（這里主要是系統(tǒng)管理員）只需要輸入起停時(shí)間和來電時(shí)間，總停時(shí)間電腦會(huì)自動(dòng)計(jì)算，但需使用本模塊中的“自動(dòng)計(jì)算并寫入總停時(shí)間”功能按鈕。當(dāng)需要添加當(dāng)月電表數(shù)據(jù)時(shí)，必須要設(shè)置系統(tǒng)參數(shù)；設(shè)置完畢后，便可對(duì)每個(gè)寢室的當(dāng)月用電數(shù)據(jù)進(jìn)行輸入。⑶．電量電費(fèi)計(jì)算對(duì)各個(gè)學(xué)生寢室當(dāng)月的實(shí)際用電量、剩余電量、超支電量、應(yīng)繳費(fèi)金額等進(jìn)行電腦自動(dòng)統(tǒng)計(jì)。操作方法比方式一稍微麻煩些，但也比較簡(jiǎn)單，先選擇一個(gè)查詢范圍，再輸入具體數(shù)據(jù)，接著按回車鍵或“開始查詢”功能按鈕便可。⑸．查詢系統(tǒng)功能模塊圖6. 報(bào)表系統(tǒng) 本模塊對(duì)所有操作員開放，它主要包括了電費(fèi)公布表、實(shí)際收費(fèi)明細(xì)統(tǒng)計(jì)表、欠費(fèi)統(tǒng)計(jì)表等三個(gè)模塊：⑴．電費(fèi)公布表既平時(shí)所說的電費(fèi)清單，是公布出來給學(xué)生用戶看的當(dāng)月電費(fèi)表。⑷．報(bào)表系統(tǒng)功能模塊圖7. 交費(fèi)系統(tǒng)本系統(tǒng)只對(duì)收費(fèi)員和系統(tǒng)管理員開放，學(xué)生用戶和抄表員無權(quán)操作。如果實(shí)收日期大于應(yīng)收日期，則提示“該用戶已經(jīng)逾期，需要繳納逾期費(fèi)”，計(jì)算并輸入逾期天數(shù)、補(bǔ)交金額、總交金額；如果該用戶本月的超支電費(fèi)不需要繳納的，那么提示“該寢室本月不用交費(fèi)”，并把交費(fèi)狀態(tài)修改為“不用交費(fèi)”，逾期天數(shù)、補(bǔ)交金額、總交金額都輸入為0；如果該實(shí)收日期小于應(yīng)收日期，則提示“該用戶沒有逾期繳費(fèi)，不需交納逾期費(fèi)！”用戶繳費(fèi)后，必須得進(jìn)行收費(fèi)登記，并為用戶打印收費(fèi)發(fā)票。系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護(hù)及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。10. 個(gè)人主頁 本模塊主要提供了作者的相關(guān)資料瀏覽功能。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應(yīng)用這一工具是必需的一個(gè)環(huán)節(jié)。㈡ 系統(tǒng)數(shù)據(jù)庫(kù)與數(shù)據(jù)表設(shè)計(jì)作為管理系統(tǒng)，得將它作為一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)來進(jìn)行開發(fā)制作，數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的前提是首先開發(fā)數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)中的數(shù)據(jù)表。至于時(shí)間按時(shí)、分設(shè)置，是因?yàn)槲視簳r(shí)還沒想到用什么字段類型描述時(shí)間，故將時(shí)和分兩者分開，這樣在系統(tǒng)應(yīng)用時(shí)也可對(duì)數(shù)據(jù)進(jìn)行方便的輸入。寢室號(hào)碼也等同于本系統(tǒng)中的電表號(hào)碼，符合學(xué)校一個(gè)寢室一個(gè)電表的規(guī)則；寢室號(hào)碼是四位數(shù)字，第一位數(shù)是樓宇號(hào)，第二位是樓層號(hào)，后兩位是房間號(hào)；若有特殊情況，得需要另外補(bǔ)充說明。⑵.數(shù)據(jù)表之間關(guān)系如下圖所示：㈢ 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護(hù)包括了權(quán)限設(shè)置、密碼修改、數(shù)據(jù)備份等?！皩W(xué)校用電收費(fèi)管理系統(tǒng)”中的電表信息錄入十分簡(jiǎn)單方便，統(tǒng)計(jì)、計(jì)算等工作全部有電腦自動(dòng)操作，管理員只需在短時(shí)間便可完成任務(wù)，優(yōu)勢(shì)十分明顯，而且錯(cuò)誤率比較低。學(xué)生宿舍如實(shí)交納電費(fèi)后，要在用戶簽名欄內(nèi)簽名，等等。由于個(gè)人知識(shí)的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進(jìn)展。6. 王珊、陳紅，《數(shù)據(jù)庫(kù)系統(tǒng)原理教程》，清華大學(xué)出版社，1998年7月第1版 ，ISBN 730203009X/。H2Const KEY_CREATE_SUB_KEY = amp。 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