【正文】 On Error Resume Next = True Select Case Case Back Case Forward Private Sub Combo2_Click() Dim a As String = amp。 返回成功 rc = RegCloseKey(hKey) 39。 復(fù)制字符串的值 Case REG_DWORD 39。 Null 被找到 ,從字符串中分離出 來 Else 39。 分配變量空間 KeyValSize = 1024 39。 注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 39。 \) ) Then SysInfoPath = SysInfoPath amp。 amp。H8 Const KEY_NOTIFY = amp。 8. 晶辰工作室 ,《 Visual Basic 中文版實(shí)用參考手冊(cè)》，電子工業(yè)出版社，1998 年 9 月出版， ISBN 7505349228。在此，一并對(duì)所有曾給予我?guī)椭睦蠋煛⑼瑢W(xué)、朋友表示深深的謝意。但是，一個(gè)好的工具可以幫助我們更好、更快的完成工作。 6． 系統(tǒng)可維護(hù)性強(qiáng)、管理集中 本系統(tǒng)劃分了四個(gè)不同權(quán)限的等級(jí)。使用學(xué)校用電收費(fèi)管理系統(tǒng)之前，用電量統(tǒng)計(jì)十分麻煩，工作量很大；希望使用學(xué)校用電收費(fèi)管理系統(tǒng)進(jìn)行統(tǒng)計(jì)后使工作達(dá)到易如反掌。 本系統(tǒng)前臺(tái)是利用 Visual Basic 語言、后臺(tái)使用 ACCESS 數(shù)據(jù)庫進(jìn)行開發(fā)，適用于 windows98／ 2020，或更高的軟件支持平臺(tái)，便于以后的系統(tǒng)擴(kuò)展與更新。 根據(jù)系統(tǒng)功能設(shè)計(jì)及數(shù)據(jù)流圖、功能模塊圖的設(shè)計(jì)分析，對(duì)本系統(tǒng)的主要界面做了如下設(shè)計(jì)： ㈣ 系統(tǒng)運(yùn)行環(huán)境 1. 本系統(tǒng)的 運(yùn)行 絕對(duì)路徑為： “C: \學(xué)校用電收費(fèi)管理系統(tǒng) ” ，即安裝 系統(tǒng)后的可執(zhí)行文件路徑為： C:\學(xué)校用電收費(fèi)管理系統(tǒng) \學(xué)校用電收費(fèi)管理系統(tǒng) .exe。 電費(fèi)管理數(shù)據(jù)表中的寢室號(hào)碼屬性主要來源于學(xué)生信息表中 的寢室號(hào)碼。操作權(quán)限可分為系統(tǒng)管理員、抄表員、收費(fèi)員、學(xué)生用戶等，系統(tǒng)管理員可以管理系統(tǒng)的一切，而其他的操作員多多少少都有些權(quán)限的限制。 根據(jù)系統(tǒng)的功能需求分析并結(jié)合本系統(tǒng)的實(shí)際要求，本系統(tǒng)只需要建立六張數(shù)據(jù)表，即：電費(fèi)管理數(shù)據(jù)表、繳費(fèi)通知表、停電信息表、登陸權(quán)限表、管理員信息表、學(xué)生信息表。選擇該類型的數(shù)據(jù)庫，數(shù)據(jù)庫文件的擴(kuò)展名為 .MDB，在創(chuàng)建數(shù)據(jù)庫時(shí)不必輸入擴(kuò)展名，可視化數(shù)據(jù)管理器將自動(dòng)為數(shù)據(jù)庫上生成擴(kuò)展名。 11. 重新登陸 主要功能是關(guān)閉主體系統(tǒng)，返回到登陸窗口進(jìn)行重新登陸。 ⑵ ．?dāng)?shù)據(jù)維護(hù) 本模塊主要用于對(duì)用電收費(fèi)管 理系統(tǒng)使用的數(shù)據(jù)庫進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。最后不要忘了選擇輸入收費(fèi)人員的姓名和給用戶簽名并打印等手續(xù)。 ⑴ ．收費(fèi)庫 本模塊主要是在進(jìn)行電表的電費(fèi)計(jì)算之后，產(chǎn)生某月的某個(gè)用戶或所有用戶的收費(fèi)記錄，為收取電費(fèi)模塊提供收費(fèi)的數(shù)據(jù)。 本模塊提供了統(tǒng)計(jì)本校某年某月各寢室電量電費(fèi)情況報(bào)表的功能，并可以進(jìn)行報(bào)表打印。 其操作方法和學(xué)生用戶 檔案查詢類似。 ⑷ ．抄表系統(tǒng)數(shù)據(jù)流圖 5. 查詢系統(tǒng) 本模塊對(duì)所有操作員開放，它主要包括了學(xué)生用戶檔案查詢、管理員檔案查詢、電表檔案查詢、用戶電費(fèi)查詢等四個(gè)模塊： ⑴ ．學(xué)生用戶檔案查詢 本模塊提供了兩種基本查詢方式來查詢學(xué)生用戶檔案信息的功能。 設(shè)置參數(shù)時(shí)，可對(duì)抄電日期、抄表人員、電費(fèi)單價(jià)、核定電量、收費(fèi)日期、補(bǔ)交單價(jià)等進(jìn)行選擇性輸入。 該分系統(tǒng) 主要授權(quán)給抄表員和系統(tǒng)管理員，學(xué)生用戶和收費(fèi)員不能對(duì)其進(jìn)行操作。 ⑵ ．停電通知管理 本模塊主要實(shí)現(xiàn)有關(guān)學(xué)校停電通知內(nèi)容進(jìn)行錄入和維護(hù)工作。 ⑶ ．檔案功能模塊圖 其模塊圖如右所示： 3. 通知管理 通知的發(fā)布是學(xué)校用電收費(fèi)必不可少的程序之一，學(xué)校只有發(fā)布了通知，學(xué)生用戶才可了解有關(guān)用電信息并按時(shí)交費(fèi)。 它主要負(fù)責(zé)為用電收費(fèi)系統(tǒng)的其它所有模塊提供基本的和必要的用戶資料，是整個(gè)用電收費(fèi)系統(tǒng)的基礎(chǔ)。對(duì)未按時(shí)繳費(fèi)的用戶發(fā)布逾期情況的通知，并對(duì)逾期情況嚴(yán)重的用戶采取停電措施。 2. 每個(gè)月的月末，抄表員收集好各寢 室的上月及本月電表讀數(shù)，先進(jìn)行手工抄錄。如何使數(shù)據(jù)與信息在用電管理系統(tǒng)的相關(guān)模塊間流動(dòng)起來，為學(xué)生宿舍用電管理提供科學(xué)的管理方法，使管理更嚴(yán)謹(jǐn)，同時(shí)更具有操作性，節(jié)省操作人員的勞動(dòng)，成為我們學(xué)校用電收費(fèi)管理人員的當(dāng)務(wù)之急。并提供在線幫助信息。 本系統(tǒng)的研究開發(fā)成功，可使學(xué)校用電收費(fèi)擺脫每次手工書寫統(tǒng)計(jì)的問 題，實(shí)現(xiàn)管理計(jì)算機(jī)化；使用者通過鼠標(biāo)、鍵盤的簡單操作就能實(shí)現(xiàn)完整的功能；提高工作效率，節(jié)省人力資源。 學(xué)校用電收費(fèi)管理系統(tǒng) 設(shè)計(jì)內(nèi)容：本系統(tǒng)是單機(jī)版的應(yīng)用系統(tǒng)。然后將相關(guān)資料交給系統(tǒng)管理員或者直接進(jìn)入抄表系統(tǒng)，設(shè)置好本月電表的基本信息、抄表情況、電費(fèi)單價(jià)、收費(fèi)時(shí)間等系統(tǒng)參數(shù)；再將每個(gè)寢室的相關(guān)電表讀數(shù)輸入系統(tǒng)進(jìn)行電腦自動(dòng)計(jì)量和計(jì)費(fèi)。 6. 系統(tǒng)管理員要對(duì)整個(gè)系統(tǒng)的數(shù)據(jù)庫進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。用戶的資料主要包括學(xué)生學(xué)號(hào)、姓名、性別、班級(jí)、年級(jí)、分院名稱、寢室號(hào)碼、寢室電話、是否寢室長等。 通知管理主要用于對(duì)用電相關(guān)信息的通知資料進(jìn)行錄入與維護(hù)工作。其停電原因有外部因素和內(nèi)部因素，外部因素是學(xué)校意外斷電或是接電力公司通知而停電；內(nèi)部因素主要是對(duì)某學(xué)生用戶對(duì)繳費(fèi)逾期一個(gè)月（發(fā)繳費(fèi)通知后 30 天內(nèi)未交超支電費(fèi)）而做出對(duì)其進(jìn)行個(gè)別寢室停電決定。如果操作員是抄表員和系統(tǒng)管理員則點(diǎn)擊“授權(quán)”按鈕功能，便可操作；其他操作員點(diǎn)擊“授權(quán)”按鈕功能，便出現(xiàn)“越權(quán)”提示的信息。其中收費(fèi)日期必須得大于抄電日期，否則會(huì)出現(xiàn)錯(cuò)誤提示信息，要求需要你重新輸入日期。 方式一是條件選擇性查詢，即已經(jīng)提供了選擇條件，操作員只需選擇其中一個(gè)便可。 ⑶ ．電表檔案查詢 電表檔案信息主要包括用電時(shí)間年月、寢室號(hào)碼、抄電日期、抄表人員、本月讀數(shù)、上月讀數(shù)、實(shí)用電量、超支電量、核定電量、剩余電量、電費(fèi)單價(jià)、電費(fèi)金額等。 ⑵ ．實(shí)際收費(fèi)明細(xì)統(tǒng)計(jì)表 本模塊提供統(tǒng)計(jì)了本校某年某月各寢室繳費(fèi)后的反饋情況報(bào)表功能。 ⑵ ．收取電費(fèi) 本模塊主要用于收取用電用戶當(dāng)月的電費(fèi)、以往的欠款、當(dāng)月及以往的滯納金，并將收費(fèi)情況進(jìn)行登記，同時(shí)為用戶打印收費(fèi)發(fā)票。 為了給收費(fèi)人員及其用戶在繳費(fèi)時(shí)便于校對(duì)數(shù)據(jù)，在本模塊中提供了繳費(fèi)的相關(guān)信息。 進(jìn)行數(shù)據(jù)備份或數(shù)據(jù)恢復(fù)后，會(huì)關(guān)閉學(xué)校用電收費(fèi)管理系統(tǒng)，然后需要重新登陸。 12. 功能模塊結(jié)構(gòu)圖 二 系統(tǒng)詳細(xì)設(shè)計(jì) ㈠ 系統(tǒng)開發(fā)環(huán)境設(shè)計(jì) 1. 系統(tǒng)開發(fā)環(huán)境 系統(tǒng)開發(fā)的軟、硬件環(huán)境如下： ⑴ .硬件環(huán)境： 586 以上微機(jī)一臺(tái)， 256M 內(nèi)存、以太網(wǎng)網(wǎng)卡、顯卡、音響裝置等。 由于數(shù)據(jù)庫可能 是作為本地機(jī)數(shù)據(jù)庫，即作為單用戶系統(tǒng)開發(fā)的數(shù)據(jù)庫使用，也可能是作為客戶服務(wù)器系統(tǒng)的遠(yuǎn)程數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)的數(shù)據(jù)庫使用。其數(shù)據(jù)表名稱及其數(shù)據(jù)元素為： 電費(fèi)管理數(shù)據(jù)表 ： {抄電日期、寢室號(hào)碼 、抄表人員、用電年份、用電月份、電表起碼、電表止碼、實(shí)用電量、核定電量、剩余電量、應(yīng)交電費(fèi)、電費(fèi)單價(jià)、應(yīng)交金額、應(yīng)收日期、繳費(fèi)狀態(tài)、實(shí)收日期、逾期天數(shù)、補(bǔ)交單價(jià)、補(bǔ)交金額、總交金額、用戶簽名、收費(fèi)人員 }； 繳費(fèi)通知表： {通知時(shí)間、通知內(nèi)容、發(fā)通知單位 }； 停電信息表： {停電日期、停電范圍、停電原因 、起停時(shí)間、來電時(shí)間、總停時(shí)間 }； 登陸權(quán)限表： {操作權(quán)限 、操作員 、登陸密碼 }； 管理員信息表： {編號(hào) 、姓名、性別、年齡、職務(wù)、住址、電話、 Email}； 學(xué)生信息表： {學(xué)生學(xué)號(hào) 、學(xué)生姓名、學(xué)生性別、所屬院系、所在年級(jí)、所在班級(jí)、寢室號(hào)碼、寢室電話、是否 寢室長 }。 5. 管理員信息表及其數(shù)據(jù)結(jié)構(gòu) ⑴ . 管理員信息表如下圖所示： ⑵ . 表的數(shù)據(jù)結(jié)構(gòu)如下所示： 序號(hào) 字段名稱 字段類型 大小 索引 忽略空值 字段說明 1 編號(hào) Long 4 唯一、主索引 否 管理員的編號(hào) 2 姓名 Text 10 否 管理員姓名 3 性別 Text 4 否 管理員性別 4 年齡 Integer 2 否 管理員實(shí)際年齡 5 職務(wù) Text 10 否 管理員擔(dān)任的職務(wù) 6 住址 Text 50 否 管理員住宿地點(diǎn) 7 電話 Double 8 否 管理員的聯(lián)系電話 8 Email Text 50 否 管理員的電子信箱 ⑶ .在管理員信息表中，得將編號(hào)設(shè)置為關(guān)鍵字。寢室號(hào)碼既是學(xué)生公寓寢室的編號(hào)，也是本系統(tǒng)中用戶電表的編碼。 2. 本系統(tǒng)具備背景音樂， 所以 最好要有播放音樂的設(shè)置，才可聽到動(dòng)聽的音樂。 本系統(tǒng)設(shè)計(jì)具備的特點(diǎn)有： 1． 界面美觀，操作方便 各個(gè)功能模塊都以幽雅的背景畫面和旋律優(yōu)美的背景音樂展現(xiàn)，讓管理者能在一個(gè)良好的環(huán)境下輕松愉快的工作，提高工作效率。對(duì)未超定額的宿舍，在“用電量”一欄中如實(shí)反映該宿舍的實(shí)際用電量，而在“應(yīng)交電費(fèi)”欄以“ 0”賦值即可。學(xué)校用電收費(fèi)系統(tǒng)管理員可以增加和刪除一般用戶，可對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行錄入和修改，還可以對(duì)重要數(shù)據(jù)進(jìn)行 備份等功能，管理系統(tǒng)的一切。隨著信息技術(shù)的迅猛發(fā)展，利用計(jì)算機(jī)管理，提高工作效率，已成為現(xiàn)代企業(yè)決策者的共識(shí)，也是高校后勤決策者的共識(shí)。祝各位生活美滿，工作順利，事業(yè)有成！ 參 考 文 獻(xiàn) 1. 胡同森、 趙劍鋒等，《 Visual Basic 程序設(shè)計(jì)教程》，浙江科學(xué)技術(shù)出版社，2020 年 2 月第一版， ISBN 7534117402。 9. (美 )Microsoft Corporation 著 /微軟 (中國 )有限公司譯，《 Visual Basic 中文版程序員指南》，北京希望電腦公司， 1998 年 11 月出版， ISBN 7980021223。H10 Const KEY_CREATE_LINK = amp。 . amp。 \ 39。 注冊(cè)表關(guān)鍵字值的臨時(shí)存儲(chǔ)器 Dim KeyValSize As Long 39。 標(biāo)記變量尺寸 39。 WinNT 沒有空終結(jié)字符串 ... tmpVal = Left(tmpVal, KeyValSize) 39。 四字節(jié)的注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 關(guān)閉注冊(cè)表關(guān)鍵字 Exit Function 39。 \用電收費(fèi) .mdb = select * from 學(xué)生信息表 where 所在年級(jí) = 39。 39。 \用電收費(fèi) .mdb = select * from 學(xué)生信息表 where 是否寢室長 = 39。 39。 \用電收費(fèi) .mdb = select * from 管理員信息表 where 職務(wù) = 39。 39。 \用電收費(fèi) .mdb = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電年份 = 39。 = play = amp。 amp。 amp。 amp。 amp。 amp。 amp。 錯(cuò)誤發(fā)生后將其清除 ... KeyVal = 39。 生成值字符。 39。 檢索注冊(cè)表關(guān)鍵字的值 ... 39。 39。 錯(cuò)誤 注冊(cè)表 相應(yīng)條目不能被找到 ... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox 此時(shí)系統(tǒng)信息不可用 , vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As Str