課程設(shè)計--宿舍管理系統(tǒng)-資料下載頁
2025-06-07 07:24本頁面
【正文】 = select * from 設(shè) 備租 賃 where 學(xué)號 =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é)號 =39。 + + 39。 If = Or = Or = Or = Then MsgBox 輸入不完整。 , , 提示信息 ElseIf = 0 Then = select * from 學(xué)生宿舍表 where 學(xué)號 = + + (學(xué)號 ) = (姓名 ) = (專業(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é)號 =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 員工號 =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。允許錯誤發(fā)生 = select * from 員工表 If = 0 Then MsgBox 無修改目標(biāo) , vbOKOnly, 提示信息 Exit Sub End If = select * from 員工 表 where 員工 號 = amp。 amp。 If = Or = Or = Then MsgBox 信息輸入不完整！ , vbOKOnly, 提示信息 Exit Sub End If (員工號 ) = (員工姓名 ) = (職位 ) = MsgBox 修改成功！ , vbOKOnly, 提示信息 16 Exit Sub errorhandler: 39。允許錯誤發(fā)生的錯誤處理 If = 3021 Then MsgBox 員工號不存在，不能更新。 , 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 職位輸入錯誤，請輸入長整型 , 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ù)庫應(yīng)用與開發(fā)教程 [M].北京 ： 清華大學(xué)出 版社 .2021. [3]劉衛(wèi)國．?dāng)?shù)據(jù)庫技術(shù)與應(yīng)用實(shí)踐教程 [M].北京 :機(jī)械工業(yè)出版社 .2021. [4]周峰 . SQL SERVER 2021 經(jīng)典案例設(shè)計與實(shí)現(xiàn) [M].北京 :電子工業(yè)出版社 .2021. [5]黃明 .Visual Basic+SQL SERVER中小型信息系統(tǒng) [M].北京 :機(jī)械工業(yè)出版社 .2021.
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1