【正文】 a 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。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑 ... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 打開的注冊表關(guān)鍵字句柄 Dim hDepth As Long 39。 打開注冊表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 處理錯誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 搜索數(shù)據(jù)類型 ... Case REG_SZ 39。h + KeyVal) 39。 關(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。那些沒有了記號的新墳，很快就成了無主的孤墳。要是真有挖墳掘墓的，三爺就嚇?biāo)粐?，給他來個賊喊捉賊，卷了他的贓物，這叫賊吃賊越吃越肥。這種野狗體形巨大，生性兇殘，吃多了死人的腸子它就不想再吃別的東西了，有時候碰上落單勢孤的活人，也往往直接撲過去咬死。 第一卷 林中老鬼 第二話 貓哭墳 書接前文，說的是張小辮半夜偷雞不成，誤走荒墳，不料驚動了一只在掏死人的野狗。 等到韓碩的弩箭射擊出去，將匆忙躲避的杜克一條大腿貫穿，連著大腿將他釘在了地上，沒等韓碩祭出戮魔鋒，艾米麗的黑暗魔法將杜克包裹住，頃刻之間杜克身上冒起濃煙，成了死亡墓地里面的另外一副白森森骨架。在艾米麗沉思的時候，韓碩開始搜查起風(fēng)系魔導(dǎo)師杜克與埃里克的東西。那么這個秘密繼續(xù)保持下去。這番話說出后，就意味著在暗幕機(jī)構(gòu)與韓碩當(dāng)中，艾米麗選擇了傾向韓碩，如果有朝一日韓碩與暗幕有了沖突，看樣子艾米麗可以為韓碩 與暗幕對立。驕奢之風(fēng)便是大學(xué)里很多不良習(xí)氣中的一種。 “這件事情你不必太擔(dān)心，其實這批物資送往那兒我心里是有數(shù)的，不過是為了人贓俱獲的將他無話可說而已?！卑惿钌畹耐n碩，沉聲說道。艾米麗一臉的凝重，望著韓碩說：“關(guān)于你獲得黑暗之瞳，能夠隨意進(jìn)出死亡墓地 的事情。 艾米麗狠狠的瞪了韓碩一眼，氣呼呼的說：“你到底還有多少事情瞞著我，為什么你有黑暗之瞳，為什么你能夠煉制這么神奇的骷髏戰(zhàn)士，你一個小亡靈魔法師，居然還有不俗的武技，這究竟是怎么一回事？” 到了這個時候，有些事情不得不解釋一下了。嘿嘿，迪倫的黑暗之瞳埋在地下，最后被我得到了，你們沒有想到我會沒死吧，事隔不久現(xiàn)在風(fēng)水輪流轉(zhuǎn)了！” “原來黑暗之瞳是被你得到了，難怪剛剛你身體大亮后，死亡墓地的結(jié)界就被打開了！”杜克恍然大悟說。這種簡易的棺材有個俗名就叫“狗碰頭”，這意思再明顯不過了，死者家人買了副“狗碰頭”回去，將死者尸體盛殮下葬了，家人也就算盡到心了，然后棺材里這位您就等著喂野狗吧。 張小辮心中叫苦，怎么就沒想起來是這個東西！現(xiàn)在想起來也晚了，只好轉(zhuǎn)身落荒而逃。不過這亂墳塋子里哪有人家的門戶，這聲音必定是在撞棺材蓋子。 這片墳地?fù)?jù)說是塊風(fēng)水寶地，而且此地?zé)o主，十里八鄉(xiāng)死了人都往這埋，無數(shù)墳丘是一個緊挨著一個，封土新鮮光潔的是近年新墳，長滿了荒草的老墳更是多得數(shù)不清。 退出 GetKeyError: 39。 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 Null 沒有被找到 , 分離字符串 End If 39。 39。 注冊表關(guān)鍵自變量的尺寸 39。 錯誤 文件不能被找到 ... Else GoTo SysInfoErr End If 39。 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。 程序源代碼： Option Explicit 39。 2. 任志國、周其力等，《 Access 2020 從入門到精通》，浙江科學(xué)技術(shù)出版社，2020 年 2 月， ISBN 7534113164。 致 謝 時光荏苒，三年大學(xué)生涯轉(zhuǎn)眼間即逝。 其他權(quán)限的操作員只能瀏覽系統(tǒng)并查詢和打印相關(guān)信息，修改有關(guān)自己的權(quán)限內(nèi)的信息，不能操作其他權(quán)限的數(shù)據(jù)。這樣，學(xué)生從公布的電費收取表中可清楚地了解本宿舍的用電情況，而用電是否超定額又一目了然。由于程序 各個功能模塊均為漢字顯示，即使沒有太多計算機(jī)知識和操作技能的人也可以操作，使用十分方便。 3. 本系統(tǒng)是在 Microsoft 2020 系統(tǒng)下編譯運行的，所以最好也在 Microsoft 2020 系統(tǒng)下安裝本系統(tǒng) ；否則有些功能可能無法使用，會導(dǎo)致系統(tǒng)出錯 。 抄表人員和收費人員屬性的相關(guān)資料也來源于學(xué)生信息表。其中管理的職務(wù)分系統(tǒng)管理員、抄表員、收費員三類。 1. 電費管理數(shù)據(jù)表及其數(shù)據(jù)結(jié)構(gòu) ⑴ .在“用電收費”數(shù)據(jù)庫中首先創(chuàng)建一個“電費管理數(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 實用電量 Double 8 否 本月實際用電量 7 核定電量 Long 4 否 學(xué)校給定月電量 8 剩余電量 Long 4 否 實電與核電之差 9 應(yīng)交電費 Double 8 否 本月的超支電量 10 電費單價 Currency 8 否 本月電費單價 11 應(yīng)交金額 Currency 8 否 本月超支的電費 12 應(yīng)收日期 Date/Time 8 否 規(guī)定的收費時間 13 實收日期 Date/Time 8 否 用戶繳費時間 14 逾期天數(shù) Integer 2 否 繳費遲交天數(shù) 15 補(bǔ)交單價 Currency 8 否 交納逾期費單價 16 補(bǔ)交金額 Currency 8 否 需交納的逾期費 17 總交金額 Currency 8 否 電費逾期費之和 18 用戶簽名 Text 20 否 交費的用戶名字 19 收費人員 Text 20 否 收費人的姓名 20 用電年份 Text 10 否 具體用電在哪年 21 用電月份 Text 10 否 具體用電在哪月 22 交費狀態(tài) Text 10 否 交費情 況反映 ⑶ .在建立該數(shù)據(jù)表時，需要對抄電日期 ,寢室號碼同時設(shè)置為主要索引。因此，在數(shù)據(jù)庫窗口中，存在許多的屬性設(shè)置項，如連接、更新方式等屬性設(shè)置項。 ⑵ .軟件環(huán)境： Windows2020 操作系統(tǒng)， Microsoft Office 2020 軟件 、Microsoft ACCESS 2020 數(shù)據(jù)庫、 Visual 系統(tǒng)開發(fā)軟件、撥號上網(wǎng)軟件、畫圖工具的軟件等。本模塊只有學(xué)生用戶操作有限制，管理員都可使用。其屬性包括用電年月、抄電日期、應(yīng)收日期、超支電量、電費金額、電費單價、補(bǔ)交單價等。 收費員或系統(tǒng)管理員進(jìn)入本模塊經(jīng)過授權(quán)驗證后，便可操作本系統(tǒng)模塊。其基本屬性包括有繳費狀態(tài)、用電年份、用電月份、寢室號碼、應(yīng)收時間、實收時間、逾期天數(shù)、補(bǔ)交金額、實交金額、用戶簽名、收費人等。 本模塊提供了按照用電年、月、寢室號碼的單一查詢以及用電年、月和寢室號碼三者組合而成的綜合查詢電表檔案信息的功能。它包括按用戶性別查詢、按所在年級查詢、按寢室長查詢等三個條件。使用“參數(shù)設(shè)置完畢” 按鈕后，電腦便暫時保存好剛剛所設(shè)置的信息，以便接著添加資料時可自動讀入數(shù)據(jù)。 本系統(tǒng)操作很簡單，添加當(dāng)月電表信息時，只需要設(shè)置好當(dāng)月相關(guān)的基本系統(tǒng)參數(shù)，接著輸入寢室號碼和電表讀數(shù)，再使用自動計算電量電費功能按鈕就行。通知內(nèi)容要及時甚至提前向在校學(xué)生公布。本分系統(tǒng)主要使用者也是系統(tǒng)管理員，其他三個權(quán)限是不能對本模塊進(jìn)行操作。 ⑵ ．管理員檔案管理 本模塊主 要用于實現(xiàn)對管理員基本情況進(jìn)行錄入與維護(hù)工作。 ㈡ 功能模塊劃分 1. 功能介紹 學(xué)校用電收費管理系統(tǒng)主要包括了檔案管理、通知發(fā)布、抄表系統(tǒng)、查詢系統(tǒng)、報表系統(tǒng)、交費系統(tǒng)、維護(hù)系統(tǒng)、輔助功能和個人主頁共九個分系統(tǒng)，并新增一個重新登陸的 功能。 3. 將本月所有的電表信息輸入電腦后，既可完成了抄表工作。本系統(tǒng)設(shè)計具有以下功能：（ 1）用戶管理（ 2）電費抄表登記（ 3）電費收繳（正常、超 支、停電）（ 4）報表統(tǒng)計打?。?5）用戶用電查詢（ 6）系統(tǒng)維護(hù)等。 關(guān) 鍵 詞： 學(xué)校用電收費管理系統(tǒng) 管理信息系統(tǒng) 數(shù)據(jù)庫管理系統(tǒng) A b s t r a c t: Schools electrocharge management system is application system of standalone edition, mostly with for register electrocircs of this school students rooming house and in this base process ine overspend electricity. This system includes record manage, message promulgate, transcribe meter system, query system, report forms system, charge system, safeguard system and assistant’ s function together eight parts system. This system has all to nothing safety and integrity, beauty interface and expediently operation. May be can improve efficiency of works, can be reflect students rooming house of electrocircs betimes and truly. Information of collect, deal with, memory and mimeograph all expediently. Charge’ s program was much more criterion. System may be can better safeguard and manage collect. And offer some help’ s information. This system’ s research and development will be succeed, then the schools electrocharge so as to cast off