學(xué)校電費(fèi)管理系統(tǒng)的設(shè)計與實現(xiàn)—計算機(jī)畢業(yè)設(shè)計論文(參考版)
2024-08-17 08:14本頁面
【正文】 試圖對啟動地址進(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 SubEnd SubPrivate Sub 重新登陸_Click()If MsgBox(你要重新登陸系統(tǒng)嗎！, 33 + 256) = vbOK ThenUnload MeUnload DataEnvironment1End IfEnd Sub。 返回失敗 rc = RegCloseKey(hKey) 39。 錯誤發(fā)生后將其清除... KeyVal = 39。 關(guān)閉注冊表關(guān)鍵字 Exit Function 39。 轉(zhuǎn)換四字節(jié)的字符為字符串 End Select GetKeyValue = True 39。 Next KeyVal = Format$(amp。 生成值字符。 四字節(jié)的注冊表關(guān)鍵字?jǐn)?shù)據(jù)類型 For i = Len(tmpVal) To 1 Step 1 39。 字符串注冊關(guān)鍵字?jǐn)?shù)據(jù)類型 KeyVal = tmpVal 39。 Select Case KeyValType 39。 39。 WinNT 沒有空終結(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。 檢索注冊表關(guān)鍵字的值... 39。 標(biāo)記變量尺寸 39。 處理錯誤... tmpVal = String$(1024, 0) 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 39。 注冊表關(guān)鍵字值的臨時存儲器 Dim KeyValSize As Long 39。 Dim KeyValType As Long 39。 返回代碼 Dim hKey As Long 39。 錯誤 注冊表相應(yīng)條目不能被找到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時系統(tǒng)信息不可用, vbOKOnlyEnd SubPublic 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。 獨(dú)立的空的終結(jié)字符串Const REG_DWORD = 4 39。 注冊表關(guān)鍵字 ROOT 類型...Const HKEY_LOCAL_MACHINE = amp。H10Const KEY_CREATE_LINK = amp。H4Const KEY_ENUMERATE_SUB_KEYS = amp。H1Const KEY_SET_VALUE = amp。 注冊表關(guān)鍵字安全選項...Const READ_CONTROL = amp。9. (美)Microsoft Corporation著/微軟(中國)有限公司譯，《Visual Basic 中文版程序員指南》，北京希望電腦公司，1998年11月出版，ISBN 7980021223。7. 陳佳，《信息管理開發(fā)方法教程》，清華大學(xué)出版，1998年5月第1版， 730202913X。5. 劉鋼，《Visual Basic 程序設(shè)計與應(yīng)用案例》，高等教育出版社，2003年7月28日出版，ISBN 704012305。3. 伍俊良，《Visual Basic課程設(shè)計與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社，2002年8月第一版，ISBN 7302056269。祝各位生活美滿，工作順利，事業(yè)有成！參 考 文 獻(xiàn)1. 胡同森、趙劍鋒等，《Visual Basic 》，浙江科學(xué)技術(shù)出版社，2002年2月第一版，ISBN 7534117402。在此表達(dá)對陳老師的深深的謝意！畢業(yè)論文完成后，我就要將走出大學(xué)這個人生的象牙塔，溶入到社會中，邁開堅實的腳步，開始我實現(xiàn)理想的征程，尋找能展示自己的一片天空。從大三下半年進(jìn)入畢業(yè)實習(xí)階段，我就開始在陳老師的指導(dǎo)下開始了我的畢業(yè)設(shè)計。三年的大學(xué)生活是我人生中的一筆寶貴財富，在校期間，諸多良師益友在學(xué)習(xí)、工作上給予我?guī)椭c指導(dǎo)，在生活上對我關(guān)心與照顧，在思想上對我進(jìn)行鞭策與鼓勵，所有的這一切，都將使我終生難忘。隨著信息技術(shù)的迅猛發(fā)展，利用計算機(jī)管理，提高工作效率，已成為現(xiàn)代企業(yè)決策者的共識，也是高校后勤決策者的共識。任何一個系統(tǒng)的開發(fā)成功，起關(guān)鍵作用的還是人的主觀能動性，很多具體工作是任何工具都無法替代的。說時簡單、做時困難。本系統(tǒng)可以安裝在學(xué)校用電收費(fèi)管理人員的電腦上，進(jìn)行集中管理和控制。學(xué)校用電收費(fèi)系統(tǒng)管理員可以增加和刪除一般用戶，可對系統(tǒng)數(shù)據(jù)進(jìn)行錄入和修改，還可以對重要數(shù)據(jù)進(jìn)行備份等功能，管理系統(tǒng)的一切。這樣便可以規(guī)范了收費(fèi)程序，應(yīng)用本系統(tǒng)后，收取的電費(fèi)，與手抄式的人工管理相比，呈現(xiàn)大幅度增長，可堵塞不少漏洞。5． 收費(fèi)程序更加規(guī)范按學(xué)校的要求，對沒有如期交納超過電費(fèi)的宿舍，要在電腦里反映出來，并發(fā)通知要求按時補(bǔ)交超用電費(fèi)，若逾期上交的則得交滯納金或做停電處理。4． 信息收集、處理、存儲、打印方便抄電表需要信息輸入時，只需要設(shè)置一次系統(tǒng)參數(shù)，設(shè)置完后電腦會自動進(jìn)行存儲，這樣添加下一條信息時便可直接讀入一些重復(fù)的基本信息；接著只需輸入電表號碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。對未超定額的宿舍，在“用電量”一欄中如實反映該宿舍的實際用電量，而在“應(yīng)交電費(fèi)”欄以“0”賦值即可。3． 能及時、準(zhǔn)確地反映學(xué)生宿舍用電
法律信息相關(guān)推薦
鄂ICP備17016276號-1