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