學(xué)校電費(fèi)管理系統(tǒng)的設(shè)計(jì)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)(參考版)
2024-08-17 08:33本頁(yè)面
【正文】 的學(xué)生！) End If End If If = True Then If = Then MsgBox (對(duì)不起！你輸入的是空，請(qǐng)重新輸入！) Exit Sub End If = amp。請(qǐng)查看結(jié)果！If Then MsgBox (不好意思！系統(tǒng)中還不存在學(xué)號(hào)為 amp。 amp。 。 aMsgBox (你好，你是按學(xué)號(hào)查詢，輸入的號(hào)碼是： amp。 a = 學(xué)生學(xué)號(hào)= amp。 \ = select * from 學(xué)生信息表 where 學(xué)生學(xué)號(hào)= amp。 amp。 。請(qǐng)查看結(jié)果！) = 你好，你是按用電月份查詢，輸入的條件是： amp。 amp。 39。 amp。a = 用電月份= amp。 amp。 \ = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電月份= 39。 amp。 。請(qǐng)查看結(jié)果！) = 你好，你是按用電年份查詢，輸入的條件是： amp。 amp。 39。 amp。a = 用電年份= amp。 amp。 \ = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電年份= 39。 。請(qǐng)查看結(jié)果！) = 你好，你是按職務(wù)查詢，輸入的條件是： amp。 amp。 39。 amp。a = 職務(wù)= amp。 amp。 \ = select * from 管理員信息表 where 職務(wù)= 39。 。請(qǐng)查看結(jié)果！) = 你好，你是查詢寢室長(zhǎng)，輸入的條件是： amp。 amp。 39。 amp。a = 是否寢室長(zhǎng) = amp。 amp。 \ = select * from 學(xué)生信息表 where 是否寢室長(zhǎng)= 39。 。請(qǐng)查看結(jié)果！) = 你好，你是按年級(jí)查詢，輸入的條件是： amp。 amp。 39。 amp。a = 所在年級(jí) = amp。 amp。 \ = select * from 學(xué)生信息表 where 所在年級(jí)= 39。 amp。 。請(qǐng)查看結(jié)果！) = 你好，你是按用電月份查詢，輸入的條件是： amp。 amp。 39。 amp。a = 用電月份= amp。 amp。 \ = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電月份= 39。 amp。 。請(qǐng)查看結(jié)果！) = 你好，你是按用電年份查詢，輸入的條件是： amp。 amp。 39。 amp。a = 用電年份= amp。 amp。 \ = select * from 電費(fèi)管理數(shù)據(jù)表 where 用電年份= 39。 。請(qǐng)查看結(jié)果！) = 你好，你是按性別查詢，輸入的條件是： amp。 amp。 39。 amp。a = 學(xué)生性別 = amp。 amp。 \ = select * from 學(xué)生信息表 where 學(xué)生性別= 39。試圖對(duì)啟動(dòng)地址進(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 SubPrivate Sub cboAddress_Click() If mbDontNavigateNow Then Exit Sub = True End SubPrivate Sub cboAddress_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = vbKeyReturn Then cboAddress_Click End IfEnd SubPrivate Sub Form_Resize() = 100 = 100 = ( + ) 100End SubPrivate Sub timTimer_Timer() If = False Then = False = Else = 正在工作... End IfEnd SubPrivate 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 SelectEnd SubOption ExplicitPublic StartingAddress As StringDim mbDontNavigateNow As BooleanPrivate 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 SubSysInfoErr: MsgBox 此時(shí)系統(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。 試圖從注冊(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。H10Const KEY_CREATE_LINK = amp。H4Const KEY_ENUMERATE_SUB_KEYS = amp。H1Const 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)用案例》，高等教育出版社，2003年7月28日出版，ISBN 704012305。3. 伍俊良，《Visual Basic課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例》，清華大學(xué)出版社，2002年8月第一版，ISBN 7302056269。祝各位生活美滿，工作順利，事業(yè)有成！參 考 文 獻(xiàn)1. 胡同森、趙劍鋒等，《Visual Basic 》，浙江科學(xué)技術(shù)出版社，2002年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ī)管理，
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1