宿舍管理系統(tǒng)——課程設(shè)計(jì)-閱讀頁(yè)
2025-03-18 16:15本頁(yè)面
【正文】 已住人數(shù) 7 學(xué)生住宿表：（ 學(xué)號(hào) ，姓名，性別，專業(yè)，聯(lián)系方式） 宿舍表：（ 樓號(hào)，宿舍號(hào) ，電話號(hào)碼，可住人數(shù)，已住人數(shù)） 員工表：（ 員工號(hào) ，員工姓名，性別，職位，聯(lián)系方式， 樓號(hào) ） 設(shè)備租賃表：（ 設(shè)備號(hào) ，設(shè)備名，租賃日期，歸 還日期， 學(xué)號(hào) ） 邏輯結(jié)構(gòu)定義 由以上分析，得出上述 4個(gè)表格結(jié)構(gòu)如下： 表 31 學(xué)生信息表 屬性名 類型 長(zhǎng)度 備注 學(xué)號(hào) char 8 住宿學(xué)生學(xué)號(hào) 姓名 Varchar 10 住宿學(xué)生姓名 性別 char 2 男 /女 專業(yè) Varchar 20 學(xué)生專業(yè) 聯(lián)系方式 char 11 聯(lián)系方式 表 32 員工表 屬性名 類型 長(zhǎng)度 備注 員工號(hào) char 4 員工姓名 Varchar 10 年齡 smallint 2 性別 char 2 職位 Varchar 20 聯(lián)系方式 char 11 表 33 宿舍表 屬性名 類型 長(zhǎng)度 備注 樓號(hào) char 2 宿舍號(hào) char 3 宿舍電話 char 12 可住人數(shù) smallint 2 已住人數(shù) smallint 2 8 表 34 設(shè)備租賃表 屬性名 類型 長(zhǎng)度 備注 設(shè)備號(hào) char 8 設(shè)備名 Varchar 20 租賃日期 Datetime 8 所租的日期 歸還日期 Datetime 8 歸還設(shè)備日期 學(xué)號(hào) Char 8 住宿學(xué)生學(xué)號(hào) 數(shù)據(jù)庫(kù)的建立 圖 學(xué)生住宿表 圖 員工表 圖 設(shè)備租賃表 物理結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)的物理設(shè)計(jì)就是為邏輯數(shù)據(jù)模型選取一個(gè)最合適應(yīng)用要求的物理結(jié)構(gòu)的過(guò)程，在這個(gè)階段中要完成兩大任務(wù)： 確定數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)，在關(guān)系數(shù)據(jù)庫(kù)中主要是存取方法和存儲(chǔ)結(jié)構(gòu)； 對(duì)物理結(jié)構(gòu)進(jìn)行評(píng)價(jià)，評(píng)價(jià)的重點(diǎn)是時(shí)間和空間效率。另一方面，對(duì)當(dāng)前使用的某一功能選項(xiàng)對(duì)應(yīng)的窗口，以模式的方式進(jìn) 行工作，使得在同一窗口，僅能打開(kāi)某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。Integrated Security=SSPI。Initial Catalog=xueshengsushe。 amp。 39。 amp。 39。Integrated Security=SSPI。Initial Catalog=xueshengsushe。 amp。 39。Integrated Security=SSPI。Initial Catalog=xueshengsushe。 + + 39。 , , 提示信息 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=。Persist Security Info=False。Data Source=XS07 = select * from 學(xué)生住宿表 where 學(xué)號(hào) =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=。Persist Security Info=False。Data Source=XS07 = select * from 員工表 where 員工號(hào) =39。 a amp。or 員工姓名 =39。 b amp。 or 職位 =39。 c amp。 Set = Adodc1 Exit Sub End Sub Private Sub Command2_Click() On Error GoTo errorhandler 39。 amp。允許錯(cuò)誤發(fā)生的錯(cuò)誤處理 If = 3021 Then MsgBox 員工號(hào)不存在，不能更新。resume next Exit Sub End If If = 2147217900 Then MsgBox 員工姓名存在相關(guān)記錄，不允許更新或刪除。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)用與開(kāi)發(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
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1