【正文】 《軟件設計基礎（VB）》課程設計報告 第 75 頁，共 75 頁59學生公寓管理系統(tǒng)畢業(yè)論文目 錄 1．課程設計目的《軟件設計基礎（VB）》課程設計是這門課程的實踐性教學環(huán)節(jié)之一，本次設計結合實際應用的要求，使課程設計既覆蓋VB的知識點，又接近工程實際需要。目的是通過課程設計的綜合訓練，培養(yǎng)學生實際分析問題、解決問題的能力，以及編程和動手能力，最終目標是通過課程設計這種形式，幫助學生系統(tǒng)掌握VB這門課程的主要內(nèi)容，養(yǎng)成良好的編程習慣，更好的完成教學任務。，主要培養(yǎng)學生使用ACCESS數(shù)據(jù)庫和ADO控件設計信息管理類軟件。2．課程設計任務與要求：要求：本次課程設計利用《軟件設計基礎（VB）》課程中所學到的編程知識和編程技巧，完成具有一定難度和工作量的程序設計題目，幫助學生掌握編程、調(diào)試的基本技能，獨立完成所布置的任務。要求：對系統(tǒng)進行功能需求分析設計合理的數(shù)據(jù)結構和系統(tǒng)框架界面設計美觀、清楚、合理編程簡練，程序功能齊全，能正確運行具有一定的創(chuàng)新性說明書、流程圖要清楚課題完成后必須按要求提交課程設計報告任務：① 要求用ACCESS搭建數(shù)據(jù)庫。② 使用ADO控件實現(xiàn)與數(shù)據(jù)庫的連接③ 程序界面美觀，運行無差錯 設計一個“學生公寓物業(yè)管理系統(tǒng)”程序，實現(xiàn)對學生公寓日常事務的電腦化管理，主要包括系統(tǒng)設置、學生管理、事務管理、資產(chǎn)管理、情況查詢等內(nèi)容。 3．課程設計說明書⑴功能描述主界面設計菜單，具體如下：（1）主菜單包含“系統(tǒng)設置”、“ 學生管理”、“事務管理”、“資產(chǎn)管理”、“情況查詢”和“幫助”六項內(nèi)容，每個主菜單項包括若干子菜單功能。（2）“系統(tǒng)設置”：包括用戶設置、公寓設置。用戶設置用來添加用戶名和密碼，允許添加兩種權限的用戶，一個是管理員，一個是普通用戶；管理員具有所有操作權限，普通用戶只能使用和查看信息，不能進行系統(tǒng)設置和刪除操作。公寓設置包括公寓樓號設置、每座公寓寢室編號設置和班級代碼設置。（3）“學生管理”：進行所有入住學生的管理，包括入住和退宿。能夠對入住學生的信息進行添加、修改和刪除操作。（4）“事務管理”：對學生的日常事務進行管理，包括請假管理、違紀處理、衛(wèi)生檢查。能夠對這些事務進行登記、修改、刪除操作（5）“資產(chǎn)管理”：對寢室物品的管理，包括購買新物品、物品分配和物品維修情況。（6）“情況查詢”：用來進行床位查詢、學生查詢、事務查詢。⑵概要設計模塊結構圖： 根據(jù)功能分析，建立系統(tǒng)的體系結構，即將整個系統(tǒng)分解成若干子模塊，用框圖表示各功能模塊之間的接口關系（如下圖）。學生公寓物業(yè)管理系統(tǒng)幫助情況查詢資產(chǎn)管理事務管理學生管理系統(tǒng)設置關于用戶設置公寓設置事務查詢學生查詢床位查詢物品維修物品分配購買新物品衛(wèi)生檢查違紀處理請假管理退宿入住 登錄添加用戶⑶詳細設計 總體流程圖：系統(tǒng)設置幫助事務管理公寓設置登錄用戶設置學生管理資產(chǎn)管理情況查詢各功能模塊流程圖：系統(tǒng)設置學生管理用戶設置登錄公寓設置上一條上一條退出編輯刪除添加下一條退宿入住下一條添加取消退宿更新事務管理資產(chǎn)管理衛(wèi)生檢查違紀處理請假管理物品維修物品分配購買新物品上一條下一條添加刪除編輯退出上一條下一條添加刪除編輯退出事務查詢學生查詢床位查詢情況查詢幫助關于添加退出查詢⑷代碼實現(xiàn)詳細說明各功能模塊的實現(xiàn)過程，所用到的算法、技巧等（附上代碼）。如：本系統(tǒng)總共15個窗體：form1form15詳細如下：form首頁作用：“進入應用程序”。所用控件：1個菜單編輯器。設計思路：主要完成：系統(tǒng)設置，學生管理，事務管理，資產(chǎn)管理，情況查詢，幫助。詳細內(nèi)容：屬性較特殊的需要說明。代碼如下：Private Sub cwcx_Click()End SubPrivate Sub dl_Click()End SubPrivate Sub Form_Load()MsgBox 請在系統(tǒng)設置中的用戶設置中登錄, 48, 提示 = False = False = False = False = False = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub gmxwp_Click()End SubPrivate Sub gy_Click()End SubPrivate Sub gysz_Click()End SubPrivate Sub Picture1_Click()End SubPrivate Sub qjgl_Click()End SubPrivate Sub rz_Click()End SubPrivate Sub swcx_Click()End SubPrivate Sub tjyh_Click()End SubPrivate Sub ts_Click()End SubPrivate Sub wjcl_Click()End SubPrivate Sub wpfp_Click()End SubPrivate Sub wpwx_Click()End SubPrivate Sub wsjc_Click()End SubPrivate Sub xscx_Click()End SubForm用戶設置作用：用于登錄 所用控件：3個標簽，2個文本框，1個bo控件，1個Ado控件，2個命令按鈕設計思路：bo控件用于選擇類型，2個命令按鈕用于登錄和取消 代碼如下：Private Sub Combo1_Change()End SubPrivate Sub Command1_Click()Static Num As IntegerOn Error Resume NextIf = ThenMsgBox 請輸入用戶名!, 48, 提示ElseIf = ThenMsgBox 請輸入密碼!, 48, 提示ElseIf Combo1 = ThenMsgBox 請選擇用戶類型!, 48, 提示Exit SubEnd IfFor i = 1 To If (用戶名) = And = Trim((密碼)) And (用戶類型) = Combo1 Then = True = True = True = True = True = True = True = True = True = True = True = True = True = TrueUnload MeElseIf ThenNum = Num + 1 = = Combo1 = MsgBox 登陸不成功,請重新登陸!, 48, 提示End IfIf Num = 3 Then Num = 0 EndEnd IfEnd IfNextEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() 管理員 普通用戶Dim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = 用戶信息.Refresh.End WithEnd SubForm公寓設置作用：用于添加、刪除、編輯公寓及其內(nèi)容 所用控件：1個框架，7個標簽，7個文本框，1個Ado控件，6個命令按鈕設計思路：6個命令按鈕分別用于查詢、添加、刪除、編輯、退出 代碼如下：Private Sub Command1_Click() 39。移動記錄 = TrueIf Then = FalseEnd IfEnd SubPrivate Sub Command2_Click() 39。移動記錄 = TrueIf Then = FalseEnd IfEnd SubPrivate Sub Command3_Click()On Error Resume NextIf = 添加 Then = False = False = False = 確定 = 取消 = True = True = True = True = True = True = TrueElseIf = ThenMsgBox 公寓名稱不能為空！ElseIf = ThenMsgBox 公寓樓號不能為空！ElseIf = ThenMsgBox 寢室編號不能為空！ElseIf = ThenMsgBox 班級名稱不能為空！ElseIf = ThenMsgBox 班級代碼不能為空！ElseIf = ThenMsgBox 樓管人員不能為空！ElseIf = ThenMsgBox 寢室床位不能為空！Else = True = True = True = True = 編輯 = 添加 = False = False = False = False = False = False = FalseEnd IfEnd SubPrivate Sub Command4_Click()On Error Resume NextIf = 1 Then = FalseEnd IfIf (MsgBox(你真的想刪除當前記錄嗎？, vbOKCancel, 系統(tǒng)提示)) = vbOK ThenEnd IfEnd SubPrivate Sub Command5_Click()On Error Resume NextIf = 編輯 Then = False = True = True = True = True = True = True = True = 確定ElseIf = 取消 Then = 編輯 = 添加 = True = True = True = False = False = False = False = False = False = FalseEnd IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()If = 普通用戶 Then = False = False = FalseElseIf = 管理員 Then = True = True = TrueEnd IfDim provider As StringDim datasource As Stringprovider = provider=datasource = data source= amp。 amp。 \With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 。 amp。 datasource.CommandType = adCmdTable.RecordSource = 公寓信息.RefreshEnd WithEnd SubForm入住和退宿學生信息作用：用于入住和退宿學生信息的編輯 所用控件：9個標簽，9個文本框， 1個Ado控件，6個命令按鈕設計思路：6個命令按鈕分別用于查詢、添加、退宿、編輯、退出 代碼如下：Private Sub Command1_Click() = TrueIf Then = FalseEnd IfEnd SubPrivate Sub Command2_Click(