【導讀】寢室的用電情況并在此基礎上進行超支電費收取。本系統(tǒng)包括檔案管理、通知發(fā)。程序更加規(guī)范；系統(tǒng)可維護性強、管理集中。并提供在線幫助信息。本系統(tǒng)的研究開發(fā)成功，可使學校用電收費擺脫每次手工書寫統(tǒng)計的問題，高工作效率，節(jié)省人力資源。低，管理質量差。在計算機信息技術飛速發(fā)展與廣泛應用的今天，這種落后的管。理方式與時代的步伐已顯得格格不入，對學生宿舍用電實行智能化、信息化管理，是信息時代對高校學生公寓管理工作提出的客觀要求。擔，定額以外的部分，由學生自己承擔。時間，同時還有大量的數據和信息需要處理，既費工又費力，還容易出錯。停電）報表統(tǒng)計打印用戶用電查詢系統(tǒng)維護等。

　　

【正文】 e 39。 返回成功 rc = RegCloseKey(hKey) 39。 關閉注冊表關鍵字 Exit Function 39。 退出 GetKeyError: 39。 錯誤發(fā)生后將其清除 ... KeyVal = 39。 設置返回值到空字符串 GetKeyValue = False 39。 返回失敗 rc = RegCloseKey(hKey) 39。 關閉注冊表關鍵字 End Function Option Explicit Public StartingAddress As String Dim mbDontNavigateNow As Boolean Private Sub Form_Load() On Error Resume Next Form_Resize 50, + + 15 If Len(StartingAddress) 0 Then = StartingAddress 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 Case Refresh Case Home Case Search Case Stop = False = End Select End Sub Option Explicit Public StartingAddress As String Dim mbDontNavigateNow As Boolean Private Sub Form_Load() On Error Resume Next Form_Resize 50, + + 15 If Len(StartingAddress) 0 Then = StartingAddress 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。 \用電收費 .mdb = select * from 學生信息表 where 所在年級 = 39。 amp。 amp。 39。 a = 所在年級 = amp。 39。 amp。 amp。 39。 a MsgBox (你好，你是按年級查詢，輸入的條件是： amp。 amp。 。請查看結果！ ) = 你好，你是按年級查詢，輸入的條件是： amp。 amp。 。請查看結果！ 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。 \用電收費 .mdb = select * from 學生信息表 where 是否寢室長 = 39。 amp。 amp。 39。 a = 是否寢室長 = amp。 39。 amp。 amp。 39。 a MsgBox (你好，你是查詢寢室長，輸入的條件是： amp。 amp。 。請 查看結果！ ) = 你好，你是查詢寢室長，輸入的條件是： amp。 amp。 。請查看結果！ 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。 \用電收費 .mdb = select * from 管理員信息表 where 職務 = 39。 amp。 amp。 39。 a = 職務 = amp。 39。 amp。 amp。 39。 a MsgBox (你好，你是按職務查詢，輸入的條件是： amp。 amp。 。請查看結果！ ) = 你好，你是按職務查詢，輸入的條件是： amp。 amp。 。 If Then MsgBox (不好意思，找不到符合條件的信息！ ) End If End Sub Private Sub Combo5_Click() Dim a As String = amp。 \用電收費 .mdb = select * from 電費管理數據表 where 用電年份 = 39。 amp。 = play = amp。 \別問我是誰 .mid = True = False = False = False = False = False = False = False End Sub Private Sub 備份數據庫 _Click() If = 系統(tǒng)管理 Or = 抄表 Or = 收費 Then If MsgBox(你要備份數據嗎？備份完后需重新登陸系統(tǒng)的！ , 49 + 256) = vbCancel Then Exit Sub Else Unload Me Unload DataEnvironment1 FileCopy amp。 \用電收費 .mdb, amp。 \備份數據庫 .mdb n% = MsgBox(祝賀你，數據庫已經成功備份！ , 48) 開始界面 .Show End If Else n% = MsgBox(很遺憾！你是學生用戶，不是管理員，不能備份數據庫 ) Exit Sub End If End Sub Private Sub 電費公布表 _Click() 電費清單 .Show End Sub Private Sub 個人主頁 _Click() Dim frmB As New frmBrowser = 關閉音