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