【正文】 麻煩，工作量很大；希望使用學(xué)校用電收費管理系統(tǒng)進行統(tǒng)計后使工作達(dá)到易如反掌。 本系統(tǒng)前臺是利用 Visual Basic 語言、后臺使用 ACCESS 數(shù)據(jù)庫進行開發(fā)，適用于 windows98／ 2020，或更高的軟件支持平臺，便于以后的系統(tǒng)擴展與更新。 根據(jù)系統(tǒng)功能設(shè)計及數(shù)據(jù)流圖、功能模塊圖的設(shè)計分析，對本系統(tǒng)的主要界面做了如下設(shè)計： ㈣ 系統(tǒng)運行環(huán)境 1. 本系統(tǒng)的 運行 絕對路徑為： “C: \學(xué)校用電收費管理系統(tǒng) ” ，即安裝 系統(tǒng)后的可執(zhí)行文件路徑為： C:\學(xué)校用電收費管理系統(tǒng) \學(xué)校用電收費管理系統(tǒng) .exe。 電費管理數(shù)據(jù)表中的寢室號碼屬性主要來源于學(xué)生信息表中 的寢室號碼。操作權(quán)限可分為系統(tǒng)管理員、抄表員、收費員、學(xué)生用戶等，系統(tǒng)管理員可以管理系統(tǒng)的一切，而其他的操作員多多少少都有些權(quán)限的限制。 根據(jù)系統(tǒng)的功能需求分析并結(jié)合本系統(tǒng)的實際要求，本系統(tǒng)只需要建立六張數(shù)據(jù)表，即：電費管理數(shù)據(jù)表、繳費通知表、停電信息表、登陸權(quán)限表、管理員信息表、學(xué)生信息表。選擇該類型的數(shù)據(jù)庫，數(shù)據(jù)庫文件的擴展名為 .MDB，在創(chuàng)建數(shù)據(jù)庫時不必輸入擴展名，可視化數(shù)據(jù)管理器將自動為數(shù)據(jù)庫上生成擴展名。 11. 重新登陸 主要功能是關(guān)閉主體系統(tǒng)，返回到登陸窗口進行重新登陸。 ⑵ ．?dāng)?shù)據(jù)維護 本模塊主要用于對用電收費管 理系統(tǒng)使用的數(shù)據(jù)庫進行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。最后不要忘了選擇輸入收費人員的姓名和給用戶簽名并打印等手續(xù)。 ⑴ ．收費庫 本模塊主要是在進行電表的電費計算之后，產(chǎn)生某月的某個用戶或所有用戶的收費記錄，為收取電費模塊提供收費的數(shù)據(jù)。 本模塊提供了統(tǒng)計本校某年某月各寢室電量電費情況報表的功能，并可以進行報表打印。 其操作方法和學(xué)生用戶 檔案查詢類似。 ⑷ ．抄表系統(tǒng)數(shù)據(jù)流圖 5. 查詢系統(tǒng) 本模塊對所有操作員開放，它主要包括了學(xué)生用戶檔案查詢、管理員檔案查詢、電表檔案查詢、用戶電費查詢等四個模塊： ⑴ ．學(xué)生用戶檔案查詢 本模塊提供了兩種基本查詢方式來查詢學(xué)生用戶檔案信息的功能。 設(shè)置參數(shù)時，可對抄電日期、抄表人員、電費單價、核定電量、收費日期、補交單價等進行選擇性輸入。 該分系統(tǒng) 主要授權(quán)給抄表員和系統(tǒng)管理員，學(xué)生用戶和收費員不能對其進行操作。 ⑵ ．停電通知管理 本模塊主要實現(xiàn)有關(guān)學(xué)校停電通知內(nèi)容進行錄入和維護工作。 ⑶ ．檔案功能模塊圖 其模塊圖如右所示： 3. 通知管理 通知的發(fā)布是學(xué)校用電收費必不可少的程序之一，學(xué)校只有發(fā)布了通知，學(xué)生用戶才可了解有關(guān)用電信息并按時交費。 它主要負(fù)責(zé)為用電收費系統(tǒng)的其它所有模塊提供基本的和必要的用戶資料，是整個用電收費系統(tǒng)的基礎(chǔ)。對未按時繳費的用戶發(fā)布逾期情況的通知，并對逾期情況嚴(yán)重的用戶采取停電措施。 2. 每個月的月末，抄表員收集好各寢 室的上月及本月電表讀數(shù)，先進行手工抄錄。如何使數(shù)據(jù)與信息在用電管理系統(tǒng)的相關(guān)模塊間流動起來，為學(xué)生宿舍用電管理提供科學(xué)的管理方法，使管理更嚴(yán)謹(jǐn)，同時更具有操作性，節(jié)省操作人員的勞動，成為我們學(xué)校用電收費管理人員的當(dāng)務(wù)之急。并提供在線幫助信息。 本系統(tǒng)的研究開發(fā)成功，可使學(xué)校用電收費擺脫每次手工書寫統(tǒng)計的問 題，實現(xiàn)管理計算機化；使用者通過鼠標(biāo)、鍵盤的簡單操作就能實現(xiàn)完整的功能；提高工作效率，節(jié)省人力資源。 學(xué)校用電收費管理系統(tǒng) 設(shè)計內(nèi)容：本系統(tǒng)是單機版的應(yīng)用系統(tǒng)。然后將相關(guān)資料交給系統(tǒng)管理員或者直接進入抄表系統(tǒng)，設(shè)置好本月電表的基本信息、抄表情況、電費單價、收費時間等系統(tǒng)參數(shù)；再將每個寢室的相關(guān)電表讀數(shù)輸入系統(tǒng)進行電腦自動計量和計費。 6. 系統(tǒng)管理員要對整個系統(tǒng)的數(shù)據(jù)庫進行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。用戶的資料主要包括學(xué)生學(xué)號、姓名、性別、班級、年級、分院名稱、寢室號碼、寢室電話、是否寢室長等。 通知管理主要用于對用電相關(guān)信息的通知資料進行錄入與維護工作。其停電原因有外部因素和內(nèi)部因素，外部因素是學(xué)校意外斷電或是接電力公司通知而停電；內(nèi)部因素主要是對某學(xué)生用戶對繳費逾期一個月（發(fā)繳費通知后 30 天內(nèi)未交超支電費）而做出對其進行個別寢室停電決定。如果操作員是抄表員和系統(tǒng)管理員則點擊“授權(quán)”按鈕功能，便可操作；其他操作員點擊“授權(quán)”按鈕功能，便出現(xiàn)“越權(quán)”提示的信息。其中收費日期必須得大于抄電日期，否則會出現(xiàn)錯誤提示信息，要求需要你重新輸入日期。 方式一是條件選擇性查詢，即已經(jīng)提供了選擇條件，操作員只需選擇其中一個便可。 ⑶ ．電表檔案查詢 電表檔案信息主要包括用電時間年月、寢室號碼、抄電日期、抄表人員、本月讀數(shù)、上月讀數(shù)、實用電量、超支電量、核定電量、剩余電量、電費單價、電費金額等。 ⑵ ．實際收費明細(xì)統(tǒng)計表 本模塊提供統(tǒng)計了本校某年某月各寢室繳費后的反饋情況報表功能。 ⑵ ．收取電費 本模塊主要用于收取用電用戶當(dāng)月的電費、以往的欠款、當(dāng)月及以往的滯納金，并將收費情況進行登記，同時為用戶打印收費發(fā)票。 為了給收費人員及其用戶在繳費時便于校對數(shù)據(jù)，在本模塊中提供了繳費的相關(guān)信息。 進行數(shù)據(jù)備份或數(shù)據(jù)恢復(fù)后，會關(guān)閉學(xué)校用電收費管理系統(tǒng)，然后需要重新登陸。 12. 功能模塊結(jié)構(gòu)圖 二 系統(tǒng)詳細(xì)設(shè)計 ㈠ 系統(tǒng)開發(fā)環(huán)境設(shè)計 1. 系統(tǒng)開發(fā)環(huán)境 系統(tǒng)開發(fā)的軟、硬件環(huán)境如下： ⑴ .硬件環(huán)境： 586 以上微機一臺， 256M 內(nèi)存、以太網(wǎng)網(wǎng)卡、顯卡、音響裝置等。 由于數(shù)據(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ù)元素為： 電費管理數(shù)據(jù)表 ： {抄電日期、寢室號碼 、抄表人員、用電年份、用電月份、電表起碼、電表止碼、實用電量、核定電量、剩余電量、應(yīng)交電費、電費單價、應(yīng)交金額、應(yīng)收日期、繳費狀態(tài)、實收日期、逾期天數(shù)、補交單價、補交金額、總交金額、用戶簽名、收費人員 }； 繳費通知表： {通知時間、通知內(nèi)容、發(fā)通知單位 }； 停電信息表： {停電日期、停電范圍、停電原因 、起停時間、來電時間、總停時間 }； 登陸權(quán)限表： {操作權(quán)限 、操作員 、登陸密碼 }； 管理員信息表： {編號 、姓名、性別、年齡、職務(wù)、住址、電話、 Email}； 學(xué)生信息表： {學(xué)生學(xué)號 、學(xué)生姓名、學(xué)生性別、所屬院系、所在年級、所在班級、寢室號碼、寢室電話、是否 寢室長 }。 5. 管理員信息表及其數(shù)據(jù)結(jié)構(gòu) ⑴ . 管理員信息表如下圖所示： ⑵ . 表的數(shù)據(jù)結(jié)構(gòu)如下所示： 序號 字段名稱 字段類型 大小 索引 忽略空值 字段說明 1 編號 Long 4 唯一、主索引 否 管理員的編號 2 姓名 Text 10 否 管理員姓名 3 性別 Text 4 否 管理員性別 4 年齡 Integer 2 否 管理員實際年齡 5 職務(wù) Text 10 否 管理員擔(dān)任的職務(wù) 6 住址 Text 50 否 管理員住宿地點 7 電話 Double 8 否 管理員的聯(lián)系電話 8 Email Text 50 否 管理員的電子信箱 ⑶ .在管理員信息表中，得將編號設(shè)置為關(guān)鍵字。寢室號碼既是學(xué)生公寓寢室的編號，也是本系統(tǒng)中用戶電表的編碼。 2. 本系統(tǒng)具備背景音樂， 所以 最好要有播放音樂的設(shè)置，才可聽到動聽的音樂。 本系統(tǒng)設(shè)計具備的特點有： 1． 界面美觀，操作方便 各個功能模塊都以幽雅的背景畫面和旋律優(yōu)美的背景音樂展現(xiàn)，讓管理者能在一個良好的環(huán)境下輕松愉快的工作，提高工作效率。對未超定額的宿舍，在“用電量”一欄中如實反映該宿舍的實際用電量，而在“應(yīng)交電費”欄以“ 0”賦值即可。學(xué)校用電收費系統(tǒng)管理員可以增加和刪除一般用戶，可對系統(tǒng)數(shù)據(jù)進行錄入和修改，還可以對重要數(shù)據(jù)進行 備份等功能，管理系統(tǒng)的一切。隨著信息技術(shù)的迅猛發(fā)展，利用計算機管理，提高工作效率，已成為現(xiàn)代企業(yè)決策者的共識，也是高校后勤決策者的共識。祝各位生活美滿，工作順利，事業(yè)有成！ 參 考 文 獻(xiàn) 1. 胡同森、 趙劍鋒等，《 Visual Basic 程序設(shè)計教程》，浙江科學(xué)技術(shù)出版社，2020 年 2 月第一版， ISBN 7534117402。 9. (美 )Microsoft Corporation 著 /微軟 (中國 )有限公司譯，《 Visual Basic 中文版程序員指南》，北京希望電腦公司， 1998 年 11 月出版， ISBN 7980021223。H10 Const KEY_CREATE_LINK = amp。 . amp。 \ 39。 注冊表關(guān)鍵字值的臨時存儲器 Dim KeyValSize As Long 39。 標(biāo)記變量尺寸 39。 WinNT 沒有空終結(jié)字符串 ... tmpVal = Left(tmpVal, KeyValSize) 39。 四字節(jié)的注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 關(guān)閉注冊表關(guān)鍵字 Exit Function 39。強巴生長在一個叫達(dá)瓦奴措的小村，那是深入藏原腹 地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉(zhuǎn)念心想，“那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線?！? 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。” 方新道：“他們不一定熟悉，我們就讓機場方面替我們安排一下就好?！? 那小張是次仁的副官，叫張立，分到西藏軍區(qū)兩年了，驍勇善戰(zhàn)，是軍區(qū)特衛(wèi)團的精英力量。 為了他，母親把所有值錢的東西都賣掉了。 這一切發(fā)生在電光火石之間，快到任何人都反應(yīng)不過來。 一拳一腳將吳醫(yī)師給打出去之后，秦立才豁然發(fā)現(xiàn)，自己的身體變成了一個十二三歲的少年，不過看起來倒是十分健壯，胳膊腿都比正常的同齡人要健壯不少，再翻出腦中的那個記憶，秦立的眼中，忍不住有些狂喜，這身體的基礎(chǔ)打的太好了！自己之前若不是基礎(chǔ)打晚了，又怎么會來到這個世界？ 真是天意啊！秦立心中想著，想起身邊這個為了自己不惜付出一切代價的女人，盡管他已經(jīng)不是那個秦立了，但靈魂的融合，記憶的傳承，讓原本就一直渴望親情渴望母愛的秦立脫口而出：“??娘，我??我沒事的。 而這個吳醫(yī)師，卻是一個不折不扣的混蛋、色狼！總是借著給秦立看病的機會，用那雙猥瑣的眼睛瞄著秦母，秦母雖然落魄，但那高貴的氣質(zhì)、優(yōu)雅的談吐、廣博的學(xué)識無一不瘋狂的吸引著吳醫(yī)師。張立一算時間道：“可是，這條路到機場，至少還需要大概半個混亂，無數(shù)熟悉的、陌生的記憶紛紛涌上來，讓他有種腦袋要被撐爆的感覺，忍不住呻吟出聲。他未曾想到，既然 卓木強能搞到軍用包機，那自然和西藏那邊關(guān)系不淺?！? “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復(fù)調(diào)侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的。 美國，賓夕法尼亞州。 錯誤發(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)鍵字