【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 確插入了系統(tǒng)。 綜合測(cè)試：在以上測(cè)試的基礎(chǔ)上對(duì)系統(tǒng)功能進(jìn)行整體測(cè)試，依次來(lái)檢驗(yàn)系統(tǒng)是否符合系統(tǒng)設(shè)計(jì)的要求。 第六章 宿舍管理系統(tǒng)評(píng)價(jià)及展望 6． 1 系統(tǒng)開(kāi)發(fā)總結(jié) 歷時(shí)三個(gè)月的畢業(yè)設(shè)計(jì)現(xiàn)在已經(jīng)接近尾聲了，回想起這段日子 ,感覺(jué)收獲頗多。我這次畢業(yè)設(shè)計(jì)的任務(wù)是建立一個(gè)學(xué)生宿舍管理系統(tǒng)，它用到的開(kāi)發(fā)工具是Visual Basic 語(yǔ)言， SQL Server 數(shù)據(jù)庫(kù)。 在設(shè)計(jì)的開(kāi)始階段為了盡 快熟悉 VB 語(yǔ)言，我詳細(xì)翻閱有關(guān)該方面的資料，對(duì)書(shū)中的基本理論知識(shí)逐章節(jié)地分析，同時(shí)還上機(jī)操作來(lái)加深理解。特別是對(duì)書(shū)中的一些典型實(shí)例，認(rèn)真學(xué)習(xí)它的編程思想，吸引它的編程技巧，弄懂程序中每句話的含義。在對(duì)所要應(yīng)用的技術(shù)有了一個(gè)基本認(rèn)識(shí)后，就開(kāi)始構(gòu)思自己的系統(tǒng)設(shè)計(jì)。認(rèn)真聽(tīng)老師對(duì)設(shè)計(jì)要求的講解，根據(jù)任務(wù)書(shū)的要求將整個(gè)系統(tǒng)分為幾個(gè)模塊，每個(gè)模塊具體又要實(shí)現(xiàn)哪些功能，然后就逐個(gè)模塊去一一詳細(xì)設(shè)計(jì)，設(shè)計(jì)的過(guò)程中不時(shí)地翻閱資料，用一些巧妙的技術(shù)來(lái)優(yōu)化程序。程序代碼完成之后，要進(jìn)行運(yùn)行調(diào)試，剛開(kāi)始由于沒(méi)有調(diào)試經(jīng)驗(yàn)和方法效率很 低，最后在老師和同學(xué)的幫助下，終于順利完成了，自己也從中學(xué)到了不少東西。 總之，通過(guò)幾個(gè)月的畢業(yè)設(shè)計(jì)，讓我感受了軟件開(kāi)發(fā)的整個(gè)過(guò)程。畢業(yè)設(shè)計(jì)不僅是對(duì)我在大學(xué)所學(xué)知識(shí)的一個(gè)綜合運(yùn)用，也是一次增長(zhǎng)知識(shí)和經(jīng)驗(yàn)的好機(jī)會(huì)，同時(shí)也使我學(xué)會(huì)了許多處理、解決問(wèn)題的方法，大大提高了自己的動(dòng)手能力，為即將走上工作崗位打下了良好的基礎(chǔ)。 6． 2 系統(tǒng)開(kāi)發(fā)中遇到的問(wèn)題及解決措施 一個(gè)系統(tǒng)的功能的實(shí)現(xiàn)，需要經(jīng)過(guò)這么幾步，首先把大致的骨架給設(shè)計(jì)好，然后根據(jù)系統(tǒng)要求寫(xiě)代碼，接著是調(diào)試程序，最后完善總結(jié)。其中最重要的兩步就是中間的 兩步。在此次畢業(yè)設(shè)計(jì)中，給我印象最深的就是系統(tǒng)的調(diào)試。在調(diào)試過(guò)程中，遇到了不少的問(wèn)題，不過(guò)經(jīng)過(guò)我的不斷的查閱資料，老師的指導(dǎo)，同學(xué)的商討，這些問(wèn)題都逐漸得到了解決。 6． 3 系統(tǒng)展望 （ 1）本系統(tǒng)將對(duì)學(xué)校工作的影響 高校宿舍管理系統(tǒng) 第 38頁(yè) 本系統(tǒng)校方計(jì)劃將在下一學(xué)期開(kāi)始運(yùn)行，該系統(tǒng)的投入運(yùn)行將使宿管部門工作人員的工作負(fù)擔(dān)大減輕，工作效率得到提高，方便校內(nèi)各部門實(shí)現(xiàn)信息共享，同時(shí)對(duì)于推動(dòng)我校管理體制的改革，也將起到積極的作用。 （ 2）下一步的工作 宿舍內(nèi)部物資的管理相對(duì)而言也是十分重要的，也需要進(jìn)行系統(tǒng)、規(guī)范的管理。設(shè)計(jì)初學(xué)校急 于強(qiáng)調(diào)學(xué)生住宿管理工作，所以對(duì)于物資管理仍保持以往管理方式，我和校方都已認(rèn)識(shí)到這一方面還需改進(jìn)。如何將物資管理同樣實(shí)施規(guī)范化管理是我們下一步需要解決的問(wèn)題。 目前河套大學(xué)宿舍管理系統(tǒng)的 B/S和 C/S系統(tǒng)使用的后臺(tái)數(shù)據(jù)庫(kù)是同一臺(tái)服務(wù)器上的 SQL Server 數(shù)據(jù)庫(kù)，這種模式給我們的系統(tǒng)造成巨大的風(fēng)險(xiǎn)，為了避免一個(gè)服務(wù)器接入 inter 后可能遭到的 各種 各樣的黑客的襲擊，經(jīng)過(guò)認(rèn)真研究并咨詢有關(guān)計(jì)算機(jī)專家，下一步我們決定對(duì)系統(tǒng)進(jìn)行如下改進(jìn)：提供 Web 服務(wù)的服務(wù)器與提供宿舍管理 C/S 模式的主服務(wù)分離，二者以適當(dāng) 的防火墻隔離。由于Web 用戶僅僅實(shí)施查詢操作，而且查詢信息對(duì)數(shù)據(jù)的實(shí)時(shí)性要求不太高，因此可采用主服器對(duì) Web 服務(wù)器的數(shù)據(jù)庫(kù)定時(shí)刷新的手段來(lái)解決 Web 服務(wù)器上的數(shù)據(jù)更新問(wèn)題。同時(shí)為了保證系統(tǒng)自身的安全，我們將采用一臺(tái)普通的微機(jī)作為備份機(jī)，每天定時(shí)備份主服器的數(shù)據(jù)庫(kù)，這里推薦使用海量備份方式，可利用 windows的計(jì)劃任務(wù)功能協(xié)助實(shí)現(xiàn)。 改進(jìn)后的宿舍管理系統(tǒng)的結(jié)構(gòu)圖如下所示： 圖 61 采用 C/S 和 B/S 混合結(jié)構(gòu)的宿管系統(tǒng)結(jié)構(gòu)圖 高校宿舍管理系統(tǒng) 第 39頁(yè) 致 謝 轉(zhuǎn)眼間，三個(gè)多月的畢業(yè)設(shè)計(jì)就要結(jié)束了，在參加設(shè)計(jì)的這段時(shí)間里，能 夠完成這次畢業(yè)設(shè)計(jì)，除了我自己的努力外，老師和同學(xué)們也給予了我非常大的幫助。 首先要感謝我的指導(dǎo)老師馬秀麟老師，在初次見(jiàn)面時(shí)，馬老師就耐心的為我分析該系統(tǒng)，告訴我目前宿舍管理上的種種弊端，讓我在就具體設(shè)計(jì)該系統(tǒng)時(shí)盡可能的考慮全面，使我對(duì)整個(gè)設(shè)計(jì)有了一個(gè)初步的認(rèn)識(shí)。對(duì)我進(jìn)行全面、具體的指導(dǎo)，并給了我許多寶貴的意見(jiàn)。 在設(shè)計(jì)剛開(kāi)始時(shí)，對(duì)許多東西都是陌生的，發(fā) VB 語(yǔ)言之前都沒(méi)有接觸過(guò)，都是我的指導(dǎo)老師給予了我耐心的指導(dǎo)，使我對(duì)陌生的開(kāi)發(fā)環(huán)境產(chǎn)生了濃厚的學(xué)習(xí)興趣。 畢業(yè)設(shè)計(jì)能夠順利完成，我非常感謝馬老師不辭辛苦的對(duì) 我的幫助，同時(shí)也感謝我的同學(xué)，在該系統(tǒng)的完成過(guò)程也給我提供了不少的意見(jiàn)和幫助。 總之，在老師盡心盡力的幫助下，我的畢業(yè)設(shè)計(jì)才能如期順利完成，并且，我的導(dǎo)師就我的論文的編排和書(shū)寫(xiě)格式也為我提出了不少的修改意見(jiàn)。在此，我衷心的感激他，真誠(chéng)的向他說(shuō)一聲“謝謝” ! 高校宿舍管理系統(tǒng) 第 40頁(yè) 附錄一：主要參考文獻(xiàn) 《 Visual Basic 程序設(shè)計(jì)》作者 潭浩強(qiáng) 袁玫 清華大學(xué)出版 《管理信息系統(tǒng)》 主編 黃梯云 經(jīng)濟(jì)科學(xué)出版社 《信息資源管理》 主編 甘仞初 經(jīng)濟(jì)科學(xué)出版社 《信息系統(tǒng)開(kāi)發(fā)》 主編 甘仞初 經(jīng)濟(jì)科學(xué) 出版社 《 SQL Server 中文版基礎(chǔ)培訓(xùn)教程》主編 劉遵仁 于忠清 人民郵電出版社 高校宿舍管理系統(tǒng) 第 41頁(yè) 附錄二：主要源程序代碼 用戶登陸源代碼： ――――――――― Private Sub CmdExt_Click() End End Sub Private Sub CmdOK_Click() Dim rs As New Dim strSQL As String strSQL = SELECT * FROM UserTable WHERE UserName=39。 amp。 Replace(, 39。, 39。39。) amp。 39。 AND UserPwd=39。 amp。 Replace(, 39。, 39。39。) amp。 39。 If = 1 Then End If strSQL, , adOpenStatic, adLockOptimistic If = False Then 39。 LoginName = Trim() LimStuMess = Trim(rs![StuMess]) LimHosMess = Trim(rs![HosMess]) LimGradeMess = Trim(rs![GradeMess]) LimAllMess = Trim(rs![AllMess]) 39。 Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！ , vbInformation, SystemName = 0 = Len() End If End Sub 高校宿舍管理系統(tǒng) 第 42頁(yè) Private Sub Form_Load() = StrSystem 39。系統(tǒng)名稱 = StrSystem amp。 登陸 If LinkStartDatabase = False Then MsgBox 數(shù)據(jù)庫(kù)連接失敗，請(qǐng)重新配置系統(tǒng) UserMode中 LinkStartDatabase 的部分代碼！, vbInformation, StrSystem End End If End Sub Private Sub UserID_Change() 39。******************************************************************** 39。如果用戶輸入的 ID 正確，把相應(yīng)的用戶名顯示出來(lái) 39。******************************************************************** Dim rs As New Dim strSQL As String If Trim() Then strSQL = SELECT * FROM UserTable WHERE UserID=39。 amp。 Replace(, 39。, 39。39。) amp。 39。 If = 1 Then End If strSQL, , adOpenStatic, adLockOptimistic If = False Then = Trim(rs![UserName]) = True Else = = False End If End If Set rs = Nothing End Sub ―――――――――――――――――――――――――― 高校宿舍管理系統(tǒng) 第 43頁(yè) 學(xué)生基本信息錄入源代碼： ―――――――――― Public ISAddEdit As String Private Sub CmdAdd_Click() ISAddEdit = ADD = True = True = True = True = True = True = True = True = True 39。******************************************** = = = = = = = False = True = True = False End Sub Private Sub CmdDel_Click() Dim IsDel As String Dim rs As New Dim strSQL As String IsDel = MsgBox(是否確認(rèn)刪除該學(xué)生的信息？ , vbInformation + vbYesNo, strsytem) 39。 If IsDel = vbYes Then If = 0 Then 高校宿舍管理系統(tǒng) 第 44頁(yè) Exit Sub End If strSQL = DELETE FROM StuMess WHERE StuNumber=39。 amp。 amp。 39。 If = 1 Then End If strSQL, , adOpenStatic, adLockOptimistic End If Call ShowStuMessList() End Sub Private Sub CmdExt_Click() Unload Me End Sub Private Sub CmdFind_Click() Dim strWhere As String strWhere = InputBox(請(qǐng)輸入您要查詢學(xué)生學(xué)號(hào) 或姓名關(guān)鍵字： , 請(qǐng)輸入條件 , 請(qǐng)輸入您要查詢學(xué)生學(xué)號(hào)或姓名關(guān)鍵字 ) strWhere = AND StuName LIKE 39。% amp。 CheckString(strWhere) amp。 %39。 OR StuNumber LIKE 39。% amp。 CheckString(strWhere) amp。 %39。 Call ShowStuMessList(strWhere) 39。調(diào)用自定義過(guò)程，傳遞用戶輸入的條件！ End Sub Private Sub CmdSave_Click() Dim rs As New Dim strSQL As String If ISAddEdit = ADD Then If Trim() Then strSQL = SELECT * FROM StuMess WHERE StuNumber=39。 amp。 CheckString() amp。 39。 If = 1 Then End If strSQL, , adOpenStatic, adLockOptimistic If = False Then MsgBox 學(xué)生信息中學(xué)生不能重復(fù)！ , vbInformation, StrSystem = 高校宿舍管理系統(tǒng) 第 45頁(yè) Exit Sub End If End If If Trim() = Or Trim() = Then MsgBox 學(xué)生的學(xué)號(hào)或姓名均不能