【正文】 剛才他跑過了勁喘個不停，加上肚里又沒食，實在是邁不開腿了，當(dāng)下用衣袖抹了抹鼻涕，打量著四周的墳塋，心想這是哪路死鬼跟你家三爺做耍？三爺不是給你們作過揖了嗎，怎么還不依不饒的，想嚇得三爺磕頭求 饒不成？ 可那墳中撞擊棺材的聲音越來越大，張小辮猜想許不是有盜墓掘冢之輩在撬棺材？定要看看是什么作怪。鄉(xiāng)下山野間有種專吃死人的野狗，能聞著死人的臭味在墳上刨洞，刨到棺材了，就用腦袋撞破棺材擋板，然后把棺中死尸拖出來吃肚腸子?！庇笫氯绾?，且聽下回分解。 七根骨刺飛出以后，杜克使用風(fēng)刃噼里啪啦的抵御，但是四個僵尸戰(zhàn)士與小骷髏的靠近，卻讓他感覺到非常的麻煩。 這一番話說來，對艾米麗造成了極其的震撼。猶豫了一下詢問說：“你打算怎么做？” “既然如此?！? 艾米麗這么一說，韓碩真的有些感動，暗道女人果然是種不可理喻地生物，一旦她們的身心被俘虜，以前的堅持都會轟然崩潰。 儉以養(yǎng)德 大學(xué)雖然相對社會而言比較清靜，但其實也是一個大染缸，再怎么忠厚老實、積極進取的人都可能在大學(xué)里變得墮落不堪。如今這一批的時候多一些籌碼。 愕然愣了一會，韓碩微微一笑，猛地一把將艾米麗樓在懷里，笑嘻嘻地說：“不愧是我的女人，我還以為你會讓我將死亡墓地的秘密，貢獻給 組織呢！” 沒好氣地白了韓碩一眼，艾米麗說：“當(dāng)我不知道你地心思嗎，要是你想要將這個秘密告訴組織，恐怕早就已經(jīng)這么做了，哪兒還會等到現(xiàn)在不說。除了你我以外還有誰知道？” “沒有其他任何人知道。將在亡 靈系發(fā)生的一切事情，包括死亡墓地的發(fā)現(xiàn)。 再次出現(xiàn)了三個僵尸戰(zhàn)士，一共四個僵尸加上小骷髏，慢慢的走向杜克魔導(dǎo)師。可在當(dāng)時，就連這種三寸板的“狗碰頭”還都供不應(yīng)求。 原來早年間的野狗和現(xiàn)代的野狗大不同，有些野狗的種類在解放后社會穩(wěn)定下來就逐漸絕跡了。 正值中夜，四下里靜得出奇，顯得這撞棺材蓋子的聲音格外驚心動魄。前些時候有數(shù)股粵寇在這一帶出沒，跟官兵惡戰(zhàn)了幾場，才剛剛退去，戰(zhàn)場上積尸數(shù)千。 錯誤發(fā)生后將其清除 ... KeyVal = 39。 生成值字符。 39。 檢索注冊表關(guān)鍵字的值 ... 39。 39。 錯誤 注冊表 相應(yīng)條目不能被找到 ... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox 此時系統(tǒng)信息不可用 , vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 . amp。 注冊表關(guān)鍵字 ROOT 類型 ... Const HKEY_LOCAL_MACHINE = amp。 注冊表關(guān)鍵字安全選項 ... Const READ_CONTROL = amp。 3. 伍俊良，《 Visual Basic 課程設(shè)計與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社， 2020年 8 月第一版， ISBN 7302056269。三年的大學(xué)生活是我人生中的一筆寶貴財富，在校期間，諸多良師益友在學(xué)習(xí)、工作上給予我?guī)椭c指導(dǎo)，在生活上對我關(guān) 心與照顧，在思想上對我進行鞭策與鼓勵，所有的這一切，都將使我終生難忘。 本系統(tǒng)可以安裝在學(xué)校用電收費管理人員的電腦上，進行集中管理和控制。 4． 信息收集、處理、存儲、打印方便 抄電表需要信息輸入時，只 需要設(shè)置一次系統(tǒng)參數(shù)，設(shè)置完后電腦會自動進行存儲，這樣添加下一條信息時便可直接讀入一些重復(fù)的基本信息；接著只需輸入電表號碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。若有特殊情況，也可參考“在線幫助信息”。 4. 為了能顯示最佳效果，請調(diào)整顯示器分辨率為： 800*600 像素。但其登陸系統(tǒng)時，需要進行權(quán)限驗證，這時候與登陸權(quán)限表中的操作權(quán)限屬性聯(lián)系在一起。數(shù)據(jù)結(jié)構(gòu)中的編號規(guī)則從 0到 9999999999 之間任意的數(shù)字。因為學(xué)校已對每個寢室都安裝了一個電度表，每個月均有定額的電量給予。因為本系統(tǒng)主要設(shè)計的是單機版的應(yīng)用系統(tǒng)，所以只將數(shù)據(jù)庫作為本地數(shù)據(jù)庫加以處理，故關(guān)于數(shù)據(jù)庫其他屬性，暫時沒有考慮。 2. 數(shù)據(jù)庫開發(fā)環(huán)境 數(shù)據(jù)庫是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應(yīng)該開發(fā)一個數(shù)據(jù)庫，它用于存放系統(tǒng)中的數(shù)據(jù)表。 ⑶ ．維護系統(tǒng)功能模塊圖 9. 輔助功能 本模塊主要是為本系統(tǒng)軟件操作人員使用本系統(tǒng)提供的一些輔助工具，包括在線幫助信息、系統(tǒng)軟件信息和計算器、背景音樂的選擇與關(guān)閉等等。 ⑶ ．交費系統(tǒng)功能模塊圖 8. 維護系統(tǒng) 維護系統(tǒng)主要包括權(quán)限管理、數(shù)據(jù)維護二大子模塊。需要繳費時，只需要點“開始繳費”功能按鈕，便跳出一個“請輸入寢室號碼”的對話框；輸入用戶所在的寢室號碼（四位數(shù)字）再按回車或者按“確定”按 鈕。 ⑶ ．匯總欠費統(tǒng)計表 本模塊提供統(tǒng)計了各寢室未按時繳費情況進行匯總后的報表功能。 單一查詢，只需要在用電年、月、寢室號碼三個查詢范圍中選擇一個便可查詢；綜合查詢，需要三者全部輸入才能夠查詢出正確結(jié)果，是范圍比較小的特定查詢。性別查詢有男女可供選 擇；年級查詢有大一、大二、大三、大四可供選擇；寢室長查詢有是否可供選擇。 ⑵ ．?dāng)?shù)據(jù)錄入 當(dāng)設(shè)置完系統(tǒng)參數(shù)后，便可對每個寢室當(dāng)月電表讀數(shù)進行輸入。當(dāng)設(shè)置完系統(tǒng)參數(shù)后，需要進行下一步時，只需按 Enter 回車鍵便可一步到位。 本模塊具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使 用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。其主要包括繳費通知管理和停電通知管理兩大模塊，其該功能模塊圖如下所示： ⑴ ．繳費通知管理 本模塊主要實現(xiàn)對學(xué)校用電收費何時繳費的通知內(nèi)容進行錄入和維護工作，通知內(nèi)容隨電費清單向 在校學(xué)生每月公布一次。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。 2. 檔案管理 學(xué)生用戶檔案是學(xué)校用電收費系統(tǒng)的基礎(chǔ)。系統(tǒng)管理員再根據(jù)本月的電表信息，對其進行校驗和維護。 本系統(tǒng)具備的特點有：界面美觀，操作方便；大大提高工作效率；能及時、準確地反映學(xué)生宿舍用電情況；信息收集、處理、存儲、打印方便；收費程序更加規(guī)范；系統(tǒng)可維護性強、管理集中。在計算機信息技術(shù)飛速發(fā)展與廣泛應(yīng)用的今天，這種落后的管理方式與時代的步伐已顯得格格不入，對學(xué)生宿舍用電實行智能化、信息化管理，是信息時代對高校學(xué)生公寓管理工作提出的客觀要求。本系統(tǒng)包括檔案管理、通知發(fā)布、抄表系統(tǒng)、查詢系統(tǒng)、報表系統(tǒng)、交費系統(tǒng)、維護系統(tǒng)和輔助功能共八個分系統(tǒng)。用電在定額以內(nèi)的部分，由學(xué)校承擔(dān)，定額以外的 部分，由學(xué)生自己承擔(dān)。 一 系統(tǒng)分析 ㈠ 業(yè)務(wù)流程分析 學(xué)校用電收費管理系統(tǒng)主要用于記錄本學(xué)校學(xué)生公寓寢室的用電情況并在此基礎(chǔ)上進行超支電費收取，并對用電用戶、管理員檔案資料、用電相關(guān)信息等進行錄入與維護工作。收費員或者系統(tǒng)管理員進入收費系統(tǒng)，對用戶進行收取用電用戶當(dāng)月的電費、 以往的欠款、當(dāng)月及以往的滯納金，并將收費情況進行登記，同時為用戶打印收費發(fā)票等等。它具有添 加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進入該系統(tǒng)模塊時，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。他們是提供和維護本系統(tǒng)重要數(shù)據(jù)的基本工作人員。 本模塊中主要涉及到通知內(nèi)容、發(fā)通知單位和發(fā)通知時間等三個方面。在輸入具體停電時間時，操作員（這里主要是系統(tǒng)管理員）只需要輸入起停時間和來電時間，總停時間電腦會自動計算，但需使用本模塊中的“自動計算并寫入總停時間”功能按鈕。 當(dāng)需要添加當(dāng)月電表數(shù)據(jù)時，必須要設(shè)置系統(tǒng)參數(shù)；設(shè)置完畢后，便可對每個寢室的當(dāng)月用電數(shù)據(jù)進行輸入。 ⑶ ．電量電費計算 對各個學(xué)生寢室當(dāng)月的實際用電量、剩余電量、超支電量、應(yīng)繳費金額等進行電腦自動統(tǒng)計。操作方法比方式一稍微麻煩些，但也比較簡單，先選擇一個查詢范圍，再輸入具體數(shù)據(jù)，接著按回車鍵或“開始查詢”功能按鈕便可。 ⑸ ．查詢系統(tǒng)功能模塊圖 6. 報表系統(tǒng) 本模塊對所有操作員開放，它主要包括了電費公布表、實際收費明細統(tǒng)計表、欠費統(tǒng)計表等三個模塊： ⑴ ．電費公布表 既平時所 說的電費清單，是公布出來給學(xué)生用戶看的當(dāng)月電費表。 ⑷ ．報表系統(tǒng)功能模塊圖 7. 交費系統(tǒng) 本系統(tǒng)只對收費員和系統(tǒng)管理員開放，學(xué)生用戶和抄表員無權(quán)操作。如果實收日期大于應(yīng)收日期，則提示“該用戶已經(jīng)逾期，需要繳納逾期費”，計算并輸入逾期天數(shù)、補交金額、總交金額；如果該用戶本月的超支電費不需要繳納的，那么提示“該寢室本月不用交費”，并把交費狀態(tài)修改為“不用交費”，逾期天數(shù)、補交金額、總交金額都輸入為 0；如果該實收日期小于應(yīng)收日期，則提示“該用戶沒有逾期繳費，不需交納逾期費！” 用戶繳費后，必須得進行收費登記，并為用戶打印收費發(fā)票。 系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。 10. 個人主頁 本模塊主要提供了作者的相關(guān)資料瀏覽功能。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應(yīng)用這一工具是必需的一個環(huán)節(jié)。 ㈡ 系統(tǒng)數(shù) 據(jù)庫與數(shù)據(jù)表設(shè)計 作為管理系統(tǒng)，得將它作為一個數(shù)據(jù)庫應(yīng)用系統(tǒng)來進行開發(fā)制作，數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的前提是首先開發(fā)數(shù)據(jù)庫和數(shù)據(jù)庫中的數(shù)據(jù)表。至于時間按時、分設(shè)置，是因為我暫時還沒想到用什么字段類型描述時間，故將時和分兩者分開，這樣在系統(tǒng)應(yīng)用時也可對數(shù)據(jù)進行方便的輸入。寢室號碼也等同于本系統(tǒng)中的電表號碼，符合學(xué)校一個寢室一個電表的規(guī)則；寢室號碼是四位數(shù)字，第一位數(shù)是樓宇號，第二位是樓層號，后兩位是房間號；若有特殊情況，得需要另外補充說明。 ⑵ .數(shù)據(jù)表之間關(guān)系如下圖所示： ㈢ 系統(tǒng)界面設(shè)計 系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸 出的主要途徑。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護包括了權(quán)限設(shè)置、密 碼修改、數(shù)據(jù)備份等。“學(xué)校用電收費管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計、計算等工作全部有電腦自動操作，管理員只需在短時間便可完成任務(wù)，優(yōu)勢十分明顯，而且錯誤率比較低。學(xué)生宿舍如實交納電費后，要在用戶簽名欄內(nèi)簽名，等等。由于個人知識的有限性，系統(tǒng)中尚存在著一些不足的之處， 部分功能要求沒有很好的按照自己的需求分析而成功的實現(xiàn)；這些缺陷都還需要進一步的優(yōu)化。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進展。 6. 王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學(xué)出版社， 1998 年 7 月第 1 版 ，ISBN 730203009X/。H2 Const KEY_CREATE_SUB_KEY = amp。 32 位數(shù)字 Const gREGKEYSYSINFOLOC = SOFTWARE\Microsoft\Shared Tools Location Const gREGVALSYSINFOLOC = MSINFO Const gREGKEYSYSINFO = SOFTWARE\Microsoft\Shared Tools\MSINFO Const gREGVALSYSINFO = PATH Private 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 Long Private 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 lpcbDat