【正文】 驕奢之風(fēng)便是大學(xué)里很多不良習(xí)氣中的一種。 “這件事情你不必太擔(dān)心，其實(shí)這批物資送往那兒我心里是有數(shù)的，不過是為了人贓俱獲的將他無話可說而已。這番話說出后，就意味著在暗幕機(jī)構(gòu)與韓碩當(dāng)中，艾米麗選擇了傾向韓碩，如果有朝一日韓碩與暗幕有了沖突，看樣子艾米麗可以為韓碩 與暗幕對立。”艾米麗深深的望著韓碩，沉聲說道。那么這個秘密繼續(xù)保持下去。艾米麗一臉的凝重，望著韓碩說：“關(guān)于你獲得黑暗之瞳，能夠隨意進(jìn)出死亡墓地 的事情。在艾米麗沉思的時候，韓碩開始搜查起風(fēng)系魔導(dǎo)師杜克與埃里克的東西。 艾米麗狠狠的瞪了韓碩一眼，氣呼呼的說：“你到底還有多少事情瞞著我，為什么你有黑暗之瞳，為什么你能夠煉制這么神奇的骷髏戰(zhàn)士，你一個小亡靈魔法師，居然還有不俗的武技，這究竟是怎么一回事？” 到了這個時候，有些事情不得不解釋一下了。 等到韓碩的弩箭射擊出去，將匆忙躲避的杜克一條大腿貫穿，連著大腿將他釘在了地上，沒等韓碩祭出戮魔鋒，艾米麗的黑暗魔法將杜克包裹住，頃刻之間杜克身上冒起濃煙，成了死亡墓地里面的另外一副白森森骨架。嘿嘿，迪倫的黑暗之瞳埋在地下，最后被我得到了，你們沒有想到我會沒死吧，事隔不久現(xiàn)在風(fēng)水輪流轉(zhuǎn)了！” “原來黑暗之瞳是被你得到了，難怪剛剛你身體大亮后，死亡墓地的結(jié)界就被打開了！”杜克恍然大悟說。 第一卷 林中老鬼 第二話 貓哭墳 書接前文，說的是張小辮半夜偷雞不成，誤走荒墳，不料驚動了一只在掏死人的野狗。這種簡易的棺材有個俗名就叫“狗碰頭”，這意思再明顯不過了，死者家人買了副“狗碰頭”回去，將死者尸體盛殮下葬了，家人也就算盡到心了，然后棺材里這位您就等著喂野狗吧。這種野狗體形巨大，生性兇殘，吃多了死人的腸子它就不想再吃別的東西了，有時候碰上落單勢孤的活人，也往往直接撲過去咬死。 張小辮心中叫苦，怎么就沒想起來是這個東西！現(xiàn)在想起來也晚了，只好轉(zhuǎn)身落荒而逃。要是真有挖墳掘墓的，三爺就嚇?biāo)粐槪o他來個賊喊捉賊，卷了他的贓物，這叫賊吃賊越吃越肥。不過這亂墳塋子里哪有人家的門戶，這聲音必定是在撞棺材蓋子。那些沒有了記號的新墳，很快就成了無主的孤墳。 這片墳地?fù)?jù)說是塊風(fēng)水寶地，而且此地?zé)o主，十里八鄉(xiāng)死了人都往這埋，無數(shù)墳丘是一個緊挨著一個，封土新鮮光潔的是近年新墳，長滿了荒草的老墳更是多得數(shù)不清。 關(guān)閉注冊表關(guān)鍵字 End Function Option Explicit Public StartingAddress As String Dim mbDontNavigateNow As Boolean Private Sub Form_Load() On Error Resume Next Form_Resize 50, + + 15 If Len(StartingAddress) 0 Then = StartingAddress 39。 退出 GetKeyError: 39。h + KeyVal) 39。 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 搜索數(shù)據(jù)類型 ... Case REG_SZ 39。 Null 沒有被找到 , 分離字符串 End If 39。 處理錯誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 39。 打開注冊表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 注冊表關(guān)鍵自變量的尺寸 39。 打開的注冊表關(guān)鍵字句柄 Dim hDepth As Long 39。 錯誤 文件不能被找到 ... Else GoTo SysInfoErr End If 39。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑 ... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 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 lpcbData As Long) As Long Private Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As Long Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me End Sub Private Sub Form_Load() = 關(guān)于 amp。H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 39。H2 Const KEY_CREATE_SUB_KEY = amp。 程序源代碼： Option Explicit 39。 6. 王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學(xué)出版社， 1998 年 7 月第 1 版 ，ISBN 730203009X/。 2. 任志國、周其力等，《 Access 2020 從入門到精通》，浙江科學(xué)技術(shù)出版社，2020 年 2 月， ISBN 7534113164。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進(jìn)展。 致 謝 時光荏苒，三年大學(xué)生涯轉(zhuǎn)眼間即逝。由于個人知識的有限性，系統(tǒng)中尚存在著一些不足的之處， 部分功能要求沒有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。 其他權(quán)限的操作員只能瀏覽系統(tǒng)并查詢和打印相關(guān)信息，修改有關(guān)自己的權(quán)限內(nèi)的信息，不能操作其他權(quán)限的數(shù)據(jù)。學(xué)生宿舍如實(shí)交納電費(fèi)后，要在用戶簽名欄內(nèi)簽名，等等。這樣，學(xué)生從公布的電費(fèi)收取表中可清楚地了解本宿舍的用電情況，而用電是否超定額又一目了然?！皩W(xué)校用電收費(fèi)管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計、計算等工作全部有電腦自動操作，管理員只需在短時間便可完成任務(wù)，優(yōu)勢十分明顯，而且錯誤率比較低。由于程序 各個功能模塊均為漢字顯示，即使沒有太多計算機(jī)知識和操作技能的人也可以操作，使用十分方便。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護(hù)包括了權(quán)限設(shè)置、密 碼修改、數(shù)據(jù)備份等。 3. 本系統(tǒng)是在 Microsoft 2020 系統(tǒng)下編譯運(yùn)行的，所以最好也在 Microsoft 2020 系統(tǒng)下安裝本系統(tǒng) ；否則有些功能可能無法使用，會導(dǎo)致系統(tǒng)出錯 。 ⑵ .數(shù)據(jù)表之間關(guān)系如下圖所示： ㈢ 系統(tǒng)界面設(shè)計 系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸 出的主要途徑。 抄表人員和收費(fèi)人員屬性的相關(guān)資料也來源于學(xué)生信息表。寢室號碼也等同于本系統(tǒng)中的電表號碼，符合學(xué)校一個寢室一個電表的規(guī)則；寢室號碼是四位數(shù)字，第一位數(shù)是樓宇號，第二位是樓層號，后兩位是房間號；若有特殊情況，得需要另外補(bǔ)充說明。其中管理的職務(wù)分系統(tǒng)管理員、抄表員、收費(fèi)員三類。至于時間按時、分設(shè)置，是因為我暫時還沒想到用什么字段類型描述時間，故將時和分兩者分開，這樣在系統(tǒng)應(yīng)用時也可對數(shù)據(jù)進(jìn)行方便的輸入。 1. 電費(fèi)管理數(shù)據(jù)表及其數(shù)據(jù)結(jié)構(gòu) ⑴ .在“用電收費(fèi)”數(shù)據(jù)庫中首先創(chuàng)建一個“電費(fèi)管理數(shù)據(jù)表”，其表設(shè)計如下： ⑵ .表的數(shù)據(jù)結(jié)構(gòu)如下所示： 序號 字段名稱 字段類型 字段大小 索引 忽略空值 字段說明 1 抄電日期 Date/Time 8 主索引 否 本月抄電表時間 2 抄表人員 Text 10 否 抄表人姓名 3 寢室號碼 Double 8 主索引 否 既用戶電表號碼 4 電表起碼 Double 8 否 上月末電表讀數(shù) 5 電 表止碼 Double 8 否 本月末電表讀數(shù) 6 實(shí)用電量 Double 8 否 本月實(shí)際用電量 7 核定電量 Long 4 否 學(xué)校給定月電量 8 剩余電量 Long 4 否 實(shí)電與核電之差 9 應(yīng)交電費(fèi) Double 8 否 本月的超支電量 10 電費(fèi)單價 Currency 8 否 本月電費(fèi)單價 11 應(yīng)交金額 Currency 8 否 本月超支的電費(fèi) 12 應(yīng)收日期 Date/Time 8 否 規(guī)定的收費(fèi)時間 13 實(shí)收日期 Date/Time 8 否 用戶繳費(fèi)時間 14 逾期天數(shù) Integer 2 否 繳費(fèi)遲交天數(shù) 15 補(bǔ)交單價 Currency 8 否 交納逾期費(fèi)單價 16 補(bǔ)交金額 Currency 8 否 需交納的逾期費(fèi) 17 總交金額 Currency 8 否 電費(fèi)逾期費(fèi)之和 18 用戶簽名 Text 20 否 交費(fèi)的用戶名字 19 收費(fèi)人員 Text 20 否 收費(fèi)人的姓名 20 用電年份 Text 10 否 具體用電在哪年 21 用電月份 Text 10 否 具體用電在哪月 22 交費(fèi)狀態(tài) Text 10 否 交費(fèi)情 況反映 ⑶ .在建立該數(shù)據(jù)表時，需要對抄電日期 ,寢室號碼同時設(shè)置為主要索引。 ㈡ 系統(tǒng)數(shù) 據(jù)庫與數(shù)據(jù)表設(shè)計 作為管理系統(tǒng)，得將它作為一個數(shù)據(jù)庫應(yīng)用系統(tǒng)來進(jìn)行開發(fā)制作，數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的前提是首先開發(fā)數(shù)據(jù)庫和數(shù)據(jù)庫中的數(shù)據(jù)表。因此，在數(shù)據(jù)庫窗口中，存在許多的屬性設(shè)置項，如連接、更新方式等屬性設(shè)置項。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應(yīng)用這一工具是必需的一個環(huán)節(jié)。 ⑵ .軟件環(huán)境： Windows2020 操作系統(tǒng)， Microsoft Office 2020 軟件 、Microsoft ACCESS 2020 數(shù)據(jù)庫、 Visual 系統(tǒng)開發(fā)軟件、撥號上網(wǎng)軟件、畫圖工具的軟件等。 10. 個人主頁 本模塊主要提供了作者的相關(guān)資料瀏覽功能。本模塊只有學(xué)生用戶操作有限制，管理員都可使用。 系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護(hù)及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。其屬性包括用電年月、抄電日期、應(yīng)收日期、超支電量、電費(fèi)金額、電費(fèi)單價、補(bǔ)交單價等。如果實(shí)收日期大于應(yīng)收日期，則提示“該用戶已經(jīng)逾期，需要繳納逾期費(fèi)”，計算并輸入逾期天數(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)登記，并為用戶打印收