【正文】 \n% = MsgBox(祝賀你，數(shù)據(jù)庫(kù)已經(jīng)成功修復(fù)！, 48)End If Else n% = MsgBox(很遺憾！你是學(xué)生用戶，不是管理員，不能修復(fù)數(shù)據(jù)庫(kù)) Exit Sub End IfEnd SubPrivate Sub 選擇音樂_Click() = True flag = 1 39。 \ = True = False = False = False = False = False = False = FalseEnd SubPrivate Sub 備份數(shù)據(jù)庫(kù)_Click() If = 系統(tǒng)管理 Or = 抄表 Or = 收費(fèi) ThenIf MsgBox(你要備份數(shù)據(jù)嗎？備份完后需重新登陸系統(tǒng)的！, 49 + 256) = vbCancel Then Exit Sub ElseUnload MeUnload DataEnvironment1FileCopy amp。If Then MsgBox (不好意思，找不到符合條件的信息！) End IfEnd SubPrivate Sub Combo5_Click() Dim a As String = amp。 。 amp。 39。請(qǐng)查看結(jié)果！If Then MsgBox (不好意思，找不到符合條件的信息！) End IfEnd SubPrivate Sub Combo3_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub Combo4_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub Combo4_Click()Dim a As String = amp。 。 amp。 39。請(qǐng)查看結(jié)果！If Then MsgBox (不好意思，找不到符合條件的信息！) End IfEnd SubPrivate Sub Combo2_KeyPress(KeyAscii As Integer)KeyAscii = 0End SubPrivate Sub Combo3_Click()Dim a As String = amp。 。 amp。 39。試圖對(duì)啟動(dòng)地址進(jìn)行瀏覽 = True StartingAddress End IfEnd SubPrivate Sub brwWebBrowser_DownloadComplete() On Error Resume Next = End SubPrivate Sub brwWebBrowser_NavigateComplete(ByVal URL As String) Dim i As Integer Dim bFound As Boolean = For i = 0 To 1 If (i) = Then bFound = True Exit For End If Next i mbDontNavigateNow = True If bFound Then i End If , 0 = 0 mbDontNavigateNow = FalseEnd SubPrivate Sub cboAddress_Click() If mbDontNavigateNow Then Exit Sub = True End SubPrivate Sub cboAddress_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = vbKeyReturn Then cboAddress_Click End IfEnd SubPrivate Sub Form_Resize() = 100 = 100 = ( + ) 100End SubPrivate Sub timTimer_Timer() If = False Then = False = Else = 正在工作... End IfEnd SubPrivate Sub tbToolBar_ButtonClick(ByVal Button As Button) On Error Resume Next = True Select Case Case Back Case Forward Private Sub Combo2_Click()Dim a As String = amp。 設(shè)置返回值到空字符串 GetKeyValue = False 39。 返回成功 rc = RegCloseKey(hKey) 39。 By Char。 復(fù)制字符串的值 Case REG_DWORD 39。 決定轉(zhuǎn)換的關(guān)鍵字的值類型... 39。 Null 被找到,從字符串中分離出來 Else 39。 rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) 39。 分配變量空間 KeyValSize = 1024 39。 打開 {HKEY_LOCAL_MACHINE...} 下的 RegKey 39。 注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 39。 循環(huán)計(jì)數(shù)器 Dim rc As Long 39。 \) ) Then SysInfoPath = SysInfoPath amp。 = End SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 amp。H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 39。H8Const KEY_NOTIFY = amp。H20000Const KEY_QUERY_VALUE = amp。8. 晶辰工作室,《 Visual Basic 中文版實(shí)用參考手冊(cè)》，電子工業(yè)出版社，1998年9 月出版，ISBN 7505349228。4. 張瀚文、齊錦剛，《Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例與解析》，高等教育出版社，20031130出版，ISBN 7040133318。在此，一并對(duì)所有曾給予我?guī)椭睦蠋?、同學(xué)、朋友表示深深的謝意。衷心感謝我的畢業(yè)論文指導(dǎo)教師陳老師。但是，一個(gè)好的工具可以幫助我們更好、更快的完成工作。必要時(shí)可以提供給學(xué)生以遠(yuǎn)程查詢相關(guān)數(shù)據(jù)信息。6． 系統(tǒng)可維護(hù)性強(qiáng)、管理集中本系統(tǒng)劃分了四個(gè)不同權(quán)限的等級(jí)。系統(tǒng)都已經(jīng)設(shè)計(jì)成美觀的字體和統(tǒng)一的格式，使打印的報(bào)表規(guī)范、美觀。使用學(xué)校用電收費(fèi)管理系統(tǒng)之前，用電量統(tǒng)計(jì)十分麻煩，工作量很大；希望使用學(xué)校用電收費(fèi)管理系統(tǒng)進(jìn)行統(tǒng)計(jì)后使工作達(dá)到易如反掌。2． 大大提高工作效率改變以往的工作模式，提高工作效率。本系統(tǒng)前臺(tái)是利用Visual Basic語(yǔ)言、后臺(tái)使用ACCESS數(shù)據(jù)庫(kù)進(jìn)行開發(fā)，適用于windows98／2000，或更高的軟件支持平臺(tái)，便于以后的系統(tǒng)擴(kuò)展與更新。5. 本系統(tǒng)涉及到個(gè)人主頁(yè)，需要上網(wǎng)才能瀏覽，所以安裝好系統(tǒng)后，最好能保證你的電腦已經(jīng)連接到Internet網(wǎng)絡(luò)上。根據(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)\。用戶簽名屬性的相關(guān)也主要來源于學(xué)生信息表。電費(fèi)管理數(shù)據(jù)表中的寢室號(hào)碼屬性主要來源于學(xué)生信息表中的寢室號(hào)碼。6. 學(xué)生信息表及其數(shù)據(jù)結(jié)構(gòu)⑴. 學(xué)生信息表如下圖所示：⑵. 表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類型字段大小索引忽略空值字段說明1學(xué)生學(xué)號(hào)Double8唯一、主索引否現(xiàn)在在本校讀書的學(xué)生學(xué)號(hào)2學(xué)生姓名Text20否在校學(xué)生的姓名3學(xué)生性別Text6否在校學(xué)生的性別4所屬院系Text50否學(xué)生所在的分院和系部名稱5所在年級(jí)Text10否學(xué)生現(xiàn)在的年級(jí)6所在班級(jí)Text10否學(xué)生所在的班級(jí)7寢室號(hào)碼Double8否學(xué)生所住的寢室8寢室電話Double8否寢室的電話號(hào)碼9是否寢室長(zhǎng)Text10否是不是寢室長(zhǎng)⑶.在學(xué)生信息表中，得將學(xué)生的學(xué)號(hào)設(shè)置為關(guān)鍵字。操作權(quán)限可分為系統(tǒng)管理員、抄表員、收費(fèi)員、學(xué)生用戶等，系統(tǒng)管理員可以管理系統(tǒng)的一切，而其他的操作員多多少少都有些權(quán)限的限制。2. 繳費(fèi)通知表及其數(shù)據(jù)結(jié)構(gòu)⑴. 繳費(fèi)通知表如下圖所示：⑵. 表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類型字段大小索引忽略空值字段說明1通知時(shí)間Date/Time8主索引否發(fā)繳費(fèi)通知的時(shí)間2通知內(nèi)容Text255主索引可以繳費(fèi)通知內(nèi)容3發(fā)通知單位Text50主索引否發(fā)這個(gè)繳費(fèi)通知的單位名稱⑶.發(fā)通知，必須具備發(fā)通知的時(shí)間和內(nèi)容以及是誰(shuí)發(fā)的通知等信息；且不同的單位可以在同一天的時(shí)間內(nèi)可以發(fā)不同通知內(nèi)容，所以這三者是繳費(fèi)通知的必要條件。根據(jù)系統(tǒng)的功能需求分析并結(jié)合本系統(tǒng)的實(shí)際要求，本系統(tǒng)只需要建立六張數(shù)據(jù)表，即：電費(fèi)管理數(shù)據(jù)表、繳費(fèi)通知表、停電信息表、登陸權(quán)限表、管理員信息表、學(xué)生信息表。一個(gè)應(yīng)用系統(tǒng)往往需要多次或一定的時(shí)間才能完成，因此數(shù)據(jù)庫(kù)的應(yīng)用將會(huì)多次打開或關(guān)閉操作。選擇該類型的數(shù)據(jù)庫(kù)，在創(chuàng)建數(shù)據(jù)庫(kù)時(shí)不必輸入擴(kuò)展名，可視化數(shù)據(jù)管理器將自動(dòng)為數(shù)據(jù)庫(kù)上生成擴(kuò)展名。本系統(tǒng)的數(shù)據(jù)庫(kù)主要是在Visual Basic集成開發(fā)環(huán)境中制作開發(fā)。11. 重新登陸 主要功能是關(guān)閉主體系統(tǒng)，返回到登陸窗口進(jìn)行重新登陸。在線幫助主要提供了使用學(xué)校用電收費(fèi)管理系統(tǒng)的操作方法和步驟；“關(guān)于系統(tǒng)”主要提供了系統(tǒng)的相關(guān)信息；使用“計(jì)算器”可調(diào)出電腦操作系統(tǒng)中的計(jì)算器，以便計(jì)算時(shí)用；使用“背景樂音”可選擇不同的音樂，如果你覺得煩，那可“關(guān)閉音樂”。⑵．?dāng)?shù)據(jù)維護(hù)本模塊主要用于對(duì)用電收費(fèi)管理系統(tǒng)使用的數(shù)據(jù)庫(kù)進(jìn)行數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)工作，以防止重要數(shù)據(jù)的丟失而加大工作量。⑴．權(quán)限管理本模塊中有兩部分組成，一部分是操作員的修改密碼專區(qū)，另一部分是系統(tǒng)管理員權(quán)限設(shè)置專區(qū)。最后不要忘了選擇輸入收費(fèi)人員的姓名和給用戶簽名并打印等手續(xù)。這樣就可以從數(shù)據(jù)庫(kù)中調(diào)出該寢室相關(guān)用電繳費(fèi)信息。⑴．收費(fèi)庫(kù)本模塊主要是在進(jìn)行電表的電費(fèi)計(jì)算之后，產(chǎn)生某月的某個(gè)用戶或所有用戶的收費(fèi)記錄，為收取電費(fèi)模塊提供收費(fèi)的數(shù)據(jù)。其基本屬性包括用電時(shí)間、寢室號(hào)碼、本月讀數(shù)、上月讀數(shù)、實(shí)際用電、核定電量、剩余電量、超支電量、電費(fèi)單價(jià)、超支金額、指定繳費(fèi)的日期。本模塊提供了統(tǒng)計(jì)本校某年某月各寢室電量電費(fèi)情況報(bào)表的功能，并可以進(jìn)行報(bào)表打印。⑷．用戶電費(fèi)查詢用戶電費(fèi)信息主要包括用電時(shí)間年月、寢室號(hào)碼、超支電量、電費(fèi)單價(jià)、電費(fèi)金額、應(yīng)收日期、實(shí)收日期、繳費(fèi)狀態(tài)、逾期天數(shù)、補(bǔ)交單價(jià)、補(bǔ)交金額、實(shí)交金額、收費(fèi)人員、用戶簽名等。其操作方法和學(xué)生用戶檔案查詢類似。方式二是輸入式查詢，即查詢條件的范圍給定，但查詢條件具體的數(shù)據(jù)需要操作員自行輸入。⑷．抄表系統(tǒng)數(shù)據(jù)流圖5. 查詢系統(tǒng)本模塊對(duì)所有操作員開放，它主要包括了學(xué)生用戶檔案查詢、管理員檔案查詢、電表檔案查詢、用戶電費(fèi)查詢等四個(gè)模塊：⑴．學(xué)生用戶檔案查詢本模塊提供了兩種基本查詢方式來查詢學(xué)生用