宿舍管理系統(tǒng)——課程設(shè)計(jì)-資料下載頁(yè)
【導(dǎo)讀】題的能力，以及嚴(yán)肅認(rèn)真的科學(xué)態(tài)度和嚴(yán)謹(jǐn)求實(shí)的工作作風(fēng)。采用SQLServer2021建立數(shù)據(jù)庫(kù)，采用界面方式或命令方式創(chuàng)建數(shù)據(jù)庫(kù)和表。選用一種開發(fā)環(huán)境設(shè)計(jì)界面，實(shí)現(xiàn)信息的插入、修改、刪除、查詢的基本功能。在開發(fā)環(huán)境下，通過(guò)某種方法建立與SQLServer2021數(shù)據(jù)庫(kù)的連接。體的數(shù)據(jù)項(xiàng)和聯(lián)系實(shí)體的活動(dòng)以及活動(dòng)要使用的數(shù)據(jù)項(xiàng)，通過(guò)E—R圖來(lái)表示。由E—R圖建立適。第五天到第七天：設(shè)計(jì)功能模塊，確定每個(gè)模塊的功能，以及各個(gè)模塊之間的關(guān)系。第十一天到第十二天：綜合調(diào)試，去除軟件中的bug，美化應(yīng)用程序的界面。增加簡(jiǎn)單的數(shù)據(jù)校驗(yàn)、在線錯(cuò)誤處理和在線幫助的功能。第十三天和第十五天：撰寫課程設(shè)計(jì)報(bào)告。宿舍管理系統(tǒng)是目前各所高校后勤。因此，宿舍管理部分工作的信息化和科學(xué)化管理有著十分重。詢等必需的功能。臺(tái)的基于C/S的兩層模式的管理系統(tǒng)。計(jì)完成一個(gè)操作簡(jiǎn)單，運(yùn)行比較穩(wěn)定，適用于大學(xué)院校的宿舍管理系統(tǒng)。重點(diǎn)是學(xué)生信息管理和日常工作管理部分。
【正文】 = select * from 設(shè) 備租 賃 where 學(xué)號(hào) =39。 amp。 amp。 39。 Set = Adodc1 End Sub 12 Private Sub Command2_Click() Unload Me End Sub 添加學(xué)生信 息界面 圖 學(xué)生宿舍添加界面 圖 學(xué)生宿舍刪除界面 其主要代碼如下： 13 Private Sub Command1_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=xueshengsushe。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號(hào) =39。 + + 39。 If = Or = Or = Or = Then MsgBox 輸入不完整。 , , 提示信息 ElseIf = 0 Then = select * from 學(xué)生宿舍表 where 學(xué)號(hào) = + + (學(xué)號(hào) ) = (姓名 ) = (專業(yè) ) = (聯(lián)系方式 ) = MsgBox 添加成功 !, vbOKOnly, 提示信息 End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=學(xué)生宿舍 。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號(hào) =39。 + 14 + 39。 = = = = MsgBox 刪除成功 , , 提示信息 End Sub 修改信息界面 圖 修改界面 其代碼如下： Private Sub Command1_Click() Dim a As String Dim b As String Dim c As String a = 15 b = c = = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=學(xué)生宿舍 。Data Source=XS07 = select * from 員工表 where 員工號(hào) =39。 amp。 a amp。 39。or 員工姓名 =39。 amp。 b amp。 39。 or 職位 =39。 amp。 c amp。 39。 Set = Adodc1 Exit Sub End Sub Private Sub Command2_Click() On Error GoTo errorhandler 39。允許錯(cuò)誤發(fā)生 = select * from 員工表 If = 0 Then MsgBox 無(wú)修改目標(biāo) , vbOKOnly, 提示信息 Exit Sub End If = select * from 員工 表 where 員工 號(hào) = amp。 amp。 If = Or = Or = Then MsgBox 信息輸入不完整！ , vbOKOnly, 提示信息 Exit Sub End If (員工號(hào) ) = (員工姓名 ) = (職位 ) = MsgBox 修改成功！ , vbOKOnly, 提示信息 16 Exit Sub errorhandler: 39。允許錯(cuò)誤發(fā)生的錯(cuò)誤處理 If = 3021 Then MsgBox 員工號(hào)不存在，不能更新。 , vbOKOnly, 提示信息 39。resume next Exit Sub End If If = 2147217900 Then MsgBox 員工姓名存在相關(guān)記錄，不允許更新或刪除。 , vbOKOnly, 提示信息 Resume Next Exit Sub End If If = 2147217904 Then MsgBox 職位輸入錯(cuò)誤，請(qǐng)輸入長(zhǎng)整型 , vbOKOnly, 提示信息 39。resume next Exit Sub End If End Sub Private Sub Command3_Click() Unload Me End Sub 17 參 考 文 獻(xiàn) [1]鄭阿奇 . SQL SERVER 實(shí)用教程 [M].北京 :電子工業(yè)出版社 .2021. [2]陳偉 . SQL SERVER 2021 數(shù)據(jù)庫(kù)應(yīng)用與開發(fā)教程 [M].北京 ： 清華大學(xué)出版社 .2021. [3]劉衛(wèi)國(guó)．?dāng)?shù)據(jù)庫(kù)技術(shù)與應(yīng)用實(shí)踐教程 [M].北京 :機(jī)械工業(yè)出版社 .2021. [4]周峰 . SQL SERVER 2021 經(jīng)典案例設(shè)計(jì)與實(shí)現(xiàn) [M].北京 :電子工業(yè)出版社 .2021. [5]黃明 .Visual Basic+SQL SERVER中小型信息系統(tǒng) [M].北京 :機(jī)械工業(yè)出版社 .2021
鄂ICP備17016276號(hào)-1