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