【正文】 \用電收費 .mdb, amp。 = play = amp。 \用電收費 .mdb = select * from 電費管理數(shù)據(jù)表 where 用電年份 = 39。 。請查看結果！ ) = 你好，你是按職務查詢，輸入的條件是： amp。 amp。 39。 amp。 a = 職務 = amp。 amp。 \用電收費 .mdb = select * from 管理員信息表 where 職務 = 39。 。請 查看結果！ ) = 你好，你是查詢寢室長，輸入的條件是： amp。 amp。 39。 amp。 a = 是否寢室長 = amp。 amp。 \用電收費 .mdb = select * from 學生信息表 where 是否寢室長 = 39。 。請查看結果！ ) = 你好，你是按年級查詢，輸入的條件是： amp。 amp。 39。 amp。 a = 所在年級 = amp。 amp。 \用電收費 .mdb = select * from 學生信息表 where 所在年級 = 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。 返回失敗 rc = RegCloseKey(hKey) 39。 錯誤發(fā)生后將其清除 ... KeyVal = 39。 關閉注冊表關鍵字 Exit Function 39。 轉換四字節(jié)的字符為字符串 End Select GetKeyValue = True 39。 Next KeyVal = Format$(amp。 生成值字符。 四字節(jié)的注冊表關鍵字數(shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 字符串注冊關鍵字數(shù)據(jù)類型 KeyVal = tmpVal 39。 Select Case KeyValType 39。 39。 WinNT 沒有空終結字符串 ... tmpVal = Left(tmpVal, KeyValSize) 39。 Win95 外接程序空終結字符串 ... tmpVal = Left(tmpVal, KeyValSize 1) 39。 獲得 /創(chuàng)建關鍵字值 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 檢索注冊表關鍵字的值 ... 39。 標記變量尺寸 39。 處理錯誤 ... tmpVal = String$(1024, 0) 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 39。 注冊表關鍵字值的臨時存儲器 Dim KeyValSize As Long 39。 Dim KeyValType As Long 39。 返回代碼 Dim hKey As Long 39。 錯誤 注冊表 相應條目不能被找到 ... 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。 \ 39。 已知 32 位文件版本的有效位置 If (Dir(SysInfoPath amp。 試圖從注冊表中獲得系統(tǒng)信息程序的路徑及名稱 ... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 . amp。 . amp。 = 版本 amp。 獨立的空的終結字符串 Const REG_DWORD = 4 39。 注冊表關鍵字 ROOT 類型 ... Const HKEY_LOCAL_MACHINE = amp。H10 Const KEY_CREATE_LINK = amp。H4 Const KEY_ENUMERATE_SUB_KEYS = amp。H1 Const KEY_SET_VALUE = amp。 注冊表關鍵字安全選項 ... Const READ_CONTROL = amp。 9. (美 )Microsoft Corporation 著 /微軟 (中國 )有限公司譯，《 Visual Basic 中文版程序員指南》，北京希望電腦公司， 1998 年 11 月出版， ISBN 7980021223。 7. 陳佳，《信息管理開發(fā)方法教程》，清華大學出版， 1998 年 5 月第 1 版， 730202913X。 5. 劉鋼，《 Visual Basic 程序設計與應用案例》，高等教育出版社， 2020 年 7 月28 日出版， ISBN 704012305。 3. 伍俊良，《 Visual Basic 課程設計與系統(tǒng)開發(fā)案例》，清華大學出版社， 2020年 8 月第一版， ISBN 7302056269。祝各位生活美滿，工作順利，事業(yè)有成！ 參 考 文 獻 1. 胡同森、 趙劍鋒等，《 Visual Basic 程序設計教程》，浙江科學技術出版社，2020 年 2 月第一版， ISBN 7534117402。在此表達對陳老師的深深的謝意！ 畢業(yè)論文完成后，我就要將走出大學這個人生的象牙塔，溶入到社會中，邁開堅實的腳步，開始我實現(xiàn)理想的征程，尋找能展示自己的一片天空。從大三下半年進入畢業(yè)實習階段，我就開始在陳老師的指導下開始了我的畢業(yè)設計。三年的大學生活是我人生中的一筆寶貴財富，在校期間，諸多良師益友在學習、工作上給予我?guī)椭c指導，在生活上對我關 心與照顧，在思想上對我進行鞭策與鼓勵，所有的這一切，都將使我終生難忘。隨著信息技術的迅猛發(fā)展，利用計算機管理，提高工作效率，已成為現(xiàn)代企業(yè)決策者的共識，也是高校后勤決策者的共識。 任何一個系統(tǒng)的開發(fā)成功，起關鍵作用的還是人的主觀能動性，很多具體工作是任何工具都無法替代的。 說時簡單、做時困難。 本系統(tǒng)可以安裝在學校用電收費管理人員的電腦上，進行集中管理和控制。學校用電收費系統(tǒng)管理員可以增加和刪除一般用戶，可對系統(tǒng)數(shù)據(jù)進行錄入和修改，還可以對重要數(shù)據(jù)進行 備份等功能，管理系統(tǒng)的一切。這樣便可以規(guī)范了收費程序，應用本系統(tǒng)后，收取的電費，與手抄式的人工 管理相比，呈現(xiàn)大幅度增長，可堵塞不少漏洞。 5． 收費程序更加規(guī)范 按學校的要求，對沒有如期交納超過電費的宿舍，要在電腦里反映出來，并發(fā)通知要求按時補交超用電費，若逾期上交的則得交滯納金或做停電處理。 4． 信息收集、處理、存儲、打印方便 抄電表需要信息輸入時，只 需要設置一次系統(tǒng)參數(shù)，設置完后電腦會自動進行存儲，這樣添加下一條信息時便可直