【正文】 \n% = MsgBox(祝賀你，數(shù)據(jù)庫已經(jīng)成功修復(fù)！, 48)End If Else n% = MsgBox(很遺憾！你是學(xué)生用戶，不是管理員，不能修復(fù)數(shù)據(jù)庫) Exit Sub End IfEnd SubPrivate Sub 選擇音樂_Click() = True flag = 1 39。 amp。 amp。 amp。 返回成功 rc = RegCloseKey(hKey) 39。 Null 被找到,從字符串中分離出來 Else 39。 注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 39。 amp。8. 晶辰工作室,《 Visual Basic 中文版實(shí)用參考手冊》，電子工業(yè)出版社，1998年9 月出版，ISBN 7505349228。但是，一個好的工具可以幫助我們更好、更快的完成工作。使用學(xué)校用電收費(fèi)管理系統(tǒng)之前，用電量統(tǒng)計(jì)十分麻煩，工作量很大；希望使用學(xué)校用電收費(fèi)管理系統(tǒng)進(jìn)行統(tǒng)計(jì)后使工作達(dá)到易如反掌。根據(jù)系統(tǒng)功能設(shè)計(jì)及數(shù)據(jù)流圖、功能模塊圖的設(shè)計(jì)分析，對本系統(tǒng)的主要界面做了如下設(shè)計(jì)：㈣ 系統(tǒng)運(yùn)行環(huán)境1. 本系統(tǒng)的運(yùn)行絕對路徑為：“C:\學(xué)校用電收費(fèi)管理系統(tǒng)”，即安裝系統(tǒng)后的可執(zhí)行文件路徑為：C:\學(xué)校用電收費(fèi)管理系統(tǒng)\。操作權(quán)限可分為系統(tǒng)管理員、抄表員、收費(fèi)員、學(xué)生用戶等，系統(tǒng)管理員可以管理系統(tǒng)的一切，而其他的操作員多多少少都有些權(quán)限的限制。選擇該類型的數(shù)據(jù)庫，在創(chuàng)建數(shù)據(jù)庫時(shí)不必輸入擴(kuò)展名，可視化數(shù)據(jù)管理器將自動為數(shù)據(jù)庫上生成擴(kuò)展名。⑵．?dāng)?shù)據(jù)維護(hù)本模塊主要用于對用電收費(fèi)管理系統(tǒng)使用的數(shù)據(jù)庫進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。⑴．收費(fèi)庫本模塊主要是在進(jìn)行電表的電費(fèi)計(jì)算之后，產(chǎn)生某月的某個用戶或所有用戶的收費(fèi)記錄，為收取電費(fèi)模塊提供收費(fèi)的數(shù)據(jù)。其操作方法和學(xué)生用戶檔案查詢類似。設(shè)置參數(shù)時(shí)，可對抄電日期、抄表人員、電費(fèi)單價(jià)、核定電量、收費(fèi)日期、補(bǔ)交單價(jià)等進(jìn)行選擇性輸入。⑵．停電通知管理本模塊主要實(shí)現(xiàn)有關(guān)學(xué)校停電通知內(nèi)容進(jìn)行錄入和維護(hù)工作。它主要負(fù)責(zé)為用電收費(fèi)系統(tǒng)的其它所有模塊提供基本的和必要的用戶資料，是整個用電收費(fèi)系統(tǒng)的基礎(chǔ)。2. 每個月的月末，抄表員收集好各寢室的上月及本月電表讀數(shù)，先進(jìn)行手工抄錄。并提供在線幫助信息。學(xué)校用電收費(fèi)管理系統(tǒng)設(shè)計(jì)內(nèi)容：本系統(tǒng)是單機(jī)版的應(yīng)用系統(tǒng)。6. 系統(tǒng)管理員要對整個系統(tǒng)的數(shù)據(jù)庫進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。通知管理主要用于對用電相關(guān)信息的通知資料進(jìn)行錄入與維護(hù)工作。如果操作員是抄表員和系統(tǒng)管理員則點(diǎn)擊“授權(quán)”按鈕功能，便可操作；其他操作員點(diǎn)擊“授權(quán)”按鈕功能，便出現(xiàn)“越權(quán)”提示的信息。方式一是條件選擇性查詢，即已經(jīng)提供了選擇條件，操作員只需選擇其中一個便可。⑵．實(shí)際收費(fèi)明細(xì)統(tǒng)計(jì)表本模塊提供統(tǒng)計(jì)了本校某年某月各寢室繳費(fèi)后的反饋情況報(bào)表功能。為了給收費(fèi)人員及其用戶在繳費(fèi)時(shí)便于校對數(shù)據(jù)，在本模塊中提供了繳費(fèi)的相關(guān)信息。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ī)一臺，256M內(nèi)存、以太網(wǎng)網(wǎng)卡、顯卡、音響裝置等。其數(shù)據(jù)表名稱及其數(shù)據(jù)元素為：電費(fèi)管理數(shù)據(jù)表：{抄電日期、寢室號碼、抄表人員、用電年份、用電月份、電表起碼、電表止碼、實(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)限、操作員、登陸密碼}；管理員信息表：{編號、姓名、性別、年齡、職務(wù)、住址、電話、Email}；學(xué)生信息表：{學(xué)生學(xué)號、學(xué)生姓名、學(xué)生性別、所屬院系、所在年級、所在班級、寢室號碼、寢室電話、是否寢室長}。寢室號碼既是學(xué)生公寓寢室的編號，也是本系統(tǒng)中用戶電表的編碼。本系統(tǒng)設(shè)計(jì)具備的特點(diǎn)有：1． 界面美觀，操作方便各個功能模塊都以幽雅的背景畫面和旋律優(yōu)美的背景音樂展現(xiàn)，讓管理者能在一個良好的環(huán)境下輕松愉快的工作，提高工作效率。學(xué)校用電收費(fèi)系統(tǒng)管理員可以增加和刪除一般用戶，可對系統(tǒng)數(shù)據(jù)進(jìn)行錄入和修改，還可以對重要數(shù)據(jù)進(jìn)行備份等功能，管理系統(tǒng)的一切。祝各位生活美滿，工作順利，事業(yè)有成！參 考 文 獻(xiàn)1. 胡同森、趙劍鋒等，《Visual Basic 》，浙江科學(xué)技術(shù)出版社，2002年2月第一版，ISBN 7534117402。H10Const KEY_CREATE_LINK = amp。 \ 39。 標(biāo)記變量尺寸 39。 四字節(jié)的注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 \ = select * from 學(xué)生信息表 where 所在年級= 39。 \ = select * from 學(xué)生信息表 where 是否寢室長= 39。 \ = select * from 管理員信息表 where 職務(wù)= 39。 \ = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電年份= 39。 = play = amp。 amp。 amp。 amp。 生成值字符。 檢索注冊表關(guān)鍵字的值... 39。 錯誤 注冊表相應(yīng)條目不能被找到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時(shí)系統(tǒng)信息不可用, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 注冊表關(guān)鍵字 ROOT 類型...Const HKEY_LOCAL_MACHINE = amp。3. 伍俊良，《Visual Basic課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2002年8月第一版，ISBN 7302056269。本系統(tǒng)可以安裝在學(xué)校用電收費(fèi)管理人員的電腦上，進(jìn)行集中管理和控制。若有特殊情況，也可參考“在線幫助信息”。但其登陸系統(tǒng)時(shí)，需要進(jìn)行權(quán)限驗(yàn)證，這時(shí)候與登陸權(quán)限表中的操作權(quán)限屬性聯(lián)系在一起。因?yàn)閷W(xué)校已對每個寢室都安裝了一個電度表，每個月均有定額的電量給予。2. 數(shù)據(jù)庫開發(fā)環(huán)境數(shù)據(jù)庫是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應(yīng)該開發(fā)一個數(shù)據(jù)庫，它用于存放系統(tǒng)中的數(shù)據(jù)表。⑶．交費(fèi)系統(tǒng)功能模塊圖8. 維護(hù)系統(tǒng) 維護(hù)系統(tǒng)主要包括權(quán)限管理、數(shù)據(jù)維護(hù)二大子模塊。⑶．匯總欠費(fèi)統(tǒng)計(jì)表本模塊提供統(tǒng)計(jì)了各寢室未按時(shí)繳費(fèi)情況進(jìn)行匯總后的報(bào)表功能。性別查詢有男女可供選擇；年級查詢有大一、大二、大三、大四可供選擇；寢室長查詢有是否可供選擇。當(dāng)設(shè)置完系統(tǒng)參數(shù)后，需要進(jìn)行下一步時(shí)，只需按Enter回車鍵便可一步到位。其主要包括繳費(fèi)通知管理和停電通知管理兩大模塊，其該功能模塊圖如下所示：⑴．繳費(fèi)通知管理本模塊主要實(shí)現(xiàn)對學(xué)校用電收費(fèi)何時(shí)繳費(fèi)的通知內(nèi)容進(jìn)行錄入和維護(hù)工作，通知內(nèi)容隨電費(fèi)清單向在校學(xué)生每月公布一次。2. 檔案管理學(xué)生用戶檔案是學(xué)校用電收費(fèi)系統(tǒng)的基礎(chǔ)。本系統(tǒng)具備的特點(diǎn)有：界面美觀，操作方便；大大提高工作效率；能及時(shí)、準(zhǔn)確地反映學(xué)生宿舍用電情況；信息收集、處理、存儲、打印方便；收費(fèi)程序更加規(guī)范；系統(tǒng)可維護(hù)性強(qiáng)、管理集中。本系統(tǒng)包括檔案管理、通知發(fā)布、抄表系統(tǒng)、查詢系統(tǒng)、報(bào)表系統(tǒng)、交費(fèi)系統(tǒng)、維護(hù)系統(tǒng)和輔助功能共八個分系統(tǒng)。一 系統(tǒng)分析㈠ 業(yè)務(wù)流程分析學(xué)校用電收費(fèi)管理系統(tǒng)主要用于記錄本學(xué)校學(xué)生公寓寢室的用電情況并在此基礎(chǔ)上進(jìn)行超支電費(fèi)收取，并對用電用戶、管理員檔案資料、用電相關(guān)信息等進(jìn)行錄入與維護(hù)工作。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進(jìn)入該系統(tǒng)模塊時(shí)，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點(diǎn)一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會出現(xiàn)“不能越權(quán)”的提示。本模塊中主要涉及到通知內(nèi)容、發(fā)通知單位和發(fā)通知時(shí)間等三個方面。當(dāng)需要添加當(dāng)月電表數(shù)據(jù)時(shí)，必須要設(shè)置系統(tǒng)參數(shù)；設(shè)置完畢后，便可對每個寢室的當(dāng)月用電數(shù)據(jù)進(jìn)行輸入。操作方法比方式一稍微麻煩些，但也比較簡單，先選擇一個查詢范圍，再輸入具體數(shù)據(jù)，接著按回車鍵或“開始查詢”功能按鈕便可。⑷．報(bào)表系統(tǒng)功能模塊圖7. 交費(fèi)系統(tǒng)本系統(tǒng)只對收費(fèi)員和系統(tǒng)管理員開放，學(xué)生用戶和抄表員無權(quán)操作。系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護(hù)及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應(yīng)用這一工具是必需的一個環(huán)節(jié)。至于時(shí)間按時(shí)、分設(shè)置，是因?yàn)槲視簳r(shí)還沒想到用什么字段類型描述時(shí)間，故將時(shí)和分兩者分開，這樣在系統(tǒng)應(yīng)用時(shí)也可對數(shù)據(jù)進(jìn)行方便的輸入。⑵.數(shù)據(jù)表之間關(guān)系如下圖所示：㈢ 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑?！皩W(xué)校用電收費(fèi)管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計(jì)、計(jì)算等工作全部有電腦自動操作，管理員只需在短時(shí)間便可完成任務(wù)，優(yōu)勢十分明顯，而且錯誤率比較低。由于個人知識的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。6. 王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學(xué)出版社，1998年7月第1版 ，ISBN 730203009X/。 32位數(shù)字Const gREGKEYSYSINFOLOC = SOFTWARE\Microsoft\Shared Tools LocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWARE\Microsoft\Shared Tools\MSINFOConst gREGVALSYSINFO = PATHPrivate 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 LongPrivate 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 LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() = 關(guān)于 amp。 打開的注冊表關(guān)鍵字句柄 Dim hDepth As Long 39。 處理錯誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。h + KeyVal) 39。 39。 39。 39。 \n% = MsgBox(祝賀你，數(shù)據(jù)庫已經(jīng)成功備份！, 48)End If Else n% = MsgBox(很遺憾！你是學(xué)生用戶，不是管理員，不能備份數(shù)據(jù)庫) Exit Sub End If End SubPrivate Sub 電費(fèi)公布表_Click()End SubPrivate Sub 個人主頁_Click() Dim frmB As New frmBrowser = 關(guān)閉音樂_ClickEnd SubPrivate Sub 關(guān)閉音樂_Click() = stop = stop = stop = stop = stop = stop = stop = stop =