vb學生公寓管理系統(tǒng)-論文-資料下載頁
2024-12-16 14:15本頁面
【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }
【正文】 source .CommandType = adCmdTable .RecordSource = qingjia .Refresh End With = Date = False 確定無誤后，進行添加，代碼如下： If = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 請輸入詳細信息！ , , 系統(tǒng)提示 衛(wèi)生檢查 公寓衛(wèi)生添加效果圖 圖 公寓選擇欄中代碼的實 現(xiàn)： Dim I As Integer I = 1 If 0 Then Do While I ((公寓名稱 )) I = I + 1 Loop End If 衛(wèi)生選擇欄中的代碼實現(xiàn)基本同上，它也是一個表中的 字段值！ Dim J As Integer J = 1 If 0 Then Do While J ((等級 )) J = J + 1 Loop End If = 優(yōu)秀 不合標準的衛(wèi)生記錄填寫情況如下： (門窗不干凈 ) (地面不干凈 ) (陽臺不干凈 ) (床鋪不整齊 ) (不疊被 ) (桌面不整齊 ) (書柜擺放不整齊 ) 公寓資產 公寓資產可以及時對公寓里進出財務進行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對比來說比 上面的簡單一些。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現(xiàn)。 學生公寓管理系統(tǒng) 圖 4. 6. 2 界面制作與實現(xiàn)方法 代碼如下： If = “” Or = “” Or = “” Then MsgBox “請輸入詳細信息！” , , “提示” Else With Adodc1 . .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = .(6).Value = .(7).Value = . End With Set = Adodc1 = “” = “” = “” = “” = “” = “” End If 記錄查看 衛(wèi)生查看 ①界面效果 圖 圖 ②界面制作與實現(xiàn)方法 這是一個比較簡單的窗體操作?？雌饋砭啞⑿∏?。它主要的功能是對已經(jīng)錄入的衛(wèi)生記錄進行符合條件的查詢。在進行查詢前，要對所操作的表進行綁定，代碼如下： Dim s As String provider = provider= datasource = data source= amp。 amp。 \ With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdTable .RecordSource = weigui .Refresh End With 日期后面的下拉列表框中可以顯示出所有已經(jīng)錄入記錄的日期，它是通過對當前表進行分類查詢后得到的結果，然后將其添加在 bo中，實現(xiàn)代碼如下： s = select distinct 日期 from weisheng With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdText .RecordSource = s .Refresh End With For I = 1 To ((日期 )) Next 查看全 部，即把當前表中的記錄全部賦給當前用來顯示的表格，按日期查看，則是在表中先進行查詢，然后對結果進行重綁定，在賦值。它們的判斷主要是通過單選框的選取來完成的，實現(xiàn)方法如下： s = If = True Then Set = Adodc1 ElseIf = True Then sql = select * from weisheng where 日期 =39。 amp。 Trim(s) amp。 39。 With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider amp。 。 amp。 datasource .CommandType = adCmdText .RecordSource = sql .Refresh End With Set = Adodc3 End If Unload Me 系統(tǒng)測試 編寫出的各功能模塊需要進行測試，對于模塊化應用程序，軟件開發(fā)的最后一部分便是不斷的測試程序最終編譯成可執(zhí)行的 .exe文件，該階段主要對系統(tǒng)的正確性及完整性等方面進行測試。主要進行：功能確認測試、運行測試、健壯性測試、安全性測試以及查錯方面的測試等，系統(tǒng)測試的測試人員由測試組成員（或質量保證人員）或測試組成員與用戶共同測試，在整個系統(tǒng)開發(fā)完成，即將交付用戶使用前進行。在這一階段，對整個系統(tǒng)進行測試，系統(tǒng)測試結束后我們應該打軟件打包，使其脫離 VB 的環(huán)境下也能正常運行。打包應將所有程序需要的文件加載進去 ，如數(shù)據(jù)庫（ ），每日一記和幫助的文件都要進行加載。 在調試程序過程中，由于某些內在的錯誤影響程序的運行，在采用上述調試方法對程序進行調試后，程序運行情況良好，達到了預期的設計目標，基本上滿足了用戶的需要。 總結 到目前為止，學生公寓管理軟件基本開發(fā)完畢，軟件界面美觀，運行時間短，執(zhí)行功能強，其功能基本符合用戶需求。能夠完成對學生公寓中學生基本資料的存儲和查詢，并提供數(shù)據(jù)轉換、數(shù)據(jù)備份等系統(tǒng)維護功能，可以使用查找、修改、添加和刪除對學生公寓管理軟件的操作等。 由于本人知識有限，又是剛初學軟件，時 間比較倉促，又缺乏經(jīng)驗，必定有不足和不周之處，希望各位老師給予指導，本人將繼續(xù)完善修改，使此系統(tǒng)能更好地發(fā)揮性能。 參考文獻 [1] 孫淑揚、邱曉威主編《檔案計算機管理教程》中國人民大學出版社， 1999年 [2] 丁海斌《電子文件與電子檔案管理》遼寧大學出版社， 2021年版 [3] 劉家真編著《電子文件管理導論》武漢大學出版社， 1999 年版。 [4] 崔海源、徐衛(wèi)軍《 Visual 》，機械工業(yè)出版社 2021 [5] 韓萬江、姜立新《軟件項目管理案例教程》，機械工業(yè)出版社 2021 [6] 甘仞初《信息系統(tǒng)分析與設計》，高等教育出版社 2021 [7] 黃梯云、李一軍《管理信息系統(tǒng)》 高等教育出版社 三版 [8] 陳曉江《信息系統(tǒng)教程》 清華大學出版社 2021
環(huán)評公示相關推薦
鄂ICP備17016276號-1